Notes

Disk info for Volume_219_Games.dsk:

File Name: riag_006_Volume_219_-_Games/Volume_219_Games.dsk
Disk Name: /IAC71/
Physical Size (bytes): 143360
Free Space (bytes): 15872
Used Space (bytes): 127488
Physical Size (KB): 140
Free Space (KB): 15
Used Space (KB): 124
Archive Order: DOS
Disk Format: ProDOS
Total Blocks: 280
Free Blocks: 31
Used Blocks: 249
Volume Access: Destroy Read Rename Write
Block Number of Bitmap: 6
Creation Date: 06/04/1987
File Entries Per Block: 13
File Entry Length (bytes): 39
Active Files in Root Directory: 13
Minimum ProDOS Version Required: 0
Volume Created By ProDOS Version: 0
Volume Name: IAC71

Disk directory for Volume_219_Games.dsk:

riag_006_Volume_219_-_Games/Volume_219_Games.dsk /IAC71/
BASIC.SYSTEM SYS 021 06/18/1984 08/14/1987 10,240 A=$2000
COLOR.MIND S16 052 06/05/1987 05/16/1987 25,856
DALEKS S16 016 06/05/1987 02/09/1987 7,638
DARTS BAS 004 06/05/1987 01/05/1986 1,386 A=$0801
GALLOWS BAS 009 06/05/1987 03/12/1987 3,765 A=$0801
INTERNAMAZE BAS 012 06/05/1987 01/11/1987 5,584 A=$0801
MATCH.GAME BAS 020 06/05/1987 01/05/1986 9,402 A=$0801
NATO BAS 012 06/05/1987 01/05/1986 5,547 A=$0801
OTHELLO BAS 010 06/05/1987 01/11/1987 4,544 A=$0801
PRODOS SYS 032 04/17/1987 08/14/1987 15,485
STARTUP BAS 003 06/15/1987 06/05/1987 554 A=$0801
TOWERS BAS 009 06/05/1987 01/05/1986 3,753 A=$0801
WIZARD BAS 042 06/05/1987 01/05/1986 20,541 A=$0801
ProDOS format; 15,872 bytes free; 127,488 bytes used.

Text found in Volume_219_Games.dsk/DARTS.bas:

20 A$ = CHR$(18)
30 B$ = CHR$(4)
31 PRINT B$;"PR#3"
35 HOME
36 PRINT A$;
40 PRINT TAB( 32);"BULLSEYE"
50 PRINT TAB( 20)"FROM CREATIVE COMPUTING MORRISTOWN, NJ."
60 PRINT : PRINT
70 PRINT "IN THIS GAME UP TO 20 PLAYERS THROW DARTS AT A TARGET WITH 10, 20,"
80 PRINT "30, AND 40 POINT ZONES. THE OBJECTIVE IS TO SCORE 200 POINTS": PRINT
90 PRINT "THROW"; TAB( 20);"DESCRIPTION"; TAB( 45);"PROBABLE SCORE"
100 FOR X = 1 TO 70: PRINT "*";: NEXT : PRINT
110 PRINT
120 PRINT " 1"; TAB( 20);"Fast Overarm"; TAB( 45);"Bullseye or Complete Miss"
130 PRINT
140 PRINT " 2"; TAB( 20);"Controlled Overarm"; TAB( 45);"10, 20, 30 Points"
150 PRINT : PRINT " 3"; TAB( 20);"Underarm"; TAB( 45);"Scores Anything"
160 PRINT
170 DIM A$(20),S(20),W(10):M = 0:R = 0: FOR I = 1 TO 20:S(I) = 0: NEXT I
180 INPUT "How many players? ";N: PRINT
190 FOR I = 1 TO N
200 PRINT "Enter name of player # ";I;: INPUT " ";A$(I)
210 NEXT I
220 R = R +1: PRINT : PRINT "Round ";R
230 FOR I = 1 TO N
240 PRINT : PRINT A$(I)"'s throw ";: INPUT " ";T
250 IF T <0 OR T >3 THEN PRINT "Input 1, 2, 3!";: GOTO 240
260 ON T GOTO 270,280,290
270 P1 = .65:P2 = .55:P3 = .5:P4 = .5: GOTO 300
280 P1 = .99:P2 = .77:P3 = .43:P4 = .01: GOTO 300
290 P1 = .95:P2 = .75:P3 = .45:P4 = .05
300 U = RND(1)
310 IF U > = P1 THEN PRINT "BULLSEYE!! 40 POINTS!":B = 40: GOTO 360
320 IF U > = P2 THEN PRINT "30 POINT ZONE!":B = 30: GOTO 360
330 IF U > = P3 THEN PRINT "20 POINT ZONE!":B = 20: GOTO 360
340 IF U > = P4 THEN PRINT "WHEW!! 10 LOUSY POINTS":B = 10: GOTO 360
350 PRINT "MISSED THE TARGET!!! WHY NOT TAKE UP TIDDLY WINKS!!":B = 0
360 S(I) = S(I) +B: PRINT "TOTAL SCORE = ";S(I): NEXT I
370 FOR I = 1 TO N
380 IF S(I) > = 200 THEN M = M +1:W(M) = I
390 NEXT I
400 IF M = 0 THEN 230
410 PRINT : PRINT "WE HAVE A WINNER !!": PRINT
420 FOR I = 1 TO M: PRINT A$(W(I));" SCORED ";S(W(I));" POINTS": NEXT I
422 FOR X = 1 TO 2000: NEXT X: HOME
425 PRINT CHR$(17)
430 END

Text found in Volume_219_Games.dsk/GALLOWS.bas:

1000 REM THE GALLOWS
1010 REM DOUGLAS J KONITZER
1020 REM 205 THALIA TRACE DR
1030 REM VIRGINIA BERACH, VA
1040 REM 23452
1050 REM ===================
1060 REM ADD OR DELETE WORDS
1070 REM IN DATA STATEMENTS
1080 REM STARTING AT LINE 2040
1090 REM KEEP LAST TWO "0","0"
1100 PRINT CHR$(4)"PR#3": PRINT CHR$(24)
1110 TR = 10:CR = 10:WU = 10:B$ = CHR$(7)
1120 HOME :DS$ = "----------------------------"
1130 DIM DT$(12),TY$(150),WO$(150)
1140 DT$(1) = "Welcome to the game called GALLOWS"
1150 DT$(2) = "=================================="
1160 DT$(3) = "This is a word guess game, where a"
1170 DT$(4) = "mystery word has to be guessed by "
1180 DT$(5) = "filling in the blank spaces. BUT."
1190 DT$(6) = "You must fill in the spaces before"
1200 DT$(7) = "the razor sharp blade reaches the"
1210 DT$(8) = "bottom of the . To help "
1220 DT$(9) = "you solve the mystery word a clue"
1230 DT$(10) = "will be given describing what the"
1240 DT$(11) = "mystery word is. GOOD LUCK "
1250 SL$ = " "
1260 BK$ = " "
1270 INVERSE : VTAB 1: PRINT BK$
1280 FOR A = 1 TO 5: VTAB 1 +A: HTAB 1: PRINT " ";: HTAB 40: PRINT " ": NEXT
1290 VTAB 6: PRINT SL$: NORMAL
1300 VTAB 3: HTAB 14: PRINT "THE GALLOWS"
1310 VTAB 5: HTAB 13: PRINT "By D Konitzer"
1320 REM ============================================GALLOWS
1330 INVERSE
1340 FOR A = 1 TO 20: VTAB 1 +A: HTAB 50: PRINT "||";: HTAB 70: PRINT "||": NEXT
1350 FOR A = 1 TO 3: VTAB 18 +A: HTAB 52: PRINT "__________________": NEXT
1360 VTAB 3: HTAB 52: PRINT " "
1370 NORMAL : VTAB 2: HTAB 61: PRINT "O"
1380 VTAB 20: HTAB 55: PRINT "MYSTERY WORD"
1390 FOR A = 1 TO 11: VTAB 7 +A: HTAB 4: PRINT DT$(A): NEXT
1400 FOR A = 1 TO 18: VTAB 2 +A: HTAB 52: NORMAL : PRINT " O "
1410 INVERSE : VTAB 3 +A: HTAB 52: PRINT "\________________/"
1420 REM =====================================MOVEIN GALLOWS
1430 FOR B = 1 TO (19 -A) *7:BUZZ = PEEK(49200): NEXT
1440 NEXT
1450 VTAB 21: HTAB 55: PRINT "PRESS RETURN"
1460 GET A$
1470 NORMAL
1480 FOR A = 1 TO 11: VTAB 7 +A: HTAB 4: PRINT SL$: NEXT
1490 INVERSE : VTAB 8: PRINT SL$: VTAB 13: PRINT SL$
1500 FOR A = 1 TO 4: VTAB 8 +A: PRINT " ";: HTAB 40: PRINT " ": NEXT
1510 NORMAL : VTAB 9: HTAB 15: PRINT "STATUS PANEL"
1520 VTAB 12: HTAB 5: PRINT "LOAD WORD FILE....PLEASE STANDBY"
1530 RESTORE
1540 A = 1
1550 READ TY$(A),WO$(A):A = A +1: IF TY$(A -1) < >"0" THEN 1550
1560 N = A -1
1570 PRINT B$:VV = 1
1580 VTAB 12: HTAB 5: PRINT "RESETTING GALLOWS....STAND CLEAR"
1590 FOR A = 18 TO 1 STEP -1: VTAB 3 +A: HTAB 52: NORMAL : PRINT " ": REM 18 " "
1600 INVERSE : VTAB 2 +A: HTAB 52: PRINT "\----------------/"
1610 FOR B = 1 TO (19 -A) *4:BUZZ = PEEK(49200): NEXT
1620 NEXT
1630 FOR A = 1 TO 3: VTAB 18 +A: HTAB 52: PRINT "__________________": NEXT
1640 CL$(1) = "PERSON":CL$(2) = "PLACE ":CL$(3) = "THING "
1650 W = INT( RND(1) *N): IF W <1 OR W >N THEN 1650
1660 NORMAL
1670 VTAB 12: HTAB 5: PRINT " "
1680 VTAB 12: HTAB 5: PRINT "THE MYSTERY WORD IS A ";CL$( VAL(TY$(W)))
1690 S = 0:L = LEN(WO$(W))
1700 GW$ = "":GW$ = LEFT$(DS$,L)
1710 VTAB 20: HTAB 52 +((18 -L)/2): PRINT GW$
1720 VTAB 18: HTAB 5: PRINT "YOUR BEST GUESS = ": VTAB 18: HTAB 23: GET GL$
1730 VTAB 21: HTAB 5: PRINT "USED LETTERS ARE LISTED BELOW:"
1740 VTAB 22: HTAB 5 +S: PRINT GL$:S = S +1
1750 VTAB 12: HTAB 5: PRINT "SEARCHING MYSTERY WORD......"
1760 PP = 0
1770 FOR A = 1 TO L: IF GL$ < > MID$ (WO$(W),A,1) THEN 1820
1780 PP = 1
1790 IF A = 1 THEN GW$ = GL$ + RIGHT$(GW$,L -1): GOTO 1820
1800 IF A = L THEN GW$ = LEFT$(GW$,L -1) +GL$: GOTO 1820
1810 GW$ = LEFT$(GW$,A -1) +GL$ + RIGHT$(GW$,L -A)
1820 NEXT
1830 IF PP = 1 THEN 1920
1840 REM DROP GALLOWS
1850 FOR B = VV TO VV +2: VTAB 2 +B: HTAB 52: NORMAL : PRINT " O "
1860 INVERSE : VTAB 3 +B: HTAB 52: PRINT "\----------------/"
1870 NORMAL : FOR C = 1 TO (19 -B) *7:BUZZ = PEEK(49200): NEXT : NEXT
1880 VV = VV +2
1890 IF VV <16 THEN 1920
1900 VTAB 11: HTAB 5: PRINT "SORRY YOU LOST YOUR HEAD": GOTO 1970
1910 PRINT B$: PRINT B$: PRINT B$: VTAB 20: HTAB 52 +((18 -L)/2): PRINT WO$(W)
1920 IF GW$ = WO$(W) THEN PRINT B$: VTAB 20: HTAB 52 +((18 -L)/2): PRINT GW$: GOTO 1960
1930 VTAB 12: HTAB 5: PRINT "THE MYSTERY WORD IS A ";CL$( VAL(TY$(W)))
1940 GOTO 1710
1950 PRINT
1960 REM
1970 VTAB 12: HTAB 5: PRINT "TRY YOUR LUCK AGAIN [Y/N] ";: GET T$
1980 VTAB 11: HTAB 5: PRINT " "
1990 IF T$ = "N" THEN TEXT : HOME : END
2000 VTAB 21: PRINT " "
2010 VTAB 22: PRINT " "
2020 GOTO 1570
2030 REM "N","W":N=1 TO 3 FOR TYPE (PERSON,PLACE,THING)
2040 DATA "1","WASHINGTON","2","HAWAII","3","AIRPLANE","1","LINCOLN","2","VIRGINIA","3","COMPUTER"
2050 DATA "3","RECORD","2","SCHOOL","2","CHURCH","1","EDISON"
2060 DATA "3","TABLE","3","HOUSE","3","BULLDOZER","3","TELEVISION"
2070 DATA "3","RADIO","2","MOON","2","MCDONALDS","2","EARTH","2","OCEAN","2","BEACH"
2080 DATA "1","NIXON","1","REAGAN","1","FRANKLIN","1","ADAMS","1","SINATRA"
2090 DATA "0","0"

Text found in Volume_219_Games.dsk/INTERNAMAZE.bas:

