The 2 Steve's Adventure by Toolkitman

 1  HGR2 : TEXT : HOME 

 10  PRINT ""

 20  PRINT "=======\THE 2 STEVE's ADVENTURE/======="

 30  PRINT ""

 40  PRINT "PRESS SPACE TO START"

 41  PRINT ""

 50  GET A$

 60  IF A$ = " " THEN  GOTO 80

 70  IF A$ <  > " " THEN  GOTO 40

 80  SPEED= 100

 90  PRINT "  THIS IS THE STORY OF TWO YOUNG MAN"

 100  PRINT "             TWO FRIENDS"

 110  PRINT "    COMPLETLY DIFFERENT EACH OTHERS"

 120  PRINT "   BUT WITH SOMETHING BIG IN COMMONS"

 130  PRINT "      A PASSION FOR ELECTRONICS."

 140  PRINT "  A HOT DAY IN CUPERTINO, STEVE BUILD"

 150  PRINT "    A NEW TERMINAL THAT AT THE EYES"

 160  PRINT "         OF HIS FRIEND STEVEN"

 170  PRINT "WILL BECOME THE COMPUTER FOR THE MASSES"

 190  PRINT "    OR THE START FOR IT, BUT BEFORE"

 200  PRINT " PRESENTING FIND THE ISSUE? YES OR NO"

 210  INPUT B$

 220  IF B$ = "YES" THEN  GOTO 240

 230  IF B$ = "NO" THEN  GOTO 1

 240  HOME : HGR : GOTO 250

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

 242  VTAB 21: PRINT "DO YOU WANT TO BUY? KEYBOARD, PSU OR MOTHERBOARD?KEYBOARD COSTS 300$, PSU COSTS 150$, MOTHERBOARD COSTS 666,66$"

 243  VTAB 24: INPUT H$: HOME 

 244  IF H$ = "KEYBOARD" THEN  VTAB 21: PRINT "YOU PAY 300$": GOTO 480

 245  IF H$ = "PSU" THEN  VTAB 21: PRINT "YOU PAY 150$": GOTO 531

 246  IF H$ = "MOTHERBOARD" THEN  VTAB 21: PRINT "YOU PAY 666,66$": GOTO 590

 247  IF H$ <  > "KEYBOARD" THEN  GOTO 241

 248  IF H$ <  > "PSU" THEN  GOTO 241

 249  IF H# <  > "MOTHERBOARD" THEN  GOTO 241

 250  PRINT  CHR$ (4);"BLOAD A2.BIN,A$2000"

 260  VTAB 21: PRINT "OPEN THE LID? YES OR NO?"

 270  VTAB 24: INPUT C$: HOME 

 280  IF C$ = "YES" THEN  GOTO 292

 290  IF C$ <  > "YES" THEN  GOTO 1

 291 J =  INT (3 *  RND (1)) + 1

 292  IF J = 1 THEN  GOTO 300

 293  IF J = 2 THEN  GOTO 610

 294  IF J = 3 THEN  GOTO 1130

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

 400  VTAB 21: PRINT "LID OPEN, APPLE I NOT WORKING, DO YOU WANT TO GO TO THE JOBS MARKETPLACE? YOU HAVE 1000$, YES OR NO?"

 410  VTAB 24: INPUT D$: HOME 

 420  IF D$ = "YES" THEN  GOTO 241

 430  IF D$ <  > "YES" THEN  GOTO 1

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

 490  VTAB 21: PRINT "KEYBOARD REPLACED, STILL NOT WORKING BLACK SCREEN NO ACTIVITY BUY ANOTHER COMPONENT? YES OR NO"

 510  VTAB 24: INPUT E$: HOME 

 520  IF E$ = "YES" THEN  GOTO 241

 530  IF E$ <  > "YES" THEN  GOTO 1

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

 550  VTAB 21: PRINT "PSU REPLACED, FAN ACTIVITY BUT BLACK SCREEN, DO YOU WANT TO BUY ANOTHER COMPONENT? YES OR NO?"

 560  VTAB 24: INPUT F$: HOME 

 570  IF F$ = "YES" THEN  GOTO 241

 580  IF F$ <  > "YES" THEN  GOTO 1

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

 600  PRINT  CHR$ (7): VTAB 21: PRINT "IT BOOT!!! YES IT'S THE ISSUE! GREAT JOB": HOME : GOTO 291

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

 650  VTAB 21: PRINT "DO YOU WANT TO TRY CHESS CASSETTE? PRESS SPACE TO START"

 660  GET K$

 670  IF K$ = " " THEN  GOTO 710

 680  IF K$ <  > " " THEN  GOTO 1

 710  VTAB 21: PRINT "YOU WIN WITH FIRST 3 MOVES BUT THEN IMAGE FROZEN AND THE APPLE I MADE SOME SPARKLES, DO YOU WANT TO FIX IT, YES OR NO?"

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

 716  INPUT AW$: HOME 

 717  IF AW$ = "YES" THEN  GOTO 720

 718  IF AW$ <  > "YES" THEN  GOTO 1

 720  PRINT  CHR$ (4);"BLOAD A2.BIN,A$2000"

 730  VTAB 21: PRINT "OPEN THE LID? YES OR NO?"

 740  VTAB 24: INPUT I$: HOME 

 750  IF I$ = "YES" THEN  GOTO 770

 760  IF I$ <  > "YES" THEN  GOTO 1

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

 780  VTAB 21: PRINT "LID OPEN, APPLE I NOT WORKING, DO YOU WANT TO GO TO THE JOBS MARKETPLACE? YOU HAVE 1000$, YES OR NO?"

 790  VTAB 24: INPUT L$: HOME 

 800  IF L$ = "YES" THEN  GOTO 1040

 810  IF L$ <  > "YES" THEN  GOTO 1

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

 830  VTAB 21: PRINT "KEYBOARD REPLACED, STILL NOT WORKING BLACK SCREEN NO ACTIVITY BUY ANOTHER COMPONENT? YES OR NO"

 840  VTAB 24: INPUT P$: HOME 

 850  IF P$ = "YES" THEN  GOTO 1040

 860  IF P$ <  > "YES" THEN  GOTO 1

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

 880  PRINT  CHR$ (7): VTAB 21: PRINT "PSU REPLACED, MONITOR AND APPLE I WORKING GREAT JOB": HOME : GOTO 291

 890  VTAB 24: INPUT O$: HOME 

 900  IF O$ = "YES" THEN  GOTO 1040

 1010  IF O$ <  > "YES" THEN  GOTO 1

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

 1030  VTAB 21: PRINT "MOTHERBOARD REPLACED,STILL NO ACTIVITY, BLACK SCREEN, BUY ANOTHER COMPONENT, YES OR NO!"

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

 1050  VTAB 21: PRINT "DO YOU WANT TO BUY? KEYBOARD, PSU OR MOTHERBOARD? KEYBOARD COSTS 300$, PSU COSTS 150$, MOTHERBOARD COSTS 666,66$"

 1060  VTAB 24: INPUT U$: HOME 

 1070  IF U$ = "KEYBOARD" THEN  VTAB 21: PRINT "YOU PAY 300$": GOTO 820

 1080  IF U$ = "PSU" THEN  VTAB 21: PRINT "YOU PAY 150$": GOTO 871

 1090  IF U$ = "MOTHERBOARD" THEN  VTAB 21: PRINT "YOU PAY 666,66$": GOTO 1020

 1100  IF U$ <  > "KEYBOARD" THEN  GOTO 1040

 1110  IF U$ <  > "PSU" THEN  GOTO 1040

 1120  IF U# <  > "MOTHERBOARD" THEN  GOTO 1040

 1130  VTAB 21: PRINT "DO YOU WANT TO TRY BASIC? YES OR NO"

 1135  INPUT K$: HOME 

 1140  IF K$ = "YES" THEN  GOTO 1160

 1150  IF K$ <  > "YES" THEN  GOTO 1

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

 1170  VTAB 24: PRINT "YOU WRITE AN HELLO WORLD, BUT STARTING IT A KEY KEEPS OUT": HOME 

 1180  PRINT  CHR$ (4);"BLOAD A2.BIN,A$2000"

 1190  VTAB 21: PRINT "OPEN THE LID? YES OR NO?"

 1200  VTAB 24: INPUT IA$: HOME 

 1210  IF IA$ = "YES" THEN  GOTO 1230

 1220  IF IA$ <  > "YES" THEN  GOTO 1

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

 1240  VTAB 21: PRINT "LID OPEN, APPLE I NOT WORKING, DO YOU WANT TO GO TO THE JOBS MARKETPLACE? YOU HAVE 1000$, YES OR NO?"

 1250  VTAB 24: INPUT LA$: HOME 

 1260  IF LA$ = "YES" THEN  GOTO 1400

 1270  IF LA$ <  > "YES" THEN  GOTO 1

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

 1290  VTAB 21: PRINT "KEYBOARD REPLACED, GREAT JOB YOUR BUTTON IS IN POSITION YOUR COMPUTER IS SAFE!!!": HOME : GOTO 291

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

 1340  PRINT  CHR$ (7): VTAB 21: PRINT " PSU REPLACED, MONITOR AND APPLE I WORKING BUT YOU CANT PLAY CORRECTLY. DO YOU WANT TO BUY ANOTHER COMPONENT, YES OR NO?"

 1350  VTAB 24: INPUT OA$: HOME 

 1360  IF OA$ = "YES" THEN  GOTO 1400

 1370  IF OA$ <  > "YES" THEN  GOTO 1

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

 1390  PRINT  CHR$ (7): VTAB 21: PRINT "MOTHERBOARD REPLACED, MONITOR AND APPLE I WORKING BUT YOU CANT PLAY CORRECTLY. DO YOU WANT TO BUY ANOTHER COMPONENT, YES OR NO?"

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

 1410  VTAB 21: PRINT "DO YOU WANT TO BUY? KEYBOARD, PSU OR MOTHERBOARD?KEYBOARD COSTS 300$, PSU COSTS 150$, MOTHERBOARD COSTS 666,66$"

 1420  VTAB 24: INPUT UA$: HOME 

 1430  IF UA$ = "KEYBOARD" THEN  VTAB 21: PRINT "YOU PAY 300$": GOTO 1280

 1440  IF UA$ = "PSU" THEN  VTAB 21: PRINT "YOU PAY 150$": GOTO 1330

 1450  IF UA$ = "MOTHERBOARD" THEN  VTAB 21: PRINT "YOU PAY 666,66$": GOTO 1380

 1460  IF UA$ <  > "KEYBOARD" THEN  GOTO 1040

 1470  IF UA$ <  > "PSU" THEN  GOTO 1040

 1480  IF UA# <  > "MOTHERBOARD" THEN  GOTO 1040