From b9fdf4884fb481838462da928a330af666fbf523 Mon Sep 17 00:00:00 2001 From: Stephen Crane Date: Sun, 16 Nov 2014 13:16:48 +0000 Subject: [PATCH] remove extra newlines --- programs/startrek.txt | 170 +----------------------------------------- programs/wumpus.txt | 39 ---------- 2 files changed, 2 insertions(+), 207 deletions(-) diff --git a/programs/startrek.txt b/programs/startrek.txt index c6c322e..4b29310 100644 --- a/programs/startrek.txt +++ b/programs/startrek.txt @@ -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 G3 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 G0 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 \ No newline at end of file diff --git a/programs/wumpus.txt b/programs/wumpus.txt index 09c5a04..9c6f46f 100644 --- a/programs/wumpus.txt +++ b/programs/wumpus.txt @@ -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