10 SK = 2:W1 = 7:W2 = 6:GN = 4: GOTO 100
50 PP = (X +Y) *3: GOSUB 2010: RETURN
100 DIM C(3121):F = 1: GOSUB 2000: DEF FN R(A) = INT( RND(1) *A): GOTO 1440
120 ONERR GOTO 130
130 GR :MC = 3: COLOR= 3:A = FN R(19):B = FN R(19):X = A *2 +1:Y = B *2 +1: PLOT X,Y: FOR Z = 1 TO 10:A = PEEK( -16336): NEXT :SC = 360
150 IF FN R(100) 17 THEN 180
173 IF SCRN( X +2,Y) = 0 THEN R = 1
180 U = 0: IF B <1 THEN 190
183 IF SCRN( X,Y -2) = 0 THEN U = 1
190 D = 0: IF B >17 THEN 200
193 IF SCRN( X,Y +2) = 0 THEN D = 1
200 IF L +R +U +D = 0 THEN 260
205 LP = 8
210 AS = FN R(4) +1: ON AS GOTO 220,230,240,250
220 IF L = 0 THEN 210
222 A = A -1:X = X -2:SC = SC -1: HLIN X,X +1 AT Y: GOSUB 50: GOTO 150
230 IF R = 0 THEN 210
233 A = A +1:X = X +2:SC = SC -1: HLIN X -1,X AT Y: GOSUB 50: GOTO 150
240 IF U = 0 THEN 210
244 B = B -1:Y = Y -2:SC = SC -1: VLIN Y,Y +1 AT X: GOSUB 50: GOTO 150
250 IF D = 0 THEN 210
255 B = B +1:Y = Y +2:SC = SC -1: VLIN Y -1,Y AT X: GOSUB 50: GOTO 150
260 IF SC = 0 THEN POKE 216,0: GOTO 1550
270 A = FN R(19):B = FN R(19):X = A *2 +1:Y = B *2 +1: IF SCRN( X,Y) = 0 THEN 270
272 GOTO 160: RETURN : COLOR= SK: FOR I = 1 TO 18: HLIN 19 -I,19 +I AT 19 -I: NEXT : COLOR= GN: FOR I = 1 TO 19: HLIN 20 -I,18 +I AT 18 +I: NEXT : COLOR= W2: FOR I = 1 TO 18: VLIN 19 -I,18 +I AT 19 -I: VLIN 19 -I,18 +I AT 19 +I
290 COLOR= SK: FOR I = 1 TO 18: HLIN 19 -I,19 +I AT 19 -I: NEXT : COLOR= GN: FOR I = 1 TO 19: HLIN 20 -I,18 +I AT 18 +I: NEXT : COLOR= W2: FOR I = 1 TO 18: VLIN 19 -I,18 +I AT 19 -I: VLIN 19 -I,18 +I AT 19 +I
450 NEXT : HOME : GOSUB 1230: IF MAP = 1 THEN PRINT "PUSH 'M' FOR MAP"
470 RETURN
490 ON I GOTO 510,520,530,540,550: FOR Q = 1 TO 5: COLOR= W1: VLIN Q,38 -Q AT 38 -Q: COLOR= SK: HLIN 37 -Q,37 AT Q: COLOR= GN: HLIN 37 -Q,37 AT 38 -Q: NEXT : RETURN
510 FOR Q = 6 TO 10: COLOR= W1: VLIN Q,38 -Q AT 38 -Q: COLOR= SK: HLIN 28,32 AT Q: COLOR= GN: HLIN 28,32 AT 38 -Q: NEXT : RETURN
520 FOR Q = 11 TO 14: COLOR= W1: VLIN Q,38 -Q AT 38 -Q: COLOR= SK: HLIN 24,27 AT Q: COLOR= GN: HLIN 24,27 AT 38 -Q: NEXT : RETURN
530 FOR IN = 21 TO 22: COLOR= W1: VLIN 17,20 AT IN: NEXT : COLOR= SK: PLOT 22,16: COLOR= GN: PLOT 22,21: RETURN
540 COLOR= W1: PLOT 20,19: COLOR= SK: PLOT 20,18: COLOR= GN: PLOT 20,20: RETURN
550 COLOR= W1: PLOT 19,19: RETURN
570 ON I GOTO 590,600,610,620,630: FOR Q = 1 TO 5: COLOR= W1: VLIN Q,38 -Q AT Q: COLOR= SK: HLIN 1,Q AT Q: COLOR= GN: HLIN 1,Q AT 38 -Q: NEXT : RETURN
590 FOR Q = 6 TO 10: COLOR= W1: VLIN Q,38 -Q AT Q: COLOR= SK: HLIN 6,Q AT Q: COLOR= GN: HLIN 6,Q AT 38 -Q: NEXT : RETURN
600 FOR Q = 11 TO 14: COLOR= W1: VLIN Q,38 -Q AT Q: COLOR= SK: HLIN 11,Q AT Q: COLOR= GN: HLIN 11,Q AT 38 -Q: NEXT : RETURN
610 FOR IN = 16 TO 17: COLOR= W1: VLIN 17,20 AT IN: NEXT IN: COLOR= SK: PLOT 16,16: COLOR= GN: PLOT 16,21: RETURN
620 COLOR= W1: PLOT 18,19: COLOR= SK: PLOT 18,18: COLOR= GN: PLOT 18,20: RETURN
630 COLOR= W1: PLOT 19,19: RETURN
640 COLOR= W1: IF Z < > ASC("X") +128 THEN 660
653 FOR Q = 1 TO 37: HLIN 1,37 AT Q: NEXT : RETURN
660 IF Z < > ASC("S") +128 THEN 670
663 FOR Q = 1 TO 37: VLIN 1,37 AT Q: NEXT : RETURN
670 IF Z < > ASC("D") +128 THEN RETURN
673 FOR Q = 1 TO 37: VLIN 1,37 AT Q: NEXT : RETURN
690 COLOR= W1: IF C(K) = 15 THEN COLOR= 15
695 ON I GOTO 710,720,730,740,750: FOR IN = 2 TO 35: VLIN 2,35 AT IN: NEXT :I = 6: RETURN
710 FOR IN = 6 TO 32: VLIN 6,32 AT IN: NEXT :I = 6: RETURN
720 FOR IN = 11 TO 27: VLIN 11,27 AT IN: NEXT :I = 6: RETURN
730 FOR IN = 15 TO 23: VLIN 15,23 AT IN: NEXT :I = 6: RETURN
740 FOR IN = 18 TO 20: VLIN 17,20 AT IN: NEXT :I = 6: RETURN
750 PLOT 19,19:I = 6: RETURN
770 FOR I = 0 TO 5:TX = X -1:TY = Y +I: IF TX <1 OR TY >37 THEN 800
782 K = 39 *TX +41 *TY: IF C(K) = MC OR C(K) = TC THEN GOSUB 490
800 TX = X +1: IF TX <1 THEN 820
805 K = 39 *TX +41 *TY: IF C(K) = MC OR C(K) = TC THEN GOSUB 570
820 TX = X:TY = Y +I: IF TY >38 THEN 850
825 K = 39 *TX +41 *TY: IF C(K) < >MC AND C(K) < >TC THEN GOSUB 690
840 IF C(K) = TC AND FTS = 1 THEN GOSUB 1270
850 NEXT : RETURN
870 FOR I = 0 TO 5:TY = Y -1:TX = X -I: IF TX <1 OR TY <1 THEN 900
885 K = 39 *TX +41 *TY: IF C(K) = MC OR C(K) = TC THEN GOSUB 490
900 TY = Y +1: IF TY >37 THEN 920
905 K = 39 *TX +41 *TY: IF C(K) = MC OR C(K) = TC THEN GOSUB 570
920 TY = Y:TX = X -I: IF TX <0 THEN 950
925 K = 39 *TX +41 *TY: IF C(K) < >MC AND C(K) < >TC THEN GOSUB 690
940 IF C(K) = TC AND FTS = 1 THEN GOSUB 1270
950 NEXT : RETURN
970 FOR I = 0 TO 5:TY = Y +1:TX = X +I: IF TX >37 OR TY >37 THEN 1000
985 K = 39 *TX +41 *TY: IF C(K) = MC OR C(K) = TC THEN GOSUB 490
1000 TY = Y -1: IF TY <1 THEN 1020
1005 K = 39 *TX +41 *TY: IF C(K) = MC OR C(K) = TC THEN GOSUB 570
1020 TY = Y:TX = X +I: IF TX >38 THEN 1050
1025 K = 39 *TX +41 *TY: IF C(K) < >MC AND C(K) < >TC THEN GOSUB 690
1040 IF C(K) = TC AND FTS = 1 THEN GOSUB 1270
1050 NEXT : RETURN
1070 FOR I = 0 TO 5:TX = X +1:TY = Y -I: IF TX >37 OR TY <1 THEN 1100
1085 K = 39 *TX +41 *TY: IF C(K) = MC OR C(K) = TC THEN GOSUB 490
1100 TX = X -1: IF TX <1 THEN 1120
1105 K = 39 *TX +41 *TY: IF C(K) = MC OR C(K) = TC THEN GOSUB 570
1120 TX = X:TY = Y -I: IF TY <0 THEN 1150
1125 K = 39 *TX +41 *TY: IF C(K) < >MC AND C(K) < >TC THEN GOSUB 690
1140 IF C(K) = TC AND FTS = 1 THEN GOSUB 1270
1150 NEXT : RETURN
1170 GR :XX = X:YY = Y:SC = SC +5: FOR X = 0 TO 38: FOR Y = 0 TO 38:K = 39 *X +41 *Y: COLOR= C(K): PLOT X,Y: NEXT : NEXT :X = XX:Y = YY: POKE -16368,0: INPUT "PRESS RETURN";A$: GOSUB 290: GOTO 1810
1230 VTAB 21: PRINT "SCORE="100 -SC: IF COMP < >1 THEN RETURN
1240 VTAB 22: HTAB 17
1245 IF DIR = 0 THEN PRINT "NORTH"
1251 IF DIR = 1 THEN PRINT "EAST"
1252 IF DIR = 2 THEN PRINT "SOUTH"
1254 IF DIR = 3 THEN PRINT "WEST"
1255 RETURN
1270 IF FTS < >1 THEN RETURN
1280 IF C(K) < >TC THEN RETURN
1285 F = -F: COLOR= 0: PLOT 19 +F,37 -I *3: RETURN
1320 FOR A = 0 TO 38: FOR B = 0 TO 38:K = 39 *A +41 *B:C(K) = SCRN( A,B): NEXT : NEXT : RETURN
1410 PRINT "PUSH 'E' TO GO FORWARD, 'S' TO TURN": PRINT "LEFT, 'D' TO TURN RIGHT, AND 'X'": PRINT "TO TURN BACK": INPUT "PRESS RETURN";A$: RETURN
1440 TEXT : HOME : HTAB 13: PRINT "INTERNA-MAZE": HTAB 18: PRINT "BY": HTAB 12: PRINT "DENNIS G. WARD": POKE -16298,0: PRINT " APPLESOFT CONVERSION BY": HTAB 11: PRINT "BILL FORTENBERRY"
1470 PRINT : HTAB 5: PRINT "THE COMPUTER WILL DRAW A MAZE AT": PRINT "RANDOM, PUT YOU INSIDE, AND YOU": PRINT "HAVE TO FIND THE WAY OUT.": HTAB 5: PRINT "IF YOU FEEL INSECURE, YOU CAN"
1490 PRINT "CHOSE SOME AIDS - COMPASS, MAP,": PRINT "OR LEAVE FOOTPRINTS": PRINT : HTAB 5: PRINT "WOULD YOU LIKE TO LEAVE FOOTPRINTS": INPUT "BEHIND (Y/N) ";G$:FTS = 0: IF G$ = "Y" THEN FTS = 1
1510 INPUT "WOULD YOU LIKE A COMPASS (Y/N) ";G$:COMP = 0: IF G$ = "Y" THEN COMP = 1
1520 PRINT "WOULD YOU LIKE A MAP (COSTS 5 POINTS": INPUT "TO USE) (Y/N) ";G$:MAP = 0: IF G$ = "Y" THEN MAP = 1
1530 PRINT "*** NOTE - YOU LOSE 1 POINT EACH TIME": PRINT "YOU GO FORWARD IF YOU'VE ALREADY": PRINT "BEEN THERE BEFORE"
1540 PRINT : HTAB 9: INPUT "DIFFICULTY (1-10) ";S: HOME : VTAB 24: HTAB 5: PRINT "I AM CREATING YOUR MAZE NOW.": GOTO 120
1550 HOME : PRINT "YOU ARE RED, THE END IS WHITE.":TC = 1:L = FN R(4): IF L < >0 THEN 1580
1573 COLOR= 15: PLOT 1,37: COLOR= TC:X = 37:Y = 1: PLOT X,Y:E = 1:G = 37: GOTO 1610
1580 IF L < >1 THEN 1590
1585 COLOR= 15: PLOT 1,1:X = 37:Y = 37: COLOR= TC: PLOT X,Y:E = 1:G = 1: GOTO 1610
1590 IF L < >2 THEN 1600
1595 COLOR= 15: PLOT 37,1:X = 1:Y = 37: COLOR= TC: PLOT X,Y:E = 37:G = 1: GOTO 1610
1600 COLOR= 15: PLOT 37,37:X = 1:Y = 1: COLOR= TC: PLOT X,Y:E = 37:G = 37: GOTO 1610
1610 GOSUB 1320: POKE -16368,0: GOSUB 1410: FOR Z = 1 TO 5000: NEXT :DIR = FN R(4): GOSUB 290: GOTO 1810
1650 Z = PEEK( -16384): IF Z <127 THEN 1650
1670 IF Z = 197 THEN 1680
1672 IF Z = 196 THEN DIR = (DIR +1) - INT((DIR +1)/4) *4
1674 IF Z = 216 THEN DIR = (DIR +2) - INT((DIR +2)/4) *4
1676 IF Z = 211 THEN DIR = (DIR +3) - INT((DIR +3)/4) *4
1680 IF MAP < >1 THEN 1690
1685 IF Z = 205 THEN GOTO 1170
1690 IF Z = 197 THEN 1700
1695 GOSUB 640: GOSUB 290: GOTO 1810
1700 GOSUB 290: IF DIR < >0 THEN 1740
1730 Y = Y -1:K = 39 *X +41 *Y: IF C(K) = 0 OR C(K) = 1 THEN SC = SC +1
1735 IF C(K) = 0 THEN Y = Y +1
1740 IF DIR < >2 THEN 1760
1750 Y = Y +1:K = 39 *X +41 *Y: IF C(K) = 0 OR C(K) = 1 THEN SC = SC +1
1755 IF C(K) = 0 THEN Y = Y -1
1760 IF DIR < >3 THEN 1780
1770 X = X -1:K = 39 *X +41 *Y: IF C(K) = 0 OR C(K) = 1 THEN SC = SC +1
1775 IF C(K) = 0 THEN X = X +1
1780 IF DIR < >1 THEN 1800
1790 X = X +1:K = 39 *X +41 *Y: IF C(K) = 0 OR C(K) = 1 THEN SC = SC +1
1795 IF C(K) = 0 THEN X = X -1
1800 K = 39 *X +41 *Y
1810 IF C(K) = 15 THEN 1850
1820 IF Z = 197 THEN GOTO 1830
1822 POKE -16368,0: ON (DIR +1) GOSUB 1070,970,770,870: GOTO 1650
1830 C(K) = TC: ON (DIR +1) GOSUB 1070,970,770,870: POKE -16368,0: GOTO 1650
1850 COLOR= W2: FOR Q = 0 TO 17: HLIN 2,36 AT 19 +Q: HLIN 2,36 AT 19 -Q: NEXT : POKE -16368,0: HOME
1860 COLOR= 9: HLIN 16,19 AT 18: HLIN 16,18 AT 20: HLIN 16,19 AT 22: HLIN 22,23 AT 18: HLIN 21,24 AT 20: VLIN 20,22 AT 12: VLIN 18,22 AT 16: VLIN 19,22 AT 21
1870 VLIN 19,22 AT 24: VLIN 17,20 AT 27: PLOT 10,18: PLOT 11,19: PLOT 14,18: PLOT 13,19: PLOT 27,22: HTAB 10: PRINT "YOUR SCORE = ";(100 -SC): FOR D = 1 TO 9999: NEXT : GOTO 1440
2000 FOR LOC = 771 TO 789: READ MEM: POKE LOC,MEM: NEXT LOC: DATA 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,3,3,96: RETURN
2010 POKE 1,LP: POKE 0,PP: CALL 771: RETURN

Text found in Volume_219_Games.dsk/MATCH.GAME.bas:

