mirror of
https://github.com/jscrane/Apple1.git
synced 2024-11-22 06:31:37 +00:00
remove extra newlines
This commit is contained in:
Stephen Crane
parent
3bb02a65b3
commit
b9fdf4884f
@ -1,3 +1,4 @@
|
||||
|
||||
SCR
|
||||
LOMEM=768
|
||||
HIMEM=16384
|
||||
@ -44,7 +45,6 @@ HIMEM=16384
|
||||
457 PRINT "NEW CIVILIZATIONS, TO BOLDLY GO "
|
||||
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
|
||||
|
||||
460 X1=RND(10)+1:Y1=RND(10)+1:GOTO 2000
|
||||
470 PRINT:PRINT "LONG RANGE SENSOR SCAN:":PRINT:PRINT E1;" ENEMIES REMAINING.":PRINT
|
||||
480 IF X1>1 THEN 500
|
||||
@ -95,7 +95,6 @@ HIMEM=16384
|
||||
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
|
||||
970 PRINT "ENERGY=";E7;:TAB 13:PRINT "SHIELDS=";S1;:TAB 24:PRINT "TORP=";T:PRINT:PRINT:PRINT:PRINT:PRINT:RETURN
|
||||
|
||||
1000 REM PHASORS
|
||||
1010 INPUT "ENTER SHIELD LEVEL",G:IF G<E7 THEN 1030
|
||||
1020 PRINT "NOT ENOUGH ENERGY.":GOTO 1000
|
||||
@ -148,12 +147,9 @@ HIMEM=16384
|
||||
2000 GOSUB 650
|
||||
2010 GOSUB 850
|
||||
2020 PRINT:PRINT "COMMAND CAPTAIN ";N$;" (0=HELP) ";
|
||||
|
||||
2030 INPUT C2
|
||||
2040 IF G((10*Y1+X1)-10)<100 THEN 2070
|
||||
|
||||
2050 G=RND(5)+1:IF G>3 THEN 2070
|
||||
|
||||
2060 GOSUB 1100
|
||||
2070 IF C2#0 THEN 2100
|
||||
2080 GOSUB 2360
|
||||
@ -180,325 +176,163 @@ HIMEM=16384
|
||||
2290 GOSUB 4200
|
||||
2300 GOTO 2020
|
||||
2310 IF C2#8 THEN 2350
|
||||
|
||||
2320 GOTO 7000
|
||||
|
||||
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"
|
||||
|
||||
|
||||
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"
|
||||
|
||||
2390 PRINT "8 = SELF DESTRUCT"
|
||||
|
||||
2391 PRINT " DIRECTIONS:"
|
||||
|
||||
2392 PRINT " 8"
|
||||
|
||||
2393 PRINT " 7 | 1"
|
||||
|
||||
2394 PRINT " \ | /"
|
||||
|
||||
2395 PRINT " 6---0---2"
|
||||
|
||||
2396 PRINT " / | \"
|
||||
|
||||
2397 PRINT " 5 | 3"
|
||||
|
||||
2398 PRINT " 4"
|
||||
|
||||
2399 RETURN
|
||||
|
||||
2400 INPUT "DIRECTION (1-8)",D
|
||||
|
||||
2410 IF D>0 AND D<9 THEN 2440
|
||||
|
||||
2420 PRINT "ANSWER BETWEEN 1 AND 8."
|
||||
|
||||
|
||||
2430 GOTO 2400
|
||||
|
||||
|
||||
2440 INPUT "IMPULSE SPEED",J
|
||||
|
||||
2450 IF E7>J THEN 2480
|
||||
|
||||
2460 PRINT "YOU DON'T HAVE ENOUGH ENERGY!"
|
||||
|
||||
2470 RETURN
|
||||
|
||||
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
|
||||
|
||||
2500 Y4=Y4-1:IF Y4<1 THEN Y4=10
|
||||
|
||||
2510 IF D#2 THEN 2530
|
||||
|
||||
2520 X4=X4+1:IF X4>10 THEN X4=1
|
||||
|
||||
2530 IF D#3 THEN 2560
|
||||
|
||||
2540 X4=X4+1:IF X4>10 THEN X4=1
|
||||
|
||||
2550 Y4=Y4+1:IF Y4>10 THEN Y4=1
|
||||
|
||||
2560 IF D#4 THEN 2580
|
||||
|
||||
2570 Y4=Y4+1:IF Y4>10 THEN Y4=1
|
||||
|
||||
2580 IF D#5 THEN 2610
|
||||
|
||||
2590 X4=X4-1:IF X4<1 THEN X4=10
|
||||
|
||||
2600 Y4=Y4+1:IF Y4>10 THEN Y4=1
|
||||
|
||||
2610 IF D#6 THEN 2630
|
||||
|
||||
2620 X4=X4-1:IF X4<1 THEN X4=10
|
||||
|
||||
2630 IF D#7 THEN 2660
|
||||
|
||||
2640 X4=X4-1:IF X4<1 THEN X4=10
|
||||
|
||||
2650 Y4=Y4-1:IF Y4<1 THEN Y4=10
|
||||
|
||||
2660 IF D#8 THEN 2680
|
||||
|
||||
2670 Y4=Y4-1:IF Y4<1 THEN Y4=10
|
||||
|
||||
2680 E7=E7-1:G=S((10*Y4+X4)-10)
|
||||
|
||||
2690 IF G=0 THEN 2900
|
||||
|
||||
2700 IF G#2 THEN 2750
|
||||
|
||||
2720 PRINT "YOU RAN INTO A STAR AND BURNED!"
|
||||
|
||||
2730 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED"
|
||||
|
||||
2740 END
|
||||
|
||||
2750 IF G#3 THEN 2800
|
||||
|
||||
2770 PRINT "YOU RAMMED THE STARBASE!"
|
||||
|
||||
2780 PRINT:PRINT "THOUSANDS ARE DEAD."
|
||||
|
||||
2790 PRINT N$;" WILL BE KNOWN AS A KILLER.":END
|
||||
|
||||
2800 PRINT "YOU RAMMED THE ENEMY SHIP"
|
||||
|
||||
2810 PRINT "IT WAS DESTROYED BUT SO WAS"
|
||||
|
||||
2820 PRINT "THE ENTERPRISE!":END
|
||||
|
||||
2900 NEXT I
|
||||
|
||||
2920 S((10*Y4+X4)-10)=1
|
||||
|
||||
2930 GOSUB 850
|
||||
|
||||
2940 GOSUB 4050
|
||||
|
||||
2950 RETURN
|
||||
|
||||
3000 REM PHASOR CONTROL
|
||||
|
||||
3010 IF E5#0 THEN 3100
|
||||
|
||||
3020 PRINT "NO ENEMY TO LOCK PHASORS ONTO!":RETURN
|
||||
|
||||
3100 INPUT "AMOUNT OF ENERGY TO PHASORS",G
|
||||
|
||||
3110 IF G<E7 THEN 3140
|
||||
|
||||
3120 PRINT "YOU DON'T HAVE THAT MUCH ENERGY.":GOTO 3100
|
||||
|
||||
3130 E7=E7-G
|
||||
|
||||
3140 IF E5=5 THEN 3390
|
||||
|
||||
3150 R=RND(10)+1:IF R#1 THEN 3300
|
||||
|
||||
3170 PRINT "PHASORS MISSED!":RETURN
|
||||
|
||||
3300 PRINT "KLINGON HIT WITH ";G;" PHASOR UNITS."
|
||||
|
||||
3310 E6=E6-G:IF E6>0 THEN 3380
|
||||
|
||||
3320 PRINT "*** KLINGON DESTROYED ***"
|
||||
|
||||
3330 G((10*Y1+X1)-10)=G((10*Y1+X1)-10)-100
|
||||
|
||||
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
|
||||
|
||||
3360 IF S(I)=5 THEN S(I)=0
|
||||
|
||||
3370 NEXT I:GOSUB 850
|
||||
|
||||
3380 RETURN
|
||||
|
||||
3390 R=RND(5)+1:IF R>3 THEN 3410
|
||||
|
||||
3400 PRINT "ROMULAN SHIP AVOIDED PHASOR FIRE!":RETURN
|
||||
|
||||
3410 PRINT "ROMULAN HIT WITH ";G;" PHASOR UNITS."
|
||||
|
||||
3420 E6=E6-G:IF E6>0 THEN 3380
|
||||
|
||||
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
|
||||
|
||||
3450 GOTO 3350
|
||||
|
||||
4000 FOR I=1 TO 24:PRINT:NEXT I
|
||||
|
||||
4010 PRINT "YOU HAVE DEFENDED THE GALAXY AND DEFEATED"
|
||||
|
||||
4020 PRINT "ALL ENEMIES! YOU WILL BE PROMOTED TO"
|
||||
|
||||
4030 PRINT "ADMIRAL BEFORE BEING SUCKED OUT INTO"
|
||||
|
||||
4040 PRINT "SPACE IN STAR TREK GENERATIONS."
|
||||
|
||||
4050 REM CHECK IF DOCKED
|
||||
|
||||
4060 D9=0:X=X4-1:IF X<1 THEN X=10
|
||||
|
||||
4070 X9=X4+1:IF X9>10 THEN X9=1
|
||||
|
||||
4080 IF S((10*Y4+X)-10)=3 THEN 4120
|
||||
|
||||
4090 IF S((10*Y4+X9)-10)=3 THEN 4120
|
||||
|
||||
4100 RETURN
|
||||
|
||||
4120 IF S1=0 THEN 4140
|
||||
|
||||
4130 PRINT "YOU CAN'T DOCK WITH SHIELDS UP.":RETURN
|
||||
|
||||
4140 PRINT "YOU ARE DOCKED WITH THE STARBASE":D9=1
|
||||
|
||||
4150 PRINT "ENERGY RESTORED":E7=2000:T=10:RETURN
|
||||
|
||||
4200 REM PHOTON TORPEDO CONTROL
|
||||
|
||||
4300 IF T>0 THEN 4500
|
||||
|
||||
4400 PRINT "YOU DON'T HAVE ANY TORPEDOS.":RETURN
|
||||
|
||||
4500 INPUT "DIRECTION",D
|
||||
|
||||
4600 IF D>0 AND D<9 THEN 4800
|
||||
|
||||
4700 PRINT "PLEASE CHOOSE BETWEEN 1-8":GOTO 4500
|
||||
|
||||
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
|
||||
|
||||
5100 X5=X5+1:IF X5>10 THEN 6000
|
||||
|
||||
5300 Y5=Y5-1:IF Y5<1 THEN 6000
|
||||
|
||||
5500 IF D#2 THEN 5560
|
||||
|
||||
5520 X5=X5+1:IF X5>10 THEN 6000
|
||||
|
||||
5560 IF D#3 THEN 5680
|
||||
|
||||
5600 X5=X5+1:IF X5>10 THEN 6000
|
||||
|
||||
5640 Y5=Y5+1:IF Y5>10 THEN 6000
|
||||
|
||||
5680 IF D#4 THEN 5720
|
||||
|
||||
5700 Y5=Y5+1:IF Y5>10 THEN 6000
|
||||
|
||||
5720 IF D#5 THEN 5780
|
||||
|
||||
5740 X5=X5-1:IF X5<1 THEN 6000
|
||||
|
||||
5760 Y5=Y5+1:IF Y5>10 THEN 6000
|
||||
|
||||
5780 IF D#6 THEN 5800
|
||||
|
||||
5790 X5=X5-1:IF X5<1 THEN 6000
|
||||
|
||||
5800 IF D#7 THEN 5830
|
||||
|
||||
5810 X5=X5-1:IF X5<1 THEN 6000
|
||||
|
||||
5820 Y5=Y5-1:IF Y5<1 THEN 6000
|
||||
|
||||
5830 IF D#8 THEN 5850
|
||||
|
||||
5840 Y5=Y5-1:IF Y5<1 THEN 6000
|
||||
|
||||
5850 V=S((10*Y5+X5)-10):IF V=0 THEN 5000
|
||||
|
||||
5860 IF V=2 THEN 6200
|
||||
|
||||
5870 IF V=3 THEN 6400
|
||||
|
||||
5880 IF V=4 THEN 6450
|
||||
|
||||
5890 IF V=5 THEN 6600
|
||||
|
||||
5900 GOTO 5000:REM CONTINUE UNTIL HIT SOMETHING OR LEAVE QUAD
|
||||
|
||||
6000 REM OUT OF QUADRANT
|
||||
|
||||
6100 PRINT:PRINT " ***** TORPEDO MISSED *****":PRINT:RETURN
|
||||
|
||||
6200 REM HIT STAR
|
||||
|
||||
6300 PRINT "TORPEDO EXPLODED IN THE STAR":PRINT:RETURN
|
||||
|
||||
6400 PRINT " ***** STAR BASE DESTROYED *****":GOTO 2780
|
||||
|
||||
6450 PRINT "KLINGON HIT BY TORPEDO"
|
||||
|
||||
6460 IF RND(100)+1>98 THEN 6550
|
||||
|
||||
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
|
||||
|
||||
6490 PRINT:GOSUB 850
|
||||
|
||||
6500 RETURN
|
||||
|
||||
6550 PRINT "KLINGON SURVIVED IMPACT FROM TORPEDO":E6=E6/2:RETURN
|
||||
|
||||
6600 PRINT "ROMULAN HIT BY TORPEDO"
|
||||
|
||||
6610 IF RND(100)+1<50 THEN 6650
|
||||
|
||||
6620 PRINT:PRINT "ROMULAN SHIP DESTROYED!":GOTO 6480
|
||||
|
||||
6650 PRINT "ROMULAN SHIELDS HOLDING":E6=E6/2:RETURN
|
||||
|
||||
7000 PRINT:PRINT "SELF DESTRUCT SEQUENCE IS NOW ACTIVE"
|
||||
|
||||
7100 FOR X=10 TO 1 STEP -1
|
||||
|
||||
7200 TAB 19:PRINT X:FOR Y=1 TO 500:NEXT Y:NEXT X
|
||||
|
||||
7300 PRINT:PRINT:PRINT " **** KA-BOOM!!! ****"
|
||||
|
||||
7400 PRINT "PIECES OF THE ENTERPRISE ARE NOW"
|
||||
|
||||
7500 PRINT "SPREAD ACROSS THE GALAXY"
|
||||
|
||||
7600 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED."
|
||||
7700 END
|
||||
|
||||
7700 END
|
||||
@ -125,18 +125,15 @@ HIMEM=16384
|
||||
2010 PRINT
|
||||
2020 FOR J=2 TO 6
|
||||
2030 FOR K=1 TO 3
|
||||
|
||||
2031 X1=L(1)
|
||||
2035 IF S((20*K+X1)-20)<>L(J) THEN 2110
|
||||
2040 REM WAS IF S(L(1),K)<>L(J) THEN 2110
|
||||
|
||||
2042 IF J-1=1 THEN 2060
|
||||
2043 IF J-1=2 THEN 2080
|
||||
2044 IF J-1=3 THEN 2080
|
||||
2045 IF J-1=4 THEN 2100
|
||||
2046 IF J-1=5 THEN 2100
|
||||
2050 REM WAS ON J-1 GOTO 2060,2080,2080,2100,2100
|
||||
|
||||
2060 PRINT "I SMELL A WUMPUS!"
|
||||
2070 GOTO 2110
|
||||
2080 PRINT "I FEEL A DRAFT!"
|
||||
@ -145,13 +142,11 @@ HIMEM=16384
|
||||
2110 NEXT K
|
||||
2120 NEXT J
|
||||
2130 PRINT "YOU ARE IN ROOM ";L(1)
|
||||
|
||||
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)
|
||||
2135 Z1=S((20*3+L)-20):REM COULD BE S(40+L)
|
||||
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)
|
||||
|
||||
2150 PRINT
|
||||
2160 RETURN
|
||||
2500 REM- CHOOSE OPTION
|
||||
@ -181,17 +176,13 @@ HIMEM=16384
|
||||
3120 REM- SHOOT ARROW
|
||||
3140 FOR K=1 TO J1
|
||||
3150 FOR K1=1 TO 3
|
||||
|
||||
3155 IF S((20*K1+L))-20=P(K) THEN 3295
|
||||
3160 REM WAS IF S(L,K1)=P(K) THEN 3295
|
||||
|
||||
3170 NEXT K1
|
||||
3180 REM- NO TUNNEL FOR ARROW
|
||||
|
||||
3181 X1=RND(3)+1
|
||||
3185 L=S((20*X1+L)-20)
|
||||
3190 REM WAS L=S(L,FNB(1))
|
||||
|
||||
3200 GOTO 3300
|
||||
3210 NEXT K
|
||||
3220 PRINT "MISSED"
|
||||
@ -213,16 +204,12 @@ HIMEM=16384
|
||||
3350 PRINT "OUCH! ARROW GOT YOU!"
|
||||
3360 GOTO 3270
|
||||
3370 REM- MOVE WUMPUS ROUTINE
|
||||
|
||||
3375 K=RND(4)+1
|
||||
3380 REM WASK=FNC(0)
|
||||
|
||||
3390 IF K=4 THEN 3410
|
||||
3391 X1=L(2)
|
||||
|
||||
3395 L(2)=S((20*K+X1)-20)
|
||||
3400 REM WAS L(2)=S(L(2),K)
|
||||
|
||||
3410 IF L(2)<>L THEN 3440
|
||||
3420 PRINT "TSK TSK TSK - WUMPUS GOT YOU!"
|
||||
3430 F=-1
|
||||
@ -234,58 +221,32 @@ HIMEM=16384
|
||||
4040 IF L<1 OR L>20 THEN 4020
|
||||
4050 FOR K=1 TO 3
|
||||
4060 REM- CHECK IF LEGAL MOVE
|
||||
|
||||
4065 X1=L(1)
|
||||
|
||||
4069 IF S((20*K+X1)-20)=L THEN 4130
|
||||
|
||||
4070 REM WAS IF S(L(1),K)=L THEN 4130
|
||||
|
||||
4080 NEXT K
|
||||
|
||||
4090 IF L=L(1) THEN 4130
|
||||
|
||||
4100 PRINT "NOT POSSIBLE -";
|
||||
|
||||
4110 GOTO 4020
|
||||
|
||||
4120 REM- CHECK FOR HAZARDS
|
||||
|
||||
4130 L(1)=L
|
||||
|
||||
4140 REM- WUMPUS
|
||||
|
||||
4150 IF L<>L(2) THEN 4220
|
||||
|
||||
4160 PRINT "... OOPS! BUMPED A WUMPUS!"
|
||||
|
||||
4170 REM- MOVE WUMPUS
|
||||
|
||||
4180 GOSUB 3380
|
||||
|
||||
4190 IF F=0 THEN 4220
|
||||
4200 RETURN
|
||||
|
||||
4210 REM- PIT
|
||||
|
||||
4220 IF L<>L(3) AND L<>L(4) THEN 4270
|
||||
|
||||
4230 PRINT "YYYIIIIEEEE . . . FELL IN PIT"
|
||||
4240 F=-1
|
||||
|
||||
4250 RETURN
|
||||
|
||||
4260 REM- BATS
|
||||
|
||||
4270 IF L<>L(5) AND L<>L(6) THEN 4310
|
||||
|
||||
4280 PRINT "ZAP--SUPER BAT SNATCH! ELSEWHEREVILLE FOR YOU!"
|
||||
|
||||
4290 L=RND(20)+1
|
||||
|
||||
4300 GOTO 4130
|
||||
|
||||
4310 RETURN
|
||||
|
||||
5000 END
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user