Инопланетятнин выполняет особое задание-ищет разные миры и планеты, что бы узнавать как живут другие и что интересного есть во вселенной. Ему понравилось много чего, вид красивой планеты, богатый мир разнообразия животных и растений, достопримечательности, культура людей, особый язык и другое. Но ему совсем не понравилось агрессивное поведение людей на друг друга, зависть, крики и ссоры, насмешки, драки и войны. Он разочаровался в этой планете, и поэтому улетел искать другие миры.. Ну а в общем, каждый человек на Земле может избежать всего злого, просто нормально поговорив с собеседником, выяснить проблему и обсудить её. Люди могут перестать завидовать, и кидаться грязными словами, делить всё поровну. Народ, дарите добро, любовь, заботу и счастье друг дургу, ведь это лучше ненависти и равнодушия!
(COLOR 10) - для красоты
(a:) - слово будет двигаться бесконечно
FOR i = 1 TO 75
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
FOR i = 75 TO 1 STEP -1
CLS
LOCATE 12, i
PRINT "QBasic"
FOR k = 1 TO 20000
NEXT k
NEXT i
(GOTO a) - слово будет двигаться бесконечно
(Чем больше выделенное число, тем медленнее двигается слово, на разных ПК по-разному)