The 2 Steve's Adventure by Toolkitman
A downloadable game
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
Status | Released |
Rating | Rated 5.0 out of 5 stars (1 total ratings) |
Author | BASIC 10Liner |
Genre | Adventure |
Tags | apple2, applesoft, basic, basic10liner |
Leave a comment
Log in with itch.io to leave a comment.