Apple-1-HW/Apple1-esp
1
0
Fork 0
mirror of https://github.com/jscrane/Apple1.git synced 2024-11-26 03:49:29 +00:00
Code Issues Projects Releases Wiki Activity

remove extra newlines

Browse Source
This commit is contained in:
Stephen Crane 2014-11-16 13:16:48 +00:00
parent 3bb02a65b3
commit b9fdf4884f
2 changed files with 2 additions and 207 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

170
programs/startrek.txt
View File

@ -1,3 +1,4 @@
SCR SCR
LOMEM=768 LOMEM=768
HIMEM=16384 HIMEM=16384
@ -44,7 +45,6 @@ HIMEM=16384
457 PRINT "NEW CIVILIZATIONS, TO BOLDLY GO " 457 PRINT "NEW CIVILIZATIONS, TO BOLDLY GO "
458 PRINT "WHERE NO MAN HAS GONE BEFORE!" 458 PRINT "WHERE NO MAN HAS GONE BEFORE!"
459 PRINT:TAB (10):PRINT"S T A R T R E K":FOR G=1 TO 1000:NEXT G 459 PRINT:TAB (10):PRINT"S T A R T R E K":FOR G=1 TO 1000:NEXT G
460 X1=RND(10)+1:Y1=RND(10)+1:GOTO 2000 460 X1=RND(10)+1:Y1=RND(10)+1:GOTO 2000
470 PRINT:PRINT "LONG RANGE SENSOR SCAN:":PRINT:PRINT E1;" ENEMIES REMAINING.":PRINT 470 PRINT:PRINT "LONG RANGE SENSOR SCAN:":PRINT:PRINT E1;" ENEMIES REMAINING.":PRINT
480 IF X1>1 THEN 500 480 IF X1>1 THEN 500
@ -95,7 +95,6 @@ HIMEM=16384
950 PRINT A$((S(C)*3)-2,S(C)*3); 950 PRINT A$((S(C)*3)-2,S(C)*3);
960 NEXT X:PRINT:NEXT Y:FOR I=1 TO 30:PRINT "-";:NEXT I:PRINT:PRINT 960 NEXT X:PRINT:NEXT Y:FOR I=1 TO 30:PRINT "-";:NEXT I:PRINT:PRINT
970 PRINT "ENERGY=";E7;:TAB 13:PRINT "SHIELDS=";S1;:TAB 24:PRINT "TORP=";T:PRINT:PRINT:PRINT:PRINT:PRINT:RETURN 970 PRINT "ENERGY=";E7;:TAB 13:PRINT "SHIELDS=";S1;:TAB 24:PRINT "TORP=";T:PRINT:PRINT:PRINT:PRINT:PRINT:RETURN
1000 REM PHASORS 1000 REM PHASORS
1010 INPUT "ENTER SHIELD LEVEL",G:IF G<E7 THEN 1030 1010 INPUT "ENTER SHIELD LEVEL",G:IF G<E7 THEN 1030
1020 PRINT "NOT ENOUGH ENERGY.":GOTO 1000 1020 PRINT "NOT ENOUGH ENERGY.":GOTO 1000
@ -148,12 +147,9 @@ HIMEM=16384
2000 GOSUB 650 2000 GOSUB 650
2010 GOSUB 850 2010 GOSUB 850
2020 PRINT:PRINT "COMMAND CAPTAIN ";N$;" (0=HELP) "; 2020 PRINT:PRINT "COMMAND CAPTAIN ";N$;" (0=HELP) ";
2030 INPUT C2 2030 INPUT C2
2040 IF G((10*Y1+X1)-10)<100 THEN 2070 2040 IF G((10*Y1+X1)-10)<100 THEN 2070
2050 G=RND(5)+1:IF G>3 THEN 2070 2050 G=RND(5)+1:IF G>3 THEN 2070
2060 GOSUB 1100 2060 GOSUB 1100
2070 IF C2#0 THEN 2100 2070 IF C2#0 THEN 2100
2080 GOSUB 2360 2080 GOSUB 2360
@ -180,325 +176,163 @@ HIMEM=16384
2290 GOSUB 4200 2290 GOSUB 4200
2300 GOTO 2020 2300 GOTO 2020
2310 IF C2#8 THEN 2350 2310 IF C2#8 THEN 2350
2320 GOTO 7000 2320 GOTO 7000
2350 PRINT "ENTER A VALID COMMAND.":GOTO 2020 2350 PRINT "ENTER A VALID COMMAND.":GOTO 2020
2360 PRINT:PRINT "COMMAND LIST:":PRINT:PRINT "0 = HELP, THIS LIST":PRINT "1 = LONG RANGE SENSOR SCAN" 2360 PRINT:PRINT "COMMAND LIST:":PRINT:PRINT "0 = HELP, THIS LIST":PRINT "1 = LONG RANGE SENSOR SCAN"
2370 PRINT "2 = SHORT RANGE SENSOR SCAN":PRINT "3 = WARP ENGINES":PRINT "4 = SHIELD CONTROL":PRINT "5 = IMPULSE ENGINES" 2370 PRINT "2 = SHORT RANGE SENSOR SCAN":PRINT "3 = WARP ENGINES":PRINT "4 = SHIELD CONTROL":PRINT "5 = IMPULSE ENGINES"
2380 PRINT "6 = PHASOR CONTROL":PRINT "7 = PHOTON TORPEDO CONTROL" 2380 PRINT "6 = PHASOR CONTROL":PRINT "7 = PHOTON TORPEDO CONTROL"
2390 PRINT "8 = SELF DESTRUCT" 2390 PRINT "8 = SELF DESTRUCT"
2391 PRINT " DIRECTIONS:" 2391 PRINT " DIRECTIONS:"
2392 PRINT " 8" 2392 PRINT " 8"
2393 PRINT " 7 | 1" 2393 PRINT " 7 | 1"
2394 PRINT " \ | /" 2394 PRINT " \ | /"
2395 PRINT " 6---0---2" 2395 PRINT " 6---0---2"
2396 PRINT " / | \" 2396 PRINT " / | \"
2397 PRINT " 5 | 3" 2397 PRINT " 5 | 3"
2398 PRINT " 4" 2398 PRINT " 4"
2399 RETURN 2399 RETURN
2400 INPUT "DIRECTION (1-8)",D 2400 INPUT "DIRECTION (1-8)",D
2410 IF D>0 AND D<9 THEN 2440 2410 IF D>0 AND D<9 THEN 2440
2420 PRINT "ANSWER BETWEEN 1 AND 8." 2420 PRINT "ANSWER BETWEEN 1 AND 8."
2430 GOTO 2400 2430 GOTO 2400
2440 INPUT "IMPULSE SPEED",J 2440 INPUT "IMPULSE SPEED",J
2450 IF E7>J THEN 2480 2450 IF E7>J THEN 2480
2460 PRINT "YOU DON'T HAVE ENOUGH ENERGY!" 2460 PRINT "YOU DON'T HAVE ENOUGH ENERGY!"
2470 RETURN 2470 RETURN
2480 S((10*Y4+X4)-10)=0:FOR I=1 TO J:IF D#1 THEN 2510 2480 S((10*Y4+X4)-10)=0:FOR I=1 TO J:IF D#1 THEN 2510
2490 X4=X4+1:IF X4>10 THEN X4=1 2490 X4=X4+1:IF X4>10 THEN X4=1
2500 Y4=Y4-1:IF Y4<1 THEN Y4=10 2500 Y4=Y4-1:IF Y4<1 THEN Y4=10
2510 IF D#2 THEN 2530 2510 IF D#2 THEN 2530
2520 X4=X4+1:IF X4>10 THEN X4=1 2520 X4=X4+1:IF X4>10 THEN X4=1
2530 IF D#3 THEN 2560 2530 IF D#3 THEN 2560
2540 X4=X4+1:IF X4>10 THEN X4=1 2540 X4=X4+1:IF X4>10 THEN X4=1
2550 Y4=Y4+1:IF Y4>10 THEN Y4=1 2550 Y4=Y4+1:IF Y4>10 THEN Y4=1
2560 IF D#4 THEN 2580 2560 IF D#4 THEN 2580
2570 Y4=Y4+1:IF Y4>10 THEN Y4=1 2570 Y4=Y4+1:IF Y4>10 THEN Y4=1
2580 IF D#5 THEN 2610 2580 IF D#5 THEN 2610
2590 X4=X4-1:IF X4<1 THEN X4=10 2590 X4=X4-1:IF X4<1 THEN X4=10
2600 Y4=Y4+1:IF Y4>10 THEN Y4=1 2600 Y4=Y4+1:IF Y4>10 THEN Y4=1
2610 IF D#6 THEN 2630 2610 IF D#6 THEN 2630
2620 X4=X4-1:IF X4<1 THEN X4=10 2620 X4=X4-1:IF X4<1 THEN X4=10
2630 IF D#7 THEN 2660 2630 IF D#7 THEN 2660
2640 X4=X4-1:IF X4<1 THEN X4=10 2640 X4=X4-1:IF X4<1 THEN X4=10
2650 Y4=Y4-1:IF Y4<1 THEN Y4=10 2650 Y4=Y4-1:IF Y4<1 THEN Y4=10
2660 IF D#8 THEN 2680 2660 IF D#8 THEN 2680
2670 Y4=Y4-1:IF Y4<1 THEN Y4=10 2670 Y4=Y4-1:IF Y4<1 THEN Y4=10
2680 E7=E7-1:G=S((10*Y4+X4)-10) 2680 E7=E7-1:G=S((10*Y4+X4)-10)
2690 IF G=0 THEN 2900 2690 IF G=0 THEN 2900
2700 IF G#2 THEN 2750 2700 IF G#2 THEN 2750
2720 PRINT "YOU RAN INTO A STAR AND BURNED!" 2720 PRINT "YOU RAN INTO A STAR AND BURNED!"
2730 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED" 2730 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED"
2740 END 2740 END
2750 IF G#3 THEN 2800 2750 IF G#3 THEN 2800
2770 PRINT "YOU RAMMED THE STARBASE!" 2770 PRINT "YOU RAMMED THE STARBASE!"
2780 PRINT:PRINT "THOUSANDS ARE DEAD." 2780 PRINT:PRINT "THOUSANDS ARE DEAD."
2790 PRINT N$;" WILL BE KNOWN AS A KILLER.":END 2790 PRINT N$;" WILL BE KNOWN AS A KILLER.":END
2800 PRINT "YOU RAMMED THE ENEMY SHIP" 2800 PRINT "YOU RAMMED THE ENEMY SHIP"
2810 PRINT "IT WAS DESTROYED BUT SO WAS" 2810 PRINT "IT WAS DESTROYED BUT SO WAS"
2820 PRINT "THE ENTERPRISE!":END 2820 PRINT "THE ENTERPRISE!":END
2900 NEXT I 2900 NEXT I
2920 S((10*Y4+X4)-10)=1 2920 S((10*Y4+X4)-10)=1
2930 GOSUB 850 2930 GOSUB 850
2940 GOSUB 4050 2940 GOSUB 4050
2950 RETURN 2950 RETURN
3000 REM PHASOR CONTROL 3000 REM PHASOR CONTROL
3010 IF E5#0 THEN 3100 3010 IF E5#0 THEN 3100
3020 PRINT "NO ENEMY TO LOCK PHASORS ONTO!":RETURN 3020 PRINT "NO ENEMY TO LOCK PHASORS ONTO!":RETURN
3100 INPUT "AMOUNT OF ENERGY TO PHASORS",G 3100 INPUT "AMOUNT OF ENERGY TO PHASORS",G
3110 IF G<E7 THEN 3140 3110 IF G<E7 THEN 3140
3120 PRINT "YOU DON'T HAVE THAT MUCH ENERGY.":GOTO 3100 3120 PRINT "YOU DON'T HAVE THAT MUCH ENERGY.":GOTO 3100
3130 E7=E7-G 3130 E7=E7-G
3140 IF E5=5 THEN 3390 3140 IF E5=5 THEN 3390
3150 R=RND(10)+1:IF R#1 THEN 3300 3150 R=RND(10)+1:IF R#1 THEN 3300
3170 PRINT "PHASORS MISSED!":RETURN 3170 PRINT "PHASORS MISSED!":RETURN
3300 PRINT "KLINGON HIT WITH ";G;" PHASOR UNITS." 3300 PRINT "KLINGON HIT WITH ";G;" PHASOR UNITS."
3310 E6=E6-G:IF E6>0 THEN 3380 3310 E6=E6-G:IF E6>0 THEN 3380
3320 PRINT "*** KLINGON DESTROYED ***" 3320 PRINT "*** KLINGON DESTROYED ***"
3330 G((10*Y1+X1)-10)=G((10*Y1+X1)-10)-100 3330 G((10*Y1+X1)-10)=G((10*Y1+X1)-10)-100
3340 E1=E1-1:IF E1=0 THEN 4000 3340 E1=E1-1:IF E1=0 THEN 4000
3350 E6=0:E5=0:FOR I=1 TO 100:IF S(I)=4 THEN S(I)=0 3350 E6=0:E5=0:FOR I=1 TO 100:IF S(I)=4 THEN S(I)=0
3360 IF S(I)=5 THEN S(I)=0 3360 IF S(I)=5 THEN S(I)=0
3370 NEXT I:GOSUB 850 3370 NEXT I:GOSUB 850
3380 RETURN 3380 RETURN
3390 R=RND(5)+1:IF R>3 THEN 3410 3390 R=RND(5)+1:IF R>3 THEN 3410
3400 PRINT "ROMULAN SHIP AVOIDED PHASOR FIRE!":RETURN 3400 PRINT "ROMULAN SHIP AVOIDED PHASOR FIRE!":RETURN
3410 PRINT "ROMULAN HIT WITH ";G;" PHASOR UNITS." 3410 PRINT "ROMULAN HIT WITH ";G;" PHASOR UNITS."
3420 E6=E6-G:IF E6>0 THEN 3380 3420 E6=E6-G:IF E6>0 THEN 3380
3430 PRINT "*** ROMULAN SHIP DESTROYED ***" 3430 PRINT "*** ROMULAN SHIP DESTROYED ***"
3440 G((10*Y1+X1)-10)=G((10*Y1+X1)-10)-100:E1=E1-1:IF E1=0 THEN 4000 3440 G((10*Y1+X1)-10)=G((10*Y1+X1)-10)-100:E1=E1-1:IF E1=0 THEN 4000
3450 GOTO 3350 3450 GOTO 3350
4000 FOR I=1 TO 24:PRINT:NEXT I 4000 FOR I=1 TO 24:PRINT:NEXT I
4010 PRINT "YOU HAVE DEFENDED THE GALAXY AND DEFEATED" 4010 PRINT "YOU HAVE DEFENDED THE GALAXY AND DEFEATED"
4020 PRINT "ALL ENEMIES! YOU WILL BE PROMOTED TO" 4020 PRINT "ALL ENEMIES! YOU WILL BE PROMOTED TO"
4030 PRINT "ADMIRAL BEFORE BEING SUCKED OUT INTO" 4030 PRINT "ADMIRAL BEFORE BEING SUCKED OUT INTO"
4040 PRINT "SPACE IN STAR TREK GENERATIONS." 4040 PRINT "SPACE IN STAR TREK GENERATIONS."
4050 REM CHECK IF DOCKED 4050 REM CHECK IF DOCKED
4060 D9=0:X=X4-1:IF X<1 THEN X=10 4060 D9=0:X=X4-1:IF X<1 THEN X=10
4070 X9=X4+1:IF X9>10 THEN X9=1 4070 X9=X4+1:IF X9>10 THEN X9=1
4080 IF S((10*Y4+X)-10)=3 THEN 4120 4080 IF S((10*Y4+X)-10)=3 THEN 4120
4090 IF S((10*Y4+X9)-10)=3 THEN 4120 4090 IF S((10*Y4+X9)-10)=3 THEN 4120
4100 RETURN 4100 RETURN
4120 IF S1=0 THEN 4140 4120 IF S1=0 THEN 4140
4130 PRINT "YOU CAN'T DOCK WITH SHIELDS UP.":RETURN 4130 PRINT "YOU CAN'T DOCK WITH SHIELDS UP.":RETURN
4140 PRINT "YOU ARE DOCKED WITH THE STARBASE":D9=1 4140 PRINT "YOU ARE DOCKED WITH THE STARBASE":D9=1
4150 PRINT "ENERGY RESTORED":E7=2000:T=10:RETURN 4150 PRINT "ENERGY RESTORED":E7=2000:T=10:RETURN
4200 REM PHOTON TORPEDO CONTROL 4200 REM PHOTON TORPEDO CONTROL
4300 IF T>0 THEN 4500 4300 IF T>0 THEN 4500
4400 PRINT "YOU DON'T HAVE ANY TORPEDOS.":RETURN 4400 PRINT "YOU DON'T HAVE ANY TORPEDOS.":RETURN
4500 INPUT "DIRECTION",D 4500 INPUT "DIRECTION",D
4600 IF D>0 AND D<9 THEN 4800 4600 IF D>0 AND D<9 THEN 4800
4700 PRINT "PLEASE CHOOSE BETWEEN 1-8":GOTO 4500 4700 PRINT "PLEASE CHOOSE BETWEEN 1-8":GOTO 4500
4800 X5=X4:Y5=Y4:T=T-1:PRINT:PRINT "TRACKING TORPEDO PATH":PRINT 4800 X5=X4:Y5=Y4:T=T-1:PRINT:PRINT "TRACKING TORPEDO PATH":PRINT
5000 TAB 10:PRINT X5;",";Y5: IF D#1 THEN 5500 5000 TAB 10:PRINT X5;",";Y5: IF D#1 THEN 5500
5100 X5=X5+1:IF X5>10 THEN 6000 5100 X5=X5+1:IF X5>10 THEN 6000
5300 Y5=Y5-1:IF Y5<1 THEN 6000 5300 Y5=Y5-1:IF Y5<1 THEN 6000
5500 IF D#2 THEN 5560 5500 IF D#2 THEN 5560
5520 X5=X5+1:IF X5>10 THEN 6000 5520 X5=X5+1:IF X5>10 THEN 6000
5560 IF D#3 THEN 5680 5560 IF D#3 THEN 5680
5600 X5=X5+1:IF X5>10 THEN 6000 5600 X5=X5+1:IF X5>10 THEN 6000
5640 Y5=Y5+1:IF Y5>10 THEN 6000 5640 Y5=Y5+1:IF Y5>10 THEN 6000
5680 IF D#4 THEN 5720 5680 IF D#4 THEN 5720
5700 Y5=Y5+1:IF Y5>10 THEN 6000 5700 Y5=Y5+1:IF Y5>10 THEN 6000
5720 IF D#5 THEN 5780 5720 IF D#5 THEN 5780
5740 X5=X5-1:IF X5<1 THEN 6000 5740 X5=X5-1:IF X5<1 THEN 6000
5760 Y5=Y5+1:IF Y5>10 THEN 6000 5760 Y5=Y5+1:IF Y5>10 THEN 6000
5780 IF D#6 THEN 5800 5780 IF D#6 THEN 5800
5790 X5=X5-1:IF X5<1 THEN 6000 5790 X5=X5-1:IF X5<1 THEN 6000
5800 IF D#7 THEN 5830 5800 IF D#7 THEN 5830
5810 X5=X5-1:IF X5<1 THEN 6000 5810 X5=X5-1:IF X5<1 THEN 6000
5820 Y5=Y5-1:IF Y5<1 THEN 6000 5820 Y5=Y5-1:IF Y5<1 THEN 6000
5830 IF D#8 THEN 5850 5830 IF D#8 THEN 5850
5840 Y5=Y5-1:IF Y5<1 THEN 6000 5840 Y5=Y5-1:IF Y5<1 THEN 6000
5850 V=S((10*Y5+X5)-10):IF V=0 THEN 5000 5850 V=S((10*Y5+X5)-10):IF V=0 THEN 5000
5860 IF V=2 THEN 6200 5860 IF V=2 THEN 6200
5870 IF V=3 THEN 6400 5870 IF V=3 THEN 6400
5880 IF V=4 THEN 6450 5880 IF V=4 THEN 6450
5890 IF V=5 THEN 6600 5890 IF V=5 THEN 6600
5900 GOTO 5000:REM CONTINUE UNTIL HIT SOMETHING OR LEAVE QUAD 5900 GOTO 5000:REM CONTINUE UNTIL HIT SOMETHING OR LEAVE QUAD
6000 REM OUT OF QUADRANT 6000 REM OUT OF QUADRANT
6100 PRINT:PRINT " ***** TORPEDO MISSED *****":PRINT:RETURN 6100 PRINT:PRINT " ***** TORPEDO MISSED *****":PRINT:RETURN
6200 REM HIT STAR 6200 REM HIT STAR
6300 PRINT "TORPEDO EXPLODED IN THE STAR":PRINT:RETURN 6300 PRINT "TORPEDO EXPLODED IN THE STAR":PRINT:RETURN
6400 PRINT " ***** STAR BASE DESTROYED *****":GOTO 2780 6400 PRINT " ***** STAR BASE DESTROYED *****":GOTO 2780
6450 PRINT "KLINGON HIT BY TORPEDO" 6450 PRINT "KLINGON HIT BY TORPEDO"
6460 IF RND(100)+1>98 THEN 6550 6460 IF RND(100)+1>98 THEN 6550
6470 PRINT:PRINT "KLINGON DESTROYED" 6470 PRINT:PRINT "KLINGON DESTROYED"
6480 S((10*Y5+X5)-10)=0:G((10*Y1+X1)-10)=G((10*Y1+X1)-10)-100:E1=E1-1:E5=0:E6=0:IF E1=0 THEN 4000 6480 S((10*Y5+X5)-10)=0:G((10*Y1+X1)-10)=G((10*Y1+X1)-10)-100:E1=E1-1:E5=0:E6=0:IF E1=0 THEN 4000
6490 PRINT:GOSUB 850 6490 PRINT:GOSUB 850
6500 RETURN 6500 RETURN
6550 PRINT "KLINGON SURVIVED IMPACT FROM TORPEDO":E6=E6/2:RETURN 6550 PRINT "KLINGON SURVIVED IMPACT FROM TORPEDO":E6=E6/2:RETURN
6600 PRINT "ROMULAN HIT BY TORPEDO" 6600 PRINT "ROMULAN HIT BY TORPEDO"
6610 IF RND(100)+1<50 THEN 6650 6610 IF RND(100)+1<50 THEN 6650
6620 PRINT:PRINT "ROMULAN SHIP DESTROYED!":GOTO 6480 6620 PRINT:PRINT "ROMULAN SHIP DESTROYED!":GOTO 6480
6650 PRINT "ROMULAN SHIELDS HOLDING":E6=E6/2:RETURN 6650 PRINT "ROMULAN SHIELDS HOLDING":E6=E6/2:RETURN
7000 PRINT:PRINT "SELF DESTRUCT SEQUENCE IS NOW ACTIVE" 7000 PRINT:PRINT "SELF DESTRUCT SEQUENCE IS NOW ACTIVE"
7100 FOR X=10 TO 1 STEP -1 7100 FOR X=10 TO 1 STEP -1
7200 TAB 19:PRINT X:FOR Y=1 TO 500:NEXT Y:NEXT X 7200 TAB 19:PRINT X:FOR Y=1 TO 500:NEXT Y:NEXT X
7300 PRINT:PRINT:PRINT " **** KA-BOOM!!! ****" 7300 PRINT:PRINT:PRINT " **** KA-BOOM!!! ****"
7400 PRINT "PIECES OF THE ENTERPRISE ARE NOW" 7400 PRINT "PIECES OF THE ENTERPRISE ARE NOW"
7500 PRINT "SPREAD ACROSS THE GALAXY" 7500 PRINT "SPREAD ACROSS THE GALAXY"
7600 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED." 7600 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED."
7700 END 7700 END