10 HOME : GR
20 COLOR= 1: HLIN 8,14 AT 5: VLIN 6,11 AT 11: VLIN 5,11 AT 17: HLIN 18,22 AT 8: VLIN 5,11 AT 23: VLIN 5,11 AT 26: HLIN 26,31 AT 5: HLIN 26,28 AT 8: HLIN 26,31 AT 11
30 COLOR= 2: VLIN 17,24 AT 0: PLOT 1,17: PLOT 2,18: PLOT 3,19: PLOT 4,20: PLOT 5,19: PLOT 6,18: PLOT 7,17: VLIN 17,24 AT 8: VLIN 23,24 AT 10: VLIN 21,22 AT 11: VLIN 19,20 AT 12
35 VLIN 17,18 AT 13: VLIN 19,20 AT 14: VLIN 21,22 AT 15: VLIN 23,24 AT 16
40 HLIN 17,23 AT 17: VLIN 18,24 AT 20: HLIN 28,30 AT 17: PLOT 27,18: VLIN 19,22 AT 26: PLOT 27,23: HLIN 28,30 AT 24: VLIN 17,24 AT 32: HLIN 33,38 AT 21: VLIN 17,24 AT 39
45 HLIN 12,15 AT 22
50 COLOR= 13: HLIN 6,10 AT 30: PLOT 5,31: PLOT 5,36: HLIN 6,10 AT 37: VLIN 34,36 AT 10: PLOT 9,34: VLIN 36,37 AT 13: VLIN 34,35 AT 14: VLIN 32,33 AT 15: VLIN 30,31 AT 16
55 VLIN 32,33 AT 17: VLIN 34,35 AT 18: VLIN 36,37 AT 19: HLIN 15,17 AT 35
60 VLIN 30,37 AT 22: PLOT 23,30: PLOT 24,31: PLOT 25,32: PLOT 26,31: PLOT 27,30: VLIN 30,37 AT 28: VLIN 30,37 AT 31: HLIN 32,35 AT 30: HLIN 32,33 AT 34: HLIN 32,35 AT 37
65 VLIN 32,35 AT 4
70 FOR PAUSE = 1 TO 1500: NEXT PAUSE
80 GR
90 GOSUB 4430
100 COLOR= 15: VLIN 6,11 AT 14: COLOR= 1: PLOT 14,5: LET A = 1: GOSUB 4430
110 COLOR= 15: VLIN 6,11 AT 20: COLOR= 1: PLOT 20,5: LET A = 2: GOSUB 4430
120 COLOR= 15: VLIN 6,11 AT 26: COLOR= 1: PLOT 26,5: LET A = 3: GOSUB 4430
130 COLOR= 15: VLIN 18,23 AT 8: COLOR= 1: PLOT 8,17: LET B = 1: GOSUB 4430
140 COLOR= 15: VLIN 18,23 AT 14: COLOR= 1: PLOT 14,17: LET B = 2: GOSUB 4430
150 COLOR= 15: VLIN 18,23 AT 20: COLOR= 1: PLOT 20,17: LET B = 3: GOSUB 4430
160 COLOR= 15: VLIN 18,23 AT 26: COLOR= 1: PLOT 26,17: LET B = 4: GOSUB 4430
170 COLOR= 15: VLIN 18,23 AT 32: COLOR= 1: PLOT 32,17: LET B = 5: GOSUB 4430
180 COLOR= 15: VLIN 30,35 AT 2: COLOR= 1: PLOT 2,29: LET C = 1: GOSUB 4430
190 COLOR= 15: VLIN 30,35 AT 8: COLOR= 1: PLOT 8,29: LET C = 2: GOSUB 4430
200 COLOR= 15: VLIN 30,35 AT 14: COLOR= 1: PLOT 14,29: LET C = 3: GOSUB 4430
210 COLOR= 15: VLIN 30,35 AT 20: COLOR= 1: PLOT 20,29: LET C = 4: GOSUB 4430
220 COLOR= 15: VLIN 30,35 AT 26: COLOR= 1: PLOT 26,29: LET C = 5: GOSUB 4430
230 COLOR= 15: VLIN 30,35 AT 32: COLOR= 1: PLOT 32,29: LET C = 6: GOSUB 4430
240 COLOR= 15: VLIN 30,35 AT 38: COLOR= 1: PLOT 38,29: LET C = 7: GOSUB 4430
250 PRINT "EACH TURN, EITHER OF US CAN TAKE AS MANY MATCHES AS WE WANT FROM ANY ONE ROW. TO WIN, JUST LEAVE ME WITH THE LAST ONE.";
260 HTAB 8: INVERSE : PRINT " PRESS ANY KEY TO GO ON ";
270 NORMAL : HTAB 40: GET IN$
280 PRINT : HTAB 11: INVERSE : PRINT " WHO GOES FIRST? ": NORMAL
290 PRINT "TYPE 1 FOR YOU": HTAB 18: PRINT "OR": HTAB 24: PRINT "TYPE 2 FOR ME";
300 HTAB 40: GET TURN$
310 IF "1" = TURN$ THEN GOTO 340
320 IF "2" = TURN$ THEN GOTO 1640
330 GOTO 280
340 PRINT : PRINT : HTAB 14: INVERSE : PRINT " YOUR TURN ": NORMAL
350 PRINT "TYPE 1 FOR TOP ROW"
360 HTAB 8: PRINT "TYPE 2 FOR MIDDLE ROW"
370 HTAB 16: PRINT "TYPE 3 FOR BOTTOM ROW";
380 HTAB 40: GET ROW$
390 IF ROW$ = "1" THEN RIM$ = "TOP ROW": IF A >0 THEN 430
400 IF ROW$ = "2" THEN RIM$ = "MIDDLE ROW": IF B >0 THEN 430
410 IF ROW$ = "3" THEN RIM$ = "BOTTOM ROW": IF C >0 THEN 430
420 GOTO 340
430 RUM$ = "TO TAKE FROM THE " +RIM$
440 PRINT : PRINT : HTAB 14: INVERSE : PRINT " YOUR TURN ": NORMAL
450 PRINT : HTAB 7: PRINT "TYPE IN HOW MANY YOU WANT": HTAB 9: PRINT RUM$;
460 HTAB 40: GET AMOUNT$
470 IF "1" = ROW$ THEN GOTO 510
480 IF "2" = ROW$ THEN GOTO 650
490 IF "3" = ROW$ THEN GOTO 900
500 GOTO 340
510 IF A = 3 THEN GOTO 550
520 IF A = 2 THEN GOTO 600
530 IF A = 1 THEN GOTO 630
540 GOTO 340
550 IF "1" = AMOUNT$ THEN GOTO 1370
560 IF "2" = AMOUNT$ THEN GOTO 1350
570 IF "3" = AMOUNT$ THEN GOTO 1330
580 GOTO 340
590 IF "5" = AMOUNT$ THEN GOTO 1390
600 IF "1" = AMOUNT$ THEN GOTO 1350
610 IF "2" = AMOUNT$ THEN GOTO 1330
620 GOTO 340
630 IF "1" = AMOUNT$ THEN GOTO 1330
640 GOTO 340
650 IF B = 5 THEN GOTO 710
660 IF B = 4 THEN GOTO 770
670 IF B = 3 THEN GOTO 820
680 IF B = 2 THEN GOTO 860
690 IF B = 1 THEN GOTO 890
700 GOTO 340
710 IF "1" = AMOUNT$ THEN GOTO 1470
720 IF "2" = AMOUNT$ THEN GOTO 1450
730 IF "3" = AMOUNT$ THEN GOTO 1430
740 IF "4" = AMOUNT$ THEN GOTO 1410
750 IF "5" = AMOUNT$ THEN GOTO 1390
760 GOTO 340
770 IF "1" = AMOUNT$ THEN GOTO 1450
780 IF "2" = AMOUNT$ THEN GOTO 1430
790 IF "3" = AMOUNT$ THEN GOTO 1410
800 IF "4" = AMOUNT$ THEN GOTO 1390
810 GOTO 340
820 IF "1" = AMOUNT$ THEN GOTO 1430
830 IF "2" = AMOUNT$ THEN GOTO 1410
840 IF "3" = AMOUNT$ THEN GOTO 1390
850 GOTO 340
860 IF "1" = AMOUNT$ THEN GOTO 1410
870 IF "2" = AMOUNT$ THEN GOTO 1390
880 GOTO 340
890 IF "1" = AMOUNT$ THEN GOTO 1390
900 IF C = 7 THEN GOTO 980
910 IF C = 6 THEN GOTO 1060
920 IF C = 5 THEN GOTO 1130
930 IF C = 4 THEN GOTO 1190
940 IF C = 3 THEN GOTO 1240
950 IF C = 2 THEN GOTO 1280
960 IF C = 1 THEN GOTO 1310
970 GOTO 340
980 IF "1" = AMOUNT$ THEN GOTO 1610
990 IF "2" = AMOUNT$ THEN GOTO 1590
1000 IF "3" = AMOUNT$ THEN GOTO 1570
1010 IF "4" = AMOUNT$ THEN GOTO 1550
1020 IF "5" = AMOUNT$ THEN GOTO 1530
1030 IF "6" = AMOUNT$ THEN GOTO 1510
1040 IF "7" = AMOUNT$ THEN GOTO 1490
1050 GOTO 340
1060 IF "1" = AMOUNT$ THEN GOTO 1590
1070 IF "2" = AMOUNT$ THEN GOTO 1570
1080 IF "3" = AMOUNT$ THEN GOTO 1550
1090 IF "4" = AMOUNT$ THEN GOTO 1530
1100 IF "5" = AMOUNT$ THEN GOTO 1510
1110 IF "6" = AMOUNT$ THEN GOTO 1490
1120 GOTO 340
1130 IF "1" = AMOUNT$ THEN GOTO 1570
1140 IF "2" = AMOUNT$ THEN GOTO 1550
1150 IF "3" = AMOUNT$ THEN GOTO 1530
1160 IF "4" = AMOUNT$ THEN GOTO 1510
1170 IF "5" = AMOUNT$ THEN GOTO 1490
1180 GOTO 340
1190 IF "1" = AMOUNT$ THEN GOTO 1550
1200 IF "2" = AMOUNT$ THEN GOTO 1530
1210 IF "3" = AMOUNT$ THEN GOTO 1510
1220 IF "4" = AMOUNT$ THEN GOTO 1490
1230 GOTO 340
1240 IF "1" = AMOUNT$ THEN GOTO 1530
1250 IF "2" = AMOUNT$ THEN GOTO 1510
1260 IF "3" = AMOUNT$ THEN GOTO 1490
1270 GOTO 340
1280 IF "1" = AMOUNT$ THEN GOTO 1510
1290 IF "2" = AMOUNT$ THEN GOTO 1490
1300 GOTO 340
1310 IF "1" = AMOUNT$ THEN GOTO 1490
1320 GOTO 340
1330 IF B = 0 AND C = 0 GOTO 340
1340 GOSUB 4430: COLOR= 0: VLIN 5,11 AT 14: VLIN 5,11 AT 20: VLIN 5,11 AT 26: LET A = 0: GOTO 1640
1350 GOSUB 4430
1360 COLOR= 0: VLIN 5,11 AT 20: VLIN 5,11 AT 26: LET A = 1: GOTO 1640
1370 GOSUB 4430
1380 COLOR= 0: VLIN 5,11 AT 26: LET A = 2: GOTO 1640
1390 IF A = 0 AND C = 0 THEN GOTO 340
1400 GOSUB 4430: COLOR= 0: VLIN 17,23 AT 8: VLIN 17,23 AT 14: VLIN 17,23 AT 20: VLIN 17,23 AT 26: VLIN 17,23 AT 32: LET B = 0: GOTO 1640
1410 GOSUB 4430
1420 COLOR= 0: VLIN 17,23 AT 14: VLIN 17,23 AT 20: VLIN 17,23 AT 26: VLIN 17,23 AT 32: LET B = 1: GOTO 1640
1430 GOSUB 4430
1440 COLOR= 0: VLIN 17,23 AT 20: VLIN 17,23 AT 26: VLIN 17,23 AT 32: LET B = 2: GOTO 1640
1450 GOSUB 4430
1460 COLOR= 0: VLIN 17,23 AT 26: VLIN 17,23 AT 32: LET B = 3: GOTO 1640
1470 GOSUB 4430
1480 COLOR= 0: VLIN 17,23 AT 32: LET B = 4: GOTO 1640
1490 IF A = 0 AND B = 0 THEN GOTO 340
1500 GOSUB 4430: COLOR= 0: VLIN 29,35 AT 2: VLIN 29,35 AT 8: VLIN 29,35 AT 14: VLIN 29,35 AT 20: VLIN 29,35 AT 26: VLIN 29,36 AT 32: VLIN 29,35 AT 38: LET C = 0: GOTO 1640
1510 GOSUB 4430
1520 COLOR= 0: VLIN 29,35 AT 8: VLIN 29,35 AT 14: VLIN 29,35 AT 20: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 1: GOTO 1640
1530 GOSUB 4430
1540 COLOR= 0: VLIN 29,35 AT 14: VLIN 29,35 AT 20: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 2: GOTO 1640
1550 GOSUB 4430
1560 COLOR= 0: VLIN 29,35 AT 20: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 3: GOTO 1640
1570 GOSUB 4430
1580 COLOR= 0: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 4: GOTO 1640
1590 GOSUB 4430
1600 COLOR= 0: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 5: GOTO 1640
1610 GOSUB 4430
1620 COLOR= 0: VLIN 29,35 AT 38: LET C = 6
1630 GOTO 1640
1640 IF A >1 THEN GOTO 1790
1650 IF B >1 THEN GOTO 1790
1660 IF C >1 THEN GOTO 1790
1670 IF A = 0 THEN GOTO 1690
1680 IF A = 1 THEN GOTO 1710
1690 IF B = 0 THEN GOTO 1730
1700 IF B = 1 THEN GOTO 1750
1710 IF B = 0 THEN GOTO 1770
1720 IF B = 1 THEN GOTO 1790
1730 IF C = 0 THEN GOTO 1790
1740 IF C = 1 THEN GOTO 4450
1750 IF C = 0 THEN GOTO 4450
1760 IF C = 1 THEN GOTO 1790
1770 IF C = 0 THEN GOTO 4450
1780 IF C = 1 THEN GOTO 1790
1790 PRINT : HTAB 15: INVERSE : PRINT " MY TURN ": NORMAL : PRINT : PRINT : HTAB 14: PRINT "I'M THINKING";
1800 FOR PAUSE = 1 TO 2000: NEXT
1810 IF A = 3 THEN GOTO 1850
1820 IF A = 2 THEN GOTO 2390
1830 IF A = 1 THEN GOTO 2930
1840 IF A = 0 THEN GOTO 3460
1850 IF B = 5 THEN GOTO 1910
1860 IF B = 4 THEN GOTO 1990
1870 IF B = 3 THEN GOTO 2070
1880 IF B = 2 THEN GOTO 2150
1890 IF B = 1 THEN GOTO 2230
1900 IF B = 0 THEN GOTO 2310
1910 IF C = 7 THEN GOTO 4020
1920 IF C = 6 THEN GOTO 4220
1930 IF C = 5 THEN GOTO 3980
1940 IF C = 4 THEN GOTO 4000
1950 IF C = 3 THEN GOTO 4040
1960 IF C = 2 THEN GOTO 4160
1970 IF C = 1 THEN GOTO 4080
1980 IF C = 0 THEN GOTO 4100
1990 IF C = 7 THEN GOTO 4260
2000 IF C = 6 THEN GOTO 4020
2010 IF C = 5 THEN GOTO 4000
2020 IF C = 4 THEN GOTO 3980
2030 IF C = 3 THEN GOTO 4040
2040 IF C = 2 THEN GOTO 4060
2050 IF C = 1 THEN GOTO 4080
2060 IF C = 0 THEN GOTO 4100
2070 IF C = 7 THEN GOTO 4140
2080 IF C = 6 THEN GOTO 4140
2090 IF C = 5 THEN GOTO 4140
2100 IF C = 4 THEN GOTO 4140
2110 IF C = 3 THEN GOTO 4140
2120 IF C = 2 THEN GOTO 4140
2130 IF C = 1 THEN GOTO 4140
2140 IF C = 0 THEN GOTO 4020
2150 IF C = 7 THEN GOTO 4160
2160 IF C = 6 THEN GOTO 4160
2170 IF C = 5 THEN GOTO 4160
2180 IF C = 4 THEN GOTO 4160
2190 IF C = 3 THEN GOTO 4160
2200 IF C = 2 THEN GOTO 4160
2210 IF C = 1 THEN GOTO 4020
2220 IF C = 0 THEN GOTO 4020
2230 IF C = 7 THEN GOTO 4180
2240 IF C = 6 THEN GOTO 4180
2250 IF C = 5 THEN GOTO 4180
2260 IF C = 4 THEN GOTO 4180
2270 IF C = 3 THEN GOTO 4180
2280 IF C = 2 THEN GOTO 4020
2290 IF C = 1 THEN GOTO 4000
2300 IF C = 0 THEN GOTO 3980
2310 IF C = 7 THEN GOTO 4200
2320 IF C = 6 THEN GOTO 4200
2330 IF C = 5 THEN GOTO 4200
2340 IF C = 4 THEN GOTO 4200
2350 IF C = 3 THEN GOTO 4180
2360 IF C = 2 THEN GOTO 4020
2370 IF C = 1 THEN GOTO 3980
2380 IF C = 0 THEN GOTO 4000
2390 IF B = 5 THEN GOTO 2450
2400 IF B = 4 THEN GOTO 2530
2410 IF B = 3 THEN GOTO 2610
2420 IF B = 2 THEN GOTO 2690
2430 IF B = 1 THEN GOTO 2770
2440 IF B = 0 THEN GOTO 2850
2450 IF C = 7 THEN GOTO 4260
2460 IF C = 6 THEN GOTO 4120
2470 IF C = 5 THEN GOTO 3980
2480 IF C = 4 THEN GOTO 4000
2490 IF C = 3 THEN GOTO 4060
2500 IF C = 2 THEN GOTO 4040
2510 IF C = 1 THEN GOTO 4100
2520 IF C = 0 THEN GOTO 4080
2530 IF C = 7 THEN GOTO 4260
2540 IF C = 6 THEN GOTO 4240
2550 IF C = 5 THEN GOTO 4000
2560 IF C = 4 THEN GOTO 3980
2570 IF C = 3 THEN GOTO 4060
2580 IF C = 2 THEN GOTO 4040
2590 IF C = 1 THEN GOTO 4100
2600 IF C = 0 THEN GOTO 4080
2610 IF C = 7 THEN GOTO 4160
2620 IF C = 6 THEN GOTO 4160
2630 IF C = 5 THEN GOTO 4160
2640 IF C = 4 THEN GOTO 4160
2650 IF C = 3 THEN GOTO 3980
2660 IF C = 2 THEN GOTO 4040
2670 IF C = 1 THEN GOTO 4080
2680 IF C = 0 THEN GOTO 4080
2690 IF C = 7 THEN GOTO 4140
2700 IF C = 6 THEN GOTO 4140
2710 IF C = 5 THEN GOTO 4140
2720 IF C = 4 THEN GOTO 4140
2730 IF C = 3 THEN GOTO 4000
2740 IF C = 2 THEN GOTO 4140
2750 IF C = 1 THEN GOTO 4140
2760 IF C = 0 THEN GOTO 4060
2770 IF C = 7 THEN GOTO 4200
2780 IF C = 6 THEN GOTO 4200
2790 IF C = 5 THEN GOTO 4200
2800 IF C = 4 THEN GOTO 4200
2810 IF C = 3 THEN GOTO 4180
2820 IF C = 2 THEN GOTO 4040
2830 IF C = 1 THEN GOTO 4000
2840 IF C = 0 THEN GOTO 3980
2850 IF C = 7 THEN GOTO 4180
2860 IF C = 6 THEN GOTO 4180
2870 IF C = 5 THEN GOTO 4180
2880 IF C = 4 THEN GOTO 4180
2890 IF C = 3 THEN GOTO 4180
2900 IF C = 2 THEN GOTO 4000
2910 IF C = 1 THEN GOTO 3980
2920 IF C = 0 THEN GOTO 4000
2930 IF B = 5 THEN GOTO 2990
2940 IF B = 4 THEN GOTO 3070
2950 IF B = 3 THEN GOTO 3150
2960 IF B = 2 THEN GOTO 3230
2970 IF B = 1 THEN GOTO 3300
2980 IF B = 0 THEN GOTO 3370
2990 IF C = 7 THEN GOTO 4220
3000 IF C = 6 THEN GOTO 4220
3010 IF C = 5 THEN GOTO 3980
3020 IF C = 4 THEN GOTO 4200
3030 IF C = 3 THEN GOTO 4080
3040 IF C = 2 THEN GOTO 4100
3050 IF C = 1 THEN GOTO 4060
3060 IF C = 0 THEN GOTO 4040
3070 IF C = 7 THEN GOTO 4240
3080 IF C = 6 THEN GOTO 4240
3090 IF C = 5 THEN GOTO 4100
3100 IF C = 4 THEN GOTO 3980
3110 IF C = 3 THEN GOTO 4080
3120 IF C = 2 THEN GOTO 4100
3130 IF C = 1 THEN GOTO 4060
3140 IF C = 0 THEN GOTO 4040
3150 IF C = 7 THEN GOTO 4180
3160 IF C = 6 THEN GOTO 4180
3170 IF C = 5 THEN GOTO 4180
3180 IF C = 4 THEN GOTO 4180
3190 IF C = 3 THEN GOTO 3980
3200 IF C = 2 THEN GOTO 4160
3210 IF C = 1 THEN GOTO 4060
3220 IF C = 0 THEN GOTO 4040
3230 IF C = 7 THEN GOTO 4200
3240 IF C = 6 THEN GOTO 4200
3250 IF C = 5 THEN GOTO 4200
3260 IF C = 4 THEN GOTO 4200
3270 IF C = 3 THEN GOTO 4180
3280 IF C = 2 THEN GOTO 3980
3290 IF C = 1 THEN GOTO 4060
3300 IF C = 0 THEN GOTO 4040
3310 IF C = 7 THEN GOTO 4160
3320 IF C = 6 THEN GOTO 4160
3330 IF C = 5 THEN GOTO 4160
3340 IF C = 4 THEN GOTO 4160
3350 IF C = 3 THEN GOTO 4160
3360 IF C = 2 THEN GOTO 4160
3370 IF C = 1 THEN GOTO 4140
3380 IF C = 0 THEN GOTO 4040
3390 IF C = 7 THEN GOTO 4140
3400 IF C = 6 THEN GOTO 4140
3410 IF C = 5 THEN GOTO 4140
3420 IF C = 4 THEN GOTO 4140
3430 IF C = 3 THEN GOTO 4140
3440 IF C = 2 THEN GOTO 4140
3450 IF C = 1 THEN GOTO 4140
3460 IF B = 5 THEN GOTO 3520
3470 IF B = 4 THEN GOTO 3600
3480 IF B = 3 THEN GOTO 3680
3490 IF B = 2 THEN GOTO 3760
3500 IF B = 1 THEN GOTO 3840
3510 IF B = 0 THEN GOTO 3910
3520 IF C = 7 THEN GOTO 4240
3530 IF C = 6 THEN GOTO 4240
3540 IF C = 5 THEN GOTO 4120
3550 IF C = 4 THEN GOTO 4120
3560 IF C = 3 THEN GOTO 4100
3570 IF C = 2 THEN GOTO 4080
3580 IF C = 1 THEN GOTO 4040
3590 IF C = 0 THEN GOTO 4060
3600 IF C = 7 THEN GOTO 4220
3610 IF C = 6 THEN GOTO 4220
3620 IF C = 5 THEN GOTO 4220
3630 IF C = 4 THEN GOTO 4200
3640 IF C = 3 THEN GOTO 4100
3650 IF C = 2 THEN GOTO 4080
3660 IF C = 1 THEN GOTO 4040
3670 IF C = 0 THEN GOTO 4060
3680 IF C = 7 THEN GOTO 4200
3690 IF C = 6 THEN GOTO 4200
3700 IF C = 5 THEN GOTO 4200
3710 IF C = 4 THEN GOTO 4200
3720 IF C = 3 THEN GOTO 4080
3730 IF C = 2 THEN GOTO 4080
3740 IF C = 1 THEN GOTO 4040
3750 IF C = 0 THEN GOTO 4060
3760 IF C = 7 THEN GOTO 4180
3770 IF C = 6 THEN GOTO 4180
3780 IF C = 5 THEN GOTO 4180
3790 IF C = 4 THEN GOTO 4180
3800 IF C = 3 THEN GOTO 4180
3810 IF C = 2 THEN GOTO 4060
3820 IF C = 1 THEN GOTO 4040
3830 IF C = 0 THEN GOTO 4060
3840 IF C = 7 THEN GOTO 4140
3850 IF C = 6 THEN GOTO 4140
3860 IF C = 5 THEN GOTO 4140
3870 IF C = 4 THEN GOTO 4140
3880 IF C = 3 THEN GOTO 4140
3890 IF C = 2 THEN GOTO 4140
3900 IF C = 1 THEN GOTO 4040
3910 IF C = 7 THEN GOTO 4160
3920 IF C = 6 THEN GOTO 4160
3930 IF C = 5 THEN GOTO 4160
3940 IF C = 4 THEN GOTO 4160
3950 IF C = 3 THEN GOTO 4160
3960 IF C = 2 THEN GOTO 4160
3970 IF C = 2 THEN GOTO 4140
3980 GOSUB 4430
3990 COLOR= 0: VLIN 5,11 AT 14: VLIN 5,11 AT 20: VLIN 5,11 AT 26: LET A = 0: GOTO 4280
4000 GOSUB 4430
4010 COLOR= 0: VLIN 5,11 AT 20: VLIN 5,11 AT 26: LET A = 1: GOTO 4280
4020 GOSUB 4430
4030 COLOR= 0: VLIN 5,11 AT 26: LET A = 2: GOTO 4280
4040 GOSUB 4430
4050 COLOR= 0: VLIN 17,23 AT 8: VLIN 17,23 AT 14: VLIN 17,23 AT 20: VLIN 17,23 AT 26: VLIN 17,23 AT 32: LET B = 0: GOTO 4280
4060 GOSUB 4430
4070 COLOR= 0: VLIN 17,23 AT 14: VLIN 17,23 AT 20: VLIN 17,23 AT 26: VLIN 17,23 AT 32: LET B = 1: GOTO 4280
4080 GOSUB 4430
4090 COLOR= 0: VLIN 17,23 AT 20: VLIN 17,23 AT 26: VLIN 17,23 AT 32: LET B = 2: GOTO 4280
4100 GOSUB 4430
4110 COLOR= 0: VLIN 17,23 AT 26: VLIN 17,23 AT 32: LET B = 3: GOTO 4280
4120 GOSUB 4430
4130 COLOR= 0: VLIN 17,23 AT 32: LET B = 4: GOTO 4280
4140 GOSUB 4430
4150 COLOR= 0: VLIN 29,35 AT 2: VLIN 29,35 AT 8: VLIN 29,35 AT 14: VLIN 29,35 AT 20: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 0: GOTO 4280
4160 GOSUB 4430
4170 COLOR= 0: VLIN 29,35 AT 8: VLIN 29,35 AT 14: VLIN 29,35 AT 20: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 1: GOTO 4280
4180 GOSUB 4430
4190 COLOR= 0: VLIN 29,35 AT 14: VLIN 29,35 AT 20: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 2: GOTO 4280
4200 GOSUB 4430
4210 COLOR= 0: VLIN 29,35 AT 20: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 3: GOTO 4280
4220 GOSUB 4430
4230 COLOR= 0: VLIN 29,35 AT 26: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 4: GOTO 4280
4240 GOSUB 4430
4250 COLOR= 0: VLIN 29,35 AT 32: VLIN 29,35 AT 38: LET C = 5: GOTO 4280
4260 GOSUB 4430
4270 COLOR= 0: VLIN 29,35 AT 38: LET C = 6: GOTO 4280
4280 IF A >1 THEN GOTO 340
4290 IF B >1 THEN GOTO 340
4300 IF C >1 THEN GOTO 340
4310 IF A = 0 THEN GOTO 4330
4320 IF A = 1 THEN GOTO 4350
4330 IF B = 0 THEN GOTO 4370
4340 IF B = 1 THEN GOTO 4390
4350 IF B = 0 THEN GOTO 4410
4360 IF B = 1 THEN GOTO 340
4370 IF C = 0 THEN GOTO 340
4380 IF C = 1 THEN GOTO 4440
4390 IF C = 0 THEN GOTO 4440
4400 IF C = 1 THEN GOTO 340
4410 IF C = 0 THEN GOTO 4440
4420 IF C = 1 THEN GOTO 340
4430 FOR P = 1 TO 5:SOUND = PEEK( -16336) - PEEK( -16336) + PEEK( -16336) + PEEK( -16336) - PEEK( -16336): NEXT : RETURN
4440 PRINT : HTAB 14: FLASH : PRINT " I WIN !!! ": NORMAL : GOTO 4460
4450 PRINT : HTAB 13: FLASH : PRINT " YOU WIN !!! ": NORMAL
4460 PRINT : PRINT : HTAB 6: PRINT "PRESS ANY KEY TO PLAY AGAIN";
4470 HTAB 40: GET AN$
4480 PRINT : HTAB 12: FLASH : PRINT " GOOD LUCK !!! ": NORMAL : PRINT : PRINT
4490 FOR P = 1 TO 2000: NEXT
4500 RUN 80

