Attachment | Size |
---|---|
Fandom Journey Apple1.txt | 1.01 KB |
Fandom Journey Apple I
Jump to navigationJump to search
This is a Textual adventure game for the Apple I i have programmed from my SAGA of Fandom.... This is a continum.
Copy paste this code in Apple I Serial Terminal or save in a notepad a FANDOM.txt file and run in pom1 or download from buttom of this post the file. After loading it write RUN and press retun on your keyboard.
HERE THE CODE:
1 DIM A$ (4)10 PRINT " FANDOM JOURNEY APPLE I"20 PRINT " BY MATTEO TREVISAN"30 PRINT " 2024 EDITION"40 PRINT ""50 PRINT "SO FAR SO GOOD.. IT IS THE YEAR"60 PRINT "2024 AND FANDOM HAS BROKEN HIS"70 PRINT "APPLE II HE HAS ONLY TWO OPTION"80 PRINT "TO BEAT ROBOFLIP, A GAMEBUINO"90 PRINT "OR AN APPLE I"100 PRINT "GAMEBUINO HAS A STRANGE"110 PRINT "PROGRAMMING LANGUAGE OR AT"120 PRINT "LEAST HE DONT KNOW IT! SO HE"130 PRINT "PREFER TO CHOOSE BASIC WITH" 140 PRINT "APPLE I NANO HIS FATHER"150 PRINT "HAS BUILT. WILL HE DEFEAT"160 PRINT "ROBOFLIP TO THE RUN TO GET"170 PRINT "THE NEWBOX 720 AND BEAT THE"180 PRINT "VIRUS??? LET YOU PLAY...."190 PRINT "WRITE YES OR NO TO PLAY"180 INPUT A$190 IF A$ = "YES" THEN GOTO 210200 IF A$ # "YES" THEN GOTO 1210 PRINT "PLEASE! WRITE NUMBER FROM 1 TO 20"215 B = RND(20)220 INPUT C225 IF C # B THEN PRINT "ROBOFLIP DEFEATED YOU RETRY" 230 IF C = B THEN PRINT "WELL MADE YOU WON THE NEWBOX!!!!!"240 GOTO 190
Looks like there is a repeated line numbering issue here:
180 PRINT "VIRUS??? LET YOU PLAY...."
190 PRINT "WRITE YES OR NO TO PLAY"
180 INPUT A$
190 IF A$ = "YES" THEN GOTO 210