39
programs/wumpus.txt
View File

@ -125,18 +125,15 @@ HIMEM=16384
2010 PRINT 2010 PRINT
2020 FOR J=2 TO 6 2020 FOR J=2 TO 6
2030 FOR K=1 TO 3 2030 FOR K=1 TO 3
2031 X1=L(1) 2031 X1=L(1)
2035 IF S((20*K+X1)-20)<>L(J) THEN 2110 2035 IF S((20*K+X1)-20)<>L(J) THEN 2110
2040 REM WAS IF S(L(1),K)<>L(J) THEN 2110 2040 REM WAS IF S(L(1),K)<>L(J) THEN 2110
2042 IF J-1=1 THEN 2060 2042 IF J-1=1 THEN 2060
2043 IF J-1=2 THEN 2080 2043 IF J-1=2 THEN 2080
2044 IF J-1=3 THEN 2080 2044 IF J-1=3 THEN 2080
2045 IF J-1=4 THEN 2100 2045 IF J-1=4 THEN 2100
2046 IF J-1=5 THEN 2100 2046 IF J-1=5 THEN 2100
2050 REM WAS ON J-1 GOTO 2060,2080,2080,2100,2100 2050 REM WAS ON J-1 GOTO 2060,2080,2080,2100,2100
2060 PRINT "I SMELL A WUMPUS!" 2060 PRINT "I SMELL A WUMPUS!"
2070 GOTO 2110 2070 GOTO 2110
2080 PRINT "I FEEL A DRAFT!" 2080 PRINT "I FEEL A DRAFT!"
@ -145,13 +142,11 @@ HIMEM=16384
2110 NEXT K 2110 NEXT K
2120 NEXT J 2120 NEXT J
2130 PRINT "YOU ARE IN ROOM ";L(1) 2130 PRINT "YOU ARE IN ROOM ";L(1)
2132 X1=S((20*1+L)-20):REM COULD BE S(L) 2132 X1=S((20*1+L)-20):REM COULD BE S(L)
2133 Y1=S((20*2+L)-20):REM COULD BE S(20+L) 2133 Y1=S((20*2+L)-20):REM COULD BE S(20+L)
2135 Z1=S((20*3+L)-20):REM COULD BE S(40+L) 2135 Z1=S((20*3+L)-20):REM COULD BE S(40+L)
2138 PRINT "TUNNELS LEAD TO ";X1;", ";Y1;", AND ";Z1 2138 PRINT "TUNNELS LEAD TO ";X1;", ";Y1;", AND ";Z1
2140 REM WAS PRINT "TUNNELS LEAD TO ";S(L,1);S(L,2);S(L,3) 2140 REM WAS PRINT "TUNNELS LEAD TO ";S(L,1);S(L,2);S(L,3)
2150 PRINT 2150 PRINT
2160 RETURN 2160 RETURN
2500 REM- CHOOSE OPTION 2500 REM- CHOOSE OPTION
@ -181,17 +176,13 @@ HIMEM=16384
3120 REM- SHOOT ARROW 3120 REM- SHOOT ARROW
3140 FOR K=1 TO J1 3140 FOR K=1 TO J1
3150 FOR K1=1 TO 3 3150 FOR K1=1 TO 3
3155 IF S((20*K1+L))-20=P(K) THEN 3295 3155 IF S((20*K1+L))-20=P(K) THEN 3295
3160 REM WAS IF S(L,K1)=P(K) THEN 3295 3160 REM WAS IF S(L,K1)=P(K) THEN 3295
3170 NEXT K1 3170 NEXT K1
3180 REM- NO TUNNEL FOR ARROW 3180 REM- NO TUNNEL FOR ARROW
3181 X1=RND(3)+1 3181 X1=RND(3)+1
3185 L=S((20*X1+L)-20) 3185 L=S((20*X1+L)-20)
3190 REM WAS L=S(L,FNB(1)) 3190 REM WAS L=S(L,FNB(1))
3200 GOTO 3300 3200 GOTO 3300
3210 NEXT K 3210 NEXT K
3220 PRINT "MISSED" 3220 PRINT "MISSED"
@ -213,16 +204,12 @@ HIMEM=16384
3350 PRINT "OUCH! ARROW GOT YOU!" 3350 PRINT "OUCH! ARROW GOT YOU!"
3360 GOTO 3270 3360 GOTO 3270
3370 REM- MOVE WUMPUS ROUTINE 3370 REM- MOVE WUMPUS ROUTINE
3375 K=RND(4)+1 3375 K=RND(4)+1
3380 REM WASK=FNC(0) 3380 REM WASK=FNC(0)
3390 IF K=4 THEN 3410 3390 IF K=4 THEN 3410
3391 X1=L(2) 3391 X1=L(2)
3395 L(2)=S((20*K+X1)-20) 3395 L(2)=S((20*K+X1)-20)
3400 REM WAS L(2)=S(L(2),K) 3400 REM WAS L(2)=S(L(2),K)
3410 IF L(2)<>L THEN 3440 3410 IF L(2)<>L THEN 3440
3420 PRINT "TSK TSK TSK - WUMPUS GOT YOU!" 3420 PRINT "TSK TSK TSK - WUMPUS GOT YOU!"
3430 F=-1 3430 F=-1
@ -234,58 +221,32 @@ HIMEM=16384
4040 IF L<1 OR L>20 THEN 4020 4040 IF L<1 OR L>20 THEN 4020
4050 FOR K=1 TO 3 4050 FOR K=1 TO 3
4060 REM- CHECK IF LEGAL MOVE 4060 REM- CHECK IF LEGAL MOVE
4065 X1=L(1) 4065 X1=L(1)
4069 IF S((20*K+X1)-20)=L THEN 4130 4069 IF S((20*K+X1)-20)=L THEN 4130
4070 REM WAS IF S(L(1),K)=L THEN 4130 4070 REM WAS IF S(L(1),K)=L THEN 4130
4080 NEXT K 4080 NEXT K
4090 IF L=L(1) THEN 4130 4090 IF L=L(1) THEN 4130
4100 PRINT "NOT POSSIBLE -"; 4100 PRINT "NOT POSSIBLE -";
4110 GOTO 4020 4110 GOTO 4020
4120 REM- CHECK FOR HAZARDS 4120 REM- CHECK FOR HAZARDS
4130 L(1)=L 4130 L(1)=L
4140 REM- WUMPUS 4140 REM- WUMPUS
4150 IF L<>L(2) THEN 4220 4150 IF L<>L(2) THEN 4220
4160 PRINT "... OOPS! BUMPED A WUMPUS!" 4160 PRINT "... OOPS! BUMPED A WUMPUS!"
4170 REM- MOVE WUMPUS 4170 REM- MOVE WUMPUS
4180 GOSUB 3380 4180 GOSUB 3380
4190 IF F=0 THEN 4220 4190 IF F=0 THEN 4220
4200 RETURN 4200 RETURN
4210 REM- PIT 4210 REM- PIT
4220 IF L<>L(3) AND L<>L(4) THEN 4270 4220 IF L<>L(3) AND L<>L(4) THEN 4270
4230 PRINT "YYYIIIIEEEE . . . FELL IN PIT" 4230 PRINT "YYYIIIIEEEE . . . FELL IN PIT"
4240 F=-1 4240 F=-1
4250 RETURN 4250 RETURN
4260 REM- BATS 4260 REM- BATS
4270 IF L<>L(5) AND L<>L(6) THEN 4310 4270 IF L<>L(5) AND L<>L(6) THEN 4310
4280 PRINT "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!" 4280 PRINT "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!"
4290 L=RND(20)+1 4290 L=RND(20)+1
4300 GOTO 4130 4300 GOTO 4130
4310 RETURN 4310 RETURN
5000 END 5000 END