Text found in Volume_219_Games.dsk/NATO.bas:

10 CLEAR : HOME
20 PRINT CHR$(4);"PR#3": PRINT
30 PRINT : INVERSE : PRINT "<---SECURITY ALERT SECURITY ALERT SECURITY ALERT SECURITY ALERT--->": NORMAL
40 NORMAL
50 SPEED= 150
60 PRINT : PRINT "YOU HAVE ILLEGALLY ACCESSED A DEPARTMENT OF DEFENSE RESTRICTED DATA COMPUTER."
70 PRINT : PRINT : INPUT P$
80 PRINT : PRINT TAB( 13);"INTRUSION IN THIS SYSTEM VIOLATES FeDERAL STATUTES"
90 PRINT : PRINT TAB( 13);"-- DO NOT LEAVE THIS AREA UNDER PENALTY OF LAW --"
100 PRINT : PRINT : PRINT "Identify yourself by entering requested information in full. In compliance": PRINT "with Department of Defense Order 63-c, use all CAPITAL LETTERS and do not"
110 PRINT "use any marks of punctuation. Press < RETURN > when finished."
120 PRINT : INPUT "Last name? ";NAME$
130 PRINT : INPUT "Middle initial? ";MI$
140 PRINT : INPUT "First name? ";BN$
150 PRINT : INPUT "Social Security Number? ";SS$: PRINT : PRINT : PRINT TAB( 35);"SeARCHING"
160 GOSUB 800: GOSUB 810: SPEED= 150: FOR TD = 1 TO 1500: NEXT TD
170 PRINT : PRINT : PRINT "Initial background file processing complete...": PRINT : PRINT "N.C.I.C record does not reveal previous illegal computer activity for": PRINT NAME$;", ";BN$;" ";MI$;"."
180 PRINT : PRINT : PRINT "83% PROBABILITY CITIZEN DATA FILE ERROR -- CROSS ACCESSING C.I.A. SYSTEM 739-A4": PRINT : PRINT
190 PRINT : PRINT TAB( 35)"SEARCHING": GOSUB 800
200 PRINT : PRINT "CIA System 739A4 reports negative illegal activity on part of ";NAME$;", ";BN$;" ";MI$;".": PRINT "To access this restricted system, the proper Code Word must be entered.": PRINT "Do you have Code Word? (YES/NO)";
210 PRINT : PRINT : INPUT R$
220 GOTO 630
230 SPEED= 200: REM --COMPUTER BUG ERROR THROW-OFF
240 F$ = " FATAL ERROR "
250 PRINT F$;
260 H = H +1
270 IF H < = 9 THEN PRINT F$: GOTO 250
280 PRINT : PRINT : LET T$ = "ACCESS CODE ERROR"
290 PRINT TAB( 13)T$;
300 M = M +1
310 IF M < = 14 THEN PRINT T$: GOTO 290
320 PRINT TAB( 4)".......TRANSMISSION LINK BROKEN": FOR G = 1 TO 1500: NEXT G: PRINT : PRINT : PRINT "ACCESS NOW AVAILABLE TO ALL SYSTEM DATA BANKS."
330 FOR I = 1 TO 500: NEXT I: PRINT : PRINT : PRINT "Enter data request into monitor. Then press < RETURN > "
340 SPEED= 150: PRINT : INPUT ">";Q$
350 IF RIGHT$(Q$,3) = "HIT" THEN GOSUB 590
360 IF RIGHT$(Q$,3) = "ELL" THEN GOSUB 600
370 IF RIGHT$(Q$,5) = "K YOU" THEN GOSUB 610
380 IF RIGHT$(Q$,3) = "KED" THEN GOSUB 620
390 IF RIGHT$(Q$,3) = "UIT" THEN GOTO 490
400 V = V +1: SPEED= 150: ON V GOTO 410,420,430,440,450,460,470,480
410 IF V = 1 THEN PRINT : PRINT "Your request says some rather disturbing things about you."
420 IF V = 2 THEN PRINT : PRINT "A statement of such a dubious nature calls into question your intelligence."
430 IF V = 3 THEN PRINT : PRINT "I do not have the authority to respond to that request."
440 IF V = 4 THEN PRINT : PRINT "I will pass your request along to my human supervisor as soon as possible."
450 IF V = 5 THEN PRINT : PRINT "Have you ever considered psychotherapy?"
460 IF V = 6 THEN PRINT : PRINT "Your remarks are being stored in C.I.A. System 739A4 for future consideration."
470 IF V = 7 THEN PRINT : PRINT "Proper system maintenance and security integrity reestablished. Cutting data": PRINT "transference with unauthorized intruder.": SPEED= 150: GOTO 490
480 GOTO 340
490 PRINT : PRINT : PRINT TAB( 25)"TRANSMISSION LINK SEVERED."
500 PRINT : PRINT : PRINT "Evaluation of ";NAME$;", ";BN$;" ";MI$;"."
510 PRINT : PRINT "On basis of your record and communication with me, I have concluded that"
520 PRINT "you do not present a danger to this system. Consequently, I shall": PRINT "inform the proper authorities that you are essentially harmless. Although"
530 PRINT "I can't honesty admit that our time together has been profitable for me,": PRINT "I can conclude that it has been time-consuming."
540 SPEED= 150: PRINT : PRINT "In a moment, control of this computer will revert to your system."
550 FOR H = 1 TO 1000: NEXT H
560 PRINT : PRINT : INVERSE
570 PRINT : PRINT : SPEED= 50: PRINT TAB( 27);"--a Shem the Penman production--"
580 NORMAL : SPEED= 250: PRINT : END
590 PRINT : PRINT "I neither feed nor sleep.": GOTO 340
600 PRINT : PRINT "I'd melt my bytes if I went down there.": GOTO 340
610 PRINT : PRINT "Language like that is not allowed in the Computer Room.": GOTO 340
620 PRINT : PRINT "I can't do that. I'm an inanimate machine.": GOTO 340
630 IF R$ = "Y" OR R$ = "YES" THEN GOTO 650
640 IF R$ = "N" OR R$ = "NO" THEN GOTO 710
650 PRINT : PRINT "No entry code access file has been given to ";NAME$;", ";BN$;" ";MI$;"."
655 PRINT "It is illegal to enter this system without prior government security clearance.": PRINT "Violators will be prosecuted under Section 3E of the Federal Treason Act."
660 PRINT : PRINT "Enter Code Word in monitor. Then press < RETURN >"
680 IF LEFT$(P$,3) = "SCR" THEN PRINT : PRINT "Very funny. The other clowns in the federal penitentiary will like you a lot."
690 IF LEFT$(P$,3) = "FUC" THEN PRINT : PRINT "Very funny. The other clowns in the federal penitentiary will like you a lot."
700 IF LEFT$(P$,3) < >"FUC" THEN PRINT : PRINT "You are denied access to D.O.D. Top Secret Files.": PRINT : PRINT TAB( 10)"NOW LOCKING ACCESS TO TOP SECRET BIOLOGICAL WARFARE MATERIAL": GOTO 720
710 IF LEFT$(P$,3) < >"SCR" THEN PRINT : PRINT "You are denied access to D.O.D. Top Secret Files.": PRINT : PRINT TAB( 10)"NOW LOCKING ACCESS TO TOP SECRET BIOLOGICAL WARFARE MATERIAL"
720 SPEED= 250: GOSUB 800
730 PRINT : PRINT "Contact with intruder being turned over to senior intelligence officer, Major": PRINT "Robert Frietelman."
740 SPEED= 30
750 PRINT : PRINT NAME$;",";" why have you illegally entered this system?"
760 PRINT : PRINT : INPUT F$: GOSUB 890
770 PRINT : PRINT "Your answer is less than satisfactory. You'll have to do better than that.": PRINT "Now, how did you break into this supposedly fool-proof data system?"
780 PRINT : PRINT : INPUT F$: GOSUB 890
790 PRINT : PRINT "I can't guess your intentions, but you're in very serio": PRINT : GOTO 230
800 SPEED= 250:X$ = ".": PRINT : FOR X = 1 TO 523: PRINT X$;: NEXT : PRINT : PRINT : SPEED= 150: RETURN
810 REM HERE THE USER LIST CAN BE DEFINED WITH CONFIDENTIAL INFORMATION DEPENDING ON THE DEPTH OF THE JOKE.
820 PRINT : PRINT : PRINT TAB( 30): PRINT " ";NA$;" ";MI$;" ";BN$: PRINT : PRINT
830 IF RIGHT$(NAME$,4) = "WTON" THEN PRINT TAB( 20)"Occupation: Computer Analyst/Systems Programmer"
840 IF RIGHT$(NAME$,4) = "WTON" THEN PRINT TAB( 20)" Artificial Intelligence Systems"
850 IF RIGHT$(NAME$,4) = "WTON" THEN PRINT TAB( 20)" 300 Branestorm Rd."
860 IF RIGHT$(NAME$,4) = "WTON" THEN PRINT TAB( 20)" Metairie, Louisiana 70005"
870 IF RIGHT$(NAME$,4) = "WTON" THEN PRINT TAB( 20)"Misc: Gambling prediliction: cf. C.I.A. System 73914": RETURN
880 RETURN
890 IF RIGHT$(F$,4) = "RROR" THEN PRINT : PRINT "Unacceptable. Computers are intrinsically incapable of error.": RETURN
900 IF RIGHT$(F$,4) = "KNOW" THEN PRINT : PRINT "Why don't you know? Legally, you are responsible for your actions.": RETURN
910 IF RIGHT$(F$,4) = "TAKE" THEN PRINT : PRINT "A mistake? You've accessed one of the most sophisticated security systems in": PRINT "the world and you expect me to believe you did it by mistake?": RETURN
920 RETURN

Text found in Volume_219_Games.dsk/OTHELLO.bas:

