Meteor by Toolkitman

ОБЪЯСНЕНИЕ

ДЕЙСТВИТЕЛЬНО ТРУДНО ПУБЛИКОВАТЬ ИГРУ ДЛЯ APPLE II ВСЕГО В 10 СТРОК КОДА, ПОЭТОМУ Я СДЕЛАЛ БОЛЬШОЙ ПОИСК В СЕТИ И НАШЕЛ ЛЮБОПЫТНЫЙ БЛОГ ОБ ЭТОЙ НЕБОЛЬШОЙ, НО ВСЕГДА ХОРОШЕЙ ИГРЕ, Я АДАПТИРОВАЛ ЕГО В СООТВЕТСТВИИ С МОЕЙ ИДЕЕЙ КОСМИЧЕСКИЙ КОРАБЛЬ ОБЪЕЗЖАЕТ МАКСИМАЛЬНО БОЛЬШЕ МЕТЕОРИТОВ (МАКСИМАЛЬНО 10) ЗА МИНИМАЛЬНОЕ ВРЕМЯ.

КОД

10 REM "METEOR APPLE II GAME! MATTEO TREVISAN FROM MUNCH THE SNILS BY KURT LEUCHT" 20 ТЕКСТ: ГЛАВНАЯ: H = 20: ПЕЧАТЬ CHR$ (21): POKE 35,22 30 K = PEEK (49152): ON K < 128 ПЕРЕЙТИ К 40: H = H + (K = 149) - (K = 136) 40 POKE 49168,0: ЕСЛИ RND (1) * 10 < 1 THEN VTAB 20: HTAB RND (1) * 20 + 10: ПЕЧАТЬ "@": ПЕРЕЙТИ К 70 50 VTAB 22: HTAB RND (1) * 39 + 1: ПЕЧАТЬ CHR$ (46) 60 ЕСЛИ PEEK (1535 + H) = 192 THEN S = S + 1: VTAB 5: HTAB H: ПЕЧАТЬ "#"; CHR$ (7): VTAB 23: ПЕЧАТЬ "ПОНИМАЕТСЯ: ";S: ПЕРЕЙТИ К 80 70 VTAB 5: HTAB H: ПЕЧАТЬ "V" 80 T = T + 1: ЕСЛИ S < 10, ТО 30 90 ТЕКСТ: VTAB 23: ПЕЧАТЬ S;" МЕТЕОР ПОЛУЧИЛСЯ В ";T;" МЕТЕОР СЕКУНД.": КОНЕЦ