The 2 Steve's Adventure by Toolkitman

 1  HGR2 : ТЕКСТ : ГЛАВНАЯ 

 10  ПЕЧАТЬ ""

 20  PRINT "=======\THE 2 ПРИКЛЮЧЕНИЯ СТИВА/======="

 30  ПЕЧАТЬ ""

 40  ПЕЧАТЬ "НАЖМИТЕ ПРОБЕЛ, ЧТОБЫ НАЧАТЬ"

 41  ПЕЧАТЬ ""

 50  ПОЛУЧИТЕ A$

 60  ЕСЛИ A$ = " ", ТО ПЕРЕЙДИТЕ К 80

 70  ЕСЛИ A$ <  > " ", ТО ПЕРЕЙДИТЕ К 40

 80  СКОРОСТЬ = 100

 90  PRINT "  ЭТО ИСТОРИЯ ДВУХ МОЛОДЫХ ЧЕЛОВЕК"

 100  PRINT "             ДВА ДРУЗЬЯ"

 110  PRINT "    ПОЛНОСТЬЮ ОТЛИЧАЮТСЯ ДРУГ ДРУГА"

 120  PRINT "   НО С ЧЕМ-ТО БОЛЬШИМ ОБЩИМ"

 130  PRINT "      СТРАСТЬ К ЭЛЕКТРОНИКЕ."

 140  PRINT "  ЖАРКИЙ ДЕНЬ В КУПЕРТИНО, СТИВ БИЛД"

 150  PRINT "    НОВЫЙ ТЕРМИНАЛ, КОТОРЫЙ В ГЛАЗАХ"

 160  PRINT "         ИЗ ЕГО ДРУГА СТИВЕНА"

 170  PRINT "СТАНЕТ КОМПЬЮТЕРОМ ДЛЯ МАСС"

 190  PRINT "    ИЛИ НАЧАЛО ДЛЯ ЭТОГО, НО ДО"

 200  PRINT "ПРЕДСТАВЛЯЕТ, НАЙТИ ПРОБЛЕМУ? ДА ИЛИ НЕТ"

 210  INPUT B$

 220  ЕСЛИ B$ = "YES", ТОГДА ПЕРЕЙДИТЕ К 240

 230  ЕСЛИ B$ = "НЕТ", ТО ПЕРЕХОД К 1

 240  ГЛАВНАЯ : HGR : ПЕРЕЙТИ К 250

 241  PRINT  CHR$ (4);"BLOAD COMPN.BIN,A$2000"

 242  VTAB 21: ПЕЧАТЬ "ХОТИТЕ КУПИТЬ? КЛАВИАТУРУ, БП ИЛИ МАТЕРИНСКУЮ ПЛАТУ? КЛАВИАТУРА СТОИТ 300$, БП СТОИТ 150$, МАТЕРИНСКАЯ ПЛАТА СТОИТ 666,66$"

 243  VTAB 24: ВВОД H$: ГЛАВНАЯ 

 244  ЕСЛИ H$ = "KEYBOARD", ТО  VTAB 21: НАПЕЧАТАЙТЕ "YOU PAY 300$": ПЕРЕЙДИТЕ К 480

 245  ЕСЛИ H$ = "PSU", ТО  VTAB 21: НАПЕЧАТАЙТЕ "YOU PAY 150$": ПЕРЕЙДИТЕ К 531

 246  ЕСЛИ H$ = "МАТЕРИНСКАЯ ПЛАТА", ТО  VTAB 21: ПЕЧАТЬ «ВЫ ПЛАТИТЕ 666,66 $»: ПЕРЕЙДИТЕ К 590

 247  ЕСЛИ H$ <  > "КЛАВИАТУРА", ТОГДА ПЕРЕЙДИТЕ К 241

 248  ЕСЛИ H$ <  > "Блок питания", ТО ПЕРЕХОД К 241

 249  ЕСЛИ H# <  > "МАТЕРИНСКАЯ ПЛАТА", ТОГДА ПЕРЕЙДИТЕ К 241

 250  PRINT  CHR$ (4);"BLOAD A2.BIN,2000 австралийских долларов"

 260  VTAB 21: ПЕЧАТЬ "ОТКРОЙТЕ КРЫШКУ? ДА ИЛИ НЕТ?"

 270  VTAB 24: ВВОД C$: ГЛАВНАЯ 

 280  ЕСЛИ C$ = "ДА", ТО ПЕРЕХОД К 292

 290  ЕСЛИ C$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 291 Дж = INT (3 * RND (1)) + 1

 292  ЕСЛИ J = 1, ТО ПЕРЕХОД К 300

 293 ЕСЛИ J = 2, ТО ПЕРЕХОД К 610

 294  ЕСЛИ J = 3, ТО ПЕРЕХОД К 1130

 300  PRINT  CHR$ (4);"BLOAD AOPEN.BIN,A$2000"

 400  VTAB 21: ПЕЧАТЬ "КРЫШКА ОТКРЫТА, APPLE I НЕ РАБОТАЕТ, ВЫ ХОТИТЕ ПОЙТИ НА РЫНОК РАБОТЫ? У ВАС ЕСТЬ 1000$, ДА ИЛИ НЕТ?"

 410  VTAB 24: ВВОД D$: ГЛАВНАЯ 

 420  ЕСЛИ D$ = "ДА", ТО ПЕРЕХОД К 241

 430  ЕСЛИ D$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 480  PRINT  CHR$ (4);"BLOAD KEY.BIN,A$2000"

 490  VTAB 21: ПЕЧАТЬ "КЛАВИАТУРА ЗАМЕНЕНА, ЕЩЕ НЕ РАБОТАЕТ, ЧЕРНЫЙ ЭКРАН НЕТ АКТИВНОСТИ, КУПИТЬ ДРУГОЙ КОМПОНЕНТ? ДА ИЛИ НЕТ"

 510  VTAB 24: ВВОД E$: ГЛАВНАЯ 

 520  ЕСЛИ E$ = "ДА", ТО ПЕРЕХОД К 241

 530  ЕСЛИ E$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 531  PRINT  CHR$ (4);"BLOAD PSU.BIN,A$2000"

 550  VTAB 21: ПЕЧАТЬ "БЛОК ЗАМЕНЕН, ВЕНТИЛЯТОР РАБОТАЕТ, НО ЭКРАН ЧЕРНЫЙ, КУПИТЬ ДРУГОЙ КОМПОНЕНТ? ДА ИЛИ НЕТ?"

 560  VTAB 24: ВВОД F$: ГЛАВНАЯ 

 570  ЕСЛИ F$ = "ДА", ТО ПЕРЕХОД К 241

 580  ЕСЛИ F$ <  >"ДА", ТОГДА ПЕРЕЙДИТЕ К 1

 590  PRINT  CHR$ (4);"BLOAD MOT.BIN,A$2000"

 600  PRINT   CHR$ (7): VTAB 21: PRINT "ЭТО ЗАГРУЗКА!!! ДА ЭТО ПРОБЛЕМА! ОТЛИЧНАЯ РАБОТА": ГЛАВНАЯ : ПЕРЕЙТИ К 291

 610  PRINT  CHR$ (4);"BLOAD KARA.BIN,A$2000"

 650  VTAB 21: ПЕЧАТЬ "ХОТИТЕ ПОПРОБОВАТЬ ШАХМАТНУЮ КАССЕТУ? НАЖМИТЕ ПРОБЕЛ, ЧТОБЫ НАЧАТЬ"

 660   ПОЛУЧИТЕ K$

 670  ЕСЛИ K$ = " ", ТО ПЕРЕЙДИТЕ К 710

 680  IF K$ <  > " " THEN  GOTO 1

 710  VTAB 21: ПЕЧАТЬ "ПЕРВЫЕ 3 ХОДА ВЫ ВЫИГРАЛИ, НО ЗАТЕМ ИЗОБРАЖЕНИЕ ЗАМОРОЖИЛО, И ЯБЛОКО Я СДЕЛАЛ НЕСКОЛЬКО БЛЕСТКОВ, ВЫ ХОТИТЕ ЭТО ИСПРАВИТЬ, ДА ИЛИ НЕТ?"

 715  PRINT  CHR$ (4);"BLOAD BLK.BIN,A$2000"

 716  INPUT AW$: ГЛАВНАЯ 

 717  ЕСЛИ AW$ = "YES", ТОГДА ПЕРЕЙДИТЕ К 720

 718  ЕСЛИ AW$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 720  PRINT  CHR$ (4);"BLOAD A2.BIN,2000 австралийских долларов"

 730  VTAB 21: ПЕЧАТЬ "ОТКРОЙТЕ КРЫШКУ? ДА ИЛИ НЕТ?"

 740  VTAB 24: ВВОД I$: ГЛАВНАЯ 

 750  ЕСЛИ I$ = "ДА", ТОГДА ПЕРЕЙДИТЕ К 770

 760  ЕСЛИ I$ <  > "ДА", ТОГДА ПЕРЕХОД К 1

 770  PRINT  CHR$ (4);"BLOAD AOPEN.BIN,A$2000"

 780  VTAB 21: ПЕЧАТЬ "КРЫШКА ОТКРЫТА, APPLE I НЕ РАБОТАЕТ, ВЫ ХОТИТЕ ПОЙТИ НА РЫНОК РАБОТЫ? У ВАС ЕСТЬ 1000$, ДА ИЛИ НЕТ?"

 790  VTAB 24: ВВОД L$: ГЛАВНАЯ 

 800  ЕСЛИ L$ = "YES", ТОГДА ПЕРЕЙДИТЕ К 1040

 810  ЕСЛИ L$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 820  PRINT  CHR$ (4);"BLOAD KEY.BIN,A$2000"

 830  VTAB 21: ПЕЧАТЬ "КЛАВИАТУРА ЗАМЕНЕНА, ЕЩЕ НЕ РАБОТАЕТ, ЧЕРНЫЙ ЭКРАН, НЕТ АКТИВНОСТИ, КУПИТЬ ДРУГОЙ КОМПОНЕНТ? ДА ИЛИ НЕТ"

 840  VTAB 24: ВХОДP$: ГЛАВНАЯ 

 850  ЕСЛИ P$ = "ДА", ТО ПЕРЕХОД К 1040

 860  ЕСЛИ P$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 871  PRINT  CHR$ (4);"BLOAD PSU.BIN,A$2000"

 880  PRINT  CHR$ (7): VTAB 21: PRINT "БЛОК ЗАМЕНЕН, МОНИТОР И APPLE I РАБОТАЮТ ОТЛИЧНО": ГЛАВНАЯ : ПЕРЕЙТИ К 291

 890  VTAB 24: ВВОД O$: ГЛАВНАЯ 

 900  ЕСЛИ O$ = "ДА", ТОГДА ПЕРЕЙДИТЕ К 1040

 1010  ЕСЛИ O$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 1020  PRINT  CHR$ (4);"BLOAD MOT.BIN,A$2000"

 1030  VTAB 21: ПЕЧАТЬ "МАТЕРИНСКАЯ ПЛАТА ЗАМЕНЕНА, ПО-ПРЕЖНЕМУ НЕТ АКТИВНОСТИ, ЧЕРНЫЙ ЭКРАН, КУПИТЬ ДРУГОЙ КОМПОНЕНТ, ДА ИЛИ НЕТ!"

 1040  PRINT  CHR$ (4);"BLOAD COMPN.BIN,A$2000"

 1050  VTAB 21: ПЕЧАТЬ "ХОТИТЕ КУПИТЬ? КЛАВИАТУРУ, БП ИЛИ МАТЕРИНСКУЮ ПЛАТУ? КЛАВИАТУРА СТОИТ 300$, БП СТОИТ 150$, МАТЕРИНСКАЯ ПЛАТА СТОИТ 666,66$"

 1060  VTAB 24: ВВОД U$: ГЛАВНАЯ 

 1070  ЕСЛИ U$ = "KEYBOARD", ТО  VTAB 21: НАПЕЧАТАЙТЕ "YOU PAY 300$": ПЕРЕЙДИТЕ К 820

 1080  ЕСЛИ U$ = "PSU", ТО  VTAB 21: НАПЕЧАТАЙТЕ "YOU PAY 150$": ПЕРЕЙДИТЕ К 871

 1090  ЕСЛИ U$ = "МАТЕРИНСКАЯ ПЛАТА", ТО  VTAB 21: НАПЕЧАТАЙТЕ "ВЫ ПЛАТИТЕ 666,66$": ПЕРЕЙДИТЕ К 1020

 1100  ЕСЛИ U$ <  > "КЛАВИАТУРА", ТОГДА ПЕРЕЙДИТЕ К 1040

 1110  ЕСЛИ U$ <  > "PSU", ТОГДА ПЕРЕЙДИТЕ К 1040

 1120  ЕСЛИ U# <  > "МАТЕРИНСКАЯ ПЛАТА", ТОГДА ПЕРЕЙДИТЕ К 1040

 1130  VTAB 21: ПЕЧАТЬ "ХОТИТЕ ПОПРОБОВАТЬ БАЗОВЫЙ? ДА ИЛИ НЕТ"

 1135  INPUT K$: ГЛАВНАЯ 

 1140  ЕСЛИ K$ = "ДА", ТОГДА ПЕРЕЙДИТЕ К 1160

 1150  ЕСЛИ K$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 1160  PRINT  CHR$ (4);"BLOAD DK.BIN,A$2000"

 1170  VTAB 24: ПЕЧАТЬ "ТЫНАПИСАТЬ ПРИВЕТ, МИР, НО НАЧАТЬ ЭТО КЛЮЧ НЕ ДОЛЖЕН": ГЛАВНАЯ 

 1180  PRINT  CHR$ (4);"BLOAD A2.BIN,2000 австралийских долларов"

 1190  VTAB 21: ПЕЧАТЬ "ОТКРОЙТЕ КРЫШКУ? ДА ИЛИ НЕТ?"

 1200  VTAB 24: ВВОД IA$: ГЛАВНАЯ 

 1210  ЕСЛИ IA$ = "YES", ТОГДА ПЕРЕЙДИТЕ К 1230

 1220  ЕСЛИ IA$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 1230  PRINT  CHR$ (4);"BLOAD AOPEN.BIN,A$2000"

 1240  VTAB 21: ПЕЧАТЬ "КРЫШКА ОТКРЫТА, APPLE I НЕ РАБОТАЕТ, ВЫ ХОТИТЕ ПОЙТИ НА РЫНОК РАБОТЫ? У ВАС ЕСТЬ 1000$, ДА ИЛИ НЕТ?"

 1250  VTAB 24: ВВОД LA$: ГЛАВНАЯ 

 1260 ЕСЛИ LA$ = "ДА", ТО ПЕРЕХОДИТЕ К 1400

 1270  ЕСЛИ LA$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 1280  PRINT  CHR$ (4);"BLOAD KEY.BIN,A$2000"

 1290  VTAB 21: ПЕЧАТЬ "КЛАВИАТУРА ЗАМЕНЕНА, ОТЛИЧНАЯ РАБОТА, ВАША КНОПКА НА МЕСТЕ, ВАШ КОМПЬЮТЕР В БЕЗОПАСНОСТИ!!!": ГЛАВНАЯ: ПЕРЕЙТИ К 291

 1330  PRINT  CHR$ (4);"BLOAD PSU.BIN,A$2000"

 1340  PRINT   CHR$ (7): VTAB 21: PRINT "БЛОК ЗАМЕНЕН, МОНИТОР И APPLE I РАБОТАЮТ, НО ВЫ НЕ МОЖЕТЕ ИГРАТЬ ПРАВИЛЬНО. ВЫ ХОТИТЕ КУПИТЬ ДРУГОЙ КОМПОНЕНТ, ДА ИЛИ НЕТ?"

 1350  VTAB 24: ВВОД OA$: ГЛАВНАЯ 

 1360 ЕСЛИ OA$ = "ДА", ТО ПЕРЕХОДИТЕ К 1400

 1370  ЕСЛИ OA$ <  > "ДА", ТОГДА ПЕРЕЙТИ К 1

 1380  PRINT  CHR$ (4);"BLOAD MOT.BIN,A$2000"

 1390  PRINT   CHR$ (7): VTAB 21: PRINT "МАТЕРИНСКАЯ ПЛАТА ЗАМЕНЕНА, МОНИТОР И APPLE I РАБОТАЮТ, НО ВЫ НЕ МОЖЕТЕ ИГРАТЬ ПРАВИЛЬНО. ВЫ ХОТИТЕ КУПИТЬ ДРУГОЙ КОМПОНЕНТ, ДА ИЛИ НЕТ?"

 1400  PRINT  CHR$ (4);"BLOAD COMPN.BIN,A$2000"

 1410  VTAB 21: ПЕЧАТЬ "ХОТИТЕ БУЮ? КЛАВИАТУРА, БП ИЛИ МАТЕРИНСКАЯ ПЛАТА?КЛАВИАТУРА СТОИТ 300$, БП 150$, МАТЕРИНСКАЯ ПЛАТА 666,66$"

 1420  VTAB 24: ВВОД UA$: ГЛАВНАЯ 

 1430  ЕСЛИ UA$ = "KEYBOARD", ТО  VTAB 21: НАПЕЧАТАЙТЕ "YOU PAY 300$": ПЕРЕЙДИТЕ К 1280

 1440  ЕСЛИ UA$ = "PSU", ТО  VTAB 21: НАПЕЧАТАЙТЕ "YOU PAY 150$": ПЕРЕЙДИТЕ К 1330

 1450  ЕСЛИ UA$ = "МАТЕРИНСКАЯ ПЛАТА", ТО  VTAB 21: НАПЕЧАТАЙТЕ "ВЫ ПЛАТИТЕ 666,66$": ПЕРЕЙДИТЕ К 1380

 1460  ЕСЛИ UA$ <  > "KEYBOARD", ТОГДА ПЕРЕЙДИТЕ К 1040

 1470  ЕСЛИ UA$ <  > "PSU", ТО ПЕРЕЙДИТЕ К 1040

 1480  ЕСЛИ UA# <  > "МАТЕРИНСКАЯ ПЛАТА", ТОГДА ПЕРЕЙДИТЕ К 1040