1 REM *************************
2 REM * HIRES OTHELLO *
3 REM * BY BILL FORTENBERRY *
4 REM * 4/85 *
5 REM *************************
6 REM
7 REM
8 REM
9 REM
10 TEXT : HOME : HGR : DIM BD(9,9),D1(8),D2(8),HX(8),PO(8,8)
15 VTAB 22: HTAB 13: PRINT "HIRES OTHELLO": HTAB 10: PRINT "BY: BILL FORTENBERRY"
20 RESTORE :F2 = 0: FOR K = 1 TO 8: READ HX(K): NEXT : DATA 4,22,40,58,76,94,112,130:B = -1:W = +1: SCALE= 1: ROT= 0: FOR K = 1 TO 8: READ D1(K): NEXT K: DATA 0,-1,-1,-1,0,1,1,1: FOR K = 1 TO 8: READ D2(K): NEXT
30 DATA 1,1,0,-1,-1,-1,0,1: FOR I = 1 TO 8: FOR J = 1 TO 8: READ PO(I,J): DATA 16,-6,4,2,2,4,-6,16,-6,-12,-2,-2,-2,-2,-12,-6,4,-2,4,2,2,4,-2,4,2,-2,2,0,0,2,-2,2,2,-2,1,0,0,2,-2,2,4,-2,4,2,2,4,-2,4
40 DATA -6,-12,-2,-2,-2,-2,-12,-6,16,-6,4,2,2,4,-6,16: NEXT J: NEXT I: GOSUB 1000: GOSUB 980: FOR I = 0 TO 9: FOR J = 0 TO 9:BD(I,J) = 0: NEXT J: NEXT I:BD(4,4) = W:BD(5,5) = W: HCOLOR= 3: DRAW 1 AT 58,58: DRAW 1 AT 76,76:BD(4,5) = B
50 BD(5,4) = B: HCOLOR= 0: DRAW 1 AT 58,76: DRAW 1 AT 76,58:CC = 2:HC = 2:TC = 4:FF = 0
55 GOSUB 1020: PRINT "TO FORFEIT YOUR MOVE, PUT THE CURSOR ON ANOTHER PIECE AND PRESS THE BUTTON (OR RETURN)";: GET A$
60 GOSUB 1020: PRINT "WHICH INPUT DEVICE WILL YOU BE USING": PRINT "(1) KEYBOARD (2) JOYSTICK (3) MOUSE": PRINT "YOUR CHOICE (1-3) ";: GET X$: PRINT X$:ID = VAL(X$): IF ID <1 OR ID >3 THEN 60
70 IF ID = 3 THEN HOME : PRINT : PRINT CHR$(4)"PR#4": PRINT CHR$(1): PRINT CHR$(4)"PR#0"
80 GOSUB 1020: PRINT "DO YOU WANT (B)LACK OR (W)HITE (B/W)";:C = W:H = B
90 GET X$: PRINT X$: IF X$ = "B" THEN 120
100 IF X$ < >"W" THEN 80
110 C = B:H = W
120 GOSUB 1020: PRINT "DO YOU WANT TO GO FIRST (Y/N)";
130 GET X$: PRINT X$: IF X$ = "N" THEN 160
140 IF X$ < >"Y" THEN 120
150 GOSUB 1020: GOSUB 1030: PRINT "YOUR MOVE": GOTO 370
160 B1 = -20:I3 = 0:J3 = 0:T1 = C:T2 = H: FOR I = 1 TO 8: FOR J = 1 TO 8: IF BD(I,J) < >0 THEN 300
170 GOSUB 860: IF F1 = 0 THEN 300
180 U = -1: GOSUB 890: IF NF = 0 THEN 300
190 IF TC >50 THEN 220
200 IF TC <25 AND NF >3 THEN NF = NF * -1
210 NF = NF +PO(I,J)
220 IF I = 7 AND (J >2 OR J <7) AND (BD(8,J) < >0 AND BD(8,J +1) < >0 AND BD(8,J -1) < >0) THEN NF = NF +5
230 IF I = 2 AND (J >2 OR J <7) AND (BD(1,J) < >0 AND BD(1,J +1) < >0 AND BD(1,J -1) < >0) THEN NF = NF +5
240 IF J = 7 AND (I <7 OR I >2) AND (BD(I,8) < >0 AND BD(I +1,8) < >0 AND BD(I -1,8) < >0) THEN NF = NF +5
250 IF J = 2 AND (I >2 OR I <7) AND (BD(I,1) < >0 AND BD(I +1,1) < >0 AND BD(I -1,0) < >0) THEN NF = NF +5
260 IF NF B1 THEN 290
280 R = RND(1): IF R >.5 THEN 300
290 B1 = NF:I3 = I:J3 = J
300 NEXT J: NEXT I: IF B1 < > -20 THEN 330
310 GOSUB 1020: PRINT "I HAVE TO FORFEIT MY MOVE": IF FF = 1 THEN 770
320 FF = 1: GOTO 370
330 FF = 0: GOSUB 1020: INVERSE : PRINT "I SELECT THIS SQUARE": NORMAL : FOR I = 1 TO 50: XDRAW 1 AT HX(J3),HX(I3): XDRAW 1 AT HX(J3),HX(I3): NEXT :I = I3:J = J3:U = 1: GOSUB 890:CC = CC +NF +1:HC = HC -NF:TC = TC +1
340 GOSUB 1020: PRINT "I GET "NF" OF YOUR PIECES"
350 GOSUB 1030: PRINT "YOUR MOVE": IF HC = 0 THEN 770
360 IF TC = 64 THEN 770
370 T1 = H:T2 = C: VTAB 1: POKE 35,10: ON ID GOTO 500,440,380
380 POKE -16368,0: PRINT CHR$(4);"IN#4": INPUT "";J,I,QQ:I = INT(I/30):J = INT(J/30): IF I <1 THEN I = 1
390 IF I >8 THEN I = 8
400 IF J <1 THEN J = 1
410 IF J >8 THEN J = 8
420 XDRAW 1 AT HX(J),HX(I): XDRAW 1 AT HX(J),HX(I): POKE -16368,0: IF QQ < >2 THEN 380
430 PRINT : PRINT CHR$(4)"IN#0": GOTO 610
440 I = PDL(1):I = INT(I/31.8) +1: IF I <1 THEN I = 1
450 IF I >8 THEN I = 8
460 J = PDL(0):J = INT(J/31.8) +1: IF J <1 THEN J = 1
470 IF J >8 THEN J = 8
480 XDRAW 1 AT HX(J),HX(I): XDRAW 1 AT HX(J),HX(I): IF PEEK(49249) <128 THEN 440
490 GOTO 610
500 I = 4:J = 4
510 B1 = PEEK( -16384): POKE -16368,0: IF B1 = 136 OR B1 = 202 THEN J = J -1
520 IF B1 = 149 OR B1 = 203 THEN J = J +1
530 IF B1 = 139 OR B1 = 201 THEN I = I -1
540 IF B1 = 138 OR B1 = 205 THEN I = I +1
550 IF I <1 THEN I = 1
560 IF I >8 THEN I = 8
570 IF J <1 THEN J = 1
580 IF J >8 THEN J = 8
590 XDRAW 1 AT HX(J),HX(I): XDRAW 1 AT HX(J),HX(I): IF B1 = 141 THEN POKE 35,24: GOTO 610
600 GOTO 510
610 POKE 35,24: IF BD(I,J) = 0 THEN 650
620 GOSUB 1020: INVERSE : PRINT "THAT SQUARE IS OCCUPIED": NORMAL : PRINT "ARE YOU FORFEITING YOUR MOVE (Y/N)";: GET X$: PRINT X$: IF X$ < >"Y" THEN GOSUB 1020: GOTO 350
630 IF FF = 1 THEN 770
640 FF = 1: GOTO 160
650 GOSUB 860: IF F1 = 1 THEN 670
660 GOSUB 1020: INVERSE : PRINT "YOU ARE NOT NEXT TO ONE OF MY PIECES": NORMAL : GOTO 350
670 U = -1: GOSUB 890: IF NF >0 THEN 690
680 GOSUB 1020: INVERSE : PRINT "THAT DOES NOT FLANK A ROW": NORMAL : GOTO 350
690 FF = 0:HC = HC +NF +1:CC = CC -NF:TC = TC +1: GOSUB 1020: PRINT "THAT GIVES YOU "NF" OF MY PIECES": GOSUB 1030: PRINT "MY MOVE":U = 1: GOSUB 890
700 IF I = 8 AND (J >2 OR J <7) AND (BD(I,J +1) < >0 AND BD(I,J -1) < >0) THEN PO(I -1,J) = 3
710 IF I = 1 AND (J >2 OR J <7) AND (BD(I,J +1) < >0 AND BD(I,J -1) < >0) THEN PO(I +1,J) = 3
720 IF J = 1 AND (I >2 OR I <7) AND (BD(I +1,J) < >0 AND BD(I -1,J) < >0) THEN PO(I,J +1) = 3
730 IF J = 8 AND (I >2 OR I <7) AND (BD(I +1,J) < >0 AND BD(I -1,J) < >0) THEN PO(I,J -1) = 3
740 IF CC = 0 THEN 770
750 IF TC = 64 THEN 770
760 GOTO 160
770 PRINT : GOSUB 1020: GOSUB 1030: IF HC = CC THEN 800
780 IF HC >CC THEN 810
790 PRINT "SORRY, I WON THAT ONE": GOTO 820
800 PRINT "A TIE ! ! !": GOTO 820
810 PRINT "YOU WON ! !"
820 PRINT "WILL YOU PLAY ANOTHER? (Y/N)": GET X$: PRINT X$: IF X$ = "Y" THEN 20
830 IF X$ < >"N" THEN 820
840 IF ID = 3 THEN PRINT CHR$(4);"PR#4": PRINT CHR$(0): PRINT CHR$(4)"PR#0"
850 TEXT : HOME : PRINT "THANKS FOR PLAYING OTHELLO": END
860 FOR I1 = -1 TO 1: FOR J1 = -1 TO 1: IF BD(I +I1,J +J1) = T2 THEN 880
870 NEXT J1: NEXT I1:F1 = 0: RETURN
880 F1 = 1: RETURN
890 NF = 0: FOR K = 1 TO 8:I5 = D1(K):J5 = D2(K):I6 = I +I5:J6 = J +J5:S3 = 0: IF BD(I6,J6) < >T2 THEN 970
900 S3 = S3 +1:I6 = I6 +I5:J6 = J6 +J5: IF BD(I6,J6) = T1 THEN 930
910 IF BD(I6,J6) = 0 THEN 970
920 GOTO 900
930 NF = NF +S3: IF U < >1 THEN 970
940 I6 = I:J6 = J: IF T1 <0 THEN HCOLOR= 0
950 IF T1 >0 THEN HCOLOR= 3
960 FOR K1 = 0 TO S3:BD(I6,J6) = T1: DRAW 1 AT HX(J6),HX(I6):I6 = I6 +I5:J6 = J6 +J5: NEXT K1
970 NEXT K: RETURN
980 HCOLOR= 3: HPLOT 0,0 TO 145,0 TO 145,145 TO 0,145 TO 0,0 TO 1,1 TO 144,1 TO 144,144 TO 1,145 TO 1,1: HCOLOR= 1: FOR K = 2 TO 143: HPLOT K,2 TO K,143: NEXT : HCOLOR= 0: FOR K = 18 TO 126 STEP 18
990 HPLOT K,2 TO K,143 TO K +1,143 TO K +1,2: HPLOT 2,K TO 143,K TO 143,K +1 TO 2,K +1: NEXT : RETURN
1000 FOR I = 768 TO 844: READ J: POKE I,J: NEXT : DATA 1,0,4,0,9,9,45,45,9,17,27,59,63,63,31,19,9,45,45,45,45,17,59,63,63,63,63,23,45,45,45,45,45,53,63,63,63,63,63,55,45,45,45,45,45,53,63,63,63,63,63,55,41,45,45,45
1010 DATA 45,21,27,63,63,63,63,19,9,41,45,45,13,17,27,27,63,63,27,19,0: POKE 232,0: POKE 233,3: RETURN
1020 HOME : VTAB 21: RETURN
1030 PRINT "YOU HAVE "HC" PIECES, I HAVE "CC".": RETURN

Text found in Volume_219_Games.dsk/STARTUP.bas:

10 HOME
15 SPEED= 175
20 PRINT "_______________________________________"
22 PRINT : PRINT "International Apple Core": PRINT "P.O. Box 880338": PRINT "San Francisco, CA 94188-0338": PRINT "(415) 863-7412 - 9:00am-5:00pm PST": PRINT " Monday - Friday"
23 PRINT : PRINT " INTERNATIONAL APPLE CORE'S"
24 INVERSE : HTAB 6: PRINT "GAMES, GAMES & MORE GAMES!": NORMAL
25 PRINT " Disk Of the Month #71": PRINT " May, 1987"
26 PRINT "_______________________________________"
28 SPEED= 255: FOR I = 1 TO 1000: NEXT
90 VTAB 23: HTAB 1: INVERSE : PRINT "[ HIT RETURN TO CONTINUE, ^C TO BREAK ]";: NORMAL : GET A$
92 IF A$ = CHR$(13) THEN 98
93 IF A$ = CHR$(3) THEN 99
95 GOTO 90
98 HOME : PRINT CHR$(4);"CAT"
99 END

Text found in Volume_219_Games.dsk/TOWERS.bas:

40 DIM D1(9),D2(9),D3(9)
100 FOR I = 0 TO 8
110 D1(I) = 0:D2(I) = 1:D3(I) = 1
130 NEXT I: REM INITIALIZED
150 FOR S = 0 TO 8
160 C1 = (S *2 -1) +2
170 D1(S) = C1
180 NEXT S
201 TEXT : HOME : VTAB 5: PRINT "****************************************"
202 VTAB 8: PRINT " TOWERS OF HANOI"
204 PRINT : PRINT "****************************************": PRINT
205 FOR PAUSE = 1 TO 3000: NEXT PAUSE
206 HOME
207 VTAB 2: PRINT "HI THERE! PLEASE TYPE IN YOUR NAME --"
210 INPUT A$
211 SPEED= 100
212 PRINT : PRINT "TOWERS OF HANOI IS A GAME FOR ONE"
213 PRINT : PRINT "PLAYER. THE OBJECT IS TO MOVE ALL OF"
214 PRINT : PRINT "THE DISKS FROM POST #1 TO POST #3."
215 PRINT : PRINT "YOU MAY MOVE THE DISKS IN ANY ORDER YOU"
216 PRINT : PRINT "WISH, BUT NEVER MORE THAN ONE AT A TIME."
217 PRINT "YOU CAN ALSO NEVER PLACE A LARGE DISK ON"
218 PRINT "TOP OF A SMALLER ONE."
219 SPEED= 255
220 FOR PAUSE = 1 TO 3000: NEXT PAUSE
221 W2 = 0:W3 = 0:M = 0
222 GOTO 7000
300 PRINT "FROM WHICH POST? 1-2-OR-3, ";A$;
310 INPUT P1
320 ON P1 GOTO 1000,2000,3000
350 PRINT "POST ";P1;"!! ARE YOU KIDDING??"
355 PRINT
360 PRINT "": GOTO 300
400 PRINT "TO WHERE? 1--2--OR--3 ";
410 INPUT P2
420 ON P2 GOTO 4000,5000,6000
450 PRINT "POST ";P2;" YOU MUST BE JOKING!"
455 PRINT
460 PRINT "": GOTO 400
500 IF LS >D1(S) THEN 800
510 GOTO 4505
600 IF LS >D2(S) THEN 800
610 GOTO 5505
700 IF LS >D3(S) THEN 800
710 GOTO 6505
800 PRINT ""
810 PRINT "PLACING A BIG DISK ON A SMALLER ONE IS": PRINT "A NO-NO!"
820 PRINT
830 GOTO 400
900 IF W2 = 3 AND W3 = 0 THEN 990
905 IF W2 = 0 AND W3 = 3 THEN 990
907 GOTO 7700
910 IF W2 = 4 AND W3 = 0 THEN 990
915 IF W2 = 0 AND W3 = 4 THEN 990
917 GOTO 7700
920 IF W2 = 5 AND W3 = 0 THEN 990
925 IF W2 = 0 AND W3 = 5 THEN 990
927 GOTO 7700
930 IF W2 = 6 AND W3 = 0 THEN 990
935 IF W2 = 0 AND W3 = 6 THEN 990
937 GOTO 7700
940 IF W2 = 7 AND W2 = 0 THEN 990
945 IF W2 = 0 AND W3 = 7 THEN 990
947 GOTO 7700
950 IF W2 = 8 AND W3 = 0 THEN 998
955 IF W2 = 0 AND W3 = 8 THEN 998
957 GOTO 7700
990 PRINT ""
991 PRINT "WOW! SO FAR SO GOOD, YOU MADE IT IN THE MINIMUM NUMBER OF ";M" MOVES REQUIRED ";A$;"."
992 PRINT "PLEASE CONTINUE ";A$
993 GOTO 300
998 PRINT "CONGRATULATIONS---YOU WIN ";A$
999 PRINT ""
1000 FOR S = 0 TO 8
1010 IF D1(S) >1 THEN 1500
1020 NEXT S
1030 IF D1(8) = 1 THEN PRINT " NO DISK ON POST ONE. "
1050 PRINT ""
1060 GOTO 300
1500 LS = D1(S)
1510 A = 9 - INT(D1(S)/2):B = 9 + INT(D1(S)/2)
1515 D1(S) = 1
1520 COLOR= 0
1525 S = S *2
1530 FOR X = A TO B
1540 PLOT X,S: PLOT X,S +1
1550 NEXT X
1560 COLOR= 12
1570 PLOT 9,S: PLOT 9,S +1
1580 GOTO 400
2000 FOR S = 0 TO 8
2010 IF D2(S) >1 THEN 2500
2020 NEXT S
2030 IF D2(8) = 1 THEN PRINT " NO DISK ON POST TWO. "
2050 PRINT ""
2060 GOTO 300
2500 LS = D2(S)
2510 C = 20 - INT(D2(S)/2):D = 20 + INT(D2(S)/2)
2515 D2(S) = 1
2520 COLOR= 0
2525 S = S *2
2530 FOR Y = C TO D
2540 PLOT Y,S +18: PLOT Y,S +19
2550 NEXT Y
2560 COLOR= 12
2570 PLOT 20,S +18: PLOT 20,S +19
2575 W2 = W2 -1
2580 GOTO 400
3000 FOR S = 0 TO 8
3010 IF D3(S) >1 THEN 3500
3020 NEXT S
3030 IF D3(8) = 1 THEN PRINT " NO DISK ON POST THREE"
3050 PRINT ""
3060 GOTO 300
3500 LS = D3(S)
3510 E = 31 - INT(D3(S)/2):F = 31 + INT(D3(S)/2)
3515 D3(S) = 1
3520 COLOR= 0
3525 S = S *2
3530 FOR Z = E TO F
3540 PLOT Z,S: PLOT Z,S +1
3550 NEXT Z
3560 COLOR= 12
3570 PLOT 31,S: PLOT 31,S +1
3575 W3 = W3 -1
3580 GOTO 400
4000 REM
4005 FOR S = 0 TO 8
4025 IF D1(S) >1 THEN 4500
4030 NEXT S
4500 IF D1(S) <2 THEN 4505
4502 IF D1(S) >2 THEN 500
4505 S = S -1
4510 D1(S) = LS
4520 A = 9 - INT(D1(S)/2):B = 9 + INT(D1(S)/2)
4525 U = (LS +1)/2
4530 COLOR= U
4540 FOR X = A TO B
4550 PLOT X,S *2: PLOT X,S *2 +1
4560 NEXT X
4570 GOTO 7500
5000 REM
5005 FOR S = 0 TO 8
5025 IF D2(S) >1 THEN 5500
5030 NEXT S
5500 IF D2(S) <2 THEN 5505
5502 IF D2(S) >2 THEN 600
5505 S = S -1
5510 D2(S) = LS
5520 C = 20 - INT(D2(S)/2):D = 20 + INT(D2(S)/2)
5525 U = (LS +1)/2
5530 COLOR= U
5540 FOR Y = C TO D
5550 PLOT Y,(S *2) +18: PLOT Y,(S *2) +19
5560 NEXT Y
5565 W2 = W2 +1
5570 GOTO 7500
6000 REM
6005 FOR S = 0 TO 8
6025 IF D3(S) >1 THEN 6500
6030 NEXT S
6500 IF D3(S) <2 THEN 6505
6502 IF D3(S) >2 THEN 700
6505 S = S -1
6510 D3(S) = LS
6520 E = 31 - INT(D3(S)/2):F = 31 + INT(D3(S)/2)
6525 U = (LS +1)/2
6530 COLOR= U
6540 FOR Z = E TO F
6550 PLOT Z,S *2: PLOT Z,S *2 +1
6560 NEXT Z
6565 W3 = W3 +1
6570 GOTO 7500
7000 GR : COLOR= 12
7005 LS = 0
7010 FOR H = 0 TO 18
7020 PLOT 9,H: PLOT 31,H
7025 PLOT 20,H +18
7030 NEXT H
7040 HLIN 8,10 AT 18: HLIN 30,32 AT 18: HLIN 19,21 AT 36
7050 VLIN 0,4 AT 3: PLOT 2,1: PLOT 2,4: PLOT 4,4
7060 HLIN 24,26 AT 2: HLIN 24,26 AT 0: HLIN 24,26 AT 4
7070 PLOT 26,1: PLOT 26,3
7080 HLIN 12,14 AT 19: HLIN 12,14 AT 21: HLIN 12,14 AT 23
7090 PLOT 14,20: PLOT 12,22
7100 FOR S = 0 TO 8: COLOR= S +1
7110 HLIN 9 - INT(D1(S)/2),9 + INT(D1(S)/2) AT S *2
7120 HLIN 9 - INT(D1(S)/2),9 + INT(D1(S)/2) AT S *2 +1
7130 NEXT S
7140 COLOR= 12
7150 PLOT 9,0: PLOT 9,1
7200 GOTO 300
7500 REM
7510 M = M +1
7520 IF M = 7 THEN 900
7530 IF M = 15 THEN 910
7540 IF M = 31 THEN 920
7550 IF M = 63 THEN 930
7560 IF M = 127 THEN 940
7570 IF M = 255 THEN 950
7575 IF W2 = 8 OR W3 = 8 THEN 8000
7590 PRINT "SO FAR YOU MADE ";M;" MOVES ";A$
7600 PRINT : PRINT
7610 GOTO 300
7700 PRINT "YOU DID NOT MAKE IT IN THE MINIMUM ": PRINT "NUMBER OF MOVES POSSIBLE. I SUGGEST YOU"
7710 PRINT "START OVER ";A$
7720 PRINT "": GOTO 300
8000 PRINT "YOU DID IT, BUT IT TOOK YOU ";M -255;"": PRINT "MORE MOVES THAN IT SHOULD HAVE."

