From 56b1e7e6ed9e944842f2a4c8dc7a6b63c23afc1c Mon Sep 17 00:00:00 2001 From: Stephen Crane Date: Thu, 13 Nov 2014 12:19:59 +0000 Subject: [PATCH] programs from http://www.brielcomputers.com/files/games.zip --- programs/21.TXT | 97 +++++++ programs/HAMURABI.txt | 115 ++++++++ programs/Lunar.txt | 55 ++++ programs/deal.txt | 351 +++++++++++++++++++++++ programs/life.txt | 14 + programs/microchess.txt | 72 +++++ programs/reverse.txt | 30 ++ programs/rsp.txt | 27 ++ programs/slots.txt | 135 +++++++++ programs/startrek.txt | 504 ++++++++++++++++++++++++++++++++++ programs/startrekfromtape.txt | 158 +++++++++++ programs/wumpus.txt | 291 ++++++++++++++++++++ 12 files changed, 1849 insertions(+) create mode 100644 programs/21.TXT create mode 100644 programs/HAMURABI.txt create mode 100644 programs/Lunar.txt create mode 100644 programs/deal.txt create mode 100644 programs/life.txt create mode 100644 programs/microchess.txt create mode 100644 programs/reverse.txt create mode 100644 programs/rsp.txt create mode 100644 programs/slots.txt create mode 100644 programs/startrek.txt create mode 100644 programs/startrekfromtape.txt create mode 100644 programs/wumpus.txt diff --git a/programs/21.TXT b/programs/21.TXT new file mode 100644 index 0000000..9786974 --- /dev/null +++ b/programs/21.TXT @@ -0,0 +1,97 @@ + +004A: 00 08 00 10 CA 0E FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF +:FF FF FF FF FF FF FF F6 9A F6 06 F6 FF 00 01 00 ED ED ED ED ED EC ED ED +:32 FF FF FF FF FF FF AA 9F 9F 9F 9F 9F 9F 9F 9F 9F 9F 9F 9F 9F 9F 9F 08 +:00 00 00 00 00 00 0B 00 82 59 5E 9C 13 7C F3 FF 00 3F 9F 9F 9F 9F 9F 9F +:9F 9F 9F 9F 9F 9F 9F DF 9F 9F 9F 9F 9F 9F 9F 9F 02 FF 00 FF FF 00 00 FF +:07 04 04 07 03 FF FF FF 08 0A 06 0A 0D 09 00 FF EF 08 0D 09 00 00 01 00 +:21 00 0F 0B 85 0F 9F DF 0E 02 06 0A 01 0A 06 0A 68 0D 0A 0A 0D 09 08 08 +:08 0E 00 01 9F 9F 9F 9F 4F 00 00 00 01 20 00 ED + +800: 82 40 12 08 C1 B2 B3 B4 B5 B6 B7 B8 B9 D4 CA D1 CB 1E 84 40 1B 08 C3 C4 +:C8 D3 1E 86 40 34 08 B2 B3 1E D6 C5 CE 1E B7 B8 08 B0 00 00 62 08 FF FF +:FF FF CB 26 88 40 4D 08 00 00 1E 1E 26 26 C8 26 CB C6 CA CC CB C4 D3 C1 +:CA C6 CB CC B5 9C 00 53 08 01 00 A6 00 59 08 00 00 82 00 C5 08 1C 00 10 +:00 27 00 23 00 02 00 12 00 0B 00 17 00 07 00 25 00 11 00 0A 00 2D 00 01 +:00 2C 00 20 00 32 00 03 00 16 00 0D 00 08 00 1D 00 0F 00 05 00 13 00 2E +:00 18 00 2B 00 04 00 06 00 22 00 0E 00 1B 00 09 00 14 00 33 00 29 00 15 +:00 28 00 1F 00 19 00 31 00 24 00 2A 00 2F 00 21 00 26 00 0C 00 30 00 1A +:00 00 00 1E 00 92 00 CB 08 79 00 A0 00 D1 08 00 00 88 00 D7 08 08 00 82 +:B1 DD 08 00 00 82 B2 E3 08 00 00 84 00 E9 08 09 00 94 00 EF 08 08 00 96 +:00 F5 08 01 00 98 00 FB 08 10 00 86 00 01 09 08 00 8A 00 07 09 08 00 8C +:00 0D 09 01 00 09 08 00 8A 00 16 09 0A 00 8C 00 1C 09 04 00 FF FF 7F FF +:7F 7F FF 7F 7F 7F FF FF 7F 7F 7F 7F 7F 7F 7F FF 7F 7F 7F 7F 7F 7F 7F FF +:7F 7F 7F 7F 7F 7F 7F FF 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F 7F +:7F 7F 7F 7F 7F 7F 65 0A 00 4E C1 40 22 B1 0D 65 0A 00 4E C1 40 22 B1 0D +:00 72 43 C2 40 22 B4 04 00 72 43 C3 40 22 B2 14 00 72 43 C4 40 22 B2 14 +:00 72 43 CE 40 22 B1 0A 00 72 03 C1 40 70 28 C1 B2 B3 B4 B5 B6 B7 B8 B9 +:D4 CA D1 CB 29 03 C2 40 70 28 C3 C4 C8 D3 29 03 CE 40 70 28 B0 B1 B2 B3 +:B4 B5 B6 B7 B8 B9 29 03 65 0A 00 4E C1 40 22 B1 0D 00 72 43 C2 40 22 B4 +:04 00 72 43 C3 40 22 B2 14 00 72 43 C4 40 22 B2 14 00 72 43 CE 40 22 B1 +:0A 00 72 03 C1 40 70 28 C1 B2 B3 B4 B5 B6 65 0A 00 4E C1 40 22 B1 0D 00 +:72 43 C2 40 22 B4 04 00 72 05 05 00 5D 01 4D 0A 00 4E C1 40 22 B1 0D 00 +:72 43 C2 40 22 B4 04 00 72 43 C3 40 22 B2 14 00 72 43 C4 40 22 B2 14 00 +:72 03 C1 40 70 28 C1 B2 B3 B4 B5 B6 B7 B8 B9 D4 CA D1 CB 29 03 C2 40 70 +:28 C3 C4 C8 D3 29 03 CE 71 B5 34 00 03 D3 71 B0 00 00 01 24 0F 00 4F C1 +:34 B5 34 00 72 03 55 C9 56 B1 01 00 57 B5 34 00 03 C1 2D C9 72 71 C9 13 +:B1 01 00 03 59 C9 01 3D 14 00 53 28 D7 C5 CC C3 CF CD C5 A0 D4 CF A0 B2 +:B1 AE A0 A0 D9 CF D5 D2 A0 CE C1 CD C5 29 26 C3 40 03 61 28 CF CB AC A0 +:C8 C5 D2 C5 A0 D7 C5 A0 C7 CF A0 29 45 C3 40 45 28 AE 29 01 3B 1E 00 D0 +:71 B0 00 00 03 C4 71 D0 03 C1 B1 71 D0 03 C1 B2 71 D0 03 5C B3 B8 0B 03 +:60 C2 24 B3 23 00 03 61 28 C5 CE C4 AD AD D3 D4 CF D0 D0 C5 C4 A0 C1 D4 +:A0 B3 B0 29 03 51 01 43 23 00 61 28 C9 A0 D3 C8 CF D7 A0 A0 29 47 03 5C +:B2 E4 07 03 C5 71 CA 03 C6 71 CB 03 63 03 61 28 D9 CF D5 A0 C8 C1 D6 C5 +:A0 A0 29 47 03 5C B2 F8 07 03 5C B2 F8 07 03 60 D0 1C B2 15 00 24 B4 2D +:00 01 21 25 00 61 28 C2 CC C1 C3 CB CA C1 C3 CB A1 A1 29 03 C2 71 C2 12 +:C2 15 B2 02 00 03 5F B3 2C 01 01 25 28 00 61 28 D0 CC C5 C1 D3 C5 A0 C1 +:CE D3 D7 C5 D2 A0 A7 D9 C5 D3 A7 A0 CF D2 A0 A7 CE CF A7 AE A0 29 47 01 +:5E 2D 00 60 D0 17 B1 0B 00 24 B5 32 00 03 53 28 C4 CF A0 D9 CF D5 A0 D7 +:C9 D3 C8 A0 D4 CF A0 C4 CF D5 C2 CC C5 A0 C4 CF D7 CE 29 26 C4 40 03 60 +:C4 40 39 28 CE 29 1E C4 40 39 28 CE CF 29 24 B5 32 00 03 60 C4 40 3A 28 +:D9 29 1D C4 40 3A 28 D9 C5 D3 29 24 B4 2C 00 03 C2 71 C2 12 C2 01 0D 2E +:00 5C B2 F8 07 03 5F B6 3C 00 01 5C 32 00 53 28 C8 C9 D4 29 26 C4 40 03 +:60 C4 40 39 28 CE 29 1E C4 40 39 28 CE CF 29 24 B6 3C 00 03 60 C4 40 3A +:28 D9 29 1D C4 40 3A 28 D9 C5 D3 29 24 B4 28 00 03 50 B1 0B 00 03 5C B2 +:F8 07 03 60 D0 1C B2 16 00 24 B5 32 00 03 61 28 C2 D5 D3 D4 C5 C4 A0 29 +:47 03 5F B2 C8 00 01 29 3C 00 63 03 61 28 CD D9 A0 C3 C1 D2 C4 D3 BA A0 +:29 45 C1 40 2A C5 23 C5 72 45 C2 40 2A C6 23 C6 72 45 28 A0 A0 29 47 01 +:33 46 00 55 C9 56 B1 01 00 57 B6 58 02 03 59 C9 03 60 C4 19 B1 11 00 1E +:C4 16 B1 11 00 1D C1 B2 16 B0 00 00 24 B8 50 00 03 5C B2 E4 07 03 5F B7 +:46 00 01 2D 50 00 60 C4 19 B2 15 00 24 B8 55 00 03 60 C4 19 D0 24 B2 C8 +:00 03 60 C4 1C D0 24 B9 5A 00 03 61 28 C4 D2 C1 D7 29 03 5F B4 90 01 01 +:10 55 00 61 28 C9 A0 C2 D5 D3 D4 AC A0 29 47 01 13 5A 00 61 28 D9 CF D5 +:A0 D7 C9 CE 29 03 5F B3 2C 01 01 21 C8 00 D3 71 D3 13 C2 03 61 28 A0 A0 +:A0 C9 A0 D7 C9 CE 29 03 5F B2 D2 00 12 2F 3F B5 05 00 72 01 2C D2 00 61 +:28 D9 CF D5 A7 C4 A0 C2 C5 D4 D4 C5 D2 A0 D4 D2 D9 A0 C8 C1 D2 C4 C5 D2 +:AC A0 29 45 C3 40 45 28 AE 29 03 5F B4 90 01 01 34 D3 00 61 28 C9 C6 A0 +:D9 CF D5 A0 C4 CF CE A7 D4 A0 C9 CD D0 D2 CF D6 C5 AC A0 29 45 C3 40 45 +:28 AC A0 C9 A7 CC CC A0 D1 D5 C9 D4 AE 29 03 5F B4 90 01 01 33 D4 00 61 +:28 D9 CF D5 A0 C3 CF D5 CC C4 CE A7 D4 A0 C2 C5 C1 D4 A0 C1 A0 B5 AD D9 +:C5 C1 D2 AD CF CC C4 AC A0 29 45 C3 40 45 28 AE 29 03 5F B4 90 01 01 24 +:D5 00 61 28 C7 C5 D4 D4 C9 CE C7 A0 D4 CF CF A0 CF CC C4 AC A0 29 45 C3 +:40 45 28 BF 29 03 5F B4 90 01 01 29 D6 00 61 28 D3 D4 C9 C3 CB A0 D4 CF +:A0 D4 C9 C3 AD D4 C1 C3 AD D4 CF C5 AC A0 29 45 C3 40 45 28 AE 29 03 5F +:B4 90 01 01 15 2C 01 D3 71 D3 12 C2 03 5F B3 36 01 12 2F 3F B3 03 00 72 +:01 23 36 01 61 28 C9 A7 CC CC A0 C8 C1 D6 C5 A0 D4 CF A0 D4 D2 D9 A0 C8 +:C1 D2 C4 C5 D2 29 03 5F B4 90 01 01 31 37 01 61 28 C9 A0 C3 C1 CE A7 D4 +:A0 C2 C5 CC C9 C5 D6 C5 A0 D9 CF D5 D2 A0 D2 D5 CE A0 CF C6 A0 CC D5 C3 +:CB AC A0 29 45 C3 40 03 5F B4 90 01 01 1A 38 01 61 28 CE CF D7 A0 C9 A7 +:CD A0 C7 C5 D4 D4 C9 CE C7 A0 CD C1 C4 29 01 1F 90 01 50 B2 14 00 03 61 +:28 D7 C9 CE CE C9 CE C7 D3 BA A0 29 46 D3 03 63 03 5F B3 1E 00 01 4B E8 +:03 CE 71 B0 00 00 03 55 C9 56 B1 01 00 57 B1 78 00 03 CA 71 2F 3F B5 34 +:00 72 12 B1 01 00 03 CB 71 2F 3F B5 34 00 72 12 B1 01 00 03 CC 71 C1 2D +:CA 72 03 C1 2D CA 72 71 C1 2D CB 72 03 C1 2D CB 72 71 CC 03 59 C9 03 5B +:01 60 D0 07 60 CE 19 B5 32 00 25 5C B1 E8 03 03 CE 71 CE 12 B1 01 00 03 +:CA 71 C1 2D CE 72 15 B4 04 00 12 B1 01 00 03 CB 71 C1 2D CE 72 1F B4 04 +:00 12 B1 01 00 03 C3 71 CA 13 CA 15 B1 0A 00 14 38 CA 13 B1 0A 00 72 03 +:61 C1 40 2A CA 23 CA 72 45 C2 40 2A CB 23 CB 72 45 28 A0 A0 29 47 03 5B +:01 4C E4 07 5C B2 D0 07 03 C4 71 C4 12 C3 12 38 C3 16 B1 01 00 72 14 B1 +:0A 00 03 C1 B2 71 C1 B2 12 38 C3 16 B1 01 00 72 03 60 C4 1C B2 16 00 1E +:C1 B2 16 B0 00 00 25 5B 03 C1 B2 71 C1 B2 13 B1 01 00 03 C4 71 C4 13 B1 +:0A 00 03 5B 01 4C F8 07 5C B2 D0 07 03 D0 71 D0 12 C3 12 38 C3 16 B1 01 +:00 72 14 B1 0A 00 03 C1 B1 71 C1 B1 12 38 C3 16 B1 01 00 72 03 60 D0 1C +:B2 16 00 1E C1 B1 16 B0 00 00 25 5B 03 C1 B1 71 C1 B1 13 B1 01 00 03 D0 +:71 D0 13 B1 0A 00 03 5B 01 2F B8 0B 53 28 C2 C5 D4 29 27 C2 03 60 C2 1A +:B3 B8 0B 25 5B 03 61 28 CC C9 CD C9 D4 A0 C9 D3 A0 A4 B3 B0 B0 B0 AE A0 +:29 47 03 5F B3 B8 0B 01 + diff --git a/programs/HAMURABI.txt b/programs/HAMURABI.txt new file mode 100644 index 0000000..8facb45 --- /dev/null +++ b/programs/HAMURABI.txt @@ -0,0 +1,115 @@ +SCR +LOMEM=768 +5 DIM O$(5): DIM H$(10):H$="0123456789" +75 PRINT : PRINT +80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT" +82 PRINT "SUMERIA SUCCESSFULLY FOR A 10-YEAR TERM" +85 PRINT "OF OFFICE." + +95 D1=1:P1=0 + +100 Z=0:P=95:S=2800:H=3000:E=H-S +110 Y=3:A=H/Y:I=5:Q=1 +210 D=0 +215 PRINT : PRINT : PRINT "HAMURABI: I BEG TO REPORT TO YOU," +216 Z=Z+1:PRINT "IN YEAR ";Z;", ";D;" PEOPLE STARVED,": PRINT I;" CAME TO THE CITY." + +218 P=P+I +227 IF Q>0 THEN 230 +228 P=P/2 +229 PRINT "A HORRIBLE PLAGUE STRUCK!!!": PRINT "--- HALF THE POPULATION DIED ---" +230 PRINT "THE POPULATION IS NOW ";P +232 PRINT "THE CITY NOW OWNS ";A;" ACRES." +233 PRINT "YOU HARVESTED ";Y;" BUSHELS PER ACRE," +250 PRINT "RATS ATE ";E;" BUSHELS," +252 PRINT "YOU NOW HAVE ";S;" BUSHELS IN STORE.": PRINT +270 IF Z=11 THEN 860 +310 C=RND(10)+1:Y=C+17 +312 PRINT "LAND IS TRADING AT ";Y;" BUSHELS PER ACRE," +320 PRINT "HOW MANY ACRES DO YOU WISH TO BUY"; +321 GOSUB 5000:Q=O1 +322 IF Y*Q<=S THEN 330 +323 GOSUB 710 +324 GOTO 320 +330 PRINT : IF Q=0 THEN 340 +331 A=A+Q:S=S-Y*Q:C=0 +334 GOTO 400 +340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL"; +341 GOSUB 5000:Q=O1 +342 IF Q4*P THEN 560 +553 P1=((Z-1)*P1+D*100/P)/Z +555 P=C:D1=D1+D: GOTO 215 +560 PRINT : PRINT "YOU STARVED ";D;" PEOPLE IN ONE YEAR!!!" +565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU": PRINT "HAVE NOT ONLY BEEN IMPEACHED AND THROWN" +566 PRINT "OUT OF OFFICE BUT YOU HAVE ALSO BEEN" +567 PRINT "DECLARED 'NATIONAL FINK'!!!": GOTO 990 +710 PRINT : PRINT "HAMURABI: THINK AGAIN, YOU HAVE ONLY" +711 PRINT S;" BUSHELS OF GRAIN. NOW THEN" +712 RETURN +720 PRINT : PRINT "HAMURABI: THINK AGAIN," +721 PRINT "YOU OWN ONLY ";A;" ACRES. NOW THEN" +730 RETURN +800 C= RND (5)+1 +801 RETURN +860 PRINT "IN YOUR 10 YEAR TERM OF OFFICE ";P1: PRINT "PERCENT OF THE POPULATION STARVED ON THE" +862 PRINT "AVERAGE, I.E., A TOTAL OF ";D1;" PEOPLE" +865 PRINT "DIED!!!":L=A/P +870 PRINT "YOU STARTED WITH 10 ACRES PER PERSON ": PRINT "AND ENDED WITH ";L;" ACRES" +875 PRINT "PER PERSON.": PRINT +880 IF P1>33 THEN 565 +885 IF L<7 THEN 565 +890 IF P1>10 THEN 940 +892 IF L<9 THEN 940 +895 IF P1>3 THEN 960 +896 IF L<10 THEN 960 +900 PRINT "A FANTASTIC PERFORMANCE!!!": PRINT "CHARLEMANGE,DISRAELI, AND JEFFERSON" +905 PRINT "COMBINED COULD NOT HAVE DONE BETTER!": GOTO 990 +940 PRINT "A LOUSY PERFORMANCE!!!" +945 PRINT "THE PEOPLE (REMAINING) FIND YOU AN": PRINT "UNPLEASANT RULER, AND FRANKLY " +950 PRINT "HATE YOUR GUTS!!!": GOTO 990 +960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN BETTER" +965 PRINT "BUT WASN'T TOO BAD, "; RND (P/2);" PEOPLE WOULD " +970 PRINT "LOVE TO SEE YOU ASSASSINATED." +990 PRINT "SO LONG FOR NOW" +999 END +5000 INPUT O$ +5010 O1=0:O2=1 +5020 FOR O3= LEN(O$) TO 1 STEP -1: FOR O4=1 TO 10 +5030 IF O$(O3,O3)=H$(O4,O4) THEN O1=O1+O2*(O4-1) +5040 NEXT O4: IF O3#1 THEN O2=O2*10: NEXT O3 +5050 RETURN + diff --git a/programs/Lunar.txt b/programs/Lunar.txt new file mode 100644 index 0000000..0170a20 --- /dev/null +++ b/programs/Lunar.txt @@ -0,0 +1,55 @@ + +0300: 20 00 04 20 00 04 20 71 06 20 00 04 A9 00 85 00 85 01 85 05 85 08 85 09 A9 05 85 02 A9 50 85 04 +: A9 20 85 06 A9 01 85 07 20 00 04 20 72 07 20 00 04 20 12 06 24 08 10 10 24 05 30 12 20 00 04 20 +: 31 08 A9 00 85 0A F0 06 20 00 05 20 2E 05 20 58 05 A5 04 D0 04 A9 00 85 09 20 B7 05 20 F7 05 A5 +: 02 F0 03 4C 2E 03 A5 01 F0 03 4C 2E 03 20 00 04 20 35 04 20 00 04 20 12 06 20 00 04 20 00 04 A5 +: 04 F0 14 C9 03 90 10 C9 07 90 06 20 06 09 4C 9A 03 20 A9 08 4C 9A 03 20 71 08 20 00 04 20 00 04 +: 20 43 09 20 15 04 C9 59 F0 0C 20 00 04 20 00 04 20 9A 09 4C 1F FF 4C 09 03 A9 0D 20 EF FF A9 0A +: 20 EF FF 60 A9 20 20 EF FF 60 AD AD 12 D0 10 FB AD 10 D0 29 7F 20 EF FF 60 49 30 C9 0A 10 06 4C +: E8 03 FA 90 03 29 0F 60 A9 FF 60 00 10 38 88 03 00 00 08 01 80 08 20 00 00 00 00 00 00 1C C4 00 +: 48 A9 0D 20 EF FF A9 0A 20 EF FF 68 60 48 A9 20 20 EF FF 68 60 AD 11 D0 10 FB AD 10 D0 29 7F 20 +: EF FF 60 49 30 C9 0A 30 06 4C 32 04 FA 90 03 29 0F 60 A9 99 60 20 00 04 20 53 08 20 00 04 60 A5 +: 06 85 0A A9 FF 85 08 60 05 00 AA AE 01 00 00 00 A9 8D A2 18 20 EF FF CA D0 FA 60 00 60 FF FF FF +: 97 90 CD 2B FF FF FF FF 8D D2 E6 D3 FF FF FF FF A5 4C 85 4D A9 00 85 4E 85 4F CE 4F 00 D0 FB CE +: 4E 00 D0 F6 CE 4D 00 D0 F1 60 78 B7 FF FF FF FF 4B 50 FE FF FF FF F7 FF 36 BA CF FB FF FF 7F FF +: B8 11 8A A7 FF FF FF FF B0 56 3E F7 FF FF F3 FF B5 55 35 72 FF FF FF FF A3 36 8D 27 FF FF F7 FD +: 57 6E B2 A7 FF FF F7 FF 08 2C 9A 13 FF FF FF FF C5 B3 3E BD FF FF FF FF BD F1 CF 6B FF FF FF FF +: 00 56 45 4D 45 4E 54 0D 0A 0A 4D 41 58 49 4D 55 4D 98 33 37 FF FF FF FF F8 F4 FE AD FF FF BE FF +: 20 15 04 20 23 04 85 0B 20 15 04 C9 0D F0 1A 20 23 04 85 0C A5 0B 0A 0A 0A 0A 05 0C C9 31 B0 03 +: 85 0A 60 20 67 09 4C 00 05 A5 0B 4C 1C 05 F8 38 A5 06 E5 0A 85 0B A5 07 E9 00 85 0C A5 07 C9 01 +: F0 0C A5 06 C5 0A F0 02 B0 04 20 3F 04 EA A5 0B 85 06 A5 0C 85 07 60 40 F8 38 24 09 10 18 A5 04 +: E9 05 85 0B C5 04 90 14 38 A9 00 E5 0B 85 04 A9 00 85 09 4C 7E 05 F8 18 A5 04 69 05 85 04 24 09 +: 10 09 18 A5 04 65 0A 85 04 D8 60 38 A5 04 E5 0A 85 0B A5 0A C9 00 F0 19 A5 0B C5 04 F0 02 90 0D +: 38 A9 00 E5 0B 85 04 A9 FF 85 09 D8 60 85 04 D8 60 A5 0B 85 04 D8 60 F8 38 24 09 30 25 A5 01 E5 +: 04 85 0B A5 02 F0 0B E9 00 85 02 4C F1 05 A5 0B F0 06 A5 01 C5 0B B0 04 A9 00 F0 02 A5 0B 85 01 +: D8 60 18 A5 01 65 04 85 01 A5 02 69 00 85 02 D8 60 A5 0B 85 01 D8 60 F8 18 A5 00 69 01 85 00 D8 +: 60 A0 00 B9 AD 09 20 EF FF C0 0A F0 04 C8 4C 03 06 60 20 0D 04 20 0D 04 A5 00 20 DC FF A0 04 20 +: 0D 04 88 D0 FA A5 02 20 DC FF A5 01 20 DC FF A0 05 20 0D 04 88 D0 FA 24 09 30 07 A9 2D 20 EF FF +: D0 05 A9 2B 20 EF FF A5 04 20 DC FF 24 08 10 01 60 A0 06 20 0D 04 88 D0 FA A5 07 20 DC FF A5 06 +: 20 DC FF A0 05 20 0D 04 88 D0 FA A9 3F 20 EF FF 60 A9 84 8D 04 06 A9 06 8D 05 06 A9 ED 8D 0A 06 +: 20 01 06 60 4C 55 4E 41 52 20 4C 41 4E 44 45 52 0D 0D 0A 4D 49 4E 55 53 20 56 45 4C 4F 43 49 54 +: 59 20 28 2D 29 20 4D 45 41 4E 53 20 44 4F 57 4E 57 41 52 44 0D 4D 4F 56 45 4D 45 4E 54 0D 0D 50 +: 4C 55 53 20 20 56 45 4C 4F 43 49 54 59 20 28 2B 29 20 4D 45 41 4E 53 20 55 50 57 41 52 44 20 4D +: 4F 56 45 4D 45 4E 54 0D 0A 0A 4D 41 58 49 4D 55 4D 20 42 55 52 4E 20 49 53 20 33 30 20 55 4E 49 +: 54 53 2F 53 45 43 2E 20 20 28 42 55 52 4E 20 4D 41 59 20 42 45 20 41 4E 59 20 49 4E 54 45 47 45 +: 52 20 46 52 4F 4D 20 30 20 54 4F 20 33 30 29 0D 0D 41 20 42 55 52 4E 20 4F 46 20 35 20 55 4E 49 +: 54 53 2F 53 45 43 20 49 53 20 52 45 51 55 49 52 45 44 20 54 4F 0D 43 41 4E 43 45 4C 20 47 52 41 +: 56 49 54 59 2E 0D 0D 0A 47 4F 4F 44 20 4C 55 43 4B 21 A9 85 8D 04 06 A9 07 8D 05 06 A9 80 8D 0A +: 06 20 01 06 60 43 4F 4E 54 52 4F 4C 20 54 4F 20 4C 55 4E 41 52 20 4D 4F 44 55 4C 45 3A 0D 0A 42 +: 45 47 49 4E 20 4C 41 4E 44 49 4E 47 20 50 52 4F 43 45 44 55 52 45 0D 0D 0D 0A 20 54 49 4D 45 20 +: 20 48 45 49 47 48 54 20 56 45 4C 4F 43 49 54 59 20 46 55 45 4C 20 55 4E 49 54 53 20 20 42 55 52 +: 4E 0D 0A 28 53 45 43 53 29 20 28 46 45 45 54 29 20 28 46 54 2F 53 45 43 29 20 20 52 45 4D 41 49 +: 4E 49 4E 47 0D 0A 00 00 00 00 00 20 28 46 45 45 54 29 00 00 00 00 20 20 28 46 54 2F 53 45 43 29 +: 00 00 00 00 00 00 00 20 52 45 4D 41 49 4E 49 4E 47 A9 48 8D 04 06 A9 08 8D 05 06 A9 0A 8D 0A 06 +: 20 01 06 A9 FF 85 05 60 4F 55 54 20 4F 46 20 46 55 45 4C A9 66 8D 04 06 A9 08 8D 05 06 A9 0A 8D +: 0A 06 20 01 06 60 4F 4E 20 54 48 45 20 4D 4F 4F 4E A9 84 8D 04 06 A9 08 8D 05 06 A9 24 8D 0A 06 +: 20 01 06 60 50 45 52 46 45 43 54 20 4C 41 4E 44 49 4E 47 21 07 07 07 07 0D 0A 43 4F 4E 47 52 41 +: 54 55 4C 41 54 49 4F 4E 53 A9 BC 8D 04 06 A9 08 8D 05 06 A9 49 8D 0A 06 20 01 06 60 57 45 4C 4C +: 2C 20 59 4F 55 20 47 4F 54 20 44 4F 57 4E 20 41 4C 49 56 45 2C 20 42 55 54 20 44 41 4D 41 47 45 +: 20 54 4F 20 59 4F 55 52 20 43 52 41 46 54 20 0A 48 41 53 20 53 54 52 41 4E 44 45 44 20 59 4F 55 +: 20 48 45 52 45 21 A9 19 8D 04 06 A9 09 8D 05 06 A9 28 8D 0A 06 20 01 06 60 59 4F 55 20 4A 55 53 +: 54 20 43 52 45 41 4D 45 44 20 41 20 32 39 20 4D 45 47 41 42 55 43 4B 20 4C 41 4E 44 45 52 21 07 +: 07 07 07 A9 56 8D 04 06 A9 09 8D 05 06 A9 10 8D 0A 06 20 01 06 60 54 52 59 20 41 47 41 49 4E 3F +: 20 20 28 59 2F 4E 29 20 00 04 A9 7D 8D 04 06 A9 09 8D 05 06 A9 1C 8D 0A 06 20 01 06 60 42 55 52 +: 4E 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 2E 20 20 20 20 20 42 55 52 4E 20 3F A9 AD 8D 04 06 A9 +: 09 8D 05 06 A9 0A 8D 0A 06 20 01 06 60 43 4F 4E 54 52 4F 4C 20 4F 55 54 FF diff --git a/programs/deal.txt b/programs/deal.txt new file mode 100644 index 0000000..0774ce6 --- /dev/null +++ b/programs/deal.txt @@ -0,0 +1,351 @@ + +SCR +LOMEM=768 +HIMEM=16384 + +10 REM DEAL OR NO DEAL +20 REM +30 REM CREATED BY VINCE BRIEL +40 REM +50 REM ON 12/20/2005 +60 REM +70 DIM A(26),A$(255),N$(255),D(26),O(12) +80 FOR I=1 TO 26: PRINT :A(I)=0: D(26)=0:NEXT I +90 TAB 12: PRINT "DEAL OR NO DEAL" +95 S=1 +100 PRINT : PRINT +110 INPUT "WHAT IS YOUR NAME ",N$ +120 PRINT "HELLO, ";N$ +130 INPUT "DO YOU NEED INSTRUCTIONS",A$ +140 IF A$="Y" OR A$="YES" THEN 9000 +150 PRINT : PRINT "OK, LETS SET UP THE BOARD" +160 REM SCRAMBLE THE BOARD +170 FOR I=1 TO 26 +180 N=RND(26)+1:IF A(N)#0 THEN 180 +190 A(N)=I:D(N)=1:NEXT I +420 REM PRINT THE BOARD, GET USERS PICK OF CASE +430 REM NO LONGER USED GOSUB 1000 +440 FOR I=1 TO 1000:NEXT I +450 PRINT "OK, HERE'S THE PRIZES AVAILABLE":PRINT +460 FOR I=1 TO 13 +480 GOSUB 1990+I*10 +490 PRINT "$";A$; +500 TAB 20 +510 GOSUB 1990+(I+13)*10 +520 PRINT "$";A$; +530 PRINT:NEXT I:PRINT +550 REM PICK YOUR CASE +560 PRINT"HERE ARE THE CASES AVAILABLE:" +570 PRINT:GOSUB 1000 +572 PRINT "PICK YOUR CASE ";N$; +575 INPUT Y +577 IF Y>0 AND Y<27 THEN 580 +578 PRINT "PLEASE CHOOSE BETWEEN 1 AND 26.":GOTO 560 +580 Y1=A(Y):A(Y)=0 +585 C=6:PRINT "YOU MUST NOW CHOOSE 6 CASES. AFTER" +587 PRINT "THAT, THE BANKER WILL MAKE AN OFFER" +595 GOSUB 3000 +596 REM NOW MAKE AN OFFER +600 GOSUB 5000 +610 REM NO DEAL, NOW PICK 5 +620 PRINT "YOU MUST NOW CHOOSE 5 CASES. A NEW OFFER" +630 PRINT "WILL BE MADE BY THE BANK AFTER YOU PICK." +632 C=5:GOSUB 3000 +640 GOSUB 5000 +645 REM NO DEAL, NOW PICK 4 +650 PRINT "NOW, CAREFULLY PICK 4 MORE CASES." +652 PRINT "THE BANK WILL THEN MAKE A NEW OFFER." +654 C=4:GOSUB 3000 +656 GOSUB 5000 +660 REM NO DEAL, NOW PICK 3 +666 PRINT "NOW, CAREFULLY PICK 2 MORE CASES." +668 PRINT "THE BANK WILL THEN MAKE A NEW OFFER." +669 C=2:GOSUB 3000 +670 GOSUB 5000 +680 REM NO DEAL, NOW PICK 2 +686 PRINT "NOW, CAREFULLY PICK 2 MORE CASES." +688 PRINT "THE BANK WILL THEN MAKE A NEW OFFER." +689 C=2:GOSUB 3000 +690 GOSUB 5000 +700 REM NO DEAL, NOW PICK 1 +703 PRINT "NOW, CAREFULLY PICK 1 MORE CASE." +704 PRINT "THE BANK WILL THEN MAKE A NEW OFFER." +705 C=1:GOSUB 3000 +706 GOSUB 5000 +710 REM NO DEAL, NOW PICK 1 +713 PRINT "NOW, CAREFULLY PICK 1 MORE CASE." +714 PRINT "THE BANK WILL THEN MAKE A NEW OFFER.":PRINT "THIS IS GETTING TENSE." +715 C=1:GOSUB 3000 +716 GOSUB 5000 +720 REM NO DEAL, NOW PICK 1 +723 PRINT "NOW, CAREFULLY PICK 1 MORE CASE,":PRINT "AND CHOOSE WISELY." +724 PRINT "THE BANK WILL THEN MAKE A NEW OFFER." +725 C=1:GOSUB 3000 +726 GOSUB 5000 +730 REM NO DEAL, NOW PICK 1 +733 PRINT "NOW, CAREFULLY PICK 1 MORE CASE." +734 PRINT "THE BANK WILL THEN MAKE A NEW OFFER." +735 C=1:GOSUB 3000 +736 GOSUB 5000 +740 REM NO DEAL, NOW PICK 1 +743 PRINT "NOW, CAREFULLY PICK 1 MORE CASE." +744 PRINT "THE BANK WILL THEN MAKE A NEW OFFER." +745 C=1:GOSUB 3000 +746 GOSUB 5000 +800 REM NO DEAL, LAST DRAW, THERE IS ONLY ONE CASE LEFT, SWAP? +805 PRINT "HERE IS THE REMAING CASE:":PRINT +810 GOSUB 1000:FOR I=1 TO 1500:NEXT I +815 PRINT "NOW, WE'RE GOING TO OFFER YOU SOMETHING" +820 PRINT "DIFFERENT. YOU CAN KEEP YOUR CASE #";Y +825 PRINT "OR TRADE IT FOR THE LAST CASE" +830 PRINT "REMAINING "; +835 REM FIND REMAINING CASE +840 V=0:FOR I=1 TO 26:IF A(I)=0 THEN 850 +845 V=I +850 NEXT I:IF V=0 THEN 9999 +855 PRINT V +860 PRINT :PRINT "DO YOU WANT TO KEEP YOUR" +870 PRINT "CASE OR EXCHANGE IT FOR ";V +880 INPUT "ANSWER 'KEEP' OR 'EXCHANGE'",A$ +890 IF A$="KEEP" THEN 9500 +900 REM EXCHANGE V FOR Y +910 Y=V:Y1=A(V):GOTO 9500 + +1000 REM PRINT BOARD ROUTINE +1010 L=22: PRINT +1020 FOR J=1 TO 3 +1030 FOR I=0 TO 4 +1040 REM IF L+I<>0 THEN 1060 +1050 REM PRINT " ";:GOTO 1200 +1060 IF J=1 THEN 1090 +1070 IF J=2 THEN 1120 +1080 GOTO 1170 +1090 IF A(L+I)=0 THEN 1110 +1100 PRINT "****** ";: GOTO 1200 +1110 PRINT " ";: GOTO 1200 +1120 IF A(L+I)=0 THEN 1110 +1130 IF L+I<10 THEN 1150 +1140 PRINT "* ";L+I;" * ";: GOTO 1200 +1150 PRINT "* ";L+I;" * ";: GOTO 1200 +1160 PRINT " ";: GOTO 1200 +1170 IF A(L+I)=0 THEN 1190 +1180 PRINT "****** ";: GOTO 1200 +1190 PRINT " "; +1200 NEXT I: PRINT : NEXT J: PRINT +1210 L=L-5: IF L<0 THEN 1230 +1220 GOTO 1020 +1230 REM NOW PRINT #1 +1240 IF A(1)=0 THEN 1280 +1250 PRINT "******" +1260 PRINT "* 1 *" +1270 PRINT "******" +1280 RETURN +2000 A$=".01":RETURN +2010 A$="1":RETURN +2020 A$="5":RETURN +2030 A$="10":RETURN +2040 A$="25":RETURN +2050 A$="50":RETURN +2060 A$="75":RETURN +2070 A$="100":RETURN +2080 A$="200":RETURN +2090 A$="300":RETURN +2100 A$="400":RETURN +2110 A$="500":RETURN +2120 A$="750":RETURN +2130 A$="1,000":RETURN +2140 A$="5,000":RETURN +2150 A$="10,000":RETURN +2160 A$="25,000":RETURN +2170 A$="50,000":RETURN +2180 A$="75,000":RETURN +2190 A$="100,000":RETURN +2200 A$="200,000":RETURN +2210 A$="300,000":RETURN +2220 A$="400,000":RETURN +2230 A$="500,000":RETURN +2240 A$="750,000":RETURN +2250 A$="1,000,000":RETURN + +3000 REM HERE IS WHERE YOU PICK "C" NUMBER OF CASES + +3005 PRINT "NOW, HERE ARE THE REMAINING CASES:" + +3006 PRINT "YOU HAVE ";C;" MORE CASES TO CHOOSE" + +3007 GOSUB 1000 + +3010 INPUT "CHOOSE A CASE (0 TO SEE PRIZES LEFT)",B + +3020 IF B>-1 AND B<27 THEN 3040 + +3030 PRINT "PLEASE CHOOSE BETWEEN 1 AND 26.":GOTO 3000 + +3040 IF B#0 THEN 3048 + +3041 FOR I=1 TO 13:IF D(I)=0 THEN 3044 + +3042 GOSUB 1990+I*10 + +3043 PRINT "$";A$; + +3044 TAB 20:IF D(13+I)=0 THEN 3047 + +3045 GOSUB 1990+(I+13)*10 + +3046 PRINT "$";A$; + +3047 PRINT:NEXT I:PRINT:GOTO 3010 + +3048 IF A(B)#0 THEN 3060 + +3050 PRINT "THAT CASE HAS BEEN CHOOSEN. TRY AGAIN.":GOTO 3000 + +3060 D(A(B))=0:D=A(B):GOSUB 1990+(D*10) + +3070 A(B)=0:PRINT "SHOW THE CASE..." + +3080 FOR I=1 TO 1000:NEXT I:PRINT + +3090 TAB 12:PRINT "$";A$:FOR I=1 TO 1000:NEXT I + +3094 PRINT:C=C-1:IF C>0 THEN 3000 + +3099 RETURN + +5000 REM THIS AREA FOR WHERE YOU MAKE AN OFFER + +5010 PRINT:PRINT "RING......":FOR I=1 TO 1500:NEXT I + +5015 REM GET HIGHEST VALUE LEFT + +5020 H=0:Z=0:FOR I=1 TO 26:IF A(I)=0 THEN 5040 + +5030 H=I:Z=Z+1 + +5040 NEXT I:J=RND(3)+1:J=J-2:H=H+J:H=H-3:Z=Z/2:H=H-Z + +5042 IF H>=1 THEN O(S)=H:GOTO 5050 + +5043 O(S)=2 + +5050 IF S=1 THEN 5100 + +5055 PRINT "HERE ARE YOUR PREVIOUS OFFERS:" + +5060 PRINT "------------------------------" + +5070 PRINT :FOR I=1 TO S-1 + +5080 GOSUB 1990+O(I)*10 + +5090 TAB 5:PRINT "$";A$:NEXT I + +5100 PRINT + +5110 IF O(S)>16 THEN 5190 + +5180 PRINT "A GOOD OFFER OF ";:GOTO 5330 + +5190 IF O(S)>18 THEN 5200 + +5195 PRINT "A NICE OFFER OF ";:GOTO 5330 + +5200 IF O(S)>19 THEN 5220 + +5210 PRINT "A SWEET OFFER OF ";:GOTO 5330 + +5220 PRINT "A GREAT OFFER OF $"; + +5330 GOSUB 1990+O(S)*10 + +5340 PRINT A$;" IS ON THE BOARD." + +5350 PRINT:PRINT "BEFORE YOU ANSWER THINK ABOUT" + +5360 PRINT "IT FOR A WHILE..." + +5370 FOR I=1 TO 1500:NEXT I + +5380 PRINT "OK, SO HERE'S THE QUESTION...":PRINT + +5390 PRINT "DEAL, OR NO DEAL." + +5400 IF D(26)=0 THEN 5430 + +5410 PRINT "A MILLION DOLLARS COULD STILL BE" + +5420 PRINT "IN YOUR CASE!":GOTO 5800 + +5430 IF D(25)=0 THEN 5800 + +5440 PRINT "$750,000 COULD BE IN YOUR CASE." + +5800 PRINT "SO, I NEED AN ANSWER" + +5810 INPUT "DEAL, OR NO DEAL",A$ + +5812 IF A$="DEAL" THEN 9500 + +5814 IF A$="NO DEAL" OR A$="ND" OR A$="NODEAL" THEN 5840 + +5820 PRINT "PLEASE ANSWER 'DEAL' OR 'NO DEAL'" + +5830 GOTO 5810 + +5840 FOR I=1 TO 12:PRINT:NEXT I:TAB 12:PRINT "NO DEAL" + +5850 S=S+1:RETURN + +9000 FOR I=1 TO 24: PRINT : NEXT I + +9010 TAB 12: PRINT "DEAL OR NO DEAL" + +9020 PRINT + +9030 PRINT "THE GAME IS PLAYED WITH 26 CASES. THE" + +9040 PRINT "VALUE IN EACH CASE RANGES FROM $.01 TO" + +9050 PRINT "$1,000,000! YOU CHOOSE THE ONE CASE YOU" + +9060 PRINT "THINK HAS THE $1,000,000." + +9070 PRINT : PRINT "NEXT YOU BEGIN OPENING CASES UP. AFTER" + +9080 PRINT "A NUMBER OF CASES ARE OPENED THE BANKER" + +9090 PRINT "WILL MAKE YOU AN OFFER TO BUY BACK YOUR" + +9100 PRINT "CASE. YOU CAN EITHER ACCEPT THE OFFER" + +9120 PRINT "FOR YOUR CASE OR CONTINUE TO OPEN MORE" + +9130 PRINT "CASES. YOU PLAY UNTIL YOU RUN OUT OF" + +9140 PRINT "CASES OR UNTIL YOU ACCEPT THE BANKS" + +9150 PRINT "OFFER. GOOD LUCK!" + +9160 FOR I=1 TO 1500: NEXT I: GOTO 150 + + +9500 REM TOOK THE DEAL OR LAST CASE, SHOW WHAT'S IN YOUR CASE + +9510 FOR I=1 TO 24:PRINT:NEXT I + +9520 PRINT "AND INSIDE YOUR CASE IS":PRINT + +9530 GOSUB 1990+Y1*10 + +9540 TAB 8:PRINT "$";A$ + +9550 PRINT:PRINT"SEE YOU NEXT TIME ON..." + +9560 PRINT "DEAL OR NO DEAL" + +9570 PRINT + +9999 END + + diff --git a/programs/life.txt b/programs/life.txt new file mode 100644 index 0000000..fa06ac4 --- /dev/null +++ b/programs/life.txt @@ -0,0 +1,14 @@ +2000: A2 00 A9 A0 9D 00 24 9D 00 25 9D 00 26 9D 00 27 E8 D0 F1 BD 80 21 20 EF FF E8 E0 38 D0 F5 20 02 +: 21 C9 8D D0 F9 20 3F 21 29 3F 69 20 85 F9 A0 00 20 3F 21 29 03 18 69 24 85 F1 A5 FA 85 F0 A9 AA +: 91 F0 C6 F9 D0 EA A9 24 85 F9 A9 40 85 F8 A2 27 A9 AD 9D D8 27 9D 40 24 CA 10 F7 B1 F8 20 EF FF +: E6 F8 D0 F7 E6 F9 A5 F9 C9 28 D0 EF 20 02 21 A0 00 20 F3 20 B1 F0 91 F2 E6 F0 E6 F2 D0 F6 E6 F1 +: E6 F3 A5 F1 C9 28 D0 EC 20 61 21 A0 00 B1 F2 C9 AA D0 0A A0 27 20 14 21 A0 01 20 1D 21 E6 F0 E6 +: F2 D0 E8 E6 F1 E6 F3 A5 F1 C9 28 D0 DE 18 A2 27 BD D8 27 7D 68 24 9D 68 24 BD 40 24 7D B0 27 9D +: B0 27 CA 10 EB 20 F3 20 A0 00 B1 F0 C9 02 D0 04 B1 F2 D0 0A C9 03 D0 04 A9 AA D0 02 A9 A0 91 F0 +: E6 F0 E6 F2 D0 E2 E6 F1 E6 F3 A5 F3 C9 2C D0 D8 4C 46 20 A9 24 85 F1 A9 28 85 F3 A9 40 85 F0 85 +: F2 60 E6 FA D0 02 E6 FB AD 11 D0 10 F5 AD 10 D0 20 EF FF 60 20 1D 21 C8 C0 2A D0 F8 60 18 B1 F0 +: 69 01 91 F0 84 F9 38 A5 F0 E5 F9 85 F6 A5 F1 E9 00 85 F7 A0 00 B1 F6 18 69 01 91 F6 A4 F9 60 A5 +: FB 85 F6 A5 FA 0A 26 F6 0A 26 F6 18 65 FA 48 A5 F6 65 FB 85 FB 68 69 11 85 FA A5 FB 69 36 85 FB +: 60 20 F3 20 A9 00 A8 91 F0 E6 F0 D0 FA E6 F1 A6 F1 E0 28 D0 F2 20 F3 20 60 A0 A0 A0 A0 A0 A0 A0 +: 8D 8D 8D 8D C3 CF CE D7 C1 D9 A7 D3 A0 C7 C1 CD C5 A0 CF C6 A0 CC C9 C6 C5 8D 8D D0 CC C5 C1 D3 +: C5 A0 D4 D9 D0 C5 A0 D9 CF D5 D2 A0 C6 D5 CC CC A0 CE C1 CD C5 AE 8D 8D \ No newline at end of file diff --git a/programs/microchess.txt b/programs/microchess.txt new file mode 100644 index 0000000..9687d5b --- /dev/null +++ b/programs/microchess.txt @@ -0,0 +1,72 @@ + + +0300: A2 58 BD 80 04 20 EF FF CA 10 F7 20 E0 05 29 03 F0 10 C9 01 F0 06 A0 FF A9 00 F0 0A A0 FB A9 00 +: F0 04 A0 FB A9 08 84 BE 85 BF EA EA A2 00 BD E6 09 C9 AB F0 06 20 EF FF E8 D0 F3 20 E0 05 29 0F +: C9 0A 30 0B A5 FF 38 E9 0A B0 FC 69 0A 29 0E 0A AA BD EB 03 85 FD BD EC 03 85 FE A0 1B B1 FD 99 +: C0 00 88 10 F8 A2 10 BD EF 05 95 2F CA D0 F8 A2 40 BD AF 06 95 6F CA D0 F8 4C 00 04 +039D: A2 1F B5 +: 50 C5 FA F0 03 CA 10 F7 86 FB 86 B0 D8 A2 FF 9A A2 C8 86 B2 4C 0B 04 C9 FF D0 04 A2 D9 D0 0E C9 +: EE D0 04 A2 E4 D0 06 C9 CC D0 0D A2 F3 BD 00 04 F0 13 20 EF FF E8 D0 F5 B5 F8 20 DC FF A9 A0 20 +: EF FF CA D0 F3 A9 8D 20 EF FF 60 B0 0A CC 0A E8 0A 04 0B 20 0B 3C 0B 58 0B 74 0B 90 0B AC 0B 00 +: D8 A2 FF 9A A2 C8 86 B2 20 00 09 20 3D 09 EA EA EA EA 85 F3 C9 0C D0 0F A2 1F B5 70 95 50 CA 10 +: F9 86 DC A9 CC D0 12 C9 0E D0 07 20 B2 07 A9 EE D0 07 C9 14 D0 0B 20 A2 08 85 FB 85 FA 85 F9 D0 +: BF C9 0F D0 06 20 50 04 4C 9D 03 4C 96 06 00 00 85 B9 86 BA 84 BB 20 00 09 A5 B9 A6 BA A4 BB 4C 4B 08 +0480: 8D A0 A0 BF 8D 8D DA D4 C9 CC C2 D2 C5 D0 D5 D3 BD B2 8D DA D4 C9 CC C2 BD B1 8D D9 C1 CC D0 A0 +: CC C1 CD D2 CF CE BD B0 8D 8D CD CF C3 AE CF CC CE C5 C2 AE D7 D7 D7 8D D3 C7 CE C9 CE CE C5 CA +: A0 D2 C5 D4 C5 D0 A0 D9 C2 8D 8D A9 C3 A8 D3 D3 C5 C8 C3 CF D2 C3 C9 CD 8D C3 C8 C5 C3 CB CD C1 +: D4 C5 8D 00 D2 C5 D6 C5 D2 D3 C5 A0 D3 C9 C4 C5 D3 8D 00 CE C5 D7 A0 C7 C1 CD C5 8D 00 FF FF FF +: 8A 48 A2 08 A9 A1 20 EF FF A9 AD 20 EF FF 20 EF FF CA D0 F0 A9 A1 20 EF FF A9 8D 20 EF FF 68 AA +: 60 84 F4 85 F5 86 F6 A9 8D 20 EF FF 20 00 05 A2 00 A0 00 A9 A1 20 EF FF 86 F7 84 F8 8A 0A 0A 0A +: 0A 65 F8 A2 1F D5 50 F0 0E CA 10 F9 20 C9 05 4C 77 05 EA EA EA EA EA 8A 4A 4A 4A 4A EA 18 65 B8 +: 29 01 F0 04 A9 C2 D0 02 A9 D7 20 EF FF 8A EA 29 0F AA B5 30 20 EF FF A6 F7 A4 F8 C8 C0 08 D0 B3 +: A9 A1 20 BC 05 A9 8D 20 EF FF 20 00 05 E8 E0 08 D0 9F A4 F4 A9 8D 20 EF FF A9 A0 20 EF FF A9 B0 +: AA 20 EF FF A9 A0 20 EF FF 20 EF FF E8 8A C9 B8 D0 EF A9 8D 20 EF FF A5 F5 A6 F6 60 20 EF FF A9 +: A0 20 EF FF 8A 20 E5 FF 60 18 A5 F7 65 F8 29 01 F0 04 A9 A0 D0 02 A9 AA 20 EF FF 20 EF FF 60 EA +: E6 FF AD 11 D0 10 F9 AD 10 D0 20 EF FF 60 FF FF CB D1 D2 D2 C2 C2 CE CE D0 D0 D0 D0 D0 D0 D0 D0 +: A6 B5 30 5C A5 B0 F0 08 E0 08 D0 04 C5 E6 F0 2E F6 E3 C9 01 D0 02 F6 E3 50 1E A0 0F A5 B1 D9 60 +: 00 F0 03 88 10 F8 B9 A0 00 D5 E4 90 04 94 E6 95 E4 18 08 75 E5 95 E5 28 E0 04 F0 03 30 31 60 A5 +: E8 85 DD A9 00 85 B5 20 4B 08 20 B2 07 20 00 07 20 B2 07 A9 08 85 B5 20 09 07 20 31 08 4C 80 09 +: E0 F9 D0 0B A5 60 C5 B1 D0 04 A9 00 85 B4 60 50 FD A0 07 A5 B1 D9 60 00 F0 05 88 F0 F1 10 F6 B9 +: A0 00 D5 E2 90 02 95 E2 C6 B5 A5 BE C5 B5 F0 03 20 25 08 E6 B5 60 C9 08 B0 12 20 EA 08 A2 1F B5 +: 50 C5 FA F0 03 CA 10 F7 86 FB 86 B0 4C 0B 04 A0 03 04 00 07 02 05 01 06 10 17 11 16 12 15 14 13 +: 73 74 70 77 72 75 71 76 60 67 61 66 62 65 64 63 F0 FF 01 10 11 0F EF F1 DF E1 EE F2 12 0E 1F 21 +: 0B 0A 06 06 04 04 04 04 02 02 02 02 02 02 02 02 A2 1F B5 70 95 50 CA 10 F9 20 21 05 60 FF FF FF +: A2 10 A9 00 95 DE CA 10 FB A9 10 85 B0 C6 B0 10 01 60 20 1E 08 A4 B0 A2 08 86 B6 C0 08 10 41 C0 +: 06 10 2E C0 04 10 1F C0 01 F0 09 10 0E 20 8E 07 D0 FB F0 D9 20 9C 07 D0 FB F0 D2 A2 04 86 B6 20 +: 9C 07 D0 FB F0 C7 20 9C 07 A5 B6 C9 04 D0 F7 F0 BC A2 10 86 B6 20 8E 07 A5 B6 C9 08 D0 F7 F0 AD +: A2 06 86 B6 20 CA 07 50 05 30 03 20 00 06 20 1E 08 C6 B6 A5 B6 C9 05 F0 EB 20 CA 07 70 8F 30 8D +: 20 00 06 A5 B1 29 F0 C9 20 F0 EE 4C 0D 07 20 CA 07 30 03 20 00 06 20 1E 08 C6 B6 60 20 CA 07 90 +: 02 50 F9 30 07 08 20 00 06 28 50 F0 20 1E 08 C6 B6 60 A2 0F 38 B4 60 A9 77 F5 50 95 60 94 50 38 +: A9 77 F5 50 95 50 CA 10 EB 60 A5 B1 A6 B6 18 75 8F 85 B1 29 88 D0 42 A5 B1 A2 20 CA 30 0E D5 50 +: D0 F9 E0 10 30 33 A9 7F 69 01 70 01 B8 A5 B5 30 24 C5 BF 10 20 48 08 A9 F9 85 B5 85 B4 20 4B 08 +: 20 B2 07 20 09 07 20 2E 08 28 68 85 B5 A5 B4 30 04 38 A9 FF 60 18 A9 00 60 A9 FF 18 B8 60 A6 B0 +: B5 50 85 B1 60 20 4B 08 20 B2 07 20 09 07 20 B2 07 BA 86 B3 A6 B2 9A 68 85 B6 68 85 B0 AA 68 95 +: 50 68 AA 68 85 B1 95 50 4C 70 08 BA 86 B3 A6 B2 9A A5 B1 48 A8 A2 1F D5 50 F0 03 CA 10 F9 A9 CC +: 95 50 8A 48 A6 B0 B5 50 94 50 48 8A 48 A5 B6 48 BA 86 B2 A6 B3 9A 60 A6 E4 E4 A0 D0 04 A9 00 F0 +: 0A A6 E3 D0 06 A6 EE D0 02 A9 FF A2 04 86 B5 C5 FA 90 0C F0 0A 85 FA A5 B0 85 FB A5 B1 85 F9 60 +: EA EA A6 DC 10 17 A5 F9 D5 DC D0 0F CA B5 DC 85 FB CA B5 DC 85 F9 CA 86 DC D0 1A 85 DC A2 0C 86 +: B5 86 FA A2 14 20 02 07 A2 04 86 B5 20 00 07 A6 FA E0 0F 90 12 A6 FB B5 50 85 FA 86 B0 A5 F9 85 +: B1 20 4B 08 4C FA 08 A9 FF 60 A2 04 06 F9 26 FA CA D0 F9 05 F9 85 F9 85 B1 60 20 21 05 4C 00 04 +: A9 8D 20 EF FF A2 03 A5 FB 30 27 4A 4A 4A 4A 18 65 B8 29 01 D0 04 A9 D7 D0 02 A9 C2 20 EF FF B5 +: F8 29 0F AA B5 30 20 EF FF A2 02 A9 A0 20 EF FF B5 F8 20 B7 03 60 FF FF FF FF FF FF FF 20 E0 05 +: C9 8D D0 03 A9 14 60 C9 C7 D0 0A A9 00 85 B8 20 F0 06 A9 0C 60 C9 D2 D0 05 E6 B8 A9 0E 60 C9 CD +: D0 03 A9 0F 60 C9 CC D0 03 4C 00 03 C9 D1 D0 03 4C 00 FF C9 D0 D0 06 20 21 05 4C 3D 09 29 07 60 +: 18 A9 80 65 EB 65 EC 65 ED 65 E1 65 DF 38 E5 F0 E5 F1 E5 E2 E5 E0 E5 DE E5 EF E5 E3 B0 02 A9 00 +: 4A 18 69 40 65 EC 65 ED 38 E5 E4 4A 18 69 90 65 DD 65 DD 65 DD 65 DD 65 E1 38 E5 E4 E5 E4 E5 E5 +: E5 E5 E5 E0 A6 B1 E0 33 F0 16 E0 34 F0 12 E0 22 F0 0E E0 25 F0 0A A6 B0 F0 09 B4 50 C0 10 10 03 +: 18 69 02 4C 77 08 8D 8D CF D0 C5 CE C9 CE C7 D3 8D 8D C3 CF CD D0 D5 D4 C5 D2 AE AE AE AE AE AE +: AE AE D7 C8 C9 D4 C5 A0 C2 CC C1 C3 CB 8D C6 D2 C5 CE C3 C8 A0 C4 C5 C6 C5 CE C3 C5 AE AE AE B0 +: A0 A0 A0 A0 A0 B1 8D C7 C9 D5 CF C3 CF A0 D0 C9 C1 CE CF AE AE AE AE AE B2 A0 A0 A0 A0 A0 B3 8D +: D2 D5 D9 A0 CC CF D0 C5 DA AE AE AE AE AE AE AE AE B4 A0 A0 A0 A0 A0 B5 8D D1 D5 C5 C5 CE A7 D3 +: A0 C9 CE C4 C9 C1 CE AE AE AE B6 A0 A0 A0 A0 A0 B7 8D C6 CF D5 D2 A0 CB CE C9 C7 C8 D4 D3 AE AE +: AE AE AE B8 A0 A0 A0 A0 A0 B9 8D 8D C6 CF D2 A0 D2 C1 CE C4 CF CD A0 CF D0 C5 CE C9 CE C7 AC A0 +: D0 D2 C5 D3 D3 A0 C5 CE D4 C5 D2 8D BF AB 00 00 99 22 06 45 32 0C 72 14 01 63 63 05 64 43 0F 63 +: 41 05 52 25 07 44 34 0E 53 33 0F CC 99 22 07 55 32 0D 45 06 00 63 14 01 14 13 06 34 14 04 36 25 +: 06 52 33 0E 43 24 0F 44 99 25 0B 25 01 00 33 25 07 36 34 0D 34 34 0E 52 25 0D 45 35 04 55 22 06 +: 43 33 0F CC 99 52 04 52 52 06 75 44 06 52 41 04 43 43 0F 43 25 06 52 32 04 42 22 07 55 34 0F 44 +: 99 25 07 66 43 0E 55 55 04 54 13 01 63 34 0E 33 01 00 52 46 04 55 22 06 43 33 0F CC 99 06 00 52 +: 11 06 34 22 0B 22 23 06 64 14 04 43 44 06 75 25 06 31 22 07 55 34 0F 44 99 25 01 25 15 01 33 25 +: 07 72 01 00 63 11 04 66 21 0A 56 22 06 53 35 0D 52 34 0E CC 99 35 0C 52 52 06 62 44 06 52 06 00 +: 75 14 04 66 11 05 56 21 0B 55 24 0F 42 25 06 43 99 03 02 63 25 0B 25 41 05 54 24 0E 72 01 00 36 +: 46 04 52 25 07 55 22 06 43 33 0F CC 99 03 07 74 14 01 52 52 04 36 23 0E 53 06 00 75 41 04 31 25 +: 06 52 22 07 55 34 0F 44 \ No newline at end of file diff --git a/programs/reverse.txt b/programs/reverse.txt new file mode 100644 index 0000000..4a7248b --- /dev/null +++ b/programs/reverse.txt @@ -0,0 +1,30 @@ +100 PRINT "R E V E R S E": PRINT +110 DIM A(9), B(9) +115 T=0 +120 FOR I=1 TO 9: A(I)=0 : NEXT I +130 FOR I= 1 TO 9 +140 J= RND (20) +1 +150 IF J>9 THEN 140 +160 IF A(J)#0 THEN 140 +170 A(J) =I +180 NEXT I +190 PRINT " 1 2 3 4 5 6 7 8 9": PRINT " -----------------" +191 PRINT "("):: FOR I=1 TO 9: PRINT A(I):: IF I<9 THEN PRINT " ":: NEXT I +192 PRINT ")": PRINT"------------------" +193 PRINT +200 INPUT "HOW MANY SHALL I REVERSE",N +210 IF N<=9 THEN 230 +220 PRINT "OOPS! TOO MANY- I CAN REVERSE AT MOST 9": GOTO 200 +230 IF N>1 THEN 250 +240 PRINT "OOPS ! TOO SMALL; YOU MUST REVERSE SOMETHING!" +241 GOTO 200 +250 T=T+1 +260 FOR I=1 TO 9: B(I)=A(I): NEXT I +270 FOR I=1 TO N:J=N+1-I: A(J)=B(I): NEXT I +280 I=0 +290 I=I+1 +300 IF A(I) > A(I+1) THEN 190 +310 IF I<8 THEN 290 +320 PRINT "YOU WON IN ";T;" MOVES" +330 END + diff --git a/programs/rsp.txt b/programs/rsp.txt new file mode 100644 index 0000000..07842c1 --- /dev/null +++ b/programs/rsp.txt @@ -0,0 +1,27 @@ +10 PRINT "WELCOME TO ROCK PAPER SCISSORS" +20 DIM V$(10) +30 INPUT "ROCK OR PAPER OR SCISSORS", V$ +40 IF V$ = "ROCK" THEN 100 +50 IF V$ = "PAPER" THEN 200 +60 IF V$ = "SCISSORS" THEN 300 +100 A= RND (2) +105 IF A = 0 THEN 120 +110 IF A = 1 THEN 130 +120 PRINT "PAPER YOU LOSE" +125 GOTO 30 +130 PRINT "SCISSORS YOU WIN" +135 GOTO 30 +200 A= RND (2) +205 IF A = 0 THEN 220 +210 IF A = 1 THEN 230 +220 PRINT "SCISSORS YOU LOSE" +225 GOTO 30 +230 PRINT "ROCK YOU WIN" +235 GOTO 30 +300 A= RND (2) +305 IF A = 0 THEN 320 +310 IF A = 1 THEN 330 +320 PRINT "ROCK YOU LOSE" +325 GOTO 30 +330 PRINT "PAPER YOU WIN" +335 GOTO 30 \ No newline at end of file diff --git a/programs/slots.txt b/programs/slots.txt new file mode 100644 index 0000000..1ec694d --- /dev/null +++ b/programs/slots.txt @@ -0,0 +1,135 @@ +LOMEM=768 +10 PRINT " SLOTS" +20 PRINT "CREATIVE COMPUTING" +25 PRINT "MORRISTOWN, NEW JERSEY" +30 PRINT:PRINT:PRINT +100 REM PRODUCED BY FRED MIRABELLE AND BOB HARPER ON JAN. 29, 1973 +110 REM IT SIMULATES THE SLOT MACHINE. +120 PRINT "YOU ARE IN THE H&M CASINO, IN FRONT OF ":PRINT "ONE OF OUR ONE-ARMED BANDITS. BET FROM":PRINT "$1 TO $100." +140 PRINT "TO PULL THE ARM, PUNCH THE RETURN KEY ":PRINT"AFTER MAKING YOUR BET." +150 P=0 +160 PRINT:PRINT "YOUR BET"; +170 INPUT M +180 IF M>100 THEN 860 +190 IF M<1 THEN 880 +200 REM M=INT(M) +210 GOSUB 1270 +220 PRINT +230 X=RND(6)+1 +240 Y=RND(6)+1 +250 Z=RND(6) +260 PRINT +270 IF X=1 THEN 910 +280 IF X=2 THEN 930 +290 IF X=3 THEN 950 +300 IF X=4 THEN 970 +310 IF X=5 THEN 990 +320 IF X=6 THEN 1010 +330 IF Y=1 THEN 1030 +340 IF Y=2 THEN 1050 +350 IF Y=3 THEN 1070 +360 IF Y=4 THEN 1090 +370 IF Y=5 THEN 1110 +380 IF Y=6 THEN 1130 +390 IF Z=1 THEN 1150 +400 IF Z=2 THEN 1170 +410 IF Z=3 THEN 1190 +420 IF Z=4 THEN 1210 +430 IF Z=5 THEN 1230 +440 IF Z=6 THEN 1250 +450 IF X=Y THEN 600 +460 IF X=Z THEN 630 +470 IF Y=Z THEN 650 +480 PRINT +490 PRINT "YOU LOST." +500 P=P-M +510 PRINT "YOUR STANDINGS ARE $";P +520 PRINT "AGAIN"; +530 INPUT A$ +540 IF A$="Y" THEN 160 +550 PRINT +560 IF P<0 THEN 670 +570 IF P=0 THEN 690 +580 IF P>0 THEN 710 +590 GOTO 1350 +600 IF Y=Z THEN 730 +610 IF Y=1 THEN 820 +620 GOTO 1341 +630 IF Z=1 THEN 820 +640 GOTO 470 +650 IF Z=1 THEN 820 +660 GOTO 1341 +670 PRINT "PAY UP! PLEASE LEAVE YOUR MONEY ON THE TERMINAL" +680 GOTO 1350 +690 PRINT "HEY, YOU BROKE EVEN." +700 GOTO 1350 +710 PRINT "COLLECT YOUR WINNINGS FROM THE CASHIER." +720 GOTO 1350 +730 IF Z=1 THEN 780 +740 PRINT:PRINT "**TOP DOLLAR**" +750 PRINT "YOU WON!" +760 P=(((10*M)+M)+P) +770 GOTO 510 +780 PRINT:PRINT "***JACKPOT***" +790 PRINT "YOU WON!" +800 P=(((100*M)+M)+P) +810 GOTO 510 +820 PRINT:PRINT "*DOUBLE BAR*" +830 PRINT "YOU WON!" +840 P=(((5*M)+M)+P) +850 GOTO 510 +860 PRINT "HOUSE LIMITS ARE $100" +870 GOTO 160 +880 PRINT "MINIMUM BET IS $1" +890 GOTO 160 +900 GOTO 220 +910 PRINT "BAR";:GOSUB 1310 +920 GOTO 330 +930 PRINT "BELL";:GOSUB 1310 +940 GOTO 330 +950 PRINT "ORANGE";:GOSUB 1310 +960 GOTO 330 +970 PRINT "LEMON";:GOSUB 1310 +980 GOTO 330 +990 PRINT "PLUM";:GOSUB 1310 +1000 GOTO 330 +1010 PRINT "CHERRY";:GOSUB 1310 +1020 GOTO 330 +1030 PRINT " BAR";:GOSUB 1310 +1040 GOTO 390 +1050 PRINT " BELL";:GOSUB 1310 +1060 GOTO 390 +1070 PRINT " ORANGE"; +1080 GOTO 390 +1090 PRINT " LEMON"; +1100 GOTO 390 +1110 PRINT " PLUM"; +1120 GOTO 390 +1130 PRINT " CHERRY"; +1140 GOTO 390 +1150 PRINT " BAR" +1160 GOTO 450 +1170 PRINT " BELL" +1180 GOTO 450 +1190 PRINT " ORANGE" +1200 GOTO 450 +1210 PRINT " LEMON" +1220 GOTO 450 +1230 PRINT " PLUM" +1240 GOTO 450 +1250 PRINT " CHERRY" +1260 GOTO 450 +1270 FOR Q1=1 TO 10 +1280 REM PRINT CHR$(7); BELL +1290 NEXT Q1 +1300 RETURN +1310 FOR T1=1 TO 5 +1320 REM PRINT CHR$(7); BELL +1330 NEXT T1 +1340 RETURN +1341 PRINT: PRINT "DOUBLE!!" +1342 PRINT "YOU WON!" +1343 P=(((2*M)+M)+P) +1344 GOTO 510 +1350 END +9999 END diff --git a/programs/startrek.txt b/programs/startrek.txt new file mode 100644 index 0000000..c6c322e --- /dev/null +++ b/programs/startrek.txt @@ -0,0 +1,504 @@ +SCR +LOMEM=768 +HIMEM=16384 +10 FOR I=1 TO 40: PRINT "*";:NEXT I: PRINT +20 PRINT "*";: TAB 40: PRINT "*" +30 PRINT "*";: TAB 15: PRINT "STAR TREK";: TAB 40: PRINT "*" +40 PRINT "*";: TAB 40: PRINT "*" +50 PRINT "* FOR THE APPLE 1 & REPLICA 1 *" +60 PRINT "*";: TAB 40: PRINT "*" +70 PRINT "*";: TAB 13: PRINT "BY VINCE BRIEL";: TAB 40: PRINT "*" +80 PRINT "*";: TAB 40: PRINT "*" +130 FOR I=1 TO 40: PRINT "*";:NEXT I: PRINT +140 FOR I=1 TO 9:PRINT:NEXT I +150 DIM G(100),S(100),A$(15),N$(25) +160 A$="-\= * >!0 AND S<6 THEN 280 +270 PRINT "CHOOSE A NUMBER BETWEEN 1 AND 5 PLEASE.":GOTO 250 +280 FOR I=1 TO 15:PRINT:NEXT I:PRINT "SETTING UP THE GALAXY" +290 FOR I=1 TO 100:G(I)=0:NEXT I +300 E1=5*S+RND(10):E7=2000:S1=0:T=10 +310 FOR I=1 TO E1 +320 X=RND(10)+1:Y=RND(10)+1:C=(10*Y+X)-10:IF G(C)>=100 THEN 320 +330 G(C)=G(C)+100 +340 NEXT I +350 FOR I=1 TO 7-S +360 X=RND(10)+1:Y=RND(10)+1:C=(10*Y+X)-10:G=G(C) +370 IF G<100 THEN 390 +380 G=G-100:GOTO 370 +390 IF G>=10 THEN 360 +400 G(C)=G(C)+10 +410 NEXT I +420 G=RND(300)+1:FOR I=1 TO G +430 X=RND(10)+1:Y=RND(10)+1:C=(10*Y+X)-10 +440 G(C)=G(C)+1:NEXT I +450 REM SET UP RANDOM X,Y CORDINATES FOR WHOLE GALAXY +451 PRINT:PRINT:PRINT +452 PRINT "SPACE, THE FINAL FRONTIER.":FOR G=1 TO 1000:NEXT G +453 PRINT "THESE ARE THE VOYAGES OF THE STARSHIP" +454 PRINT "ENTERPRISE. ITS FIVE YEAR MISSION:" +455 PRINT "TO EXPLORE STRANGE NEW WORLDS," +456 PRINT "TO SEEK OUT NEW LIFE AND " +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 +490 PRINT " 10 1 2":GOTO 530 +500 IF X1<10 THEN 520 +510 PRINT " 9 10 1":GOTO 530 +520 TAB 7:PRINT X1-1;" ";X1;" ";X1+1 +530 FOR Y=Y1-1 TO Y1+1:Y2=Y:IF Y2<1 THEN Y2=10 +540 IF Y2>10 THEN Y2=1 +550 FOR I=1 TO 22:PRINT "-";:NEXT I:PRINT:PRINT Y2;:IF Y2<10 THEN PRINT " "; +560 PRINT " :";:N=1:FOR X=X1-1 TO X1+1:X2=X:IF X2<1 THEN X2=10 +570 IF X2>10 THEN X2=1 +580 IF X2=1 THEN 600 +590 TAB (N*6) +600 C=(10*Y2+X2)-10:IF G(C)<100 THEN PRINT"0"; +610 IF G(C)<10 THEN PRINT "0"; +620 PRINT G(C);" : ";:N=N+1:NEXT X:PRINT:N=1:NEXT Y +630 FOR I=1 TO 22:PRINT "-";:NEXT I:PRINT:RETURN +650 REM SET UP OBJECTS IN QUADRANT PLACE ENTERPRISE FIRST +660 X4=RND(10)+1:Y4=RND(10)+1:C=(10*Y4+X4)-10:E6=0:E5=0 +670 FOR I=1 TO 10:PRINT:NEXT I +680 PRINT "ENTERING QUADRANT ";X1;",";Y1 +690 FOR I=1 TO 100:S(I)=0:NEXT I:S(C)=1:C=(10*Y1+X1)-10:G=G(C) +700 IF G<100 THEN 760 +710 X=RND(10)+1:Y=RND(10)+1:C=(10*Y+X)-10:IF S(C)<>0 THEN 710 +720 D=RND(10)+1:IF D=1 THEN 740 +730 S(C)=4:E6=100:E5=4:GOTO 750 +740 S(C)=5:E6=200:E5=5 +750 G=G-100 +760 IF G<10 THEN 790 +770 X=RND(10)+1:Y=RND(10)+1:C=(10*Y+X)-10:IF S(C)<>0 THEN 770 +780 S(C)=3:G=G-10:IF G>=10 THEN 770 +790 IF G=0 THEN 840 +800 FOR I=1 TO G +810 X=RND(10)+1:Y=RND(10)+1:C=(10*Y+X)-10:IF S(C)<>0 THEN 810 +820 S(C)=2:NEXT I +840 RETURN +850 REM PRINT QUADRANT +860 PRINT:PRINT "QUAD ";X1;",";Y1;" SEC ";X4;",";Y4;" COND: ";:C1=3:C=(10*Y1+X1)-10:IF G(C) < 10 THEN 880 +870 C1=2 +880 IF G(C) < 100 THEN 900 +890 C1=1 +900 IF C1=1 THEN PRINT "RED" +910 IF C1=2 THEN PRINT "YELLOW" +920 IF C1=3 THEN PRINT "GREEN" +930 FOR I=1 TO 30:PRINT "-";:NEXT I:PRINT:FOR Y=1 TO 10:FOR X=1 TO 10:C=(10*Y+X)-10:IF S(C)<>0 THEN 950 +940 PRINT " ";:GOTO 960 +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 G0 THEN 1050 +1040 S1=0 +1050 RETURN +1100 REM ENEMY FIRES +1110 IF E6>50 THEN 1130 +1120 RETURN +1130 G=RND(E6/2)+1:IF E5=5 THEN 1220 +1140 PRINT "KLINGON FIRES PHASOR BLAST ";G;" STRONG." +1150 S1=S1-G:E6=E6-(G/2):IF S1>0 THEN 1210 +1160 E7=E7-G*2:S1=0:PRINT "SHIELDS DOWN! ";G*2;" DAMAGE TO SHIPS ENERGY" +1170 IF E7>0 THEN 1210 +1180 PRINT "THE ENTERPRISE WAS DESTROYED!" +1190 PRINT "YOUR NEXT OF KIN WILL BE NOTIFIED." +1200 END +1210 RETURN +1220 G=G*(RND(3)+1):PRINT "ROMULAN FIRES STRANGE WEAPON...":PRINT "CAUSES ";G;" IN DAMAGE" +1230 GOTO 1150 +1250 REM WARP SPEED +1260 IF S1<=0 THEN 1290 +1270 PRINT "CAN'T WARP WITH SHIELDS UP.":GOTO 1900 +1290 INPUT "DIRECTION ",T1:IF T1<1 OR T1>8 THEN 1290 +1300 INPUT "WARP SPEED",G:IF G*10 < E7 THEN 1360 +1320 PRINT "NOT ENOUGH ENERGY.":GOTO 1900 +1360 FOR I=1 TO G:IF T1#1 THEN 1450 +1380 X1=X1+1:IF X1>10 THEN X1=1 +1420 Y1=Y1-1:IF Y1<1 THEN Y1=10 +1450 IF T1#2 THEN 1500 +1480 X1=X1+1:IF X1>10 THEN X1=1 +1500 IF T1#3 THEN 1580 +1520 X1=X1+1:IF X1>10 THEN X1=1 +1540 Y1=Y1+1:IF Y1>10 THEN Y1=1 +1580 IF T1#4 THEN 1640 +1600 Y1=Y1+1:IF Y1>10 THEN Y1=1 +1640 IF T1#5 THEN 1700 +1660 X1=X1-1:IF X1<1 THEN X1=10 +1680 Y1=Y1+1:IF Y1>10 THEN Y1=1 +1700 IF T1#6 THEN 1760 +1740 X1=X1-1:IF X1<1 THEN X1=10 +1760 IF T1#7 THEN 1820 +1780 X1=X1-1:IF X1<1 THEN X1=10 +1800 Y1=Y1-1:IF Y1<1 THEN Y1=10 +1820 IF T1#8 THEN 1850 +1840 Y1=Y1-1:IF Y1<1 THEN Y1=10 +1850 E7=E7-10:NEXT I:GOSUB 650 +1870 GOSUB 850 +1900 RETURN +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 +2090 GOTO 2020 +2100 IF C2#1 THEN 2130 +2110 GOSUB 470 +2120 GOTO 2020 +2130 IF C2#2 THEN 2160 +2140 GOSUB 850 +2150 GOTO 2020 +2160 IF C2#3 THEN 2190 +2170 GOSUB 1250 +2180 GOTO 2020 +2190 IF C2#4 THEN 2220 +2200 GOSUB 1000 +2210 GOTO 2020 +2220 IF C2#5 THEN 2250 +2230 GOSUB 2400 +2240 GOTO 2020 +2250 IF C2#6 THEN 2280 +2260 GOSUB 3000 +2270 GOTO 2020 +2280 IF C2#7 THEN 2310 +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 \ No newline at end of file diff --git a/programs/startrekfromtape.txt b/programs/startrekfromtape.txt new file mode 100644 index 0000000..9bf25f7 --- /dev/null +++ b/programs/startrekfromtape.txt @@ -0,0 +1,158 @@ +LOMEM=768 +CALL-151 + + +4A:00 03 00 10 3A CC 05 BF FD BF BF BF F8 F8 BF B7 7F BF BF B7 FF 21 + + +:F7 BF 3F 3F 3F BF 77 10 60 3C 02 0A 01 FB 01 3B ED ED ED ED ED EC EC EC +:FF F7 B7 F7 FF B7 FF 35 17 7F F7 F7 BD B7 DF F7 B7 B7 F7 F7 AE A0 D0 00 +:08 08 00 00 05 00 09 03 59 7D 82 7D 80 53 5B 61 77 37 F7 75 35 77 F1 37 +:77 57 F7 71 CD F7 F7 B7 FF 97 B7 97 B2 B7 B7 00 F6 F7 00 00 00 FF 00 00 +:21 08 07 FF FF FF FF FF FF 02 30 04 2D 04 1F FA 37 03 2D 04 00 FF 03 02 +:20 FE 2B 05 25 05 FF F7 37 05 30 04 25 05 54 05 65 64 0E 0C 03 00 00 00 +:00 00 63 00 77 75 F7 25 00 00 00 00 00 1F 00 FF +300:86 40 0B 03 A0 AD AD AD 1E AD 1E 88 40 1F 03 A0 A0 A0 A0 AA A0 BE A1 BC + + +:AB AB AB BC AA BE 1E A2 00 25 03 80 02 A6 00 2B 03 C0 02 A4 00 31 03 07 +:00 94 00 37 03 09 00 86 00 3D 03 63 00 84 00 43 03 C0 02 96 00 49 03 02 +:00 A6 B1 4F 03 02 00 9C 00 55 03 08 00 AC 00 5B 03 02 00 98 00 61 03 03 +:00 92 00 67 03 3A 00 A0 00 6D 03 01 00 84 B1 73 03 02 00 96 B1 79 03 03 +:00 A8 00 7F 03 06 00 8A B1 85 03 78 00 8A B2 8B 03 01 00 8A B0 91 03 12 +:02 B2 B0 97 03 08 00 B0 B0 9D 03 12 00 B2 B1 A3 03 01 00 B0 B1 A9 03 02 +:00 B2 B2 AF 03 00 00 B0 B2 B5 03 02 00 A2 B0 BB 03 0A 00 A6 B0 C1 03 02 +:00 B0 B5 C7 03 02 00 B2 B5 CD 03 07 00 A2 B9 D3 03 07 00 86 B9 D9 03 01 +:00 A6 B2 DF 03 01 00 96 B2 E5 03 00 00 84 B2 EB 03 00 00 96 B5 F1 03 C1 +:FF B2 B6 F7 03 07 00 B0 B6 FD 03 02 00 84 B8 03 04 00 00 96 B8 09 04 00 +:00 B2 00 0F 04 FF FF 8C B2 15 04 00 00 B0 00 1B 04 08 00 8C B1 21 04 00 +:00 A2 B1 27 04 0B 00 94 B5 2D 04 02 00 0A 00 4E 14 0A 00 4E C3 40 22 B6 +:06 00 72 43 C4 40 22 B1 0F 00 72 01 24 14 00 D1 71 B6 80 02 03 D3 71 B7 +:C0 02 03 C4 40 70 28 A0 A0 A0 A0 AA A0 BE A1 BC AB AB AB BC AA BE 29 01 +:17 1E 00 53 28 D4 D9 D0 C5 A0 C1 A0 CE D5 CD C2 C5 D2 A0 29 27 D2 01 18 +:28 00 55 CA 56 B1 01 00 57 D2 03 C3 71 2F 3F B2 00 01 72 03 59 CA 01 0C +:32 00 C2 71 D1 03 5C B1 4C 04 01 20 3C 00 D3 B1 71 B7 4B 00 03 CE 71 D3 +:B1 03 D6 71 B1 01 00 03 CC 71 B1 0A 00 03 5C B1 B0 04 01 20 46 00 C2 B1 +:71 B2 02 00 03 CE 71 C2 B1 03 D6 71 B1 0A 00 03 CC 71 B2 14 00 03 5C B1 +:B0 04 01 20 50 00 CB B1 71 B7 07 00 03 CE 71 CB B1 03 D6 71 B2 14 00 03 +:CC 71 B4 28 00 03 5C B1 B0 04 01 22 5A 00 D4 71 B1 0F 00 03 5C B1 14 05 +:03 C5 B0 71 2F 3F B4 00 10 72 03 5C B1 78 05 03 5C B1 E8 03 01 2F 6E 00 +:63 03 53 28 C3 CF CD CD C1 CE C4 A0 29 27 C3 03 60 C3 1C B0 00 00 1E C3 +:19 B5 05 00 24 B1 6E 00 03 5F B1 64 00 14 C3 12 B2 C8 00 01 32 C8 00 53 +:28 D6 C5 C3 D4 CF D2 A0 29 27 D8 27 D9 03 D8 B0 71 D8 B0 12 D8 03 D9 B0 +:71 D9 B0 12 D9 03 C5 B1 71 C5 B1 13 31 3F D8 72 13 31 3F D9 72 01 24 D2 +:00 60 D8 B0 1C B0 00 00 1E D8 B0 19 B6 3F 00 1E D9 B0 1C B0 00 00 1E D9 +:B0 19 B6 3F 00 24 B2 FA 00 01 2D DC 00 C5 B0 71 C5 B0 12 D8 12 B6 40 00 +:14 D9 03 D1 B1 71 D1 B0 03 D3 B1 71 D3 B0 03 5C B1 78 05 03 60 D1 B0 16 +:D1 B1 24 B2 FF 00 01 2A E6 00 C5 B1 71 C5 B1 13 B2 19 00 03 D4 71 D4 13 +:B1 01 00 03 5C B1 E8 03 03 5C B1 78 05 03 60 D4 18 B0 00 00 24 B2 04 01 +:01 12 F0 00 C3 40 70 28 D4 C9 CD C5 29 03 5F B9 D4 03 01 14 FA 00 C3 40 +:70 28 C7 C1 CC C1 D8 D9 29 03 5F B9 D4 03 01 12 FF 00 64 D3 12 D3 B1 65 +:B0 00 00 03 5C B1 1A 04 01 2F 04 01 5C B1 08 07 03 60 C2 B2 16 B0 00 00 +:24 B2 22 01 03 60 31 3F D8 B6 13 D8 B2 72 12 31 3F D9 B6 13 D9 B2 72 17 +:B1 01 00 24 B2 22 01 01 27 0E 01 61 28 AD A0 C4 CF C3 CB C5 C4 A0 AD 29 +:03 5C B1 14 05 03 C2 B1 71 C2 B1 13 B1 01 00 03 C2 B2 71 B0 00 00 01 2B +:18 01 64 D1 12 D1 B0 65 2E 3F D1 12 D1 B0 72 13 B1 0A 00 03 64 D3 12 D8 +:B6 12 B8 08 00 14 D9 B6 65 B0 00 00 03 5F B1 6E 00 01 15 22 01 60 CB B2 +:17 B0 00 00 25 5C B5 26 02 03 5F B1 6E 00 01 1D 2C 01 C3 40 70 28 D3 C8 +:CF D2 D4 29 03 5C B3 5E 01 03 5C B2 D0 07 03 5F B1 6E 00 01 23 5E 01 61 +:C3 40 45 28 A0 D2 C1 CE C7 C5 A0 D3 C5 CE D3 CF D2 A0 D3 C3 C1 CE 29 03 +:5C B3 68 01 03 5B 01 20 68 01 61 28 C6 CF D2 A0 D1 D5 C1 C4 D2 C1 CE D4 +:A0 29 46 D8 B1 45 28 AC 29 46 D9 B1 03 5B 01 1D 90 01 C3 40 70 28 CC CF +:CE C7 29 03 5C B3 5E 01 03 CE 71 B3 03 00 03 5C B8 70 03 01 3E 9A 01 55 +:D9 56 D9 B1 12 B1 01 00 57 D9 B1 13 B1 01 00 58 36 B1 01 00 03 C6 B2 71 +:B0 00 00 03 60 D9 1C B0 00 00 1E D9 19 B7 07 00 25 C6 B2 71 B1 01 00 03 +:5C B4 D6 01 03 5C B4 E0 01 01 2F A4 01 55 D8 56 D8 B1 13 B1 01 00 57 D8 +:B1 12 B1 01 00 03 C6 B1 71 B0 00 00 03 60 D8 1C B0 00 00 1E D8 19 B7 07 +:00 25 C6 B1 71 B1 01 00 01 20 AE 01 60 C6 B1 16 B0 00 00 1D C6 B2 16 B0 +:00 00 24 B4 B8 01 03 61 C3 40 47 03 5F B4 CC 01 01 34 B8 01 D1 B9 71 D8 +:12 B8 08 00 14 D9 03 5C B1 DC 05 03 64 D1 12 D1 B9 65 C3 B9 12 B4 28 00 +:03 61 28 A1 A0 29 46 CB B2 46 C2 B2 46 D3 B2 45 28 A0 29 47 01 22 CC 01 +:59 D8 03 61 28 A1 29 03 5C B4 E0 01 03 59 D9 03 5C B4 D6 01 03 5C B8 7A +:03 03 5F B1 6E 00 01 16 D6 01 C3 40 70 28 AB AD AD AD AD AD 29 03 5C B1 +:40 06 03 5B 01 16 E0 01 C3 40 70 28 A1 A0 A0 A0 A0 A0 29 03 5C B1 40 06 +:03 5B 01 39 F4 01 60 CB B2 16 B0 00 00 24 B6 B2 02 03 5C B7 16 03 03 61 +:28 C5 CE C5 D2 C7 D9 BA A0 29 46 C5 B1 03 53 28 C6 C9 D2 C5 A0 29 27 C3 +:03 60 C3 1C B1 01 00 24 B1 6E 00 01 36 08 02 C5 B1 71 C5 B1 13 C3 03 5C +:B1 08 07 03 CB B5 71 CB B5 13 C3 13 38 D2 14 B9 09 00 72 03 60 CB B5 19 +:B0 00 00 24 B5 12 02 03 5C B1 6C 07 03 5F B1 6E 00 01 0D 12 02 5C B5 26 +:02 03 5F B5 F4 01 01 48 26 02 CA B5 71 CB B5 15 B5 05 00 03 CB B5 71 CB +:B5 13 CA B5 03 C5 B1 71 C5 B1 13 CA B5 15 D2 03 62 CA B5 15 D2 45 28 A0 +:D5 CE C9 D4 D3 A0 CF C6 A0 D0 C8 C1 D3 C5 D2 A0 C4 C1 CD C1 C7 C5 29 03 +:5C B1 08 07 03 5B 01 35 58 02 60 CB B2 16 B0 00 00 24 B6 B2 02 03 60 C5 +:B2 17 B0 00 00 24 B6 62 02 03 61 28 CE CF A0 CD CF D2 C5 A0 D4 CF D2 D0 +:C5 C4 CF C5 D3 29 03 5F B1 6E 00 01 25 62 02 C5 B2 71 C5 B2 13 B1 01 00 +:03 60 D2 19 2F 3F B1 0F 00 72 24 B6 80 02 03 5C B1 6C 07 03 5F B1 6E 00 +:01 1C 80 02 61 28 D9 CF D5 A0 CD C9 D3 D3 C5 C4 A1 29 03 5C B5 26 02 03 +:5F B1 6E 00 01 20 B2 02 61 28 CE CF D4 C8 C9 CE C7 A0 D4 CF A0 D3 C8 CF +:CF D4 A0 C1 D4 A1 29 03 5F B1 6E 00 01 25 BC 02 53 28 C3 CF CD D0 D5 D4 +:C5 D2 A0 D2 C5 D1 D5 C5 D3 D4 A0 29 27 C3 03 60 C3 16 B0 00 00 24 B8 20 +:03 01 17 C6 02 61 28 D3 D4 C1 D4 D5 D3 A0 D2 C5 D0 CF D2 D4 BA 29 03 63 +:01 19 D0 02 5C B7 16 03 03 61 28 CB CC C9 CE C7 CF CE D3 A0 BD 29 49 CB +:B1 01 19 DA 02 5C B7 16 03 03 61 28 D3 D4 C1 D2 C4 C1 D4 C5 D3 A0 BD 29 +:49 D4 01 1A E4 02 5C B7 16 03 03 61 28 D3 D4 C1 D2 C2 C1 D3 C5 D3 A0 BD +:29 49 C2 B1 01 1A EE 02 5C B7 16 03 03 61 28 D4 CF D2 D0 C5 C4 CF C5 D3 +:A0 BD 29 49 C5 B2 01 17 F8 02 5C B7 16 03 03 61 28 C5 CE C5 D2 C7 D9 A0 +:BD 29 49 C5 B1 01 08 02 03 5F B1 6E 00 01 14 16 03 61 28 D2 C5 CD C1 C9 +:CE C9 CE C7 A0 29 47 03 5B 01 2F 20 03 61 28 A0 C7 C1 CC C1 C3 D4 C9 C3 +:A0 CD C1 D0 29 03 61 28 A0 29 47 03 5C B3 68 01 03 C3 40 70 28 A0 AD AD +:AD 29 03 CE 71 B8 08 00 01 1D 2A 03 5C B8 70 03 03 55 D9 56 B7 07 00 57 +:B0 00 00 58 36 B1 01 00 03 5C B1 40 06 01 28 34 03 55 D8 56 B0 00 00 57 +:B7 07 00 03 D1 B9 71 D8 12 B8 08 00 14 D9 03 5C B1 DC 05 03 D0 71 2E 3F +:D1 12 D1 B9 72 01 1C 3E 03 60 D0 19 B3 27 00 24 B8 48 03 03 61 28 A0 A0 +:A0 A0 29 47 03 5F B8 52 03 01 12 48 03 61 28 A0 29 46 CB B2 46 C2 B2 46 +:D3 B2 47 01 08 52 03 59 D8 03 63 01 15 5C 03 59 D9 03 5C B1 40 06 03 5C +:B8 7A 03 03 5F B1 6E 00 01 11 70 03 C2 B8 71 C2 B2 03 CB B8 71 CB B2 03 +:5B 01 11 7A 03 C2 B2 71 C2 B8 03 CB B2 71 CB B8 03 5B 01 1C D4 03 63 03 +:61 28 AD AD A0 CF D5 D4 A0 CF C6 A0 29 45 C3 40 45 28 A0 AD AD 29 01 21 +:DE 03 61 28 D9 CF D5 A0 CC C5 C6 D4 A0 29 46 CB B1 45 28 A0 CB CC C9 CE +:C7 CF CE D3 29 03 51 01 24 E8 03 C2 71 D3 03 5C B1 4C 04 03 D1 B9 71 D1 +:B0 03 5C B1 DC 05 03 64 D1 12 D1 B9 65 C3 B9 12 B4 28 00 01 19 F2 03 CE +:71 D3 B2 03 D6 71 B1 01 00 03 CC 71 B2 02 00 03 5C B1 B0 04 01 35 FC 03 +:CE 71 CB B2 03 D6 71 B3 03 00 03 CC 71 B4 04 00 03 5C B1 B0 04 03 CB B5 +:71 B1 64 00 03 D9 B5 71 C9 15 B8 08 00 03 D8 B5 71 C9 13 B8 08 00 14 D9 +:B5 01 2E 06 04 CE 71 C2 B2 03 D6 71 B2 02 00 03 CC 71 B3 03 00 03 5C B1 +:B0 04 03 D9 B6 71 C9 15 B8 08 00 03 D8 B6 71 C9 13 B8 08 00 14 D9 B6 01 +:4A 0B 04 C3 40 70 28 C7 D2 C5 C5 CE 29 03 60 CB B2 17 B0 00 00 25 C3 40 +:70 28 D2 C5 C4 A1 29 03 63 03 61 28 D3 D4 C1 D2 C4 C1 D4 C5 BA A0 29 46 +:B3 CE 0C 13 D4 45 28 AC A0 A0 C3 CF CE C4 C9 D4 C9 CF CE BA A0 29 45 C3 +:40 01 33 10 04 61 28 D1 D5 C1 C4 D2 C1 CE D4 A0 29 46 D8 B1 45 28 AC 29 +:46 D9 B1 45 28 A0 A0 AD A0 A0 D3 C5 C3 D4 CF D2 A0 29 46 D8 B2 45 28 AC +:29 46 D9 B2 01 20 1A 04 D0 71 2E 3F D3 12 D3 B0 72 03 64 D3 12 D3 B0 65 +:B4 04 00 03 60 D0 16 B0 00 00 25 5B 01 1F 24 04 63 03 61 28 AA AA AA A0 +:C3 CF CC CC C9 D3 C9 CF CE A0 D7 C9 D4 C8 A0 C1 A0 29 47 01 3A 2E 04 60 +:D0 16 B1 01 00 25 61 28 D3 D4 C1 D2 29 47 03 60 D0 16 B2 02 00 25 61 28 +:D3 D4 C1 D2 C2 C1 D3 C5 29 47 03 60 D0 16 B3 03 00 25 61 28 CB CC C9 CE +:C7 CF CE 29 47 01 21 38 04 61 28 A0 AA AA AA 29 03 60 D0 16 B3 03 00 25 +:CB B1 71 CB B1 13 B1 01 00 03 5F B9 DE 03 01 1C 4C 04 55 CB 56 B0 00 00 +:57 B6 3F 00 03 64 C2 12 CB 65 B0 00 00 03 59 CB 03 5B 01 15 B0 04 60 CE +:16 B0 00 00 25 5B 03 55 CB 56 B1 01 00 57 CE 01 2E BA 04 C9 71 2F 3F B6 +:40 00 72 03 D0 71 2E 3F C2 12 C9 72 03 60 D0 12 D6 18 CC 24 B1 BA 04 03 +:64 C2 12 C9 65 D0 12 D6 03 59 CB 03 5B 01 13 14 05 C5 B1 71 B5 F4 01 03 +:C5 B2 71 B3 03 00 03 5B 01 48 78 05 D9 B0 71 C5 B0 15 B6 40 00 03 D8 B0 +:71 C5 B0 13 B6 40 00 14 D9 B0 03 D9 B1 71 D9 B0 15 B8 08 00 03 D8 B1 71 +:D8 B0 15 B8 08 00 03 D9 B2 71 D9 B0 13 B8 08 00 14 D9 B1 03 D8 B2 71 D8 +:B0 13 B8 08 00 14 D8 B1 01 33 82 05 D1 B0 71 D8 B1 12 B8 08 00 14 D9 B1 +:03 D3 B0 71 D8 B2 12 B8 08 00 14 D9 B2 03 D2 71 31 3F D8 B5 13 D8 B2 72 +:12 31 3F D9 B5 13 D9 B2 72 03 5B 01 20 DC 05 C3 B9 71 2E 3F D1 12 D1 B9 +:72 03 60 C3 B9 18 B4 28 00 25 C3 B9 71 C3 B9 13 B4 28 00 01 38 E6 05 D3 +:B2 71 C3 B9 13 B1 0A 00 14 38 C3 B9 15 B1 0A 00 72 03 CB B2 71 C3 B9 15 +:B2 14 00 03 C2 B2 71 38 C3 B9 13 D3 B2 13 B2 14 00 14 CB B2 72 15 B1 0A +:00 03 5B 01 23 40 06 55 CA 56 B1 01 00 57 CE 03 61 C3 40 47 03 59 CA 03 +:61 C3 40 2A B1 01 00 23 B1 01 00 72 03 5B 01 0D 08 07 60 C5 B1 19 B0 00 +:00 25 5B 01 14 12 07 C3 40 70 28 C5 CE C5 D2 C7 D9 29 03 5F B9 D4 03 01 +:47 6C 07 61 28 AA AA AA A0 C2 CF CF CD A0 AA AA AA 29 03 CB B1 71 CB B1 +:13 B1 01 00 03 CB B2 71 B0 00 00 03 64 D1 12 D1 B0 65 2E 3F D1 12 D1 B0 +:72 13 B2 14 00 03 64 D3 12 D8 B5 12 B8 08 00 14 D9 B5 65 B0 00 00 01 26 +:76 07 60 CB B1 25 5B 03 63 03 61 28 CD C9 D3 D3 C9 CF CE A0 C1 C3 C3 CF +:CD D0 CC C9 D3 C8 C5 C4 A1 29 03 51 01 18 D0 07 C3 40 70 28 AB AD AD AD +:29 03 CE 71 B8 08 00 03 5C B1 40 06 01 1E DA 07 55 D9 56 B7 07 00 57 B0 +:00 00 58 36 B1 01 00 03 55 D8 56 B0 00 00 57 B7 07 00 01 42 E4 07 D0 71 +:B3 03 00 14 2E 3F D3 12 D8 12 B8 08 00 14 D9 72 12 B1 01 00 03 60 D8 16 +:B0 00 00 25 61 28 A1 29 47 03 60 D8 17 B0 00 00 25 61 28 A0 29 47 03 61 +:C4 40 2A D0 23 D0 12 B2 02 00 72 47 01 26 EE 07 59 D8 03 61 28 A1 29 03 +:60 D9 16 B0 00 00 24 B2 F8 07 03 61 28 AB 29 47 03 50 B3 21 00 03 61 28 +:AB 29 01 0D F8 07 59 D9 03 5C B1 40 06 03 5B FF + +E2B3R +RUN diff --git a/programs/wumpus.txt b/programs/wumpus.txt new file mode 100644 index 0000000..09c5a04 --- /dev/null +++ b/programs/wumpus.txt @@ -0,0 +1,291 @@ +300:02 05 08 01 03 0A 02 04 0C 03 05 0E 01 04 06 +:05 07 0F 06 08 11 01 07 09 08 0A 12 02 09 0B +:0A 0C 13 03 0B 0D 0C 0E 14 04 0D 0F 06 0E 10 +:0F 11 14 07 10 12 09 11 13 0B 12 14 0D 10 13 +E000R +LOMEM=1024 +HIMEM=16384 +5 REM CONVERTED TO REPLICA 1 BY VINCE BRIEL 2/19/2006 +10 PRINT " WUMPUS" +20 PRINT " CREATIVE COMPUTING MORRISTOWN, NJ" +22 PRINT +24 PRINT +26 PRINT +30 PRINT "INSTRUCTIONS (Y-N)"; +40 INPUT I$ +50 IF I$="N" THEN 60 +55 GOSUB 1000 +60 REM- SET UP CAVE (DODECAHEDRAL NODE LIST) +70 DIM S(60) +75 Z1=0 +80 FOR J=1 TO 20 +90 FOR K=1 TO 3 +95 X1=PEEK(768+Z1) +96 Y1=(20*K+J)-20 +100 S(Y1)=X1 +110 Z1=Z1+1:NEXT K +120 NEXT J +130 REM DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 +140 REM DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 +150 REM DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16 +160 REM DATA 15,17,20,7,16,18,9,17,19,11,18,20,13,16,19 +170 REM DEF FNA(X)=INT(20*RND(1))+1 +180 REM DEF FNB(X)=INT(3*RND(1))+1 +190 REM DEF FNC(X)=INT(4*RND(1))+1 +200 REM- LOCATE L ARRAY ITEMS +210 REM- 1-YOU,2-WUMPUS,3&4-PITS,5&6-BATS +220 DIM L(6),M(6) +230 FOR J=1 TO 6 +240 L(J)=RND(20)+1 +260 M(J)=L(J) +270 NEXT J +280 REM- CHECK FOR CROSSOVERS (IE L(1)=L(2) ETC) +290 FOR J=1 TO 6 +300 FOR K=J TO 6 +310 IF J=K THEN 330 +320 IF L(J)=L(K) THEN 240 +330 NEXT K +340 NEXT J +350 REM- SET# ARROS +360 A=5 +365 L=L(1) +370 REM- RUN THE GAME +375 PRINT "HUNT THE WUMPUS" +380 REM- HAZARD WARNINGS & LOCATIONS +390 GOSUB 2000 +400 REM- MOVE OR SHOOT +410 GOSUB 2500 +420 GOTO 400+(O*40):REM ON O GOTO 440,480 +430 REM- SHOOT +440 GOSUB 3000 +450 IF F=0 THEN 370 +460 GOTO 500 +470 REM- MOVE +480 GOSUB 4000 +490 IF F=0 THEN 390 +500 IF F>0 THEN 550 +510 REM- LOSE +520 PRINT "HA HA HA - YOU LOSE!" +530 GOTO 560 +540 REM- WIN +550 PRINT "HEE HEE HEE - THE WUMPUS'LL GETCHA NEXT TIME!!" +560 FOR J=1 TO 6 +570 L(J)=M(J) +580 NEXT J +590 PRINT "SAME SET-UP (Y-N)"; +600 INPUT I$ +610 IF I$#"Y" THEN 230 +620 GOTO 360 +1000 REM- INSTRUCTIONS +1010 PRINT "WELCOME TO 'HUNT THE WUMPUS'" +1020 PRINT " THE WUMPUS LIVES IN A CAVE OF 20 ROOMS. EACH ROOM" +1030 PRINT "HAS 3 TUNNELS LEADING TO OTHER ROOMS. (LOOK AT A" +1040 PRINT "DODECAHEDRON TO SEE HOW THIS WORKS-IF YOU DON'T KNOW" +1050 PRINT "WHAT A DODECHADRON IS, ASK SOMEONE)" +1060 PRINT +1070 PRINT " HAZARDS:" +1080 PRINT "BOTTOMLESS PITS - TWO ROOMS HAVE BOTTOMLESS PITS IN THEM" +1090 PRINT " IF YOU GO THERE, YOU FALL INTO THE PIT (& LOSE!)" +1100 PRINT "SUPER BATS - TWO OTHER ROOMS HAVE SUPER BATS. IF YOU" +1110 PRINT " GO THERE, A BAT GRABS YOU AND TAKES YOU TO SOME OTHER" +1120 PRINT " ROOM AT RANDOM. (WHICH MIGHT BE TROUBLESOME)" +1130 PRINT +1140 PRINT " WUMPUS:" +1150 PRINT "THE WUMPUS IS NOT BOTHERED BY THE HAZARDS (HE HAS SUCKER" +1160 PRINT "FEET AND IS TOO BIG FOR A BAT TO LIFT). USUALLY" +1170 PRINT "HE IS ASLEEP. TWO THINGS THAT WAKE HIM UP: YOUR ENTERING" +1180 PRINT "HIS ROOM OR YOUR SHOOTING AN ARROW." +1190 PRINT " IF THE WUMPUS WAKES, HE MOVES (P=.75) ONE ROOM" +1200 PRINT "OR STAYS STILL (P=.25). AFTER THAT, IF HE IS WHERE YOU" +1210 PRINT "ARE, HE EATS YOU UP (& YOU LOSE!)" +1220 PRINT +1230 PRINT " YOU:" +1240 PRINT "EACH TURN YOU MAY MOVE OR SHOOT A CROOKED ARROW" +1250 PRINT " MOVING: YOU CAN GO ONE ROOM (THRU ONE TUNNEL)" +1260 PRINT " ARROWS: YOU HAVE 5 ARROWS. YOU LOSE WHEN YOU RUN"; +1265 PRINT " OUT." +1270 PRINT " EACH ARROW CAN GO FROM I TO 5 ROOMS. YOU AIM BY"; +1275 PRINT " TELLING" +1280 PRINT " THE COMPUTER THE ROOMS YOU WANT THE ARROW TO GO TO." +1290 PRINT " IF THE ARROW CAN'T GO THAT WAY (IE NO TUNNEL) IT"; +1295 PRINT " MOVES" +1300 PRINT " AT RANDOM TO THE NEXT ROOM." +1310 PRINT " IF THE ARROW HITS THE WUMPUS, YOU WIN." +1320 PRINT " IF THE ARROW HITS YOU, YOU LOSE." +1330 PRINT +1340 PRINT " WARNINGS:" +1350 PRINT " WHEN YOU ARE ONE ROOM AWAY FROM WUMPUS OR HAZARD," +1360 PRINT " THE COMPUTER SAYS:" +1370 PRINT "WUMPUS- 'I SMELL A WUMPUS'" +1380 PRINT "BAT - 'BATS NEARBY'" +1390 PRINT "FIT - 'I FEEL A DRAFT'" +1400 PRINT +1410 RETURN +2000 REM- PRINT LOCATION & HAZARD WARNINGS +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!" +2090 GOTO 2110 +2100 PRINT "BATS NEARBY!" +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 +2510 PRINT "SHOOT OR MOVE (S-M)"; +2520 INPUT I$ +2530 IF I$#"S" THEN 2560 +2540 O=1 +2550 RETURN +2560 IF I$#"M" THEN 2510 +2570 O=2 +2580 RETURN +3000 REM- ARROW ROUTINE +3010 F=0 +3020 REM- PATH OF ARROW +3030 L=L(1) +3040 PRINT "NO. OF ROOMS(1-5)"; +3050 INPUT J1 +3060 IF J1<1 OR J1>5 THEN 3040 +3070 FOR K=1 TO J1 +3080 PRINT "ROOM #"; +3090 INPUT P(K) +3095 IF K<=2 THEN 3115 +3100 IF P(K)<>P(K-2) THEN 3115 +3105 PRINT "ARROWS AREN'T THAT CROOKED - TRY ANOTHER ROOM" +3110 GOTO 3080 +3115 NEXT K +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" +3225 L=L(1) +3230 REM- MOVE WUMPUS +3240 GOSUB 3370 +3250 REM- AMMO CHECK +3255 A=A-1 +3260 IF A>0 THEN 3280 +3270 F=-1 +3280 RETURN +3290 REM- SEE IF ARROW IS AT L(1) OR L(2) +3295 L=P(K) +3300 IF L<>L(2) THEN 3340 +3310 PRINT "AHA! YOU GOT THE WUMPUS!" +3320 F=1 +3330 RETURN +3340 IF L<>L(1) THEN 3210 +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 +3440 RETURN +4000 REM- MOVE ROUTINE +4010 F=0 +4020 PRINT "WHERE TO"; +4030 INPUT L +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 +