Apple-1-HW
/
Apple1-esp
mirror of https://github.com/jscrane/Apple1.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

programs from http://www.brielcomputers.com/files/games.zip

This commit is contained in:
Stephen Crane 2014-11-13 12:19:59 +00:00
parent 3a64c52253
commit 56b1e7e6ed
12 changed files with 1849 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
programs/21.TXT Normal file
View File

@ -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

115
programs/HAMURABI.txt Normal file
View File

@ -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 Q<A THEN 350
343 GOSUB 720
344 GOTO 340
350 A=A-Q:S=S+Y*Q:C=0
400 PRINT
410 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE";
411 GOSUB 5000:Q=O1
420 IF Q<=S THEN 430
421 GOSUB 710
422 GOTO 410
430 S=S-Q:C=1: PRINT
440 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT": PRINT "WITH SEED";
441 GOSUB 5000:D=O1: IF D=0 THEN 511
445 IF D<=A THEN 450
446 GOSUB 720
447 GOTO 440
450 IF D/2<S THEN 455
452 GOSUB 710
453 GOTO 440
455 IF D<=10*P THEN 510
460 PRINT "BUT YOU HAVE ONLY ";P;" PEOPLE"
470 GOTO 440
510 S=S-D/2
511 GOSUB 800
515 Y=C:H=D*Y:E=0
521 GOSUB 800
522 C9= RND (2): IF C9#1 THEN 530
525 E=S/C
530 S=S-E+H
531 GOSUB 800
533 A9=A/100:S9=S/100:I9=C*(20*A9+S9):I=I9/P
540 C=Q/20
542 Q= RND (20)-3
550 IF P<C THEN 210
552 D=P-C: IF 10*D>4*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

55
programs/Lunar.txt Normal file
View File

@ -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

351
programs/deal.txt Normal file
View File

@ -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

14
programs/life.txt Normal file
View File

@ -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

72
programs/microchess.txt Normal file
View File

@ -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

30
programs/reverse.txt Normal file
View File

@ -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

27
programs/rsp.txt Normal file
View File

@ -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

135
programs/slots.txt Normal file
View File

@ -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

504
programs/startrek.txt Normal file
View File

@ -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$="-\= * >!</=\-=-"
170 INPUT "WHAT IS YOUR NAME CAPTAIN",N$
250 INPUT "SKILL LEVEL (1-5) 5 IS HARDEST",S
260 IF S>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 G<E7 THEN 1030
1020 PRINT "NOT ENOUGH ENERGY.":GOTO 1000
1030 S1=G:E7=E7-G:IF S1>0 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 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

158
programs/startrekfromtape.txt Normal file
View File

@ -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

291
programs/wumpus.txt Normal file
View File

@ -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