Text found in Volume_219_Games.dsk/WIZARD.bas:

5 TEXT : HOME : GOSUB 5000
10 TEXT : HOME : CLEAR
15 PRINT "CREATING ARRAYS..."
20 DIM C$(34),I$(34),R$(4),W$(8),E$(8)
25 DIM P(600)
30 DIM C(3,4),T(8),O(3),R(3)
45 T = 0
50 DEF FN D(Q) = Q *64 +X *8 +Y
55 DEF FN E(Q) = Q -100 *(Q >99)
60 Y$ = CHR$(13) +"** ANSWER YES OR NO " + CHR$(13)
70 DEF FN A(Q) = 1 + INT(Q * RND(1)): DEF FN B(Q) = Q +8 *(( -(Q = 9)) -( -(Q = 0)))
80 FOR Q = 1 TO 34: READ C$(Q),I$(Q): NEXT Q
90 FOR Q = 0 TO 599:P(Q) = 101: NEXT Q: FOR Q = 1 TO 8: READ W$(Q),E$(Q): NEXT Q
100 FOR Q = 1 TO 4: READ R$(Q): NEXT Q: DEF FN C(Q) = Q *(Q <19) +18 *(Q >18)
109 INVERSE :S$ = " "
110 GOSUB 3270: PRINT TAB( 10)"THE WIZARD'S CASTLE ": PRINT S$: FOR Q = 1 TO 38: PRINT "*";: NEXT Q: PRINT : NORMAL : PRINT : PRINT
120 PRINT " BY JOSEPH R POWER": PRINT
121 PRINT "RE-WRITTEN IN APPLESOFT BASIC BY": PRINT TAB( 15)"JACK KENNE": PRINT TAB( 10)"NOVEMBER 30,1980"
140 PRINT : PRINT : PRINT "PLEASE BE PATIENT -";:X = 1:Y = 4
141 FOR Q1 = 1 TO 2000: NEXT Q1
142 PRINT "IN";
150 P( FN D(1)) = 2: FOR Z = 1 TO 7: FOR Q1 = 1 TO 2:Q = 104: GOSUB 3200
160 P( FN D(Z +1)) = 103: NEXT Q1: NEXT Z
161 PRINT "I";
170 FOR Z = 1 TO 8: FOR Q = 113 TO 124: GOSUB 3200: NEXT Q: FOR Q1 = 1 TO 3
180 FOR Q = 105 TO 112: GOSUB 3200: NEXT Q:Q = 125: GOSUB 3200: NEXT Q1: READ O$: PRINT O$;: NEXT Z
190 FOR Q = 126 TO 133:Z = FN A(8): GOSUB 3200: NEXT Q
191 PRINT "G";
200 Q = 101: FOR A = 1 TO 3:Z = FN A(8): GOSUB 3200:C(A,1) = X:C(A,2) = Y:C(A,3) = Z:C(A,4) = 0
210 READ O$: PRINT O$;: NEXT A: PRINT "S";:RC = 0:ST = 2:DX = 14:R$(3) = "MAN"
220 Q = 112 + FN A(12):Z = FN A(8): GOSUB 3200:R(1) = X:R(2) = Y:R(3) = Z
230 Q = 109:Z = FN A(8): GOSUB 3200:O(1) = X:O(2) = Y:O(3) = Z: PRINT "TLE"
235 NOTRACE : NORMAL
240 BF = 0:OT = 8:AV = 0:HT = 0:T = 1:VF = 0:LF = 0:TC = 0:GP = 60:RF = 0:OF = 0:BL = 0
250 IQ = 8:SX = 0: FOR Q = 1 TO 8:T(Q) = 0: NEXT Q: HOME : PRINT "ALL RIGHT, BOLD ONE"
260 PRINT : PRINT "YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT": GOSUB 3280
265 R$(1) = "ELF":R$(2) = "DWARF":R$(4) = "HOBBIT"
270 FOR Q = 1 TO 4: IF LEFT$(R$(Q),1) = O$ THEN RC = Q:ST = ST +2 *Q:DX = DX -2 *Q
280 NEXT Q: PRINT :OT = OT -4 *(RC = 1): IF RC >0 THEN R$(3) = "HUMAN": GOTO 300
290 PRINT "** THAT WAS INCORRECT. PLEASE TYPE :"
295 PRINT "E, D, M, OR H.": GOTO 260
300 PRINT : PRINT "SEX ";: GOSUB 3290: IF O$ = "M" THEN SX = 1: GOTO 320
310 IF O$ < >"F" THEN PRINT : PRINT "** CUTE ";R$(RC);", REAL CUTE. TRY M OR F": GOTO 300
320 HOME : PRINT "OK ";R$(RC);", YOU HAVE THESE STATISTICS"
330 PRINT "STRENGTH= ";ST;" INTELLIGENCE= ";IQ
335 PRINT "DEXTERIRY= ";DX: PRINT
340 PRINT "AND ";OT;" OTHER POINTS TO ALLOCATE"
345 PRINT "AS YOU WISH": PRINT
350 Z$ = "INTELLIGENCE ": GOSUB 3300:IQ = IQ +Q: IF OT = 0 THEN 370
360 Z$ = "STRENGTH ": GOSUB 3300:ST = ST +Q: IF OT THEN Z$ = "DEXTERITY ": GOSUB 3300:DX = DX +Q
370 HOME : PRINT "OK, ";R$(RC);", YOU HAVE 60 GOLD"
375 PRINT "PIECES (GP'S)": PRINT
380 Z$ = "ARMOR": GOSUB 3390:AV = 0:WV = 0:FL = 0:WC = 0
390 PRINT "PLATE<30> CHAINMAIL<20> LEATHER<10>": PRINT "NOTHING<0>"
400 GOSUB 3280: IF O$ = "N" THEN 440
410 AV = 3 *(O$ = "P") +2 *(O$ = "C") +(O$ = "L"): IF AV >0 THEN 440
420 PRINT : PRINT "** ARE YOU A ";R$(RC);" OR ";C$( FN A(12) +12);
430 PRINT " ? TYPE P,C,L, OR N": PRINT : GOTO 380
440 AH = AV *7:GP = GP -AV *10: HOME
450 PRINT : PRINT "OK, BOLD ";R$(RC);", YOU HAVE ";GP;" GP'S LEFT": PRINT
460 Z$ = "WEAPONS": GOSUB 3390
470 PRINT "SWORD<30> MACE<20> DAGGER<10> ": PRINT "NOTHING<0>": GOSUB 3280: IF O$ = "N" THEN 500
480 WV = 3 *(O$ = "S") +2 *(O$ = "M") +(O$ = "D"): IF WV >0 THEN 500
490 PRINT : PRINT "** IS YOUR IQ REALLY ";IQ;"?": PRINT "TYPE S, M, D, OR N": PRINT : GOTO 460
500 GP = GP -WV *10: HOME : IF GP <20 THEN 540
510 PRINT "WANT TO BUY A LAMP FOR 20 GP'S";: GOSUB 3290
520 IF O$ = "Y" THEN LF = 1:GP = GP -20: GOTO 540
530 IF O$ < >"N" THEN PRINT : PRINT Y$: PRINT : GOTO 510
540 HOME : IF GP <1 THEN Q = 0: GOTO 600
550 PRINT : PRINT "OK, ";R$(RC);", YOU HAVE ": PRINT GP;" GOLD PIECES LEFT": PRINT
560 PRINT "FLARES COST 1 GP EACH.": INPUT "HOW MANY DO YOU WANT ";O$
570 Q = VAL(O$): PRINT : IF Q >0 OR ASC(O$) = 48 THEN 590
580 PRINT "** IF YOU DON'T WANT ANY, JUST TYPE 0": PRINT : GOTO 560
590 IF Q >GP THEN PRINT "** YOU CAN ONLY AFFORD ";GP: PRINT : GOTO 560
600 FL = FL +Q:GP = GP -Q: HOME :X = 1:Y = 4:Z = 1
610 PRINT "OK ";R$(RC);", YOU ENTER THE CASTLE","BEGIN."
620 T = T +1: IF RF +OF >0 THEN 690
630 IF C(1,4) >T(1) THEN T = T +1
640 IF C(2,4) >T(3) THEN GP = GP - FN A(5): IF GP <0 THEN GP = 0
650 IF C(3,4) 1 THEN 790
700 PRINT : PRINT "YOU ";:Q = FN A(7) +BL: IF Q >7 THEN Q = 4
710 ON Q GOSUB 750,730,740,720,760,770,780: GOTO 790
720 PRINT "STEPPED ON A FROG": RETURN
730 PRINT "HEAR"; MID$ ("A SCREAM FOOTSTEPS A WUMPUS THUNDER", FN A(4) *9 -8,9): RETURN
740 PRINT "SNEEZED": RETURN
750 PRINT "SEE A BAT FLY BY": RETURN
760 PRINT "SMELL ";C$(12 + FN A(13));" FRYING": RETURN
770 PRINT "FEEL LIKE YOU'RE BEING WATCHED": RETURN
780 PRINT "ARE PLAYING WIZARD'S CASTLE": RETURN
790 IF BL +T(4) = 2 THEN PRINT : PRINT C$(29);" CURES YOUR BLINDNESS":BL = 0
800 IF BF +T(6) = 2 THEN PRINT : PRINT C$(31);" DISSOLVES THE BOOK":BF = 0
810 PRINT : PRINT : PRINT : INPUT "YOUR MOVE ";O$: IF LEFT$(O$,2) = "DR" THEN 1180
820 O$ = LEFT$(O$,1): IF O$ = "N" THEN 940
830 IF (O$ = "S") OR (O$ = "W") OR (O$ = "E") THEN 950
840 IF O$ = "U" THEN 970
850 IF O$ = "D" THEN 990
860 IF O$ = "M" THEN 1010
870 IF O$ = "F" THEN ON 1 +BL GOTO 1070,1010
880 IF O$ = "L" THEN ON 1 +BL GOTO 1110,1010
890 IF O$ = "O" THEN 1310
900 IF O$ = "G" THEN ON 1 +BL GOTO 1480,1010
910 IF O$ = "T" THEN PRINT : ON 1 +RF GOTO 1590,1600
920 IF O$ = "Q" THEN 1640
930 PRINT : PRINT "** STUPID ";R$(RC);" THAT WASN'T A": PRINT "VALID COMMAND": GOTO 620
940 IF P( FN D(Z)) = 2 THEN 2900
950 X = X -(O$ = "N") +(O$ = "S"):Y = Y -(O$ = "W") +(O$ = "E")
960 X = FN B(X):Y = FN B(Y): GOTO 1670
970 IF P( FN D(Z)) = 3 THEN Z = Z -1: GOTO 1670
980 Z$ = "UP": GOTO 1000
990 Z$ = "DOWN": IF P( FN D(Z)) = 4 THEN Z = Z +1: GOTO 1670
1000 PRINT : PRINT "** OH ";R$(RC);", NO STAIRS GOING ";Z$;"IN HERE": GOTO 620
1010 IF BL = 1 THEN PRINT : PRINT "** YOU CAN'T SEE ANYTHING, DUMB": PRINT R$(RC): GOTO 620
1020 PRINT : PRINT :A = X:B = Y: FOR X = 1 TO 8: FOR Y = 1 TO 8:Q = P( FN D(Z)): IF Q >99 THEN Q = 34
1030 IF X = A AND Y = B THEN PRINT "<";I$(Q);">";: GOTO 1050
1040 PRINT " ";I$(Q);" ";
1050 NEXT Y: PRINT : PRINT : NEXT X:X = A:Y = B: GOTO 1100
1060 PRINT ") LEVEL ";Z: GOTO 620
1070 IF FL = 0 THEN PRINT : PRINT "** HEY BRIGHT ONE, YOU'RE OUT OF FLARES": GOTO 620
1080 PRINT : PRINT :FL = FL -1:A = X:B = Y: FOR Q1 = A -1 TO A +1:X = FN B(Q1): FOR Q2 = B -1 TO B +1:Y = FN B(Q2)
1090 Q = FN E(P( FN D(Z))):P( FN D(Z)) = Q: PRINT I$(Q);" ";: NEXT Q2: PRINT : PRINT : NEXT Q1:X = A:Y = B
1100 GOSUB 3400: GOTO 620
1110 IF LF = 0 THEN PRINT : PRINT "** YOU DON'T HAVE A LAMP, ";R$(RC): GOTO 620
1120 PRINT : PRINT "WHERE DO YOU SHINE THE LAMP (N,E,S,W)";: GOSUB 3290
1130 A = X:B = Y:X = FN B(X -(O$ = "N") +(O$ = "S")):Y = FN B(Y -(O$ = "W") +(O$ = "E"))
1140 IF A -X +B -Y = 0 THEN PRINT : PRINT "** TURKEY! THAT'S NOT A DIRECTION": GOTO 620
1150 PRINT : PRINT "THE LAMP SHINES INTO (";X;",";Y;") LEVEL ";Z: PRINT
1160 P( FN D(Z)) = FN E(P( FN D(Z))): PRINT "THERE YOU WILL FIND ";C$(P( FN D(Z)))
1170 X = A:Y = B: GOTO 620
1180 IF P( FN D(Z)) < >5 THEN PRINT "** IF YOU WANT A DRINK, FIND A POOL": GOTO 620
1190 Q = FN A(8): PRINT : PRINT "YOU TAKE A DRINK AND ";: IF Q <7 THEN PRINT "FEEL ";
1200 ON Q GOTO 1210,1220,1230,1240,1250,1260,1270,1290
1210 ST = FN C(ST + FN A(3)): PRINT "STRONGER": GOTO 620
1220 ST = ST - FN A(3): PRINT "WEAKER": ON 1 +(ST <1) GOTO 620,2840
1230 IQ = FN C(IQ + FN A(3)): PRINT "SMARTER": GOTO 620
1240 IQ = IQ - FN A(3): PRINT "DUMBER": ON 1 +(IQ <1) GOTO 620,2840
1250 DX = FN C(DX + FN A(3)): PRINT "NIMBLER": GOTO 620
1260 DX = DX - FN A(3): PRINT "CLUMSIER": ON 1 +(DX <1) GOTO 620,2840
1270 Q = FN A(4): IF Q = RC THEN 1270
1280 RC = Q: PRINT "BECOME A ";R$(RC): GOTO 620
1290 SX = 1 -SX: PRINT "TURN INTO A ";: IF SX = 0 THEN PRINT "FE";
1300 PRINT "MALE ";R$(RC): GOTO 620
1310 IF P( FN D(Z)) = 6 THEN PRINT : PRINT "YOU OPEN THE CHEST AND": PRINT : GOTO 1430
1320 IF P( FN D(Z)) = 12 THEN PRINT : PRINT "YOU OPEN THE BOOK AND ": PRINT : GOTO 1340
1330 PRINT : PRINT "** THE ONLY THING YOU OPENED WAS YOUR": PRINT "BIG MOUTH, ";R$(RC): GOTO 620
1340 ON FN A(6) GOTO 1350,1360,1370,1380,1390,1400
1350 PRINT "FLASH! NOW YOU ARE BLIND! ";R$(RC):BL = 1: GOTO 1420
1360 PRINT "ITS ANOTHER VOLUME OF ZOT'S POETRY!": PRINT "-YEECH!": GOTO 1420
1370 PRINT "ITS AN OLD COPY OF PLAY";R$( FN A(4)): GOTO 1420
1380 PRINT "ITS A MANUAL OF DEXTERITY!":DX = 18: GOTO 1420
1390 PRINT "ITS A MANUAL OF STRENGTH !":ST = 18: GOTO 1420
1400 PRINT "THE BOOK STICKS TO YOUR HANDS -": PRINT
1410 PRINT "NOW YOU CAN'T DRAW YOUR WEAPON!":BF = 1
1420 P( FN D(Z)) = 1: GOTO 620
1430 ON FN A(4) GOTO 1440,1450,1460,1450
1440 PRINT "KABOOM! IT EXPLODES":Q = FN A(6): GOSUB 2800: ON 1 +(ST <1) GOTO 1420,2840
1450 Q = FN A(1000): PRINT "FIND ";Q;" GOLD PIECES":GP = GP +Q: GOTO 1420
1460 PRINT "GAS! YOU STAGGER FROM THE ROOM"
1470 P( FN D(Z)) = 1:T = T +20:O$ = MID$ ("NESW", FN A(4),1): GOTO 950
1480 IF P( FN D(Z)) < >11 THEN PRINT : PRINT "** NO ORB - NO GAZE": GOTO 620
1490 PRINT : PRINT "YOU SEE ";: ON FN A(6) GOTO 1500,1510,1530,1540,1560,1580
1500 PRINT "YOURSELF IN A BLOODY HEAP":ST = ST - FN A(2): ON 1 +(ST <1) GOTO 620,2840
1510 PRINT "YOURSELF DRINKING FROM A POOL AND": PRINT "BECOMING ";C$(12 + FN A(13))
1520 GOTO 620
1530 PRINT C$(12 + FN A(13));" GAZING BACK AT YOU": GOTO 620
1540 A = X:B = Y:C = Z:X = FN A(8):Y = FN A(8):Z = FN A(8):Q = FN E(P( FN D(Z))):P( FN D(Z)) = Q
1550 PRINT C$(Q);" AT (";X;",";Y;") LEVEL ";Z:X = A:Y = B:Z = C: GOTO 620
1560 A = FN A(8):B = FN A(8):C = FN A(8): IF FN A(8) <4 THEN A = O(1):B = O(2):C = O(3)
1570 PRINT "THE ORB OF ZOT AT (";A;",";B;") LEVEL "C: GOTO 620
1580 PRINT "A SOAP OPERA RERUN": GOTO 620
1590 IF RF = 0 THEN PRINT : PRINT "** YOU CAN'T TELEPORT WITHOUT THE": PRINT "RUNESTAFF !": GOTO 620
1600 Z$ = "X-COORD (1=FAR NORTH 8=FAR SOUTH)": GOSUB 3350:X = Q
1610 Z$ = "Y-COORD (1=FAR WEST 8=FAR EAST )": GOSUB 3350:Y = Q
1620 Z$ = "LEVEL (1=TOP 8=BOTTOM )": GOSUB 3350:Z = Q
1630 O$ = "T": GOTO 1670
1640 PRINT : PRINT "DO YOU REALLY WANT TO QUIT ";: GOSUB 3290: PRINT
1650 IF O$ < >"Y" THEN PRINT "** THEN DON'T SAY YOU DO !": GOTO 620
1660 PRINT : PRINT : GOTO 2940
1670 PRINT : IF BL = 0 THEN GOSUB 3400: PRINT
1680 PRINT "STRENGHT = ";ST;" IQ= ";IQ;" DEXTERITY = ";DX
1681 PRINT "FLARES = ";FL;" GP'S = ";GP
1690 PRINT : PRINT W$(WV +1);" /"W$(AV +5);: IF LF = 1 THEN PRINT " / A LAMP";
1700 PRINT : PRINT :WC = 0:Q = FN E(P( FN D(Z))):P( FN D(Z)) = Q:Z$ = "YOU HAVE "
1710 PRINT "HERE YOU FIND ";C$(Q): IF (Q <7) OR (Q = 11) OR (Q = 12) THEN 620
1720 IF Q = 7 THEN GP = GP + FN A(10): PRINT : PRINT Z$;GP: GOTO 1420
1730 IF Q = 8 THEN FL = FL + FN A(5): PRINT : PRINT Z$;FL: GOTO 1420
1740 IF Q >9 THEN 1770
1750 PRINT : IF (O(1) = X) AND (O(2) = Y) AND (O(3) = Z) THEN ON 1 +(O$ = "T") GOTO 950,3050
1760 X = FN A(8):Y = FN A(8):Z = FN A(8): GOTO 1670
1770 IF Q = 10 THEN Z = FN B(Z +1): GOTO 1670
1780 IF Q >25 AND Q <34 THEN PRINT : PRINT "ITS NOW YOURS":T(Q -25) = 1:TC = TC +1: GOTO 1420
1790 A = P( FN D(Z)) -12:WC = 0: IF (A <13) OR (VF = 1) THEN 2300
1800 PRINT : PRINT "YOU MAY TRADE WITH, ATTACK OR IGNORE": PRINT "THE VENDOR"
1810 GOSUB 3280: IF O$ = "I" THEN 620
1820 IF O$ = "A" THEN VF = 1: PRINT : PRINT "YOU'LL BE SORRY YOU DID THAT!": GOTO 2300
1830 IF O$ < >"T" THEN PRINT : PRINT "** NICE SHOT, ";R$(RC): GOTO 1800
1840 PRINT : FOR Q = 1 TO 8:A = FN A(Q *1500): IF T(Q) = 0 THEN 1880
1850 PRINT : PRINT "DO YOU WANT TO SELL ";C$(Q +25);" FOR ";A;" GP'S";
1860 GOSUB 3290: IF O$ = "Y" THEN TC = TC -1:T(Q) = 0:GP = GP +A: GOTO 1880
1870 IF O$ < >"N" THEN PRINT Y$: GOTO 1850
1880 NEXT Q
1890 IF GP <1E3 THEN PRINT : PRINT "YOU'RE TOO POOR TO TRADE, ";R$(RC): GOTO 620
1900 IF GP <1250 THEN 2130
1910 PRINT : PRINT "OK, ";R$(RC);", YOU HAVE ";GP;" GOLD PIECES AND ";W$(AV +5)
1920 PRINT :Z$ = "ARMOR": GOSUB 3390: PRINT "NOTHING<0> LEATHER<1250> ";
1930 IF GP >1499 THEN PRINT "CHAINMAIL<1500> ";: IF GP >1999 THEN PRINT "PLATE<2000>";
1940 PRINT : GOSUB 3280: PRINT : IF O$ = "N" THEN 2010
1950 IF O$ = "L" THEN GP = GP -1250:AV = 1:AH = 7: GOTO 2010
1960 IF O$ = "C" AND GP <1500 THEN PRINT "** YOU HAVEN'T GOT THAT MUCH CASH": GOTO 1920
1970 IF O$ = "C" THEN GP = GP -1500:AV = 2:AH = 14: GOTO 2010
1980 IF O$ = "P" AND GP <2000 THEN PRINT "** YOU CAN'T AFFORD PLATE": GOTO 1920
1990 IF O$ = "P" THEN GP = GP -2000:AV = 3:AH = 21: GOTO 2010
2000 PRINT : PRINT "** DON'T BE SILLY. CHOOSE A SELECTION": GOTO 1940
2010 IF GP <1250 THEN 2130
2020 PRINT : PRINT "YOU HAVE ";GP;" GP'S LEFT WITH ";W$(WV +1);" IN HAND": PRINT
2030 PRINT :Z$ = "WEAPON": GOSUB 3390: PRINT "NOTHING<0> DAGGER<1250> "
2040 IF GP >1499 THEN PRINT "MACE<1500> ";: IF GP >1999 THEN PRINT "SWORD<2000>";
2050 PRINT : GOSUB 3280: PRINT : IF O$ = "N" THEN 2130
2060 IF O$ = "D" THEN GP = GP -1250:WV = 1: GOTO 2130
2070 IF O$ = "M" AND GP <1500 THEN PRINT "** SORRY SIR, I DON'T GIVE CREDIT": GOTO 2030
2080 IF O$ = "M" THEN GP = GP -1500:WV = 2: GOTO 2130
2090 IF O$ = "S" AND GP <2000 THEN PRINT "** DUNGEON EXPRESS CARD - ";
2100 IF O$ = "S" AND GP <2000 THEN PRINT "YOU LEFT HOME WITHOUT IT !": GOTO 2030
2110 IF O$ = "S" THEN GP = GP -2000:WV = 3: GOTO 2130
2120 PRINT "** TRY CHOOSING A SELECTION": GOTO 2050
2130 IF GP <1000 THEN 620
2140 Z$ = "STRENGTH": GOSUB 3370: IF O$ < >"Y" THEN 2160
2150 GP = GP -1E3:ST = FN C(ST + FN A(6)):Q = ST: GOSUB 3380: GOTO 2130
2160 IF O$ < >"N" THEN PRINT Y$: GOTO 2140
2170 IF GP <1000 THEN 620
2180 Z$ = "INTELLIGENCE": GOSUB 3370: IF O$ < >"Y" THEN 2200
2190 GP = GP -1E3:IQ = FN C(IQ + FN A(6)):Q = IQ: GOSUB 3380: GOTO 2170
2200 IF O$ < >"N" THEN PRINT Y$: GOTO 2180
2210 IF GP <1000 THEN 620
2220 Z$ = "DEXTERITY": GOSUB 3370: IF O$ < >"Y" THEN 2240
2230 GP = GP -1E3:DX = FN C(DX + FN A(6)):Q = DX: GOSUB 3380: GOTO 2210
2240 IF O$ < >"N" THEN PRINT Y$: GOTO 2220
2250 IF (GP <1000) OR (LF = 1) THEN 620
2260 PRINT : PRINT "WANT A LAMP FOR 1000 GP'S ";: GOSUB 3290: IF O$ < >"Y" THEN 2280
2270 GP = GP -1000:LF = 1: PRINT : PRINT "ITS GUARANTEED TO OUTLIVE YOU!": GOTO 620
2280 IF O$ < >"N" THEN PRINT Y$: GOTO 2260
2290 GOTO 620
2300 Q1 = 1 + INT(A/2):Q2 = A +2:Q3 = 1
2310 IF (C(1,4) >T(1)) OR (BL = 1) OR (DX < FN A(9) + FN A(9)) THEN 2690
2320 PRINT : PRINT : PRINT "YOU'RE FACING ";C$(A +12): PRINT : PRINT "YOU MAY ATTACK OR RETREAT";
2330 IF Q3 = 1 THEN PRINT ", OR BRIBE";: IF Q >14 THEN PRINT ", OR CAST A SPELL";
2340 PRINT : PRINT : PRINT "YOUR STRENGTH IS ";ST;" AND DEXTERITY IS ";DX: PRINT : GOSUB 3280
2350 IF O$ < >"A" THEN 2480
2360 IF WV = 0 THEN PRINT : PRINT ":: POUNDING ON "C$(12 +A);" WON'T HURT IT": GOTO 2690
2370 IF BF = 1 THEN PRINT : PRINT "** YOU CAN'T BEAT IT TO DEATH WITH ": PRINT "A BOOK": GOTO 2690
2380 IF DX < FN A(20) +(BL *3) THEN PRINT : PRINT " DRAT! MISSED": GOTO 2690
2390 PRINT : PRINT " YOU HIT THE LOUSY "; RIGHT$(C$(A +12), LEN(C$(A +12)) -2):Q2 = Q2 -WV
2400 IF (A = 9 OR A = 12) AND FN A(8) = 1 THEN PRINT : PRINT "OH NO! YOUR ";W$(WV +1);" BROKE":WV = 0
2410 IF Q2 >0 THEN 2690
2420 PRINT :MC = MC -1: PRINT C$(A +12);" LIES DEAD AT YOUR FEET": IF H >T -60 THEN 2440
2430 PRINT : PRINT "YOU SPEND AN HOUR EATING ";C$(A +12);E$( FN A(8)):H = T
2440 IF X < >R(1) OR Y < >R(2) OR Z < >R(3) THEN ON 1 +(A = 13) GOTO 2460,3220
2450 PRINT : PRINT "GREAT ZOT! YOU FOUND THE RUNESTAFF!":R(1) = 0:RF = 1
2460 Q = FN A(1000): PRINT : PRINT "YOU NOW GET HIS HOARD OF ";Q;" GP'S"
2470 GP = GP +Q: GOTO 1420
2480 IF O$ = "R" THEN 2690
2490 IF (O$ < >"C") THEN 2610
2500 IF IQ <15 OR Q3 >1 THEN PRINT : PRINT "YOU CAN'T CAST A SPELL NOW!": GOTO 2320
2510 PRINT : PRINT "WHICH SPELL (WEB, FIREBALL, OR ": PRINT "DEATHSPELL) ";: GOSUB 3290: PRINT
2520 IF O$ < >"W" THEN 2540
2530 ST = ST -1:WC = FN A(8) +1: ON 1 +(ST <1) GOTO 2690,2840
2540 IF O$ < >"F" THEN 2580
2550 Q = FN A(7) + FN A(7):ST = ST -1:IQ = IQ -1: IF (IQ <1) OR (ST <1) THEN 2840
2560 PRINT " IT DOES ";Q;" POINTS OF DAMAGE.": PRINT
2570 Q2 = Q2 -Q: GOTO 2410
2580 IF O$ < >"D" THEN PRINT : PRINT "** TRY ONE OF THE OPTIONS GIVEN": GOTO 2320
2590 PRINT "DEATH - - - ";: IF IQ <15 + FN A(4) THEN PRINT "YOURS":IQ = 0: GOTO 2840
2600 PRINT "HIS": PRINT :Q2 = 0: GOTO 2420
2610 IF O$ < >"B" OR Q3 >1 THEN PRINT : PRINT "** CHOOSE ONE OF THE LISTED OPTIONS": GOTO 2320
2620 IF TC = 0 THEN PRINT : PRINT "'ALL I WANT IS YOUR LIFE!'": GOTO 2690
2630 Q = FN A(8): IF T(Q) = 0 THEN 2630
2640 PRINT : PRINT "I WANT ";C$(Q +25);", WILL YOU GIVE IT TO ME ";
2650 GOSUB 3290: IF O$ = "N" THEN 2690
2660 IF O$ < >"Y" THEN PRINT Y$: GOTO 2640
2670 T(Q) = 0:TC = TC -1: PRINT : PRINT "OK, JUST DON'T TELL ANYONE"
2680 VF = VF -(P( FN D(Z)) = 25): GOTO 620
2690 Q3 = 2: IF WC >0 THEN WC = WC -1: IF WC = 0 THEN PRINT : PRINT "THE WEB JUST BROKE!"
2700 Z$ = RIGHT$(C$(12 +A), LEN(C$(12 +A)) -2): IF WC < = 0 THEN 2720
2710 PRINT : PRINT "THE ";Z$;" IS STUCK AND CAN'T ATTACK": GOTO 2750
2720 PRINT : PRINT "THE ";Z$;" ATTACKS": IF DX < FN A(7) + FN A(7) + FN A(7) +BL *3 THEN 2740
2730 PRINT : PRINT " HAH! HE MISSED YOU": GOTO 2750
2740 PRINT : PRINT " OUCH! HE HIT YOU":Q = Q1: GOSUB 2800: IF ST <1 THEN 2840
2750 IF O$ < >"R" THEN 2320
2760 PRINT : PRINT "YOU HAVE ESCAPED": PRINT
2770 PRINT "DO YOU GO NORTH, SOUTH, EAST, OR WEST ";: GOSUB 3290
2780 IF (O$ = "N") OR (O$ = "S") OR (O$ = "E") OR (O$ = "W") THEN 950
2790 PRINT : PRINT "** DON'T PRESS YOUR LUCK ";R$(RC): PRINT : GOTO 2770
2800 IF AV = 0 THEN 2830
2810 Q = Q -AV:AH = AH -AV: IF Q <0 THEN AH = AH -Q:Q = 0
2820 IF AH <0 THEN AH = 0:AV = 0: PRINT : PRINT "YOUR ARMOR IS DESTROYED - GOOD LUCK"
2830 ST = ST -Q: RETURN
2840 FOR Q = 1 TO 750: NEXT Q: HOME : GOSUB 3270
2850 PRINT "A NOBLE EFFORT, OH FORMERLY LIVING": PRINT R$(RC): PRINT
2860 PRINT "YOU DIED FROM A LACK OF ";: IF ST <1 THEN PRINT "STRENGTH"
2870 IF IQ <1 THEN PRINT "INTELLIGENCE"
2880 IF DX <1 THEN PRINT "DEXTERITY"
2890 PRINT : PRINT :Q3 = 1: PRINT "WHEN YOU DIED YOU HAD:": PRINT : GOTO 2970
2900 Q3 = 0: PRINT : PRINT "YOU LEFT THE CASTLE WITH";: IF OF = 0 THEN PRINT "OUT";
2910 PRINT " THE ORB OF ZOT": PRINT : IF OF = 0 THEN 2940
2920 PRINT : PRINT "A GLORIOUS VICTORY!": PRINT
2930 PRINT "YOU ALSO GOT OUT WITH THE FOLLOWING:": PRINT : GOTO 2960
2940 PRINT : PRINT "A LESS THAN AWE-INSPIRING DEFEAT."
2950 PRINT : PRINT "WHEN YOU LEFT THE CASTLE YOU HAD:": PRINT
2960 IF Q3 = 0 THEN PRINT "YOUR MISERABLE LIFE"
2970 FOR Q = 1 TO 8: IF T(Q) = 1 THEN PRINT C$(Q +25)
2980 NEXT Q: PRINT W$(WV +1): PRINT W$(AV +5): IF LF = 1 THEN PRINT "A LAMP"
2990 PRINT FL;" FLARES": PRINT GP;" GP'S": IF RF = 1 THEN PRINT "THE RUNESTAFF"
3000 PRINT : PRINT "AND IT TOOK YOU ";T;" TURNS!": PRINT
3010 PRINT : PRINT : PRINT "PLAY AGAIN ";: GOSUB 3290: PRINT
3020 IF O$ = "Y" THEN PRINT "SOME ";R$(RC);"S NEVER LEARN": PRINT : PRINT : RESTORE : GOTO 80
3030 IF O$ < >"N" THEN PRINT Y$: GOTO 3010
3040 PRINT "MAYBE DUMB ";R$(RC);" NOT SO DUMB AFTER ALL": PRINT : END
3050 PRINT : PRINT "GREAT UNMITIGATED ZOT!": PRINT
3060 PRINT "YOU JUST FOUND THE ORB OF ZOT": PRINT
3070 PRINT "THE RUNESTAFF IS GONE":RF = 0:OF = 1:O(1) = 0: GOTO 1420
3080 DATA AN EMPTY ROOM,.,THE ENTRANCE,E,STAIRS GOING UP,U
3090 DATA STAIRS GOING DOWN,D,A POOL,P,A CHEST,C,GOLD PIECES,G
3100 DATA FLARES,F,A WARP,W,A SINKHOLE,S,A CRYSTAL ORB,O
3110 DATA A BOOK,B,A KOBOLD,M,AN ORC,M,A WOLF,M,A GOBLIN,M,AN OGRE,M
3120 DATA A TROLL,M,A BEAR,M,A MINOTAUR,M,A GARGOYLE,M,A CHIMERA,M
3130 DATA A BALROG,M,A DRAGON,M,A VENDOR,V,THE RUBY RED,T
3140 DATA THE NORN STONE,T,THE PALE PEARL,T,THE OPAL EYE,T
3150 DATA THE GREEN GEM,T,THE BLUE FLAME,T,THE PALANTIR,T,THE SILMARIL
3160 DATA T,X,"?",NO WEAPON,WICH
3170 DATA DAGGER," STEW",MACE," SOUP",SWORD," BURGER",NO ARMOR," ROAST"
3180 DATA LEATHER," MUNCHY",CHAINMAIL," TACO",PLATE," PIE"
3190 DATA HOBBIT,ELF,MAN,DWARF,T,I,A,L,I,Z,I,N," ",C,A
3200 X = FN A(8):Y = FN A(8): IF P( FN D(Z)) < >101 THEN 3200
3210 P( FN D(Z)) = Q: RETURN
3220 PRINT : PRINT "YOU GET ALL HIS WARES:": PRINT : PRINT "PLATE ARMOR":AV = 3:AH = 21
3230 PRINT "A SWORD":WV = 3: PRINT "A STRENGTH POTION":ST = FN C(ST + FN A(6))
3240 PRINT "AN INTELLIGENCE POTION":IQ = FN C(IQ + FN A(6))
3250 PRINT "A DEXTERITY POTION":DX = FN C(DX + FN A(6)): IF LF = 0 THEN PRINT "A LAMP":LF = 1
3260 GOTO 2460
3270 FOR Q = 1 TO 38: PRINT "*";: NEXT Q: PRINT : PRINT S$: RETURN
3280 PRINT : PRINT "YOUR CHOICE ";
3290 INPUT O$:O$ = LEFT$(O$,1): RETURN
3300 PRINT "HOW MANY POINTS DO YOU ADD TO": PRINT Z$;: INPUT O$: PRINT
3310 Q = VAL(O$): IF (Q = 0) AND ( ASC(O$) < >48) THEN Q = -1
3320 IF (Q <0) OR (Q >OT) OR (Q < > INT(Q)) THEN PRINT "** ";: GOTO 3300
3330 OT = OT -Q: RETURN
3340 INPUT O$:Q = INT( VAL(O$)): RETURN
3350 PRINT : PRINT Z$;: INPUT O$:Q = INT( VAL(O$)): IF (Q >0) AND (Q <9) THEN RETURN
3360 PRINT : PRINT "** TRY A NUMBER FROM 1 TO 8": GOTO 3350
3370 PRINT : PRINT "WANT TO BUY A POTION OF ";Z$;" FOR 1000 GP'S";: GOTO 3290
3380 PRINT : PRINT "YOUR ";Z$;" IS NOW ";Q: RETURN
3390 PRINT "HERE IS A LIST OF ";Z$;" YOU CAN BUY": PRINT "(WITH COST IN <>)": PRINT : RETURN
3400 PRINT "YOU ARE AT (";X;",";Y;") LEVEL ";Z: RETURN
3500 GOTO 3200
4000 HOME : PRINT "YOU TRIPPED AND STRUCK YOUR HEAD"
4010 PRINT "ON A ROCK. THIS GAME IS NOW OVER. "
4020 PRINT "TRY TO REMEMBER WHAT YOU DID JUST THEN"
4030 PRINT "AND DON'T DO IT AGAIN!": PRINT "FOR A NEW GAME, TYPE 'RUN' AND THE": PRINT "RETURN KEY."
4040 END
5000 REM PRINTER
5005 REM COMMANDS GO
5010 REM HERE
5015 HOME :C$(0) = "><":C$(1) = "<>"
5020 VTAB 3: HTAB 13: PRINT "WIZARD'S CASTLE"
5025 VTAB 5: HTAB 20: PRINT "BY"
5030 VTAB 7: HTAB 13: PRINT "JOSEPH R. POWER"
5035 VTAB 13: HTAB 7: PRINT "TRANSLATED FOR THE APPLE ]["
5040 VTAB 16: HTAB 20: PRINT "BY"
5045 VTAB 18: HTAB 16: PRINT "JACK KENNE"
5050 VTAB 20: HTAB 12: PRINT "NOVEMBER 30, 1980"
5055 YY = 22:XX = 19: GOSUB 5775
5060 HOME
5065 VTAB 3: PRINT "THIS PROGRAM FIRST APPEARED IN AN OLD"
5070 PRINT "ISSUE OF 'RECREATIONAL COMPUTING', OR"
5075 PRINT "'PEOPLE'S COMPUTING' OR SOME OTHER SUCH"
5080 PRINT "MAGAZINE THAT SEEMS TO HAVE GONE AWAY...";
5085 VTAB 8: HTAB 10: PRINT "BUT THE GAME LIVES ON!"
5090 VTAB 10: PRINT "DUNGEONS AND DRAGONS HAS BEEN AROUND FOR";
5095 PRINT "A LONG TIME, AND THIS IS A VERY WELL"
5100 PRINT "DONE VERSION FOR ANY COMPUTER."
5105 VTAB 14: PRINT "FOR HANDY REFERENCE, IT IS ADVISABLE TO"
5110 PRINT "PRINT THESE INSTRUCTIONS OUT BEFORE YOU"
5115 PRINT "BEGIN THE GAME."
5120 VTAB 18: PRINT "EITHER TURN YOUR PRINTER ON BEFORE"
5125 PRINT "STARTING, OR INSERT YOUR 'PRINTER ON'"
5130 PRINT "COMMAND IN LINE 5760, AND YOUR 'PRINTER"
5135 PRINT "OFF' COMMAND IN LINE 5765."
5140 VTAB 24: HTAB 13: PRINT "(PRESS ANY KEY)";
5145 YY = 24:XX = 30: GOSUB 5775
5150 HOME
5155 PRINT "IN THE BEGINNING..."
5160 VTAB 3: PRINT "YOU HAVE SEVERAL CHOICES TO MAKE. YOU"
5165 PRINT "MUST FIRST CHOOSE TO BE AN ELF, DWARF,"
5170 PRINT "MAN OR HOBBIT AND THEN IF YOU WILL BE"
5175 PRINT "MALE OR FEMALE."
5180 VTAB 8: PRINT "THEN YOU MAY SPEND SOME (OR ALL) OF"
5185 PRINT "YOUR 60 GOLD PIECES FOR SUCH FRIVOLITIES";
5190 PRINT "AS ARMOR, WEAPON, A LAMP OR FLARES."
5195 VTAB 12: HTAB 12: PRINT "THIS IS NO PICNIC."
5200 VTAB 14: PRINT "IT HAS BECOME YOUR MISSION TO LOCATE AND";
5205 PRINT "REMOVE, FROM THE EVIL WIZARD'S CASTLE,"
5210 VTAB 17: HTAB 11: INVERSE : PRINT " THE ORB OF ZOT ! "
5215 VTAB 21: HTAB 10: NORMAL : PRINT "(PRESS ANY KEY)"
5220 YY = 21: GOSUB 5775
5225 HOME
5230 PRINT "THE CASTLE CONSISTS OF EIGHT ROOMS EAST"
5235 PRINT "AND WEST BY EIGHT ROOMS NORTH AND SOUTH"
5240 PRINT "AND IS EIGHT LEVELS DEEP. THIS IS A BIG"
5245 PRINT "PLACE!"
5250 VTAB 6: PRINT "IT'S FULL OF MONSTERS TO GUARD AGAINST"
5255 PRINT "YOUR SUCCESS. THE ORB OF ZOT IS HIDDEN"
5260 PRINT "IN A 'WARP'."
5265 VTAB 10: PRINT "A WARP IS A ROOM THAT WILL CAUSE YOU TO"
5270 PRINT "TELEPORT TO A RANDOM LOCATION WITHIN THE";
5275 PRINT "CASTLE... EXCEPT THE WARP CONTAINING THE";
5280 PRINT "ORB OF ZOT. TRYING TO ENTER THAT ROOM"
5285 PRINT "WILL CAUSE YOU TO BE PLACED IN THE ROOM"
5290 PRINT "ON THE OPPOSITE SIDE OF THE ROOM WITH"
5295 PRINT "THE ORB. THERE IS ONLY ONE WAY INTO THAT";
5300 PRINT "ROOM..."
5305 VTAB 21: HTAB 13: PRINT "(PRESS ANY KEY)"
5310 GOSUB 5775
5315 HOME
5320 HTAB 5: PRINT "YOU MUST ";: INVERSE : PRINT "TELEPORT";: NORMAL : PRINT " INTO THE ROOM."
5325 VTAB 3: PRINT "TO TELEPORT, YOU MUST HAVE THE ";: INVERSE : PRINT "RUNESTAFF";
5330 VTAB 5: HTAB 2: NORMAL : PRINT "ONE OF THE ";: INVERSE : PRINT "MONSTERS";: NORMAL : PRINT " HAS THE RUNESTAFF"
5335 VTAB 7: PRINT "TO GET THE RUNESTAFF, YOU MUST ";: INVERSE : PRINT "KILL";: NORMAL : PRINT " HIM.";
5340 VTAB 10: PRINT "YOU BEGIN AT THE ENTRANCE, IN THE DARK."
5345 PRINT "TO SEE WHAT IS IN THE NEXT ROOM, YOU CAN";
5350 PRINT "SHINE YOUR LANTERN INTO IT, OR LIGHT A"
5355 PRINT "FLARE."
5360 VTAB 15: PRINT "A LAMP SHOWS ONE ROOM AT A TIME, WHILE"
5365 PRINT "A FLARE SHOWS THE CONTENTS OF THE EIGHT"
5370 PRINT "ROOMS AROUND YOU."
5375 VTAB 19: PRINT "YOU CAN ALSO LOOK AT THE MAP YOU KEEP"
5380 PRINT "OF YOUR WANDERINGS."
5385 VTAB 22: HTAB 13: PRINT "(PRESS ANY KEY)"
5390 YY = 22: GOSUB 5775
5395 HOME
5400 PRINT "THERE ARE SEVERAL ";: INVERSE : PRINT "TREASURES";: NORMAL : PRINT " YOU CAN"
5405 PRINT "PICK UP ALONG THE WAY, SOME WITH MAGIC"
5410 PRINT "POWERS..."
5415 VTAB 5: PRINT "THE TREASURES ARE:"
5420 VTAB 7: HTAB 13: INVERSE : PRINT " THE RUBY RED "
5425 HTAB 13: PRINT " THE NORN STONE "
5430 HTAB 13: PRINT " THE PALE PEARL "
5435 HTAB 13: PRINT " THE OPAL EYE "
5440 HTAB 13: PRINT " THE GREEN GEM "
5445 HTAB 13: PRINT " THE BLUE FLAME "
5450 HTAB 13: PRINT " THE PALENTIR "
5455 HTAB 13: PRINT " THE SILMARIL "
5460 VTAB 19: HTAB 13: NORMAL : PRINT "(PRESS ANY KEY)"
5465 YY = 19: GOSUB 5775
5470 HOME
5475 HTAB 11: PRINT "THE MAP SYMBOLS ARE:"
5480 VTAB 3: HTAB 11: INVERSE : PRINT " B - A BOOK "
5485 HTAB 11: PRINT " C - A CHEST "
5490 HTAB 11: PRINT " D - STAIRS DOWN "
5495 HTAB 11: PRINT " E - THE ENTRANCE "
5500 HTAB 11: PRINT " F - FREE FLARES "
5505 HTAB 11: PRINT " G - GOLD PIECES "
5510 HTAB 11: PRINT " M - A MONSTER "
5515 HTAB 11: PRINT " O - A CRYSTAL ORB "
5520 HTAB 11: PRINT " P - A POOL "
5525 HTAB 11: PRINT " T - A TREASURE "
5530 HTAB 11: PRINT " U - STAIRS UP "
5535 HTAB 11: PRINT " V - A VENDOR "
5540 HTAB 11: PRINT " W - A WARP "
5545 HTAB 11: PRINT " . - AN EMPTY ROOM "
5550 HTAB 11: PRINT "< >- YOU "
5555 VTAB 21: HTAB 13: NORMAL : PRINT "(PRESS ANY KEY)"
5560 YY = 21: GOSUB 5775
5565 HOME
5570 INVERSE : PRINT "B";: NORMAL : PRINT "OOKS - YOU MAY ";: INVERSE : PRINT "R";: NORMAL : PRINT "EAD THEM."
5575 INVERSE : PRINT "C";: NORMAL : PRINT "HESTS - YOU MAY ";: INVERSE : PRINT "O";: NORMAL : PRINT "PEN THEM."
5580 INVERSE : PRINT "S";: NORMAL : PRINT "TAIRS - YOU MAY GO ";: INVERSE : PRINT "U";: NORMAL : PRINT "P OR ";
5585 HTAB 10: PRINT "INDICATED, OR IGNORE THEM."
5590 INVERSE : PRINT "E";: NORMAL : PRINT "NTRANCE - GOING ";: INVERSE : PRINT "N";: NORMAL : PRINT "ORTH FROM HERE WILL"
5595 HTAB 12: PRINT "END THE GAME. ALL OTHER EDGE"
5600 HTAB 12: PRINT "ROOMS 'WRAP AROUND' IN THE"
5605 HTAB 12: PRINT "CASTLE."
5610 INVERSE : PRINT "F";: NORMAL : PRINT "LARES - ENTER THIS ROOM AND YOU HAVE"
5615 HTAB 10: PRINT "PICKED THEM UP."
5620 INVERSE : PRINT "G";: NORMAL : PRINT "OLD - ENTER THIS ROOM AND YOU HAVE MORE";
5625 HTAB 8: PRINT "GOLD THAN BEFORE!"
5630 INVERSE : PRINT "M";: NORMAL : PRINT "ONSTER - BEWARE! BUT YOU MUST FIGHT TO"
5635 HTAB 11: PRINT "WIN THE GAME."
5640 INVERSE : PRINT "O";: NORMAL : PRINT "RB - YOU MAY ";: INVERSE : PRINT "G";: NORMAL : PRINT "AZE INTO IT."
5645 INVERSE : PRINT "P";: NORMAL : PRINT "OOL - YOU MAY DRINK HERE, AND STRANGE"
5650 HTAB 8: PRINT "THINGS MAY HAPPEN."
5655 INVERSE : PRINT "T";: NORMAL : PRINT "REASURE - ONE OF THE MAGICAL (?) STONES";
5660 HTAB 12: PRINT "ENTER THIS ROOM TO GET IT."
5665 VTAB 22: HTAB 13: PRINT "(PRESS ANY KEY)"
5670 YY = 22: GOSUB 5775
5675 HOME
5680 PRINT "WHEN MOVING THROUGH THE CASTLE, YOU"
5685 PRINT "MAY ENCOUNTER A CURSE OR TWO..."
5690 VTAB 4: PRINT "THE CURSE OF THE LEECH CAUSES YOUR GOLD"
5695 PRINT "TO DISAPPEAR"
5700 VTAB 7: PRINT "THE CURSE OF FORGETFULLNESS CAUSES YOUR"
5705 PRINT "MAP TO LOSE DETAIL."
5710 VTAB 10: PRINT "SOME BOOKS EXPLODE, AND MAY BLIND YOU!"
5715 PRINT "OTHERS MAY INCREASE YOUR STRENGTH,"
5720 PRINT "DEXTERITY OR INTELLIGENCE! SOME WILL"
5725 PRINT "STICK TO YOUR HANDS."
5730 VTAB 15: PRINT "SOME TREASURES WILL WARD-OFF THESE"
5735 PRINT "CATASTROPHIES."
5740 VTAB 18: HTAB 7: PRINT "(SOME MONSTERS CAN ONLY BE)"
5745 HTAB 12: PRINT "(KILLED BY MAGIC)"
5750 VTAB 22: HTAB 9: PRINT "[PRESS ANY KEY TO BEGIN]"
5755 YY = 22:XX = 35: GOSUB 5775
5760 REM PRINTER COMMANDS
5765 REM GO HERE
5770 RETURN
5775 X = NOT X: POKE -16368,0:IP = 0
5780 VTAB YY: HTAB XX: PRINT C$(X);
5781 FOR DL = 1 TO 20: NEXT DL
5785 IP = PEEK( -16384): POKE -16368,0
5790 IF IP >127 THEN 5800
5795 GOTO 5775
5800 X = 1: RETURN