Notes

Disk info for Prisoner_2_1982_Interactive_Fantasies.do:

File Name: a2_Pner_2_1982_Interactive_Fantasies/Prisoner_2_1982_Interactive_Fantasies.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 19200
Used Space (bytes): 124160
Physical Size (KB): 140
Free Space (KB): 18
Used Space (KB): 121
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 75
Used Sectors: 485
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for Prisoner_2_1982_Interactive_Fantasies.do:

a2_Pner_2_1982_Interactive_Fantasies/Prisoner_2_1982_Interactive_Fantasies.do DISK VOLUME #254
* A 006 INTERACTIVE FANTASIES
* B 031 EWS3
* B 008 PARSER
* B 002 DISSOLVE
* B 004 IF.SHAPE
* B 003 MAZE
* A 020 PRISONER 2
* A 023 PR.1
* A 054 PR.2
* A 052 PR.3
* A 041 PR.4
* A 054 PR.5
* A 051 PR.6
* A 048 PR.7
* A 022 PR.8
* T 002 PR.STATUS
DOS 3.3 format; 19,200 bytes free; 124,160 bytes used.

Text found in Prisoner_2_1982_Interactive_Fantasies.do/DISSOLVE.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 A9 00 D0 15 A9 FE 85 00 A9 01 85 01 20 34 1F 20 ).P.)~.. )... 4.
$000010 41 1F E6 01 C6 00 D0 F4 60 A9 01 85 00 A9 FE 85 A.f.F.Pt `)...)~.
$000020 01 20 41 1F 20 34 1F E6 00 C6 01 D0 F4 60 A2 03 . A. 4.f .F.Pt`".
$000030 CA D0 FD 60 2C 54 C0 A5 00 20 2E 1F E9 01 D0 F9 JP}`,T@% . ..i.Py
$000040 60 2C 55 C0 A5 01 20 2E 1F E9 01 D0 F9 60 99 99 `,U@%. . .i.Py`..
** END **

Text found in Prisoner_2_1982_Interactive_Fantasies.do/INTERACTIVE FANTASIES.bas:

0 POKE 1012,0: POKE 205,255:ZZ = RND( -1): FOR I = 1 TO PEEK(78):ZZ = RND(1): NEXT I: TEXT : HOME : NORMAL : CLEAR : HGR2 : HGR : SPEED= 255: HIMEM: 29410: LOMEM: 24576: POKE -16302,0: ONERR GOTO 18
1 PRINT CHR$(4)"BLOADEWS3": PRINT CHR$(4)"BLOADIF.SHAPE": PRINT CHR$(4)"BLOADPARSER": PRINT CHR$(4)"BLOADDISSOLVE,A7936": CALL 22367
2 HCOLOR= 3: SCALE= 1: ROT= 0: POKE 232,0: POKE 233,86: GOTO 6
3 PR# 0: CALL 1002: RETURN
4 X% = PEEK(P1%) + PEEK(P1%) - PEEK(P1%) + PEEK(P1%): RETURN
5 GOSUB 4: DRAW N8% AT N1% -N% *N2%,N3% -N% *N4%: POKE P1,N% *1 +30: POKE P2,10: RETURN
6 CALL 35328: GOSUB 14: FOR I = N5% TO N6% STEP -N7%:N% = I: SCALE= N%: HCOLOR= C%(N%): GOSUB 5: NEXT : HCOLOR= N0%: FOR I = N5% TO N6% STEP -N7%:N% = I: SCALE= N%: GOSUB 5: NEXT
7 FOR I = 2 TO 7: HCOLOR= C%(I): SCALE= I: GOSUB 4: DRAW 3 AT I *12 -10,I *4 +21: NEXT
8 HCOLOR= 0: FOR I = 2 TO 7: SCALE= I: GOSUB 4: DRAW 3 AT I *12 -10,I *4 +21: NEXT
9 GOSUB 10: FOR I = 30 TO 90 STEP 30: PRINT "@"I"X"I"YN@": NEXT : GOSUB 3: CLEAR : CALL 36263: PRINT CHR$(4)"RUNPRISONER 2": END
10 FOR I = 0 TO 6 STEP 3: HCOLOR= C%(I): HPLOT 91 +I,96 +I TO 113 +I,96 +I TO 113 +I,160 +I TO 91 +I,160 +I TO 91 +I,96 +I
11 HPLOT 91 +I,72 +I TO 113 +I,72 +I TO 113 +I,88 +I TO 91 +I,88 +I TO 91 +I,72 +I
12 HPLOT 133 +I,48 +I TO 140 +I,40 +I TO 175 +I,40 +I TO 175 +I,64 +I TO 168 +I,64 +I TO 161 +I,72 +I TO 161 +I,96 +I TO 175 +I,96 +I
13 HPLOT TO 175 +I,121 +I TO 161 +I,121 +I TO 161 +I,160 +I TO 133 +I,160 +I TO 133 +I,48 +I: NEXT : RETURN
14 HCOLOR= 1: HPLOT 21,12 TO 3,12 TO 3,188 TO 277,188 TO 277,12 TO 107,12: HCOLOR= 3: DRAW 1 AT 23,1: DRAW 2 AT 32,15: VTAB 2: HTAB 6: PRINT "nteractive": HTAB 7: PRINT "antasies"
15 DATA 5,4,1,2,5,6,1,2
16 DIM C%(7): FOR I = 0 TO 7: READ C%(I): NEXT I:N5% = 7:N8% = 3:N7% = 1:N1% = 275:N2% = 35:N3% = 105:N4% = 10:N6% = 2:P1% = -16336
17 PRINT "@I@": FOR I = 3 TO 5: VTAB I: HTAB 28: PRINT SPC( 12): NEXT : PRINT "@3V28H@PRISONER 2@I@": RETURN
18 GOSUB 3:ER% = PEEK(222): IF ER% = 8 OR ER% >253 THEN CALL 35339: RESUME
19 TEXT : PRINT "ERROR "ER%" AT LINE " PEEK(218) + PEEK(219) *256": IF": END

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.1.bas:

1 CALL 36281: ONERR GOTO 85
2 PRINT CHR$(4)"BLOADMAZE":ZZ = FRE(0): GOTO 38
3 VT = 1:HT = 1:BL = 17:LN = 17:CL = 130: GOSUB 23:X = PX -1:Y = PY:HT = 1: IF FN M(X) THEN CL = 5: GOSUB 20: GOTO 5
4 CL = 139: GOSUB 20:H = 2:TP = 1: PRINT "@1V@";: GOSUB 27: PRINT "@16V@";: GOSUB 28
5 X = PX +1:HT = 16: IF FN M(X) THEN CL = 5: GOSUB 20: GOTO 7
6 CL = 139: GOSUB 20:H = 18:TP = 1: PRINT "@1V@";: GOSUB 25: PRINT "@16V@";: GOSUB 26
7 X = PX:Y = PY -1: IF FN M(X) THEN 9
8 VT = 3:HT = 3:BL = 13:LN = 13:CL = 5: GOSUB 23: RETURN
9 X = PX -1:HT = 3: IF FN M(X) THEN CL = 5: GOSUB 21: GOTO 11
10 CL = 139: GOSUB 21:H = 4:TP = 2: PRINT "@3V@";: GOSUB 27: PRINT "@13V@";: GOSUB 28
11 X = PX +1:HT = 13: IF FN M(X) THEN CL = 5: GOSUB 21: GOTO 13
12 CL = 139: GOSUB 21: PRINT "@3V@";:TP = 2:H = 16: GOSUB 25: PRINT "@13V@";: GOSUB 26
13 Y = PY -2:X = PX:HT = 6: IF NOT FN M(X) THEN VT = 6:BL = 7:LN = 7:CL = 5: GOSUB 23: RETURN
14 X = PX -1: IF FN M(X) THEN CL = 5: GOSUB 22: GOTO 16
15 CL = 139: GOSUB 22:H = 7:TP = 1: PRINT "@6V@";: GOSUB 27: PRINT "@11V@";: GOSUB 28
16 X = PX +1:HT = 11: IF FN M(X) THEN CL = 5: GOSUB 22: GOTO 18
17 CL = 139: GOSUB 22:H = 13:TP = 1: PRINT "@6V@";: GOSUB 25: PRINT "@11V@";: GOSUB 26
18 X = PX:Y = PY -3: IF FN M(X) THEN PRINT "@8V8HG139C130K@J H@ID3B@ @I@8@I@ @D3B@H@I@ @I@J@I@": RETURN
19 HT = 8:VT = 8:BL = 3:LN = 3:CL = 5: GOSUB 23: RETURN
20 VT = 3:BL = 2:LN = 13: GOSUB 23: RETURN
21 VT = 6:BL = 3:LN = 7: GOSUB 23: RETURN
22 VT = 8:BL = 2:LN = 3: GOSUB 23: RETURN
23 FOR H = 1 TO LN: HTAB HT +1: VTAB VT +H: PRINT "@R15C"CL"K@" SPC( BL): NEXT H: PRINT "@0K@": RETURN
24 VT = 1:HT = 1:BL = 38:LN = 22:CL = 0: GOTO 23
25 PRINT "@130K139CG@";: FOR I2 = 0 TO TP: HTAB H -I2: PRINT "H@I@" SPC( I2)"@I@": NEXT I2: RETURN
26 PRINT "@130K139CG@";: FOR I2 = TP TO 0 STEP -1: HTAB H -I2: PRINT "@I@J" SPC( I2)"@I@": NEXT I2: RETURN
27 PRINT "@130K139CG@";: FOR I2 = 0 TO TP: HTAB H: PRINT "@I@" SPC( I2)"@I@J": NEXT I2: RETURN
28 PRINT "@130K139CG@";: FOR I2 = TP TO 0 STEP -1: HTAB H: PRINT "@I@" SPC( I2)"H@I@": NEXT I2: RETURN
29 POKE 7572 +Y *16 +X,TP: RETURN
30 PRINT IN$"@I@PRESS SPACE BAR TO CONTINUE": POKE -16368,0
31 KY = PEEK( -16384): IF KY <128 THEN 31
32 POKE -16368,0: IF KY < >160 THEN 31
33 PRINT "@I@"IB$: RETURN
34 L4 = 750: GOTO 36
35 L4 = 1200: GOTO 36
36 FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
37 FOR I4 = 1 TO LEN(TP$):A$ = MID$ (TP$,I4,1):TP = ASC(A$) -21: PRINT A$"@"TP"X"TP"YN@";: NEXT I4: RETURN
38 POKE 30720,21: POKE 30721,10: POKE 30722,25: CALL 35339: DEF FN M(X) = PEEK(7572 +Y *16 +X): DEF FN R(X) = INT( RND(1) *X) +1: GOSUB 73: GOSUB 24:VT = 1:HT = 18:BL = 21:LN = 17:CL = 10: GOSUB 23:VT = 2:HT = 21:BL = 15:LN = 15:CL = 0: GOSUB 23: HCOLOR= 2: HPLOT 10,180 TO 10,148 TO 270,148 TO 270,180 TO 9,180 TO 9,148: HPLOT 269,180 TO 269,148: HPLOT 9,164 TO 270,164
39 PRINT "@I19V2H@OUTPUT:@2D2H@INPUT :@I@":HX = PEEK(7863):HY = PEEK(7868):PX = HX:PY = HY: HCOLOR= 3: HPLOT 150,132 TO 150,20 TO 249,20 TO 249,132 TO 151,132 TO 151,20: HPLOT 250,20 TO 250,132: PRINT "@"PX +21"H"PY +2"VR0K15C@#@19V10H@TYPE F, B, L OR R": PRINT "@"YT +2"V35H@ "
40 GOSUB 3: PRINT "@R0K15C@": IF PX = 14 GOTO 61
41 X = PX:Y = PY: IF FN M(X) = 5 THEN HTAB X +22: VTAB Y +3: PRINT " "OS$"WHAT GOES UP...": FOR I = 1 TO 17: PRINT "@1H"18 -I"V10Y"10 *I"XN@" SPC( 17): NEXT I:PX = HX:PY = HY: HTAB PX +22: VTAB PY +3: PRINT "#": GOTO 40
42 IF FN M(X) = 4 THEN PRINT "@16V9H130K15CL@" CHR$(102)NM$
43 POKE -16368,0: IF X = HX AND Y = HY THEN PRINT "@16V6H130K15CG@H@I@" SPC( 5)"@I@J@D@J@9B@H@R0KI@WELCOME@15CRI@"
44 KY = PEEK( -16384): IF KY <128 THEN 44
45 PRINT "@19V10H@" SPC( 25)"@2D10H@" SPC( 25): IF KY = 204 THEN X = PX -1:TP$ = "WEST": GOTO 59
46 IF KY = 210 THEN X = PX +1:TP$ = "EAST": GOTO 59
47 IF KY = 198 THEN Y = PY -1:TP$ = "NORTH": GOTO 59
48 IF KY = 194 THEN Y = PY +1:TP$ = "SOUTH": GOTO 59
49 IF KY = 155 THEN SC = SC +5: PRINT "@"3 +PY"V"22 +PX"H@ ": GOTO 61
50 FOR I = 0 TO 3: POKE 30723 +I,0: NEXT I: CALL 30727:VB = PEEK(30724):AD = PEEK(30725):OB = PEEK(30726): IF VB = 2 THEN PRINT "@19V10H@THAT TRICK WON'T WORK": GOTO 44
51 IF VB = 1 AND OB = 1 AND FN M(X) = 4 THEN PRINT "@19V10H@A KEY NEEDS A KEYHOLE@16V9HL130K@ @0KR@":PS(1) = 1:Y = PY:X = PX:TP = 1: GOSUB 29: GOTO 44
52 IF VB = 1 AND OB = 1 THEN PRINT "@19V10H@I DON'T SEE A KEY HERE": GOTO 44
53 IF AD < >20 AND VB < >20 THEN 56
54 PRINT OS$"YOU ARE AT HOME": IF FN M(X) = 4 THEN GOSUB 30: PRINT OS$"HERE IS A KEY "
55 GOTO 44
56 IF VB < >10 THEN PRINT OS$"YOU TALK IN CIRCLES": GOTO 44
57 FOR I = 1 TO 28: IF PS(I) THEN PRINT OB$OS$PS$(I)": "PS(I): GOSUB 30
58 NEXT I: PRINT OB$OS$"VISICARD: "CR" CREDITS": GOSUB 30: PRINT OB$: GOTO 44
59 POKE -16368,0: PRINT "@10H@"TP$: IF FN M(X) THEN VTAB 3 +PY: HTAB 22 +PX: PRINT " ":PX = X:PY = Y: VTAB 3 +PY: HTAB 22 +PX: PRINT "#": GOTO 40
60 PRINT OS$"@30X30YN@STONEWALLED AGAIN": GOTO 41
61 PRINT OS$"@R0K@" SPC( 25)"@2D10H@" SPC( 25):VT = 1:HT = 1:BL = 38:LN = 17:CL = 0: GOSUB 23:BL = 16:LN = 11:CL = 129: GOSUB 23:VT = 12:CL = 133:LN = 6: GOSUB 23:V = 96:EV = 93: HCOLOR= 7: FOR H = 7 TO 77:X = FN R(3) -2:EV = EV +X:EV = EV +(EV <87) -(EV >96): HPLOT H,V TO H,EV: NEXT H: FOR X = 155 TO 235 STEP 80: HPLOT X,12 TO X,32: HPLOT X +1,12 TO X +1,32: NEXT X
62 PRINT "@129KL10V13H138C@" CHR$(103)"@R15C0K@":VT = 4:HT = 21:BL = 14:LN = 6:CL = 15: GOSUB 23: PRINT "@2V18H130K@" SPC( 19): FOR V = 1 TO 17: VTAB V +1: PRINT "@19H@ ": NEXT V: PRINT "@0KI5V23H@THE CASTLE@2D23H@#1 ISLAND@D25H@SQUARE@I@": PRINT "@L129K138C@": FOR V = 10 TO 7 STEP -1: PRINT "@13H"V"V@" CHR$(97): IF V <10 THEN PRINT "@13H"V +2"VR@ @L@"
63 GOSUB 34: NEXT V: HCOLOR= 3: HPLOT 150,140 TO 150,92 TO 270,92 TO 270,140 TO 151,140 TO 151,92: HPLOT 269,92 TO 269,140: PRINT "@2V5H15C@";:TP$ = "GOOD": GOSUB 37:TP$ = "MORNING": PRINT "@4V2H@";: GOSUB 37: PRINT "@R12V22H0K@AND WHO ARE YOU?@2D22H@1. ?@6F@3. !@2D22H@2. #@6F@4. "RC$
64 KY = PEEK( -16384): IF KY <177 OR KY >180 THEN 64
65 POKE -16368,0: PRINT OB$IB$:KY = KY -176: PRINT IN$KY: ON KY GOTO 66,67,68,69
66 SC = SC +3: GOTO 70
67 SC = SC -3: PRINT "@19V10H20X20YN@KNOW THYSELF": GOTO 71
68 SC = SC +5: GOTO 70
69 TP$ = "PR.8":TP = 2: GOTO 86
70 PRINT "@19V10H200X200YN@NO": GOTO 64
71 SP = INT( RND(1) *20): IF NOT GS THEN GS = 1:SP = 0: PRINT NM$"@I12V22H@THE CARETAKER @D22H@WISHES TO SEE @D22H@YOU AT YOUR @D22H@EARLIEST" SPC( 8)"@D22H@CONVENIENCE, #. "
72 RM = 6:TP$ = "PR.2": GOTO 86
73 FOR I = 0 TO 31: POKE 7828 +I,4: NEXT I: FOR I = 1 TO 3: FOR J = 1 TO 8
74 TP = FN R(32) -1: IF PEEK(7828 +TP) < >4 THEN 74
75 POKE 7828 +TP,I: NEXT J,I: CALL 7168
76 Y = FN R(13):X = 1: IF FN M(X) < >1 THEN 76
77 IF NOT PS(1) THEN TP = 4: GOSUB 29
78 X = 13:Y = FN R(13): IF FN M(X) < >1 THEN 78
79 X = 14:TP = 1:YT = Y: GOSUB 29: FOR C = 1 TO 8:X = FN R(13):Y = FN R(13): IF FN M(X) < >0 THEN 81
80 TP = 5: GOSUB 29
81 NEXT C: GOSUB 24:VT = 3:HT = 5:BL = 33:LN = 13:CL = 15: GOSUB 23:VT = 6:HT = 2:BL = 3:LN = 10: GOSUB 23:H = 4:V = 3: PRINT "@G15C@": FOR I = 1 TO 3: PRINT "@"H"H"V"V@H@I@ @I@":H = H -1:V = V +1: NEXT I: PRINT "@IR4V6H@#####,#@I@":F = 0: FOR X = 1 TO 14: FOR Y = 1 TO 13: IF PEEK( -16384) = 205 THEN POKE -16368,0:F = 1
82 IF F AND FN M(X) THEN PRINT "@"X +5"H"Y +2"V@ "
83 NEXT Y: IF NOT F THEN H = FN R(34) +2:V = FN R(9) +6: PRINT "@"H"H"V"V"2 *H"X"2 *V"YNGI@3@RI@"
84 NEXT X: GOTO 35
85 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256:A$ = "PR.1":TP$ = "PR.8":TP = 4 -(ER = 255)
86 PRINT : PR# 0: CALL 1002: CALL 36263: PRINT CHR$(4)"RUN"TP$: END

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.2.bas:

1 CALL 36281: ONERR GOTO 202
2 PN = 21:TX = 0:RV = 0:ZZ = FRE(0): GOTO 30
3 POKE 35399,0:BL = BL/2: PRINT "@15C"CL"KL@": FOR H = 1 TO LN STEP 2: HTAB HT +1: VTAB VT +H: PRINT SPC( BL): NEXT H:BL = 2 *BL: PRINT NM$: RETURN
4 VT = 1:HT = 1:BL = 38:LN = 22:CL = 0: GOTO 3
5 PRINT NM$"@I21V10H@PRESS SPACE BAR TO CONTINUE": POKE -16368,0
6 KY = PEEK( -16384): IF KY <128 THEN 6
7 POKE -16368,0: IF KY < >160 THEN 6
8 I$ = "": PRINT "@I@": GOTO 13
9 L4 = 750: GOTO 11
10 L4 = 1200: GOTO 11
11 FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
12 FOR I4 = 1 TO LEN(TP$):A$ = MID$ (TP$,I4,1):TP = ASC(A$) -21: PRINT A$"@"TP"X"TP"YN@";: NEXT I4: RETURN
13 PRINT NM$IB$IN$I$: RETURN
14 PRINT NM$OB$OS$O$: RETURN
15 PRINT "@17H"Y"V@" CHR$(97 +( INT(Y/2) = Y/2))"@20Y"195 +10 *Y"XN@";: PRINT "@B@ ": RETURN
16 PRINT "@"CO"K@": FOR V = 1 TO 20: PRINT "@"HT"H"VT"VI10Y" FN R(50)"XN@" CHR$(109): FOR H = 1 TO 3 *V: NEXT H,V: RETURN
17 POKE 35399,0:O$ = BB$: GOSUB 14:TP$ = BB$ +TP$ +BB$: VTAB 20: HTAB 11:T5 = LEN(TP$) -27: FOR I5 = 1 TO T5: HTAB 11: PRINT MID$ (TP$,I5,28)"@35Y"34 + FN R(25)"XN@";: NEXT I5: RETURN
18 VT = 1:HT = 1:BL = 38:LN = 16:CL = 129: GOSUB 3: PRINT "@17V1H"CL"K@" SPC( 38):VT = 3:HT = 3:LN = 12:BL = 30:CL = 10: GOSUB 3:HT = 33:BL = 4:CL = 5: GOSUB 3: PRINT "@15KL3V3H@ @DB@ @11VB@ @DB@ "NM$:TP$ = "FINISH": PRINT "@I@": FOR V = 1 TO 6: PRINT "@35H"V +5"V@" MID$ (TP$,V,1): NEXT V: PRINT "@I@"
19 FOR V = 1 TO 11: FOR H = 1 TO 19:RC(H,V) = 0: NEXT H,V: FOR V = 2 TO 7: FOR H = 3 TO 16:RC(H,V) = 10: NEXT H: FOR H = 17 TO 18:RC(H,V) = 5: NEXT H,V:RC(2,4) = 3:RC(2,5) = 3: PRINT "@L15C10K7V5H@" CHR$(109): PRINT NM$"@I2V14H@VIEW SCREEN@L15V11HI@" CHR$(25)"@28H@" CHR$(26): RETURN
20 X = 2 * FN R(12) +7:Y = 2 * FN R(4) +3: IF X = PX AND Y = PY THEN 20
21 V = INT(Y/2 +1):H = INT(X/2 +1): RETURN
22 FOR I = 1 TO 28: IF PS(I) THEN O$ = PS$(I) +" : " + STR$(PS(I)): GOSUB 14: GOSUB 5
23 NEXT I:O$ = "VISICARD : " + STR$(CR) +" CREDITS": GOSUB 14: GOSUB 5: PRINT IB$OB$: RETURN
24 FOR I = 0 TO 2: POKE 30724 +I,0: NEXT I: CALL 30727:VB = PEEK(30724):AD = PEEK(30725):OB = PEEK(30726): IF VB = 253 THEN 198
25 IF VB = 254 THEN 199
26 RETURN
27 IF RM THEN Y = INT((RM -1)/5 +1):X = RM: FOR I = 1 TO 3:X = X -(X >5) *5: NEXT
28 RETURN
29 PRINT "@"2 *OX -1"H"2 *OY -1"VL@ @0K5Y" FN R(50) +50"XN@": GOTO 135
30 POKE 30720,21: POKE 30721,10: POKE 30722,25: CALL 35339:I = 0: FOR V = 1 TO 4: FOR H = 1 TO 5:V(H,V) = H +I: NEXT :I = I +5: NEXT : GOSUB 4: GOSUB 195: DEF FN R(X) = INT( RND(1) *X) +1: GOSUB 27: FOR I = 0 TO 10:TA$(I) = "": NEXT :T3$(0) = "":T3$(1) = "": FOR I = 0 TO 20: FOR J = 0 TO 4:RN$(I,J) = "": NEXT J:TM$(I) = "":TP$(I) = "": NEXT :TP$ = "":O$ = "":I$ = "":IP$ = "":A$ = "":T1$ = "":T2$ = ""
31 RM = V(X,Y):NP = 0: GOSUB 196: GOSUB 197: ON RM +1 GOSUB 179,156,157,158,159,160,162,163,164,165,167,168,170,171,172,173,174,175,176,177,178: PRINT NM$: POKE 35399,0:RM$ = RM$ +""
32 KY = PEEK( -16384): IF KY <128 THEN 32
33 O$ = "": GOSUB 14: IF KY = 206 THEN I$ = "FORWARD": GOSUB 13:Y = Y -1: GOTO 38
34 IF KY = 211 THEN I$ = "BACK": GOSUB 13:Y = Y +1: GOTO 38
35 IF KY = 197 THEN I$ = "RIGHT": GOSUB 13:X = X +1: GOTO 38
36 IF KY = 215 THEN I$ = "LEFT": GOSUB 13:X = X -1: GOTO 38
37 GOSUB 24: GOTO 43
38 POKE -16368,0: IF Y <0 THEN Y = 0: GOTO 63
39 IF X <0 THEN X = 0: GOTO 63
40 IF X >6 THEN X = 6: GOTO 63
41 IF Y >5 THEN Y = 5: GOTO 63
42 RM = V(X,Y): GOTO 31
43 IF ( NOT (X *Y) OR X = 6 OR Y = 5) AND VB = 27 THEN 65
44 IF AD = 19 THEN O$ = "FRUSTRATED?": GOSUB 14:SC = SC -1: GOTO 32
45 IF VB = 10 THEN GOSUB 22: GOTO 32
46 IF VB < >20 AND AD < >20 THEN 49
47 IF PS(18) THEN O$ = "HERE IS THE " +RM$: GOSUB 14: GOTO 32
48 O$ = "YOU ARE ON THE ISLAND": GOSUB 14: GOTO 32
49 IF RM = 11 AND VB = 3 AND (OB = 15 OR OB = 49) THEN 124
50 IF VB < >5 THEN 62
51 IF NP AND NOT PS(NP) THEN O$ = "YOU NEED A " +PS$(NP): GOSUB 14: GOTO 32
52 IF SP = 1 AND RM < >6 THEN O$ = "THE DOOR IS BOLTED": GOSUB 14: GOTO 32
53 IF RM = 17 AND PS(28) THEN O$ = "THIS BUILDING IS CONDEMMED": GOSUB 14: GOTO 32
54 IF (MR AND (RM < >1 AND RM < >2 AND RM < >6 AND RM < >15)) OR (RM = 11 AND BR < >2) THEN O$ = "THEY WON'T LET YOU IN": GOSUB 14: GOTO 32
55 IF RM = 18 THEN RN = 1: GOTO 85
56 IF RM = 14 THEN 130
57 IF NOT RM THEN 62
58 ONERR GOTO 60
59 POP : GOTO 59
60 ONERR GOTO 202
61 PRINT : PR# 0: CALL 1002: CALL 36263: PRINT CHR$(4)"RUNPR."RM(RM): END
62 O$ = "YOU TALK IN CIRCLES": GOSUB 14: GOTO 32
63 IF SP = 1 THEN RN = 5: GOTO 66
64 O$ = "YOU ARE FENCED IN@200X200YN@": GOSUB 14: GOTO 32
65 PRINT "@L15C133K6V17H@" CHR$(103): GOSUB 10: FOR H = 5 TO 1 STEP -1: FOR Y = 6 TO H STEP -1: GOSUB 15: NEXT Y: FOR Y = H TO 5 STEP 1: GOSUB 15: NEXT Y,H: FOR Y = 6 TO 1 STEP -1: GOSUB 15: NEXT Y: PRINT NM$"@15K@": FOR V = 1 TO 22: PRINT "@"V"V1H10Y"V *10"XN@" SPC( 38): NEXT V: GOTO 200
66 GOSUB 4:PX = 5:PY = 7:RM = 0:TX = 0
67 PRINT NM$"@L@": FOR V = 1 TO 11: FOR H = 1 TO 19:RC(H,V) = 0: NEXT H,V: FOR V = 1 TO 11: PRINT "@1H"V *2 -1"V@";: FOR H = 1 TO 19:I = FN R(36): IF I >20 AND I <32 THEN RC(H,V) = 24: PRINT "@10C@";
68 IF I >31 THEN RC(H,V) = 27: PRINT "@5C@";
69 PRINT CHR$(RC(H,V));: NEXT H,V:TX = TX +1:RR = 0: IF TX -1 AND FN R(3) = 2 THEN H = FN R(19) *2 -1:V = FN R(11) *2 -1: PRINT "@"H"H"V"V15C@" CHR$(28):RC((H +1)/2,(V +1)/2) = 28
70 PRINT "@"PX"H"PY"V15C0KE@" CHR$(109)"@E@":H = (PX +1)/2:V = (PY +1)/2: IF RC(H,V) = 28 THEN HT = 1:VT = 17:BL = 38:LN = 6:CL = 0: GOSUB 3: GOTO 79
71 KY = PEEK( -16384): IF (SP < >1 AND FN R(20) = 4) OR RR THEN GOSUB 189
72 IF KY <128 THEN 71
73 POKE -16368,0:NX = PX:NY = PY: GOSUB 90: IF NX >37 THEN PX = 1: GOTO 67
74 IF NY >21 THEN PY = 1: GOTO 67
75 IF NX <1 THEN PX = 37: GOTO 67
76 IF NY <1 THEN PY = 21: GOTO 67
77 TP = RC(H,V): PRINT "@"(TP = 24) *10 +(TP = 27) *5"C"PX"H"PY"V@" CHR$(TP): IF NOT ((TP = 24 AND FN R(2) = 1) OR (TP = 27 AND FN R(3) >1)) THEN PX = NX:PY = NY
78 GOTO 70
79 GOSUB 195: GOSUB 196: GOSUB 197: PRINT NM$"@L15K15V7H@" SPC( 13)"@G133K138C11V12H@";: FOR V = 1 TO 8: PRINT "@U@H";: NEXT V: PRINT "@U@";: FOR V = 1 TO 8: PRINT "@D@J";: NEXT V: PRINT "@R15K1V@": FOR V = 1 TO 6
80 PRINT "@D"20 -V"H@" SPC( 2 *V);: NEXT V: PRINT "@D13H@ @26H@ ":HT = 16:VT = 9:BL = 8:LN = 6:CL = 136: GOSUB 3: PRINT "@10V18HL133K@ "NM$"@I7V17H@DEPOT":O$ = "DESTINATION: THE ISLAND": IF SP = 1 THEN O$ = LEFT$(O$,17) +"CITY"
81 HTAB 21 - INT( LEN(O$)/2): PRINT "@15V@"O$"@I@"
82 O$ = "DO YOU WANT A TICKET?": GOSUB 14: GOSUB 24: IF AD <11 OR AD >12 THEN 82
83 IF AD < >11 OR SP < >1 THEN 200
84 RM = 18: GOTO 60
85 ON RN +1 GOTO 106,86,107,119,86,66
86 PX = 5:PY = 7:NX = 5:NY = 7: GOSUB 18:HT = 9:VT = 5:BL = 24:CL = 0:LN = 8: GOSUB 3: FOR V = 3 TO 6: FOR H = 5 TO 16:RC(H,V) = 1: NEXT H,V: FOR H = 14 TO 16:RC(H,2) = 2:RC(H,7) = 2: NEXT H: PRINT "@10K15C"PX"H"PY"VL@" CHR$(109):TP$ = "CROSS THE PIT BY STEPPING ON THE PLATFORMS. DO NOT FALL IN OR GO AROUND." +TY$: GOSUB 17
87 PRINT "@L@": GOSUB 20:RC(H,V) = 1: PRINT "@"X"H"Y"V10Y"X +Y"XN0K@ ": GOSUB 20:RC(H,V) = 138: PRINT "@"X"H"Y"V10Y"X +Y"XN138K@ ":KY = PEEK( -16384): IF KY <128 THEN 87
88 GOSUB 90: IF CD = 5 OR CD = 3 THEN CD = 10: GOTO 85
89 GOTO 87
90 POKE -16368,0: IF KY = 213 THEN NY = PY -2:I$ = "NORTH": GOTO 96
91 IF KY = 196 THEN NY = PY +2:I$ = "SOUTH": GOTO 96
92 IF KY = 204 THEN NX = PX -2:I$ = "WEST": GOTO 96
93 IF KY = 210 THEN NX = PX +2:I$ = "EAST": GOTO 96
94 IF RN < >5 THEN I$ = "": GOSUB 13: PRINT "@L@"
95 RETURN
96 IF RN = 5 THEN RETURN
97 GOSUB 13: PRINT "@L@":CD = RC( INT(NX/2) +1, INT(NY/2) +1):CO = RC( INT(PX/2) +1, INT(PY/2) +1): IF CD = 10 OR CD = 138 THEN PRINT "@"CD"KL"NY"V"NX"H15C@" CHR$(109)"@"PX"H"PY"V"CO"K@ ":PX = NX:PY = NY: RETURN
98 IF CD = 2 THEN HT = PX:VT = PY: GOSUB 16:NY = PY:NX = PX: RETURN
99 IF NOT CD THEN PRINT "@200X200YN@":NY = PY:NX = PX: RETURN
100 IF CD = 3 THEN RN = RN -1:CL = 10:CO = 10: GOTO 105
101 IF CD = 5 THEN RN = RN +1:CL = 5:CO = (RN = 2 OR RN = 5) *138 +(RN = 3) *133 +(RN = 4) *10: GOTO 105
102 IF NOT (CD = 1 OR (CD = 133 AND PX >25 AND NOT PS(24))) THEN 104
103 CL = (RN = 1 OR RN = 4) *0 +(RN = 2) *133 +(RN = 3) *10: GOSUB 105:PX = NX:PY = NY: GOSUB 9: PRINT NM$"@"PY +1"V"PX"H"CL"K@ ";: GOSUB 10: PRINT "@"PY"V"PX"H@ ": FOR I = 1 TO 15: PRINT "@"I *10"X20YN@": NEXT I: GOTO 200
104 IF CD = 133 THEN PRINT "@133KL"NY"V"NX"H15C@" CHR$(109)"@"PX"H"PY"V"CO"K@ ":PX = NX:PY = NY: RETURN
105 PRINT "@"NX"H"NY"V"CL"K@" CHR$(109)"@"PX"H"PY"V"CO"K@ ": RETURN
106 GOSUB 27: GOTO 31
107 PX = 5:PY = 7:NX = 5:NY = 7: GOSUB 18: FOR V = 3 TO 6 STEP 3: FOR H = 4 TO 6:RC(H,V) = 0: NEXT H,V: FOR V = 3 TO 6: FOR H = 9 TO 16:RC(H,V) = 133: NEXT H,V: FOR V = 2 TO 7 STEP 5: FOR H = 14 TO 16:RC(H,V) = 2: NEXT H,V: PRINT "@7V5HL15C10K@" CHR$(109)"@133K@": FOR V = 5 TO 11 STEP 2: PRINT "@"V"V17H@" SPC( 8): NEXT V: PRINT "@15C10K@": FOR V = 5 TO 11 STEP 6: FOR H = 7 TO 11 STEP 2: PRINT "@"V"V"H"H@" CHR$(24): NEXT H,V
108 I3 = 25: FOR I = 21 TO 24: IF NOT PS(I) THEN I3 = I:I = 25
109 NEXT I:TP$ = "CROSS THE POOL BY ANY MEANS AT YOUR DISPOSAL, BUT DO NOT GO AROUND." +TY$: GOSUB 17:NX = 5:NY = 7: POKE -16368,0
110 KY = PEEK( -16384): IF KY <128 THEN 110
111 GOSUB 90: IF CD = 3 THEN CD = 10: GOTO 85
112 IF CD = 5 THEN CD = 10: GOTO 85
113 IF PX <7 OR PX >12 OR (PY < >3 AND PY < >13) OR FN R(2 *I3 -36) >1 OR I3 >24 THEN 110
114 O$ = "HERE IS A " +PS$(I3): GOSUB 14: GOSUB 24: IF NOT PEEK(30723) THEN O$ = "YOU TALK IN CIRCLES": GOSUB 14
115 IF VB = 1 AND OB = I3 THEN PS(I3) = PS(I3) +1:O$ = "YOU CAN HAVE IT": GOSUB 14:I3 = I3 +1: GOTO 110
116 IF VB = 10 THEN GOSUB 22: GOTO 110
117 IF VB = 1 AND OB < >I3 THEN O$ = "I DON'T SEE THAT HERE": GOSUB 14: GOTO 110
118 O$ = "": GOSUB 14: GOTO 110
119 PX = 5:PY = 7:NX = 5:NY = 7:CD = 10: GOSUB 18: FOR V = 3 TO 6 STEP 3: FOR H = 9 TO 16:RC(H,V) = 0: NEXT H,V: FOR V = 4 TO 5: FOR H = 13 TO 16:RC(H,V) = 1: NEXT H,V: FOR V = 5 TO 11 STEP 6: PRINT "@"V"V17H138KL@ @15K@" SPC( 7): NEXT V:TP$ = "PASS THROUGH THE GATEWAY AS SOON AS GREEN IS GIVEN. DO NOT GO AROUND." +TY$: GOSUB 17
120 KY = PEEK( -16384): IF KY <128 THEN FOR V = 5 TO 11 STEP 6: PRINT "@"V"V17H" FN R(15) +128"KL@ ": NEXT V: GOTO 120
121 GOSUB 90: IF CD = 5 THEN CD = 10: GOTO 85
122 IF CD = 3 THEN CD = 10: GOTO 85
123 GOTO 120
124 IF OB < >49 THEN O$ = "WHICH ONE?": GOSUB 14: GOSUB 24: IF OB < >49 THEN O$ = "WE ONLY HAVE THE ISLANDER": GOSUB 14: GOTO 32
125 IF NOT CR THEN O$ = "YOU DON'T HAVE THE MONEY": GOSUB 14: GOTO 32
126 O$ = "YOU ARE CHARGED ONE CREDIT": GOSUB 14:CR = CR -1:HL$ = HL$( FN R(10)): IF MR AND INT( RND(1) *2) THEN HL$ = "@10H@# LINKED WITH MURDER"
127 PS(15) = PS(15) +1: IF BR = 6 THEN HL$ = "@12H@DEUS EX MACHINA"
128 HT = 1:VT = 1:BL = 38:LN = 16:CL = 15: GOSUB 3: PRINT "@I17V1H@" SPC( 38)"@L2V4H@" CHR$(108)" THE ISLANDER " CHR$(108)"@R5V4H@ALL THE NEWS THAT'S FIT TO READ": HCOLOR= 0: HPLOT 10,52 TO 269,52: PRINT "@8V@"HL$:HT = 2: GOSUB 129:HT = 14: GOSUB 129:HT = 27: GOSUB 129: PRINT "@I@": GOSUB 5: GOTO 31
129 VTAB 12: FOR V = 1 TO 7: HTAB HT +1: FOR H = 1 TO 11 +(HT = 14): PRINT INT( RND(1) *10);: NEXT H: PRINT "": NEXT V: RETURN
130 GOSUB 187:DK = 0:HC = 0:X = 13:Y = 5
131 IF FN R(500) <2 ^DK THEN POKE -16298,0: POKE -16300,0: CALL 35339
132 OX = FN R(17) +1:OY = FN R(6) +1: IF OX = X AND OY = Y THEN 132
133 IF RC(OX,OY) = 5 THEN RC(OX,OY) = 0: PRINT "@0K@": GOTO 29
134 IF NOT RC(OX,OY) AND FN R(3) = 2 THEN RC(OX,OY) = 5: PRINT "@133K@": GOTO 29
135 KY = PEEK( -16384): IF KY <128 THEN 131
136 POKE -16368,0:KY = KY -128:KY$ = CHR$(KY): IF KY < >85 AND KY < >68 AND KY < >76 AND KY < >82 THEN 131
137 IF NOT HC AND FN R(500) 3 THEN 146
145 TP$ = "WOULD YOU LIKE A DRINK?": GOSUB 17: GOSUB 24:TP$ = "": IF AD = 11 THEN GOSUB 150: GOTO 131
146 IF 6 >RC(X,Y) THEN 131
147 PRINT NM$: ON RC(X,Y) -5 GOTO 200,149,148
148 RN = 5: GOTO 66
149 TP$ = "HE'S MURDERED SOMEONE!": GOSUB 17:MR = 1: GOTO 200
150 IF CR <5 THEN TP$ = "YOU DON'T HAVE THE MONEY!": GOTO 17
151 IF DK >19 THEN TP$ = "YOU'VE HAD ENOUGH!": GOTO 17
152 CR = CR -5:SC = SC -1:DK = DK +1: FOR I = 1 TO 10: PRINT "@9Y200XN"20 -I"X15YN@": NEXT : PRINT "@L0K9V7H@ @9V25H@" CHR$(109):X = 13:Y = 5:O$ = "YOU ARE CHARGED FIVE CREDITS": GOTO 14
153 T2 = FN R(19):T3 = FN R(8): IF RC(T2,T3) OR (T2 = X AND T3 = Y) THEN 153
154 RC(T2,T3) = HC: PRINT "@"2 *T2 -1"H"2 *T3 -1"V"15 -((HC = 8) *5)"CL@" CHR$(24 +(HC = 6) *4 +(HC = 7) *74),NM$: RETURN
155 LN = 6:BL = 4:CL = 136: GOSUB 3: PRINT "@"VT +1"V"HT +1"HI@ @2B@"RM"@I@": RETURN
156 VT = 3:HT = 7:BL = 26:LN = 14:CL = 15: GOSUB 3: PRINT "@L133K5V8H@" SPC( 5)"@2F@" SPC( 5)"@R138K7V19H@ @D2B@ @D2B@ @0K@":VT = 11:HT = 18: GOSUB 155:RM$ = "HOSPITAL": RETURN
157 GOSUB 180: PRINT "@15C0KIL3V19H@" CHR$(108),NM$"@7V15H@WELL, COME@I@":RM$ = "CARETAKER'S HOME": PRINT "@138K@": FOR V = 1 TO 4: PRINT "@"V +13"V"19 -V"H@" SPC( 2 +2 *V): NEXT V:NP = 1: PRINT "@I15CG16V15H@H@U@H@U@H@22H@J@D@J@D@J":NP = 1: RETURN
158 HT = 7:VT = 3:BL = 26:LN = 14:CL = 2: GOSUB 3:HT = 19:VT = 11: GOSUB 155: PRINT "@2V5H15K15C@" SPC( 30)"@I134C133KG3V5H@J@D@J@33H@H@U@H@2B@ @6H@ @R15CI135K3V7H@" SPC( 26)"@0K15CL5V20H@" CHR$(113)"@R@":RM$ = "TOWN HALL":NP = 4: RETURN
159 LN = 8:CL = 2:VT = 9:HT = 7:BL = 26: GOSUB 3:VT = 3:BL = 6:LN = 6: GOSUB 3:VT = 5:HT = 25:BL = 8:LN = 4: GOSUB 3:VT = 6:HT = 26:BL = 6:LN = 8:CL = 0: GOSUB 3:CL = 14:LN = 8:BL = 8:VT = 1:HT = 15: GOSUB 3:HT = 18:VT = 11: GOSUB 155: PRINT "@L4V9H@" CHR$(113):RM$ = "SWITCHYARD": RETURN
160 RM$ = "CARNIVAL":VT = 11:HT = 11:BL = 18:LN = 6:CL = 15: GOSUB 3: PRINT "@138K@": FOR V = 12 TO 16 STEP 2: PRINT "@11H"V"V@" SPC( 18): NEXT V: PRINT "@L15K@": FOR V = 1 TO 8: HTAB 21 -V: VTAB V +3: PRINT SPC( V): NEXT V: PRINT "@G15C133K@": FOR V = 1 TO 9: VTAB 12 -V: HTAB 11 +V
161 PRINT "H": NEXT V: FOR V = 1 TO 9: HTAB 20 +V: VTAB 2 +V: PRINT "J": NEXT V: PRINT "@10V10H15C133K@" CHR$(98)"@29H@" CHR$(97)"@1V20H@" CHR$(97)"@R15C0K@":VT = 11:HT = 18: GOSUB 155:NP = 5: RETURN
162 PRINT "@L5K15C@": FOR V = 5 TO 15 STEP 2: PRINT "@"V"V7H@";: FOR H = 7 TO 31 STEP 2: PRINT "@"H"H@" CHR$(106);: NEXT H,V: PRINT "@133K5V11H@" SPC( 9)"@6V11H@" SPC( 9)"@R8V11H@ ";: FOR H = 1 TO 5: PRINT "@2F@ ";: NEXT H: PRINT " @0K15C@":HT = 18:VT = 11: GOSUB 155: PRINT "@L6V8H@ @30H@ @G137C133K3V8H@HJ@30H@HJ@D7H@H@I@ @I@J@29H@H@I@ @I@J@R@":RM$ = "CASTLE": RETURN
163 GOSUB 180: PRINT "@IL3V19H10K15C@$":RM$ = "BANK": RETURN
164 GOSUB 180: PRINT NM$"@IL3V19H@" CHR$(21):RM$ = "COURTHOUSE": RETURN
165 HT = 7:VT = 3:BL = 26:LN = 14:CL = 142: GOSUB 3:HT = 13:VT = 7:BL = 4:LN = 8:CL = 129: GOSUB 3:HT = 23: GOSUB 3:CL = 136:HT = 11:BL = 2: GOSUB 3:HT = 27: GOSUB 3: PRINT NM$"@IL4V13H142C@THEATRE@I133K9V18H@ "
166 PRINT "@G138C136K16V11H@H@UB@ H@27H@J @DB@J@138K142C16V12H@" SPC( 16)"@15V13H@" SPC( 14)"@I15V17H@J H@I@": HCOLOR= 4: HPLOT 119,56 TO 160,56: FOR H = 126 TO 154 STEP 28: HPLOT H,56 TO H,128: NEXT H: HCOLOR= 3: PRINT NM$"@L8V8H@!@30H@?@RI19H@9 ":RM$ = "THEATRE": RETURN
167 GOSUB 182: PRINT "@L133K15C10V16H@GENERAL@12V18H@STORE":RM$ = "GENERAL STORE": RETURN
168 VT = 3:HT = 10:BL = 20:LN = 14:CL = 136: GOSUB 3:HT = 11:BL = 18:LN = 4:CL = 15: GOSUB 3:CL = 0:VT = 6: GOSUB 3: PRINT "@137K2V9H@" SPC( 22)"@11V9H@" SPC( 22)"@3V9HG129K133C@J@30H@H@I10V9H@H@30H@J":NP = 15
169 PRINT "@I10V10H@" SPC( 20),NM$"@3V19HI@11@D14H@ALL THE NEWS@D11H@THAT'S FIT TO READ@I@":TP$ = "EXTRA! READ ALL": PRINT "@7V12H@";: GOSUB 12: PRINT "@8V16H@";:TP$ = "ABOUT IT!": GOSUB 12:RM$ = "NEWS STAND": RETURN
170 GOSUB 180: PRINT NM$"@IL3V19H@" CHR$(20):RM$ = "LIBRARY":NP = 20: RETURN
171 GOSUB 184:RM$ = "SCHOOLHOUSE": RETURN
172 CL = 5: GOSUB 183: PRINT "@I7V11H@CAT AND MOUSE BAR@L11V20H0K133C@BAR":RM$ = "BAR": RETURN
173 GOSUB 184: PRINT NM$"@7V19HLI@" CHR$(22),NM$:RM$ = "CHURCH": RETURN
174 GOSUB 182: PRINT "@L133K15C10V15H@CLOTHING@12V18H@STORE":RM$ = "CLOTHING STORE": RETURN
175 PRINT "@L5K15CI@": FOR V = 3 TO 15 STEP 2: PRINT "@7H@";: FOR H = 1 TO 13: PRINT "@"V"V@" CHR$(106);: NEXT H,V: PRINT NM$"@L6V19HI@" CHR$(23): FOR V = 5 TO 11 STEP 2: PRINT "@"V"V11H@ @27H@ ": NEXT V:VT = 11:HT = 18: GOSUB 155: PRINT NM$"@IG5C0K4V11H@HJ@27H@HJ":RM$ = "GRAIL HALL": RETURN
176 PRINT "@IL15C138K@": FOR V = 3 TO 15 STEP 2: PRINT "@"V"V7H@";: FOR H = 7 TO 31 STEP 2: PRINT "@"H"H@" CHR$(106);: NEXT H,V:HT = 18:VT = 11: PRINT "@I@": GOSUB 155:HT = 14:VT = 5:BL = 12:LN = 4:CL = 15: GOSUB 3: PRINT "@I12V19H@18@6V15H@RECREATION@D18H@HALL@I@":RM$ = "RECREATION HALL": RETURN
177 CL = 11: GOSUB 183: PRINT "@I7V14H@GEMINI DINER@L11V18H0K133C@DINER":RM$ = "DINER": RETURN
178 HT = 11:VT = 3:BL = 18:LN = 14:CL = 15: GOSUB 3:VT = 11:HT = 18: GOSUB 155: HCOLOR= 0: HPLOT 77,80 TO 202,80: FOR H = 119 TO 161 STEP 42: HPLOT H,24 TO H,135: NEXT H: PRINT "@LI4V13H@" CHR$(9)"@25H@" CHR$(10)"@11V13H138K@" CHR$(8)"@25H@" CHR$(7)"@19H4VI0K@ ":RM$ = "CASINO": RETURN
179 PRINT "@8VI1H@" SPC( 38)"@12V1H@" SPC( 38): PRINT "@I@": FOR H = 3 TO 35 STEP 4: HTAB H +1: PRINT "@6V133K15CG@HJ@R15C0KL@": FOR V = 7 TO 15 STEP 2: PRINT "@"H"H"V"V15K@ ": NEXT V,H:RM$ = "FENCE": RETURN
180 VT = 5:HT = 11:BL = 18:LN = 12:CL = 15: GOSUB 3: PRINT "@5V5HI@" SPC( 6)"@29H@" SPC( 6): FOR V = 1 TO 3: PRINT "@"13 +V"V"8 -V"H@" SPC( 3 +V)"@29H@" SPC( 3 +V): NEXT V: PRINT "@I@":VT = 8:HT = 18: GOSUB 155
181 PRINT "@L@": FOR V = 1 TO 4: PRINT "@"V *2 +4"V8H@" CHR$(107)"@30H@" CHR$(107): NEXT V: PRINT "@G4V16H133K@H@U@H@U@H@U@HJ@D@J@D@J@D@J@R2V19H15K@ @D18H@ @D17H@" SPC( 6): HCOLOR= 0: HPLOT 77,48 TO 202,48: HCOLOR= 3: RETURN
182 PRINT "@LI138K15C@": FOR V = 4 TO 16 STEP 2: HTAB 8: VTAB V: FOR H = 1 TO 13: PRINT CHR$(106);: NEXT H,V:VT = 11:HT = 9: GOSUB 155:HT = 14:VT = 9:BL = 18:LN = 6:CL = 133: GOSUB 3: PRINT NM$: POKE 35399,0: RETURN
183 VT = 5:HT = 7:BL = 26:LN = 12: GOSUB 3:CL = 133:VT = 10:HT = 14:BL = 18:LN = 4: GOSUB 3: PRINT "@15K@": FOR V = 1 TO 3: VTAB 6 +V: PRINT "@10H@" SPC( 19): NEXT V: PRINT "@137K4V6H@" SPC( 28):VT = 11:HT = 8: GOSUB 155: PRINT "@G129K133C5V6H@J@33H@H"NM$: RETURN
184 VT = 11:HT = 14:LN = 6:BL = 12:I = 15:I2 = 15: IF RM = 13 THEN I = 138:I2 = 0
185 CL = I: GOSUB 3: PRINT NM$"@L3V19H"I"K@ ": FOR J = 1 TO 6: PRINT "@"J +4"V"20 -J"H@" SPC( J): NEXT J: PRINT NM$"@G2V19H"I2"C133K@";: IF RM = 13 THEN PRINT "@I"I2"K133C@";
186 PRINT "HJ@10V13H@";: FOR V = 1 TO 6: PRINT "H@U@";: NEXT V: PRINT "@5V21H@";: FOR V = 1 TO 6: PRINT "J@D@";: NEXT V:VT = 11:HT = 18: GOSUB 155: RETURN
187 VT = 2:HT = 1:BL = 38:LN = 16:CL = 0: GOSUB 3:VT = 3:BL = 2:LN = 12:CL = 133: GOSUB 3:HT = 37: GOSUB 3:HT = 13:LN = 6: GOSUB 3:VT = 7:HT = 23: GOSUB 3:HT = 27: GOSUB 3: PRINT "@L133K1V1H@" SPC( 19)"@15V1H@" SPC( 19)"@9V3H@ @F@ @7V23H@ @136K4V5H@ @6V5H@ @0K7V37H@ @9V37H@ @R4V4H136K@ @11H@ @L9V25H0K@" CHR$(109)
188 FOR I = 1 TO 19: FOR I2 = 1 TO 11:RC(I,I2) = 0: NEXT I2,I: FOR I = 1 TO 19:RC(I,1) = 4:RC(I,8) = 4: NEXT : FOR I = 2 TO 7:RC(1,I) = 4:RC(19,I) = 4: NEXT :RC(19,4) = 1:RC(19,5) = 1: FOR I = 2 TO 7: FOR I2 = 2 TO 5:RC(I,I2) = 4: NEXT I2,I:RC(4,5) = 3: FOR I = 12 TO 14: FOR I2 = 4 TO 6:RC(I,I2) = 4: NEXT I2,I:RC(13,5) = 2:RC(13,6) = 2: RETURN
189 IF NOT RR THEN RR = 1:TP = FN R(4):OX = 1 +(TP <3) *36:OY = 1 +(TP = 1 OR TP = 4) *20:RX = OX:RY = OY: GOTO 192
190 IF FN R((RC(H,V) = 24) *4 +(RC(H,V) = 27) *9) -1 THEN RX = RX +2 *(2 - FN R(3)):RY = RY +2 *(2 - FN R(3)): GOTO 192
191 RX = RX +(PX >RX) *2 -(PX RY) *2 -(PY 37 OR RY <1 OR RY >21 THEN RR = 0: RETURN
193 PRINT "@E15C"RX"H"RY"V10Y"10 +(( INT(RH/2) = RH/2) *10)"XN@" CHR$(97 +(( INT(RH/2)) = RH/2))"@E@":OX = RX:OY = RY: IF RX = PX AND RY = PY THEN RM = 0: GOTO 200
194 RETURN
195 HCOLOR= 2: HPLOT 10,180 TO 10,148 TO 270,148 TO 270,180 TO 9,180 TO 9,148: HPLOT 269,148 TO 269,180: HPLOT 10,164 TO 270,164: HCOLOR= 3: PRINT NM$"@I19V2H@OUTPUT:@2D2H@INPUT :@I@": RETURN
196 VT = 1:HT = 1:LN = 14:BL = 38:CL = 133: GOSUB 3: RETURN
197 VT = 14:HT = 1:LN = 4:BL = 38:CL = 10: GOSUB 3: RETURN
198 TP$ = "PR.8":TP = 3: GOTO 201
199 TP$ = "PR.8":TP = 2: GOTO 201
200 TP$ = "PR.1"
201 PRINT : PR# 0: CALL 1002: CALL 36263: PRINT CHR$(4)"RUN"TP$: END
202 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256:A$ = "PR.2":TP$ = "PR.8":TP = 4: IF ER = 255 THEN TP = 3
203 GOTO 201

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.3.bas:

1 CALL 36281: ONERR GOTO 190
2 PN = 21:TX = 0:FG = 0:ZZ = FRE(0): GOTO 45
3 VT = 1:HT = 1
4 PRINT "@15C"CL"KR@": FOR H = 1 TO LN: HTAB HT +1: VTAB VT +H: PRINT SPC( BL): NEXT H: PRINT NM$: RETURN
5 BL = 38:CL = 0:LN = 17: GOTO 3
6 VT = 1:HT = 1:BL = 38:LN = 22:CL = 0: GOTO 4
7 BL = 4:LN = 6:CL = 136: GOTO 4
8 VT = 14:HT = 22:BL = 15:LN = 7:CL = 15: GOTO 4
9 GOSUB 11
10 POKE -16368,0: RETURN
11 KY = PEEK( -16384): IF KY <128 THEN 11
12 RETURN
13 PRINT "@R0K15CI21V10H@PRESS SPACE BAR TO CONTINUE": POKE -16368,0
14 GOSUB 9: POKE -16368,0: IF KY < >160 THEN 14
15 PRINT "@I21V10H@" SPC( 27): RETURN
16 VTAB VT: HTAB HT: PRINT SPC( MX):PS = 0: FOR I3 = 0 TO MX: POKE 256 +I3,32: NEXT I3: POKE -16368,0: IF F = 2 THEN PRINT "@UL@"
17 HTAB HT +PS *F: PRINT "@I@" CHR$( PEEK(256 +PS))"@I@";
18 KY = PEEK( -16384): IF KY <128 THEN 18
19 POKE -16368,0: HTAB HT +PS *F: PRINT CHR$( PEEK(256 +PS));: IF KY = 141 AND PS THEN 22
20 KY = KY -128: IF (KY >47) AND (KY <58) THEN HTAB HT +PS *F: PRINT CHR$(KY);: POKE 256 +PS,KY:PS = PS +1: IF PS > = MX THEN 22
21 GOTO 17
22 IP$ = "":TP$ = "": FOR I3 = 0 TO PS:IP$ = IP$ + CHR$( PEEK(256 +I3)): NEXT I3:IP = VAL(IP$): PRINT "@R@": FOR I3 = 1 TO LEN(IP$): IF MID$ (IP$,I3,1) < >" " THEN TP$ = TP$ + MID$ (IP$,I3,1)
23 NEXT I3:IP$ = TP$:IP = VAL(IP$): RETURN
24 L4 = 750: GOTO 28
25 L4 = 75: GOTO 28
26 L4 = 1200: GOTO 28
27 L4 = 3000
28 FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
29 PRINT NM$OB$OS$O$M1$: RETURN
30 POKE 35399,0:O$ = BB$: GOSUB 29:TP$ = BB$ +TP$ +BB$: VTAB 20: HTAB 11:T5 = LEN(TP$) -27: FOR I5 = 1 TO T5: HTAB 11: PRINT MID$ (TP$,I5,28)"@35Y"34 + FN R(25)"XN@";: NEXT I5: RETURN
31 TP$ = " " +TP$ +" ": VTAB FN R(24):T5 = LEN(TP$):HT = FN R(39 -T5): SPEED= 200: FOR I5 = 1 TO T5 -4: PRINT "@"HT +I5 -1"H@ " MID$ (TP$,I5,5);: NEXT I5: SPEED= 255: RETURN
32 FOR I = 1 TO 28: IF PS(I) THEN O$ = PS$(I) +" : " + STR$(PS(I)): GOSUB 29: GOSUB 13
33 NEXT I:O$ = "VISICARD : " + STR$(CR) +" CREDITS": GOSUB 29: GOSUB 13: PRINT IB$OB$: RETURN
34 FOR I5 = 0 TO 2: POKE 30724 +I5,0: NEXT I5: PRINT NM$: CALL 30727:VB = PEEK(30724):AD = PEEK(30725):OB = PEEK(30726): IF VB = 22 AND RM < >5 THEN 183
35 IF RM <6 THEN RETURN
36 IF VB = 20 THEN O$ = "YOU ARE IN THE " +RM$: GOSUB 29: GOTO 34
37 IF VB = 10 THEN GOSUB 32: GOTO 34
38 RETURN
39 POKE 30720,21: POKE 30721,10: POKE 30722,25: RETURN
40 TP$ = STR$(SC): PRINT NM$"@I16V28H@" SPC( 10)"@"28 + INT((10 - LEN(TP$))/2)"H@"SC"@I@": RETURN
41 HPLOT 91,128 TO 104,128: HPLOT 112,130 TO 125,130: RETURN
42 FOR I = 1 TO T: GOSUB 25: PRINT "@"VT +1 -I"V"HT +1 -I"H@ @"VT -I"V"HT -I"H@" CHR$(109);: NEXT : RETURN
43 FOR I = 1 TO T: GOSUB 25: PRINT "@"VT -1 +I"V"HT -I +1"H@ @"VT +I"V"HT -I"H@" CHR$(109);: NEXT : RETURN
44 FOR I = 10 TO 15: PRINT NM$"@"I"V9H@ @L5C9H"I +1"V@" CHR$(97)"@R15C"I +3"V9H@ @L@": HPLOT 69,(I +3) *8 TO 69,(I +4) *8: PRINT "@"I +4"V9H@" CHR$(109): NEXT : RETURN
45 GOSUB 39: CALL 35339: DEF FN R(X) = INT( RND(1) *X) +1: PRINT NM$: GOSUB 176
46 IF RM = 1 THEN BL = 38:LN = 17:CL = 0: GOSUB 3: GOTO 50
47 IF RM = 7 THEN 96
48 IF RM = 5 THEN 118
49 IF RM = 20 THEN 136
50 POKE 30720,21: POKE 30721,10: POKE 30722,25: IF SP = 10 OR SP = 11 THEN 89
51 LN = 14:CL = 2: GOSUB 4:VT = 14:LN = 4:CL = 142: GOSUB 4: GOSUB 179:VT = 8:HT = 6: GOSUB 7:HT = 18: GOSUB 7:HT = 30: GOSUB 7: PRINT "@I4V2H@ FREE @3F@ SHOCK @2F@PSYCHOMOTOR@D2H@ASSOCIATION@3F@TREATMENT@2F@ SKILLS @I@"
52 GOSUB 34: IF AD <1 OR AD >4 THEN 52
53 ON AD GOTO 54,183,69,61
54 VT = 1:HT = 1:BL = 38:LN = 22:CL = 1: GOSUB 4:BL = 16:LN = 4:CL = 15:VT = 15:HT = 2: GOSUB 4:VT = 2: GOSUB 4:HT = 21: GOSUB 4:VT = 13: GOSUB 4:CL = 0:LN = 2:BL = 14:HT = 3:VT = 19: GOSUB 4:VT = 11: GOSUB 4:VT = 6: GOSUB 4:LN = 6:HT = 22: GOSUB 4:LN = 2:VT = 17: GOSUB 4:CL = 133:L = 16:H = 4:X = 2:Y = 5: GOSUB 161:Y = 10: GOSUB 161:Y = 18: GOSUB 161:X = 21:Y = 16: GOSUB 161:Y = 5:H = 7: GOSUB 161
55 PRINT "@I3V6H@VOLTAGE@25H@EXAMINER@16V6H@CREDITS@2U26H@SUBJECT@I@":VG = 1:V1 = 92:V2 = 100
56 HCOLOR= 5: HPLOT 21,96 TO 118,96: HCOLOR= 3: PRINT "@L17V23H@" SPC( 6)"@R@": IF CR <1 THEN CR = 0: PRINT M1$"@7V24H@EXPERIMENT @D24H@ABORTED ": GOSUB 26: GOTO 46
57 PRINT "@L6V9H@"VG"@19V3H@" SPC( 7)"@7H@"CR"@R7V24H@WHY DID YOU@D24H@RESIGN?"M1$:HT = 26:VT = 18:MX = 3:F = 2: GOSUB 16: IF IP$ = RC$ THEN 182
58 HCOLOR= 5: PRINT M1$"@7V24H@VOLTAGE NOW @D24H@ON @L@": FOR H2 = 1 TO VG +2: FOR H = 22 TO 102 STEP 16: HPLOT H,V1 TO H +16,V2:T = V1:V1 = V2:V2 = T: PRINT "@11V3H@" SPC( 7): NEXT H:T = V1:V1 = V2:V2 = T: NEXT H2: HCOLOR= 3: FOR I = 1 TO 2 *VG +6: PRINT "@5Y"10 *(I/2 = INT(I/2)) +10"XN@": NEXT I:CR = CR -VG:VG = VG +1: IF FN R(SC) CHR$(KY -128) THEN 65
67 IF DL 9 AND TP 9 THEN TP$ = "ADAPTING NICELY": GOTO 162
72 PR# 0: CALL 1002: TEXT : HOME : PRINT CHR$(7)"?SYNTAX ERROR AT "RC$: PRINT " "
73 INPUT "]";TP$: IF LEN(TP$) <2 THEN PRINT "?SYNTAX ERROR": GOTO 73
74 CT = 0: IF LEN(TP$) <3 THEN TP$ = TP$ +" "
75 IF LEN(TP$) >13 THEN ZZ = FRE(0): IF LEFT$(TP$,14) = "RUN THE ISLAND" AND BR = 4 THEN BR = 8:CT = 5: GOTO 82
76 FOR I = 1 TO LEN(TP$) -2:A$ = MID$ (TP$,I,3): IF CT = 2 THEN NEXT : GOTO 82
77 IF A$ = "LIS" THEN CT = 1
78 IF A$ = RC$ THEN CT = 2: GOTO 81
79 IF A$ = "PR#" OR A$ = "NEW" OR A$ = "RUN" THEN CT = 3
80 IF A$ = "FUC" OR A$ = "SHI" OR A$ = "HEL" OR A$ = "DAM" THEN CT = 4:SC = SC -10
81 NEXT I
82 CT = CT +1: ON CT GOTO 83,84,182,85,86,87
83 TP$ = "ANTISOCIAL": GOTO 88
84 LIST : GOTO 73
85 TP$ = "EASILY@2D12H@DISCOURAGED": GOTO 88
86 TP$ = "EASILY@2D12H@FRUSTRATED": GOTO 88
87 TP$ = "SUFFERING FROM@2D12H@DELUSIONS OF GRANDEUR"
88 CALL 35339: GOTO 162
89 CL = 4:LN = 22: GOSUB 4:HT = 3:VT = 3:BL = 16:LN = 4:CL = 0: GOSUB 4:HT = 22: GOSUB 4:X = 2:Y = 2:L = 17:H = 6:CL = 15: GOSUB 161:X = 21: GOSUB 161:Y = 9:H = 3: GOSUB 161:HT = 2:VT = 9:LN = 12:CL = 15: GOSUB 4
90 HT = 21:VT = 13:LN = 8: GOSUB 4:CL = 133:X = 2:H = 13: GOSUB 161:X = 21:Y = 13:H = 9: GOSUB 161: PRINT "@10V22H@" SPC( 15)"@I2V5H@CARDIOGRAPH@10F@MONITOR@10V3H@VOLTAGE@U25H@SUBJECT'S@2D25H@RESPONSE"
91 PRINT "@I10V12H@ @I12V3H@I INCREASE@D8H@VOLTAGE@D3H@V APPLY@D8H@VOLTAGE@D3H@T RESPONSE IS@D8H@TRUE@D3H@F RESPONSE IS@D8H@FALSE@D3H@ESC ABORT@14V22H@# IS ENTERING@D22H@THE SHOCK@D22H@TREATMENT LAB."
92 PRINT "@IL5V23H@" CHR$(25); CHR$(26)NM$"@L5V@";: HCOLOR= 3: HPLOT 209,28 TO 190,28 TO 190,55 TO 191,55 TO 191,28: FOR H = 34 TO 28 STEP -2: IF H <34 THEN PRINT "@"H +2"H@ ";
93 PRINT "@"H"H@" CHR$(109);: GOSUB 24: NEXT H: GOSUB 8: PRINT "@IR14V22H@WE ARE NOW@D22H@ATTACHING THE@D22H@ELECTRODES@D22H@TO HIM.": GOSUB 27: GOSUB 8
94 PRINT "@14V22H@IF YOU SUCCEED@D22H@IN MAKING OUR@D22H@SUBJECT TALK, @D22H@EXAMINER, YOU@D22H@WILL BE GIVEN A@D22H@NEW ASSIGNMENT@D22H@OFF THE ISLAND.": GOSUB 27
95 GOSUB 8: GOSUB 163: GOTO 95
96 IF SP = 5 THEN 111
97 GOSUB 5:BL = 10:LN = 17:CL = 2:VT = 1:HT = 15: GOSUB 4:VT = 8:HT = 27:BL = 10:LN = 10:CL = 133: GOSUB 4:CL = 129:VT = 9:HT = 28:BL = 8:LN = 7: GOSUB 4:X = 1:Y = 3:L = 14:H = 10: GOSUB 161:L = 7:H = 3:X = 5:Y = 1: GOSUB 161:VT = 3:HT = 16:BL = 8:LN = 6:CL = 131: GOSUB 4
98 VT = 11:LN = 5:CL = 15: GOSUB 4: PRINT "@3KL10C4V19H@$@0K15C12V34H@" CHR$(37)"@14V2H@" CHR$(25)"@11H@" CHR$(26)"@R8V18H@ @2D29H@ @F@ @F@ ": PRINT "@I2V16H@TELL HER@11V17H@ISLAND@D17H@MUTUAL@D16H@SAVINGS@D18H@AND@D18H@LOAN@GI12V3H129K138C@T@12H@T"NM$
99 TP$ = "CAN YOU BE HELPED?": GOSUB 30: PRINT "@2V6H@ ": GOSUB 34: IF AD = 2 OR AD = 12 OR VB = 6 OR VB = 14 THEN TP$ = "BE SEEING YOU": GOSUB 30: GOTO 183
100 IF VB = 26 OR VB = 33 THEN 184
101 IF VB <23 OR VB >25 THEN 99
102 IF VB < >25 THEN TP$ = "ENTER BANK ACCOUNT #": GOSUB 30:MX = 5:HT = 7:VT = 3:F = 1: GOSUB 16: IF IP$ = RC$ THEN 185
103 IF VB < >25 AND IP$ < >AN$ THEN TP$ = "SORRY, YOU DO NOT HAVE THE PROPER IDENTIFICATION": GOSUB 30: GOTO 99
104 TP$ = "WHAT AMOUNT?": GOSUB 30: PRINT IB$:VT = 22:HT = 11:MX = 6:F = 1: GOSUB 16: IF VB <25 AND ( NOT IP OR (VB = 23 AND IP >CR) OR (VB = 24 AND IP >BA)) THEN TP$ = "YOU SHOULD SEE PROFESSOR WORM": GOSUB 30: GOTO 99
105 IF VB = 23 THEN BA = BA *1.06 +IP:CR = CR -IP: GOTO 99
106 IF VB = 24 THEN CR = CR +IP:BA = BA -IP: GOTO 99
107 IF IP <0 OR IP >10000 THEN TP$ = "TOO MUCH": GOSUB 30: GOTO 99
108 FOR I = 7 TO 12:TP = TP *PS(I): NEXT : IF TP THEN TP$ = "THE LOAN IS APPROVED. PLEASE ACCEPT THIS FREE GIFT: A SILVER DOLLAR": GOSUB 30:SC = SC +50:CR = CR +IP:PS(25) = PS(25) +1: FOR I = 7 TO 12:PS(I) = PS(I) -1: NEXT : GOTO 99
109 TP$ = "YOU NEED THE FOLLOWING ITEMS FOR COLLATERAL:": GOSUB 30: PRINT "@5V@";: FOR I = 7 TO 12: IF NOT PS(I) THEN PRINT "@2H@"PS$(I)
110 NEXT : GOTO 99
111 CL = 133:BL = 38:LN = 17: GOSUB 3:VT = 3:HT = 3:BL = 34:LN = 13:CL = 129: GOSUB 4: PRINT NM$"@L6V15H@ @F@ @F@ @10V34H@" CHR$(37):TP = 0
112 GOSUB 34: IF VB < >33 THEN 115
113 TP = TP +1: PRINT "@L6V"11 +4 *TP"H@";: FOR I = 1 TO 15: PRINT FN R(9)"@B200X10YN@";: NEXT : PRINT MID$ (RC$,TP,1): IF TP = 3 THEN 182
114 GOTO 112
115 IF VB = 26 THEN O$ = "THE SAFE IS LOCKED": GOSUB 29: GOTO 112
116 IF AD = 2 OR VB = 6 OR VB = 14 THEN 183
117 GOTO 112
118 HCOLOR= 3: GOSUB 6:VT = 5:HT = 28:BL = 10:LN = 12:CL = 15: GOSUB 4: PRINT "@14V28H@" SPC( 10)"@21V1HL10K@" SPC( 19)"@G0K15C13V7H@";: FOR I = 0 TO 49 STEP 49: HPLOT 206 +I,112 TO 206 +I,168: HPLOT 207 +I,112 TO 207 +I,168: NEXT : FOR I = 0 TO 9: PRINT "@U@H";: NEXT : FOR I = 0 TO 9: PRINT "J@D@";: NEXT : PRINT NM$:X = 8:Y = 11:L = 1:H = 10: GOSUB 161:X = 25: GOSUB 161
119 PRINT "@I6V30H@TONITE@D29H@ON THE@D29H@TRAPEZE:@D30H@ESC I@D29H@ON THE@D28H@HIGHWIRE:@D30H@" CHR$(1)" KEY@3D30H@SCORE@14V4H@FILE@I6V14H@WATCH@D12H@THE CLOWN@D13H@GET THE@D13H@BALLOON@17V12H138KL@ @17V5H129K@ @B19V@ "NM$
120 PRINT "@I19V11H@TYPE WT @D11H@OR BYE: @BI14V@";: FOR I = 1 TO 6: PRINT "@20H@WT 1": NEXT : PRINT "@19V23H@9@5BG@T@2F@T@11V9H5CL@" CHR$(97)"@14V13H15C@" CHR$(109): HPLOT 105,136 TO 108,130 TO 112,136: HPLOT 91,129 TO 125,129: HPLOT 70,100 TO 70,111: GOSUB 40: POKE 30720,20: POKE 30721,19: POKE 30722,5:TP = 0
121 PRINT NM$"@I20V19H@ @I@ @19H@": GOSUB 11: IF KY = 155 THEN GOSUB 10: GOTO 127
122 GOSUB 34: IF VB = 22 THEN 183
123 IF OB < >51 THEN 121
124 TP = TP +1: IF TP = 5 THEN PRINT "@18V19H@ @11V16H@WT": HPLOT 107,129 TO 125,129: HCOLOR= 3: HPLOT 107,129 TO 125,135: GOTO 126
125 PRINT NM$"@16H"16 -TP"V@WT@"13 +TP"V19H@ @5Y50XN15Y200XN15V13H@ @L13H13V@" CHR$(109): HCOLOR= 3: GOSUB 41: HCOLOR= 0: GOSUB 25: GOSUB 41: PRINT "@12V13H@ @14V13H@" CHR$(109)"@10Y200XN@": GOTO 121
126 HCOLOR= 0: HPLOT 91,129 TO 109,129: HCOLOR= 3:T = 2:VT = 14:HT = 13: PRINT "@L14V15H@";: GOSUB 42: HPLOT 91,121 TO 108,129:VT = 11:HT = 12:T = 3: GOSUB 43: GOSUB 44:SC = SC -20: GOSUB 40: GOSUB 27: GOTO 183
127 GOTO 132
128 PRINT "@L14V13H@ ": HCOLOR= 0: HPLOT 91,129 TO 125,129: HCOLOR= 3: HPLOT 91,121 TO 125,135:T = 8:VT = 14:HT = 15: GOSUB 42:VT = 6:HT = 7:T = 6: GOSUB 43: FOR VT = 0 TO 6: PRINT "@"VT +12"V1H@ @"VT +13"V1H@" CHR$(109): GOSUB 25: NEXT : POKE -16368,0: GOSUB 27: IF PEEK( -16384) <128 THEN 184
129 IF BR < >3 OR NOT PS(13) THEN 131
130 BR = 7: FOR H = 18 TO 34 STEP 2: HPLOT H,157 -(H/2 -9) TO H,161 -(H/2 -9): HCOLOR= 0: GOSUB 25: HPLOT H,157 -(H/2 -9) TO H,161 -(H/2 -9): HCOLOR= 3: NEXT : SPEED= 150: PRINT "@18V5HR138C@^@BU@^^@BD@^@2BD@^^@15Y@": FOR I = 1 TO 10: PRINT "@" FN R(50) +50"XN@": NEXT : PRINT "@17V@";: FOR I = 1 TO 4: PRINT "@5H@ ": NEXT : SPEED= 255: GOSUB 25
131 GOSUB 26: PRINT "@L19V1H@ "NM$: GOTO 183
132 GOSUB 11: IF KY = 201 THEN GOSUB 10: PRINT "@20V19H@ @GI19VB@T";: GOSUB 11: IF KY = 149 THEN GOSUB 10: PRINT "@BI@T@IR20H@W";: GOSUB 11: IF KY = 149 THEN GOSUB 10: PRINT "@BI@W@IR21H@T";: GOTO 134
133 GOTO 135
134 GOSUB 11: IF KY = 149 THEN GOSUB 10: PRINT "@BI@T@IG22H@T@I@";: GOSUB 25: PRINT "@B@T": GOTO 128
135 POKE 35399,0: PRINT NM$"@G19V19H@T@R@WT@G@T@R@9": GOTO 121
136 GOSUB 177: FOR I = 1 TO 6: READ TA$(I): NEXT : FOR I = 1 TO 5: READ TP$(I): NEXT :T4 = 1: PRINT "@12V26H@1234567890@I9V8H@IS@I@"
137 HT = 3:VT = 12:BL = 12:LN = 5:CL = 0: GOSUB 4:HT = 25:LN = 3:VT = 14: GOSUB 4: PRINT "@8V4H@" SPC( 10)"@2D4H@" SPC( 10)"@13V7H@ONE@D6H@CREDIT@D6H@TO PLAY@U27H@A PIECE@D25H@OF YOURSELF@D27H@TO PLAY@LI8V26H@ @F@ @F@ @IR@":TP$ = "WHICH SLOT WOULD YOU LIKE TO PLAY?": GOSUB 30: GOSUB 9:KY = KY -176: IF KY >3 OR KY <1 THEN 157
138 ON KY GOTO 139,143,153
139 IF NOT CR THEN TP$ = "SORRY, YOU DON'T HAVE THE CREDITS": GOSUB 30: GOTO 137
140 VT = 12:HT = 3:BL = 12:LN = 5:CL = 0: GOSUB 4:CR = CR -1: FOR I = 1 TO 50:T1 = FN R(3):T2 = FN R(3) +3: PRINT "@8V4H@"TA$(T1)"@2D4H@"TA$(T2)"@5Y" FN R(255)"XN@": NEXT : IF T2 -T1 < >3 THEN PRINT M2$: GOTO 142
141 PRINT M3$,TP$( FN R(5))
142 GOSUB 13: GOTO 137
143 IF SC <0 THEN TP$ = "SORRY, YOU DON'T HAVE THE MAKINGS": GOSUB 30: GOTO 137
144 ZZ = FRE(0):HT = 25:VT = 14:BL = 11:LN = 3:CL = 0: GOSUB 4: PRINT NM$"@LI8V@";:SC = SC -1: FOR I = 1 TO 40:T1$ = "": FOR I2 = 1 TO 3:T1$ = T1$ + STR$( FN R(9)): NEXT : PRINT "@26H@" LEFT$(T1$,1)"@F@" MID$ (T1$,2,1)"@F@" RIGHT$(T1$,1)"@5Y" FN R(50)"XN@";: NEXT : PRINT "@I@"NM$:T1 = 0: FOR I = 1 TO 3: IF MID$ (T1$,I,1) = MID$ (RC$,I,1) THEN T1 = T1 +1
145 NEXT : ON T1 +1 GOTO 146,149,150,182
146 PRINT M2$"@12V"24 +T4"H@";: IF T4 -1 THEN PRINT T4 -1;
147 PRINT "@I"25 +T4"H@"T4 -((T4 = 10) *10)"@I@": IF T4 = 10 THEN 185
148 T4 = T4 +1: GOTO 152
149 I = 1 + FN R(T4 *3):CR = CR +I: PRINT "@15V26H@"I" CREDITS"M3$: GOTO 137
150 I = FN R(6) +6:PS(I) = PS(I) +1: IF I < >8 THEN PRINT M3$"@15V"25 +1"H@"PS$(I): GOTO 152
151 PRINT M3$"@15V27H@3 PIECE@D29H@SUIT"
152 GOSUB 13: GOTO 137
153 IF NOT PS(25) THEN TP$ = "SORRY, YOU NEED A SILVER DOLLAR": GOSUB 30: GOTO 137
154 PS(25) = PS(25) -1: FOR I = 1 TO 15:CL = FN R(29): PRINT "@" FN R(4) +17"H7V"CL +((CL >15) *129)"K@ @" FN R(90)"X30YNB0K@ ": NEXT : FOR I = 1 TO 10: PRINT "@250X35YN10X20YN@"OB$OS$;10 -I: NEXT : PRINT "@138K@": FOR I = 17 TO 1 STEP -1
155 PRINT "@"I"V1H@" SPC( 38)"@35Y"10 *I +50"XN@": NEXT : PRINT "@136K@": FOR I = 1 TO 17: PRINT "@"I"V1H@" SPC( 38)"@35Y"(18 -I) *4"XN@": NEXT : PRINT "@140K@": FOR I = 1 TO 17: PRINT "@"I"V1H@" SPC( 38)"@35Y1XN@": NEXT
156 PRINT "@0K@": FOR I = 1 TO 17: PRINT "@"I"V1H@" SPC( 38)"@5Y9XN@": NEXT : FOR I = 1 TO 20:X = FN R(260) +7:Y = FN R(136) +8: HPLOT X,Y: NEXT : PRINT "@L10C0K@":TP$ = "FREEDOM": FOR I = 0 TO 6: PRINT "@6V"7 +4 *I"H@" MID$ (TP$,I +1,1): NEXT : GOSUB 26: PRINT "@9V10H@IS SLAVERY": GOSUB 24:TP$ = "A MAN'S HOME IS HIS CASTLE.": PRINT NM$: GOSUB 30: GOTO 185
157 IF CR >5000 OR PS(25) OR FN R(4) < >4 THEN 183
158 HGR2 :TP$ = "ARE YOU INTERESTED IN ESCAPING?": GOSUB 31: GOSUB 9: IF KY < >217 THEN TP$ = "SUIT YOURSELF.": GOSUB 31: GOTO 160
159 TP$ = "YOU CAN ESCAPE THROUGH SLOT #3.": GOSUB 31:TP$ = "GET A HOLD OF 5000 CREDITS": GOSUB 31:TP$ = "AND I WILL SELL YOU": GOSUB 31:TP$ = "A SILVER DOLLAR.": GOSUB 31:TP$ = "THE BROTHERHOOD LIVES!": GOSUB 26: GOSUB 31
160 HCOLOR= 2: HPLOT 4,188 TO 4,4 TO 277,4 TO 277,188 TO 3,188 TO 3,4: HPLOT 276,4 TO 276,188: HCOLOR= 3: GOTO 183
161 PRINT "@"X"H"Y"V"CL"K@" SPC( L)"@"X"H"H -1"D@" SPC( L);: FOR V = Y TO Y +H -1: PRINT "@"V"V"X"H@ @"X +L -1"H@ ": NEXT V: PRINT NM$: RETURN
162 HCOLOR= 2: GOSUB 6: HPLOT 178,28 TO 269,28 TO 269,180 TO 9,180 TO 9,28 TO 10,28 TO 10,180: HPLOT 9,28 TO 25,28 TO 25,14 TO 178,14 TO 178,28: HPLOT 26,14 TO 26,28: HPLOT 179,14 TO 179,28: HPLOT 270,28 TO 270,180: HCOLOR= 3: PRINT "@2V4HI@PSYCHOLOGICAL PROFILE@I5V2H@SUBJECT: #@2D2H@COMMENTS: SUBJECT IS "TP$: HCOLOR= 3: GOSUB 26: GOTO 46
163 V = 44: FOR H = 22 TO 41: HPLOT H,V: HCOLOR= 0: HPLOT H -1,V: HCOLOR= 3: NEXT H: GOSUB 164:V = 44: FOR H = 41 TO 98: HPLOT H,V: HCOLOR= 0: HPLOT H -1,V: HCOLOR= 3: NEXT H: GOSUB 164:V = 44: FOR H = 98 TO 126: HPLOT H,V: HCOLOR= 0: HPLOT H -1,V: HCOLOR= 3: NEXT H: RETURN
164 H = H -1: PRINT "@20X20YN@": FOR V = 43 TO 32 + INT(FG/2) STEP -1: HPLOT H,V: HCOLOR= 0: HPLOT H,V +1: HCOLOR= 3: NEXT V: FOR V = 32 + INT(FG/2) TO 44: HPLOT H,V: HCOLOR= 0: HPLOT H,V -1: HCOLOR= 3: NEXT V: PRINT "@40X20YN@":KY = PEEK( -16384): IF KY <128 THEN RETURN
165 POKE -16368,0: IF KY = 155 THEN 183
166 IF KY = 201 THEN VG = VG +(VG <20): PRINT "@I10V13H@ @2B@"VG"@I@": RETURN
167 IF KY = 198 THEN RETURN
168 IF KY = 212 AND TP$ = RC$ THEN PRINT "@14V22H@WE HAVE MET THE@D22H@ENEMY, AND IT@D22H@IS US.": GOTO 182
169 IF KY = 212 THEN PRINT "@16V22H@THAT'S NOT@D22H@CORRECT.": RETURN
170 IF KY < >214 THEN RETURN
171 FG = VG: IF VG >5 THEN TP$ = "NEVER": IF VG >10 THEN TP$ = "STOP ": IF VG >15 THEN TP$ = "HURTS": IF VG = FN R(20) THEN TP$ = "UHHHH"
172 IF VG < >20 THEN 175
173 TP$ = STR$( FN R(999)): IF TP$ = RC$ THEN 173
174 IF FN R(3) = 2 THEN TP$ = RC$
175 FOR I2 = 1 TO 2 *VG +1: PRINT "@5V28HIL@" CHR$(109)"@5Y"10 *(I2/2 = INT(I2/2)) +10"XN@": NEXT I2: PRINT NM$"@10V23H@"TP$" @I@": RETURN
176 TA$(1) = "CONFORMITY":TA$(2) = "AUTHORITY":TA$(3) = "HARMONY":TA$(4) = "OBEDIENCE":TA$(5) = "TRADITION":TA$(6) = "ORDER":TA$(7) = "DEPENDABILITY": RETURN
177 GOSUB 5:X = 2:Y = 6:L = 14:H = 12:CL = 5: GOSUB 161:VT = 6:BL = 14:LN = 12:CL = 133:HT = 24: GOSUB 4:BL = 6:HT = 17:CL = 15: GOSUB 4:HT = 3:BL = 12:LN = 5:VT = 7: GOSUB 4
178 PRINT NM$"@7V18H@" SPC( 4)"@L5K15C4V8H@1@30H133K@2@19H138K@3@G138C0K5V17H@H@U@H@U@HJ@D@J@D@J@I18H@ @2F@ @I17V16H@H@23H@J"NM$"@I7U18H@ONE@D17H@SILVER@D17H@DOLLAR@D19H@TO@D18H@PLAY@I@": RETURN
179 VT = 18:LN = 5:BL = 38:CL = 0:HT = 1: GOSUB 4: HCOLOR= 2: HPLOT 10,180 TO 10,148 TO 270,148 TO 270,180 TO 9,180 TO 9,148: HPLOT 269,148 TO 269,180: HPLOT 10,164 TO 270,164: HCOLOR= 3: PRINT NM$"@I19V2H@OUTPUT:@2D2H@INPUT :@I@": RETURN
180 DATA " WAR ",IGNORANCE," FREEDOM"," PEACE "," STRENGTH"," SLAVERY","@13V5H@LIFE IS A@D6H@GAMBLE","@12V4H@THE GAME IS@D3H@RIGGED, BUT@D3H@IF YOU DON'T@D4H@PLAY, YOU@D4H@CAN'T WIN"
181 DATA "@13V4H@THE KEY TO@D5H@ESCAPE IS@D4H@THE KEY TO@D6H@ESCAPE","@13V6H@NO MAN@D3H@IS AN ISLAND","@13V4H@UNPLUG THE@D6H@SYSTEM"
182 TP$ = "PR.8":TP = 2: GOTO 186
183 TP$ = "PR.2": GOTO 186
184 PRINT "@10Y@": FOR I = 1 TO 5:T2 = FN R(25): FOR T3 = T2 +50 TO T2 STEP -5: PRINT "@"T3"XN@": NEXT : FOR T3 = T2 TO T2 +50: PRINT "@"T3"XN@": NEXT T3,I
185 TP$ = "PR.1"
186 ONERR GOTO 188
187 POP : GOTO 187
188 ONERR GOTO 190
189 PRINT : PR# 0: CALL 1002: CALL 36263: PRINT CHR$(4)"RUN"TP$: END
190 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256:A$ = "PR.3":TP$ = "PR.8":TP = 4: IF ER = 255 THEN TP = 3
191 GOTO 189

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.4.bas:

1 CALL 36281: ONERR GOTO 132
2 RV = 0:PN = 21:TX = 0:FG = 0:ZZ = FRE(0): GOTO 53
3 FOR I = 1 TO 10: GOSUB 4: HCOLOR= FN R(8) -1: HPLOT 0,0: GOSUB 4: CALL 62454: POKE -16298,0: POKE -16303,0: CALL -1998: POKE -16297,0: POKE -16304,0: GOSUB 4: NEXT : HGR2 : HCOLOR= 2: HPLOT 4,188 TO 4,4 TO 277,4 TO 277,188 TO 3,188 TO 3,4: HPLOT 276,4 TO 276,188: GOTO 126
4 PRINT "@10Y" FN R(100)"XN@": RETURN
5 PRINT "@15C"CL"KR@": FOR H = 1 TO LN: HTAB HT +1: VTAB VT +H: PRINT SPC( BL): NEXT H: PRINT NM$: RETURN
6 VT = 1:HT = 1:BL = 38:LN = 22:CL = 0: GOTO 5
7 GOSUB 9:CH = KY -176: IF CH MX THEN 7
8 RETURN
9 KY = PEEK( -16384): IF KY <128 THEN 9
10 POKE -16368,0: RETURN
11 PRINT "@R0K15CI21V10H@PRESS SPACE BAR TO CONTINUE": POKE -16368,0
12 GOSUB 9: IF KY < >160 THEN 12
13 PRINT "@I@"IB$: RETURN
14 HTAB HT +PS *F: PRINT "@I@" CHR$( PEEK(256 +PS))"@I@";
15 KY = PEEK( -16384): IF KY <128 THEN 15
16 POKE -16368,0: HTAB HT +PS *F: PRINT CHR$( PEEK(256 +PS));: IF KY = 141 AND PS THEN 19
17 KY = KY -128: IF (KY >47) AND (KY <58) THEN HTAB HT +PS *F: PRINT CHR$(KY);: POKE 256 +PS,KY:PS = PS +1: IF PS > = MX THEN 19
18 GOTO 14
19 IP$ = "":TP$ = "": FOR I3 = 0 TO PS:IP$ = IP$ + CHR$( PEEK(256 +I3)): NEXT I3:IP = VAL(IP$): PRINT "@R@": FOR I3 = 1 TO LEN(IP$): IF MID$ (IP$,I3,1) < >" " THEN TP$ = TP$ + MID$ (IP$,I3,1)
20 NEXT I3:IP$ = TP$: RETURN
21 L4 = 3000: FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
22 PRINT "@L@": FOR I4 = 1 TO 20:R4 = FN R(8) *2 +4:C4 = FN R(30):C4 = C4 +((C4 >15) *128): PRINT "@19H"R4"V"C4"K@ @10Y"R4 *2"XNB0K@ ": NEXT I4: PRINT "@R@": RETURN
23 PRINT NM$"@I@": FOR H = X TO X +8 STEP 2: FOR V = Y TO Y +6 STEP 2: PRINT "@"H"H"V"V@ ": NEXT : NEXT : PRINT "@I@": RETURN
24 HCOLOR= CL: HPLOT 171,92 TO 171,28 TO 256,28 TO 256,92 TO 170,92 TO 170,28: HPLOT 255,28 TO 255,92: RETURN
25 PRINT NM$OB$OS$O$M1$: RETURN
26 POKE 35399,0:O$ = BB$: GOSUB 25:TP$ = BB$ +TP$ +BB$: VTAB 20: HTAB 11:TS = LEN(TP$) -27: FOR I5 = 1 TO TS: HTAB 11: PRINT MID$ (TP$,I5,28)"@35Y"34 + FN R(25)"XN@";: NEXT I5: RETURN
27 FOR I5 = 0 TO 2: POKE 30724 +I5,0: NEXT I5: PRINT NM$: CALL 30727:VB = PEEK(30724):AD = PEEK(30725):OB = PEEK(30726): IF VB = 254 THEN 125
28 IF VB = 253 THEN 124
29 RETURN
30 IF T4 <950 AND INT( RND(1) *1.2) THEN T1 = FN R(100) -1: IF T1 THEN T4 = T4 +T1:TP$ = "MORE PRISONERS HAVE ARRIVED ON THE ISLAND": GOSUB 50
31 T2(6) = T2(6) *(.95 +T2(5)/20) *(.9 +T2(1)/10):CL = 0: IF RND(1) T2(5) AND T4 THEN T1 = FN R(2) -1:T4 = T4 -T1:T6 = T6 +T1
32 GOSUB 24: IF RND(1) >T2(6) AND RND(1) T2(5) AND INT( RND(1) *1.3) THEN X3 = FN R(6) *2 +23:Y3 = FN R(3) *2 +3: PRINT "@"X3"H"Y3"V@F":TP$ = "A FIGHT HAS STARTED": GOSUB 48
37 IF X3 AND NOT ( INT( RND(1) *10)) THEN PRINT "@"Y3"V"X3"H@ ":X3 = 0:Y3 = 0:T4 = T4 -1:TP$ = "SOMEONE WAS KILLED IN THE FIGHT": GOSUB 48:T5 = T5 +1
38 IF X4 AND Y4 AND RND(1) T2(5) AND RND(1) >T2(2) AND RND(1) >T2(3) AND INT( RND(1) *1.1) THEN X4 = FN R(6) *2 +23:Y4 = FN R(3) *2 +3: PRINT "@"X4"H"Y4"V@R":TP$ = "THERE IS A RIOT ON THE ISLAND": GOSUB 48
40 IF X4 THEN T1 = INT( RND(1) *T4/10): IF T1 THEN T4 = T4 -T1:TP$ = "SOME PEOPLE WERE KILLED IN THE RIOT": GOSUB 48:T5 = T5 +T1
41 T2(7) = T2(7) *(.95 +T2(1)/20):T2(8) = T2(8) *(.9 +T2(1)/10):T2(4) = T2(4) *(.9 +T2(1)/10) *(.95 +T2(7)/20):T2(2) = T2(2) *(.9 +T2(3)/10) *(.95 +T2(1)/20) *(.95 +T2(7)/20):T2(3) = T2(3) *(.95 +T2(1)/20) *(.95 +T2(7)/20)
42 IF INT( RND(1) *1.05) AND T2(1) <1 THEN T2(1) = T2(1) + RND(1) *(1 -T2(1)):TP$ = "HEADQUARTERS IS FIXING OUR POWER LINES": GOSUB 50
43 FOR I = 1 TO 8: IF T2(I) >.99 THEN T2(I) = 1
44 NEXT I: IF T5 AND RND(1)/50 >T2(5) AND T2(3) >.75 THEN T2(3) = T2(3)/2:TP$ = "SABOTEURS HAVE BLOWN UP OUR WATER LINES": GOSUB 48:T5 = INT( RND(1) *3) +T5
45 IF T5 >500 THEN POP
46 FOR I6 = 1 TO 8: IF RND(1) T2(7) THEN RETURN
49 GOTO 26
50 IF RND(1) >T2(8) THEN RETURN
51 IF RND(1) >T2(5) THEN T1$ = TP$:TP$ = "": FOR I7 = 1 TO LEN(T1$):A$ = MID$ (T1$,I7,1):TP$ = TP$ + CHR$( ASC(A$) +3): NEXT I7
52 GOTO 26
53 POKE 30720,21: POKE 30721,10: POKE 30722,25: CALL 35339: DEF FN R(X) = INT( RND(1) *X) +1: PRINT NM$: IF RM = 11 THEN 85
54 IF RM = 18 THEN 105
55 GOSUB 6: IF SP >14 THEN FOR I = 1 TO 8:T2(I) = 1: NEXT :T4 = 1000:T5 = 0: GOTO 68
56 VT = 1:HT = 1:BL = 38:LN = 22:CL = 129: GOSUB 5:VT = 2:HT = 10:BL = 18:LN = 3:CL = 15: GOSUB 5:BL = 16:VT = 6:HT = 2: GOSUB 5:VT = 10:LN = 12: GOSUB 5:VT = 6:HT = 22:LN = 16:CL = 0: GOSUB 5:BL = 2:HT = 19: GOSUB 5: PRINT "@7V3H@" SPC( 14)"@27H@ANSWER"
57 PRINT "@I3V11H@FREE INFORMATION@6V3H@IDENTIFICATION@11V6H@CHOICES@2D3H@<1> WHO@D3H@<2> WHAT@D3H@<3> WHEN@D3H@<4> WHERE@D3H@<5> WHY@D3H@<6> HOW@2D3H@<0> LEAVE@I@": POKE 30720,7: POKE 30721,4: POKE 30722,4: GOSUB 27: IF OB < >37 THEN GOTO 126
58 MN = 0:MX = 6: GOSUB 7: GOSUB 22: ON CH +1 GOTO 126,59,60,61,63,64,65
59 TP$ = " YOU ARE #": GOTO 66
60 TEXT : HOME : PR# 0: CALL 1002: PRINT : NORMAL : PRINT CHR$(4)"CATALOG": GOSUB 21: CALL 35339: GOTO 58
61 TP$ = " LATER": IF SC >500 THEN TP$ = " SOON": IF SC >1000 THEN TP$ = " NOW"
62 GOTO 66
63 GOSUB 67: PRINT NM$"@9V24H@YOU ARE HERE":X = 25:Y = 11: GOSUB 23: PRINT "@I11V29H@X@I@": GOTO 58
64 GOTO 3
65 TP$ = " ACCOUNT # IS@2D27H@" +AN$
66 GOSUB 67: PRINT "@12V22H@"TP$: GOTO 58
67 HT = 22:VT = 8:LN = 14:BL = 16:CL = 0: GOSUB 5: RETURN
68 GOSUB 121:X = 1:Y = 1:L = 38:H = 17:CL = 129: GOSUB 108:L = 22: GOSUB 108: PRINT "@129K13V2H@" SPC( 36),NM$"@2V9H@CONTROL@2D2H@<1> POWER@D2H@<2> FOOD@D2H@<3> WATER@D2H@<4> SURVEILLANCE@D2H@<5> SECURITY";
69 PRINT "@D2H@<6> GATES@D2H@<7> INT. COMMUN.@D2H@<8> EXT. COMMUN.@D2H@<0> QUIT@14V4H@" CHR$(1)" KEY@16H@" CHR$(2)" KEY@2F@POPULATION@D2H@INCREASE@14H@DECREASE@DF@DEATHS":CL = 5: GOSUB 24
70 X = 26:Y = 4: GOSUB 23:TP$ = "GREETINGS, #. THIS IS OUR TOWN HALL. FROM HERE YOU HAVE COMPLETE CONTROL OF THE ISLAND. WOULD YOU BE INTERESTED IN BEING CARETAKER FOR A WHILE?": GOSUB 26: GOSUB 27: IF AD = 11 THEN 72
71 TP$ = "I AM GLAD TO SEE THAT YOU ARE HAPPY WITH THE WAY THINGS ARE. TAKE CARE.": GOSUB 26:SC = SC -20: GOTO 126
72 TP$ = "VERY WELL. WE'LL SEE IF YOU CAN MAKE A DIFFERENCE": GOSUB 26:X3 = 0:Y3 = 0:X4 = 0:Y4 = 0: GOSUB 73: GOTO 83
73 A = PEEK( -16384): IF A <128 THEN GOSUB 30: GOTO 73
74 POKE -16368,0:T2 = A -176: IF T2 <0 OR T2 >9 THEN PRINT "@200X200YN@": GOTO 73
75 PRINT "@3H"12 -((9 -T2) *(T2 >0))"VI@"T2"@I@": IF NOT T2 THEN RETURN
76 T7 = PEEK( -16384): IF T7 <176 AND T7 >184 AND T7 < >136 AND T7 < >149 THEN GOSUB 30: GOTO 76
77 POKE -16368,0:T7 = T7 -176: IF T7 > = 0 AND T7 <9 THEN PRINT "@3H"3 +T2"V@"T2:A = T7 +176: GOTO 74
78 T7 = T7 +48:CT = CT +1: IF CT/10 = INT(CT/10) THEN GOSUB 30
79 IF CT >32000 THEN CT = 1000
80 T1 = 0: IF T7 = 8 AND T2(T2) > = .01 THEN T1 = -.01
81 IF T7 = 21 AND T2(T2) < = .99 THEN T1 = .01
82 T2(T2) = T2(T2) +T1: PRINT "@19H"3 +T2"V@ @19H@" INT(T2(T2) *100)"@16V10H@" INT(T2(T2) *100)" ": GOTO 76
83 IF CT <99 OR T5 THEN TP$ = "NOT A VERY IMPRESSIVE PERFORMANCE, #. I'M SURE YOU NOW APPRECIATE HOW WELL THINGS ARE MANAGED HERE": GOSUB 26: GOTO 126
84 TP$ = "IN APPRECIATION FOR A JOB WELL DONE, I AM PRESENTING YOU WITH THIS GOLD WATCH AND A PLACE TO RETIRE...THE ISLAND": GOSUB 26:PS(9) = PS(9) +1: GOTO 126
85 VT = 1:HT = 1:BL = 38:LN = 22:CL = 142: GOSUB 5: PRINT "@I3V2H@ NO GOVERNMENT OUGHT TO BE WITHOUT @D2H@CENSORS; AND WHERE THE PRESS IS FREE@D2H@NO ONE EVER WILL - THOMAS JEFFERSON @I@":X = 11:Y = 9:H = 3:L = 19:CL = 129: GOSUB 108:Y = 14:H = 9
86 GOSUB 108: PRINT "@10V12H@" SPC( 17):VT = 15:HT = 12:BL = 17:LN = 7:CL = 0: GOSUB 5: PRINT "@129K12V20H@ @DB@ @142CGI@J@3B@H"NM$"@I15V13H@TYPESET MACHINE@2D14H@" CHR$(2)"@24H@LEFT@D14H@" CHR$(1)"@23H@RIGHT@D14H@S@22H@SWITCH@D14H@RETURN@4F@DONE"
87 PRINT "@I9V@";: FOR I2 = 1 TO 6: FOR I = 1 TO 11: PRINT "@"2 +I +((I >6) *23)"H@" FN R(9);: NEXT : PRINT : NEXT :TP$ = "C SAID U HEX NAME":CP = 1: PRINT "@I@"
88 PRINT "@10V12H@"TP$"@I"11 +CP"H@" MID$ (TP$,CP,2)"@I@"
89 GOSUB 9:KY = KY -128: IF KY < >8 AND KY < >21 AND KY < >13 AND KY < >83 THEN PRINT M1$: GOTO 89
90 IF KY = 13 THEN 99
91 ON (KY = 21) +(KY = 8) *2 +(KY = 83) *3 GOTO 92,94,96
92 IF CP = 16 THEN PRINT M1$: GOTO 89
93 CP = CP +1: GOTO 88
94 IF CP = 1 THEN PRINT M1$: GOTO 89
95 CP = CP -1: GOTO 88
96 I$ = TP$:TP$ = MID$ (TP$,CP +1,1) + MID$ (TP$,CP,1):X = 17 -(CP +1): IF X THEN TP$ = TP$ + RIGHT$(I$,X)
97 IF (CP -1) >0 THEN TP$ = LEFT$(I$,CP -1) +TP$
98 GOTO 88
99 PRINT "@10V12H@"TP$:I$ = "": FOR I = 1 TO 17: IF MID$ (TP$,I,1) < >" " THEN I$ = I$ + MID$ (TP$,I,1)
100 NEXT : IF I$ = "DEUSEXMACHINA" THEN BR = 6:I = 0: GOTO 102
101 GOTO 126
102 I = I +1: PRINT "@50X20YN100XN@": IF PEEK( -16384) = 155 THEN POKE -16368,0: GOTO 126
103 IF I <35 THEN 102
104 GOTO 127
105 GOSUB 109:MN = 1:MX = 5: GOSUB 7: PRINT CH: GOSUB 110: FOR I = 1 TO 10: READ TP$:J = LEN(TP$): SPEED= 100: PRINT "@3V" INT(2 +(36 -J)/2)"H@"TP$"@"J"B@" SPC( J): SPEED= 255: NEXT
106 SPEED= 100: PRINT "@2H3V@WHAT IS YOUR RESIGNATION CODE?@2H@" SPC( 36):TP$ = "": HPLOT 11,52 TO 55,52 TO 58,56 TO 58,64 TO 55,68 TO 11,68 TO 8,64 TO 8,56 TO 11,52: HPLOT 15,68 TO 15,75 TO 21,68: HCOLOR= 0: HPLOT 16,68 TO 20,68: HCOLOR= 3: FOR I = 1 TO 3: GOSUB 9:TP$ = TP$ + CHR$(KY -128): PRINT "@7V3H@"TP$: NEXT : IF RC$ = TP$ THEN 125
107 PRINT "@7V3H@ @2H3V@YOU WERE LOYAL. THAT'S NOT LIKE YOU.@2H@" SPC( 36)"@2H@WE'LL LET YOU THINK FOR A WHILE.@2H@" SPC( 36): SPEED= 255: GOTO 119
108 PRINT "@"X"H"Y"V"CL"K@" SPC( L)"@"X"H"H -1"D@" SPC( L);: FOR V = Y TO Y +H -1: PRINT "@"V"V"X"H@ @"X +L -1"H@ ": NEXT V: PRINT NM$: RETURN
109 VT = 1:HT = 1:BL = 38:LN = 22:CL = 129: GOSUB 5:VT = 3:HT = 2:BL = 17:LN = 15:CL = 15: GOSUB 5: PRINT "@4V6HI@DIRECTORY";: FOR I = 1 TO 5: READ TP$(I): PRINT "@2D2H@<"I"> THE "TP$(I);: NEXT : PRINT "@16V2H@WHO DO YOU WISH?";: RETURN
110 HT = 21:LN = 10: GOSUB 5: PRINT "@4V24H@FINGERPRINT@D25H@ANALYZER@2D22H@PLACE YOUR@D22H@FINGERS ON THE@D22H@FOLLOWING KEYS@2D22H@A S D F J K L ;@14V@";: FOR I = 1 TO 4: PRINT "@21H@";: FOR J = 1 TO 17: PRINT FN R(9);: NEXT : PRINT : NEXT : PRINT "@I@": FOR I = 1 TO 8:TA(I) = 0: READ TP(I): NEXT
111 GOSUB 9:KY = KY -128:H = 0: FOR I = 1 TO 8: IF TP(I) = KY THEN H = I:TA(I) = 1
112 NEXT : IF NOT H THEN 111
113 PRINT "@"20 +2 *H"H11V@" CHR$(TP(H)):H = 1: FOR I = 1 TO 8:H = H *TA(I): NEXT : IF NOT H THEN 111
114 PRINT "@I25H15V@";: FOR I = 1 TO 35:J = FN R(29):J = J +((J >15) *129): PRINT FN R(9)"@" FN R(17) +20"H" FN R(4) +13"V"J"C@ @10Y" FN R(25) +25"XNB@"NM$;: NEXT :TP$ = "@19V21H@+RESIGNED AGENT+@60X250YN@":C = 15: FOR I = 1 TO 10: PRINT "@"C"C@"TP$: IF C = 15 THEN C = 138: NEXT
115 C = 15: NEXT : PRINT NM$TP$"@21V13H@CLEARANCE GIVEN@I@": FOR I = 5 TO 1 STEP -1: FOR J = 1 TO 22 STEP I: PRINT "@"J"V1H@" SPC( 38): NEXT J,I
116 VT = 17:HT = 1:BL = 38:LN = 6:CL = 1: GOSUB 5:HT = 7:VT = 13:BL = 25:CL = 136: GOSUB 5: PRINT "@138K12V6H@" SPC( 27)"@G142C0K11V6H@H@U@H@31H@J@D@J"
117 PRINT NM$"@10V8H142K@" SPC( 23)"@D7H@" SPC( 25)"@14H15K@" SPC( 14)"@136K19V9H@ @30H@ @D9H@ @30H@ "NM$:VT = 6:HT = 18:BL = 6:LN = 4:CL = 138: GOSUB 5:HT = 29:VT = 5:BL = 9:CL = 15: GOSUB 5: PRINT "@I6V32H@THE@D30H@COMPANY"
118 TP$ = "THE " +TP$(CH): PRINT "@11V"14 + INT((14 - LEN(TP$))/2)"H@"TP$"@I@": HCOLOR= 3: HPLOT 11,36 TO 269,36 TO 272,32 TO 272,24 TO 269,20 TO 11,20 TO 8,24 TO 8,32 TO 11,36: HPLOT 148,37 TO 148,45 TO 154,37: HCOLOR= 0: HPLOT 149,36 TO 153,36: HCOLOR= 3: RETURN
119 GOSUB 6: FOR I = 13 TO 265 STEP 14: FOR J = 0 TO 2: HPLOT I +J,8 TO I +J,183: NEXT J,I:HT = 9:VT = 10:LN = 4:CL = 15:BL = 26: GOSUB 5: PRINT NM$"@L11V31HI@" CHR$(99)NM$"@I@": GOSUB 9: IF KY = 155 THEN 127
120 GOSUB 6: GOSUB 116: GOTO 106
121 HCOLOR= 2: HPLOT 10,180 TO 10,148 TO 270,148 TO 270,180 TO 9,180 TO 9,148: HPLOT 269,148 TO 269,180: HPLOT 10,164 TO 270,164: HCOLOR= 3: PRINT NM$"@I19V2H@OUTPUT:@2D2H@INPUT :@I@": RETURN
122 DATA COLONEL,GENERAL,DIRECTOR,CHIEF,SECRETARY,65,83,68,70,74,75,76,59,"WELL, WELL. LOOK WHO'S RETURNED.","WE HAD GIVEN YOU UP FOR LOST.","FIRST YOU RESIGN,","THEN YOU DISSAPPEAR WITHOUT A TRACE,"
123 DATA "AND NOW YOU COME BACK.","SOME OF US HAD THOUGHT YOU","HAD GONE OVER TO THE OTHER SIDE.","SORRY TO SEEM DISTRUSTING, BUT","WE NEED PROOF THAT YOU'RE NOT","A DEFECTOR."
124 TP$ = "PR.8":TP = 3: GOTO 128
125 TP$ = "PR.8":TP = 2: GOTO 128
126 TP$ = "PR.2": GOTO 128
127 TP$ = "PR.1"
128 ONERR GOTO 130
129 POP : GOTO 129
130 ONERR GOTO 132
131 PRINT : PR# 0: CALL 1002: CALL 36263: PRINT CHR$(4)"RUN"TP$: END
132 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256:A$ = "PR.4":TP$ = "PR.8":TP = 4: IF ER = 255 THEN TP = 3
133 GOTO 131

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.5.bas:

1 CALL 36281: ONERR GOTO 155
2 SF = 0:PN = 21:TX = 0:FG = 0:ZZ = FRE(0): GOTO 55
3 VT = 1:HT = 1
4 PRINT "@15C"CL"KR@": FOR H2 = 1 TO LN: HTAB HT +1: VTAB VT +H2: PRINT SPC( BL): NEXT H2: PRINT NM$: RETURN
5 VT = 1:HT = 1:BL = 38:LN = 17:CL = 0: GOSUB 4: RETURN
6 VT = 1:HT = 1:BL = 38:LN = 22:CL = 0: GOTO 4
7 BL = 4:LN = 6:CL = 136: GOTO 4
8 VT = 1:BL = 3:LN = 13:CL = 136: GOSUB 4:CL = 138:VT = 14:LN = 3: GOSUB 4: RETURN
9 CL = 136:BL = 1:LN = TT +7: GOSUB 4: PRINT "@"HT"H"VT"V10K@";: FOR I2 = 0 TO TT -1: PRINT "@"HT -I2"H"VT +I2"V@" SPC( I2 *2 +1): NEXT : PRINT "@D"HT -TT +3"H@" SPC( 2 *TT -5)NM$: RETURN
10 KY = PEEK( -16384): IF KY <128 THEN 10
11 POKE -16368,0:CH = KY -176: IF CH MX THEN 10
12 RETURN
13 PRINT NM$IB$"@I@"IN$"PRESS SPACE BAR TO CONTINUE": POKE -16368,0
14 KY = PEEK( -16384): IF KY <128 THEN 14
15 POKE -16368,0: IF KY < >160 THEN 14
16 PRINT "@I@"IB$: RETURN
17 VTAB VT: HTAB HT: PRINT SPC( MX):PS = 0: FOR I3 = 0 TO MX: POKE 256 +I3,32: NEXT I3: POKE -16368,0: IF F = 2 THEN PRINT "@UL@"
18 HTAB HT +PS *F: PRINT "@I@" CHR$( PEEK(256 +PS))"@I@";
19 KY = PEEK( -16384): IF KY <128 THEN 19
20 POKE -16368,0: HTAB HT +PS *F: PRINT CHR$( PEEK(256 +PS));: IF KY = 141 AND PS THEN 23
21 KY = KY -128: IF (KY >47) AND (KY <58) THEN HTAB HT +PS *F: PRINT CHR$(KY);: POKE 256 +PS,KY:PS = PS +1: IF PS > = MX THEN 23
22 GOTO 18
23 IP$ = "":TP$ = "": FOR I3 = 0 TO PS:IP$ = IP$ + CHR$( PEEK(256 +I3)): NEXT I3:IP = VAL(IP$): PRINT "@R@": FOR I3 = 1 TO LEN(IP$): IF MID$ (IP$,I3,1) < >" " THEN TP$ = TP$ + MID$ (IP$,I3,1)
24 NEXT I3:IP$ = TP$:IP = VAL(IP$): RETURN
25 L4 = 75: GOTO 28
26 L4 = 1200: GOTO 28
27 L4 = 3000
28 FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
29 PRINT NM$OB$OS$O$M1$: RETURN
30 IF NOT ( LEN(TP$)) THEN RETURN
31 PRINT NM$:O$ = BB$: GOSUB 29:TP$ = BB$ +TP$ +BB$: VTAB 20: HTAB 11:TS = LEN(TP$) -27: FOR I5 = 1 TO TS: HTAB 11: PRINT MID$ (TP$,I5,28)"@35Y"34 + FN R(25)"XN@";: NEXT I5: RETURN
32 FOR I = 1 TO 28: IF PS(I) THEN O$ = PS$(I) +" : " + STR$(PS(I)): GOSUB 29: GOSUB 13
33 NEXT I:O$ = "VISICARD : " + STR$(CR) +" CREDITS": GOSUB 29: GOSUB 13: PRINT OB$IB$: RETURN
34 FOR I5 = 0 TO 2: POKE 30724 +I5,0: NEXT I5: PRINT NM$: CALL 30727:VB = PEEK(30724):AD = PEEK(30725):OB = PEEK(30726): IF VB = 254 THEN 150
35 IF VB = 253 THEN 149
36 IF AD = 20 AND NOT (RM = 17 AND (RN = 6 OR RN = 11)) THEN O$ = "YOU ARE IN THE " +RM$: GOSUB 29
37 IF VB = 10 AND NOT (RM = 17 AND (RN = 6 OR RN = 11)) THEN GOSUB 32
38 RETURN
39 GOSUB 34: IF VB = 10 THEN GOSUB 32: GOTO 39
40 IF RM = 17 THEN 47
41 IF AD = 1 AND RN = 13 THEN GOTO 147
42 IF VB = 29 AND RN = 11 THEN 62
43 IF VB = 19 AND OB = 35 AND SF AND RN = 11 AND BR = 1 THEN SF = 0:BR = 5
44 IF VB = 28 AND RN = 12 THEN SD = NOT (SD): PRINT NM$"@L6V19HI@" CHR$(29 +SD): POKE 36181,96 +((SD = 0) *77): PRINT "@I180X10YN220X5YN@"
45 IF NOT (AD) OR AD >4 OR ((RN = 11 OR RN = 12) AND AD = 1) THEN O$ = "YOU TALK IN CIRCLES": GOSUB 29: GOTO 39
46 RN = RC(RN,AD): GOTO 59
47 IF RN = 16 AND (AD = 10 OR AD = 1) THEN FOR T = 100 TO 180 STEP 5: PRINT "@10Y"T"XN@": NEXT T: GOTO 148
48 IF RN = 8 AND AD = 10 THEN RN = 9: GOTO 69
49 IF (RN = 10 AND VB = 30) OR (RN = 1 AND AD = 2) THEN 147
50 IF RN = 10 AND VB = 1 AND LB = 1 AND OB = 26 THEN PS(26) = 1:LB = LB +4: PRINT "@L15V13H@" SPC( 4),NM$:SC = SC +50: GOTO 39
51 IF RN = 16 AND VB = 1 AND LB = 2 AND OB = 27 THEN PS(27) = 1:LB = LB +4: PRINT "@L16V19H@ "NM$: GOTO 39
52 IF RN = 20 AND VB = 1 AND OB = 28 THEN PS(28) = 1: GOTO 144
53 IF AD <1 OR AD >4 THEN 39
54 RN = RC(RN,AD): PRINT OB$: GOTO 69
55 POKE 30720,21: POKE 30721,10: POKE 30722,25: CALL 35339: DEF FN R(X) = INT( RND(1) *X) +1: IF RM = 17 THEN RN = 1: GOTO 68
56 IF RM = 10 OR RM = 16 THEN 72
57 IF RM = 12 THEN 83
58 TP$ = "RUBIKCUBE": FOR I = 1 TO 13: FOR J = 1 TO 4:RC(I,J) = FN R(9): NEXT J,I: FOR I = 11 TO 13:T1 = 1:TP = 5 + FN R(3): FOR J = 1 TO TP:T1 = RC(T1, FN R(4)): NEXT J:RC(T1, FN R(4)) = I: NEXT I:T2(1) = 10:T2(2) = 2:T2(3) = 11:T2(4) = 133:T2(5) = 129:T2(6) = 137:T2(7) = 5:T2(8) = 1:T2(9) = 13:RN = 1
59 IF RN <10 THEN TC = T2(RN): GOSUB 101: PRINT NM$"@5V12HL@" MID$ (TP$,RN,1),NM$: GOTO 39
60 ON RN -9 GOTO 61,61,64,65
61 GOSUB 106: GOTO 39
62 PRINT "@4V10H@0@B7V@0@I2V16H@" SPC( 10): FOR I = 0 TO SC: PRINT "@2V18H@"I:T1 = PEEK( -16336): NEXT I: FOR I = 1 TO 2: FOR J = 10 TO 30 STEP 5: PRINT "@200Y"J"XN@": NEXT J: FOR J = 30 TO 10 STEP -5: PRINT "@"J"XN@": NEXT J,I
63 PRINT NM$"@4V19H@##@D19H@##@6V18H@";: FOR V = 1 TO 5: PRINT "@18H@";: FOR H = 1 TO 4: PRINT "#";: NEXT H: PRINT : NEXT V: PRINT "@11V18H@";: FOR V = 1 TO 5: PRINT "@18H@#@2F@#": NEXT : PRINT "@I@":SF = 1: GOTO 39
64 GOSUB 105: GOTO 39
65 GOSUB 103: GOSUB 34: IF AD <1 OR AD >4 THEN 65
66 IF AD = 1 THEN 147
67 RN = RC(RN,AD): GOTO 59
68 TC = 133: FOR I = 1 TO 16: FOR J = 1 TO 4: READ RC(I,J): NEXT J,I: FOR I = 17 TO 20: FOR J = 1 TO 4:RC(I,J) = FN R(3) +16: NEXT J,I: FOR I = 0 TO 1:TP = 5 + FN R(3):RN = 17: FOR J = 1 TO TP:RN = RC(RN, FN R(4)): NEXT J:RC(RN, FN R(4)) = 20 -I *9: NEXT I:RN = 1
69 ON RN GOSUB 101,101,101,129,101,118,116,116,123,123,118,112,109,101,123,123,101,116,123,121: IF RN < >6 AND RN < >11 THEN 39
70 IF (RN = 6 AND AD < >4) OR (RN = 11 AND AD < >2) THEN GOSUB 100
71 GOTO 54
72 GOSUB 131
73 TP$ = "CAN YOU BE HELPED?": GOSUB 30: PRINT NM$"@11V27H@" SPC( 5)"@13V27H@" SPC( 5),IB$: GOSUB 34: IF VB = 6 OR VB = 22 OR AD = 2 OR AD = 12 THEN TP$ = "BE SEEING YOU": GOSUB 30: GOTO 147
74 IF VB < >3 THEN 79
75 PRINT NM$"@13V27H@";: FOR I = 1 TO 5: PRINT MID$ (AN$,I,1)"@5Y" FN R(50)"XN@";: NEXT : IF (RM = 10 AND (OB <12 OR OB >20)) OR (RM = 16 AND (OB <2 OR OB >8)) THEN TP$ = "WE DON'T CARRY THAT ITEM": GOSUB 30: GOTO 73
76 TP$ = "HOW MANY WOULD YOU LIKE?": GOSUB 30:MX = 3:HT = 11:VT = 22:F = 1: PRINT IB$: GOSUB 17:T1 = IP * VAL(RN$(OB -1 -((RM = 10) *10),2)): IF T1 >CR THEN TP$ = "YOU DON'T HAVE THE CREDIT": GOSUB 30: GOTO 73
77 IF IP THEN PRINT "@11V27H@"T1:TP$ = RN$(OB -1 -((RM = 10) *10),3):PS(OB) = PS(OB) +IP:CR = CR -T1: GOSUB 30
78 GOTO 73
79 IF OB = 16 AND PS(16) AND PS(17) THEN TP$ = "YOU WON'T FOOL ANYONE": GOSUB 30: GOTO 73
80 IF RM = 10 AND OB = 19 THEN TP$ = "YOU HAVE NO DIRECTION": GOSUB 30: GOTO 73
81 IF RM = 10 AND OB = 18 THEN GOSUB 5: PRINT NM$"@L2V5HI@";: FOR T1 = 0 TO 3: FOR T2 = 1 TO 5: HTAB 1 +6 *T2: VTAB 3 +4 *T1: PRINT " @2B@"T2 +T1 *5: NEXT T2,T1: PRINT "@I@": GOSUB 13: GOSUB 135: PRINT "@I@": GOTO 73
82 GOTO 73
83 GOSUB 139
84 HT = 2:VT = 14:BL = 13:LN = 2:CL = 15: GOSUB 4:TP$ = "PULL THE SWITCH": PRINT "@L13V33H@" CHR$(29): GOSUB 30: GOSUB 34: IF VB = 6 OR AD = 2 THEN 147
85 IF AD = 12 THEN 89
86 PRINT NM$"@I14V3H@"TP$( FN R(8))"@IL13V33H5X5YN200XN@" CHR$(30)"@14V@";:SC = SC -10: FOR I = 27 TO 16 STEP -1: PRINT "@"I"H@" CHR$(20);: IF I <27 THEN PRINT " ";
87 GOSUB 25: NEXT I: PRINT NM$"@138CE@": FOR I = 1 TO 9: GOSUB 25: PRINT "@" FN R(3) +15"H" FN R(4) +11"V@^@7Y" FN R(50) +50"XN@": NEXT I: GOSUB 26: PRINT "@EL12V16H@ @14V16H@ "NM$: IF SC <0 THEN SC = 0
88 GOTO 84
89 IF (LB = 3 OR LB = 10) AND PS(25) THEN LB = 0: GOSUB 5: HCOLOR= 3: HPLOT 63,128 TO 63,8 TO 140,24 TO 217,8 TO 217,128 TO 140,144 TO 64,128 TO 64,8: HPLOT 216,8 TO 216,128: PRINT NM$"@2V11H@54@28H@55@4D21H@APPLESOFT@D21H@REFERENCE@D21H@MANUAL": GOSUB 27: GOTO 147
90 ON LB +1 GOTO 91,93,93,93,93,94,95,93,93,97,98
91 GOSUB 92:TP$ = "I AM OZ, THE GREAT AND POWERFUL. BRING ME THE WITCH'S BROOMSTICK AND I'LL GRANT A WISH":LB = 1: GOSUB 30: GOTO 147
92 PRINT "@I3H14V@THE WIZARD@D6H@OF OZ@IL10C7V6H@" CHR$(103)"@9V6H@" CHR$(2): RETURN
93 TP$ = "YOU MUST FINISH YOUR QUEST": GOSUB 30: GOTO 147
94 GOSUB 92:TP$ = "I WILL NOW GRANT A WISH. I WISH YOU TO THE CASTLE":LB = 9: GOSUB 30: GOTO 148
95 GOSUB 96:TP$ = "THE TRICK IS CALLED WHITEWASHING": GOSUB 30:BL = 38:LN = 22:CL = 15: GOSUB 3:LB = 10: GOTO 148
96 PRINT "@I3H14V@TOM SAWYER@IL8V6H@" CHR$(34)"@R133K10V4H@" SPC( 6): RETURN
97 GOSUB 96:TP$ = "FIND INJUN JOE'S TREASURE AND I'LL SHOW YOU A TRICK": GOSUB 30:LB = 2: GOTO 147
98 PRINT "@I3H14V@A CHRISTMAS@D6H@CAROL@IL7V6H@" CHR$(103)"@9V6H@" CHR$(33):TP$ = "GET A LOAN FROM THE BANK AND I'LL GIVE YOU A SILVER DOLLAR": GOSUB 30:LB = 3: GOTO 147
99 PRINT "@"X"H"Y"V"CL"K@" SPC( L)"@"X"H"H -1"D@" SPC( L);: FOR V = Y TO Y +H -1: PRINT "@"V"V"X"H@ @"X +L -1"H@ ": NEXT V: PRINT NM$: RETURN
100 FOR TP = 0 TO 4: PRINT "@"TP +18"V1H@" SPC( 38): NEXT : HCOLOR= 2: HPLOT 10,180 TO 10,148 TO 270,148 TO 270,180 TO 9,180 TO 9,148: HPLOT 269,148 TO 269,180: HPLOT 10,164 TO 270,164: PRINT NM$"@I19V2H@OUTPUT:@2D2H@INPUT :@I@": RETURN
101 GOSUB 5:LN = 9:CL = TC:BL = 38: GOSUB 3: PRINT "@10V0C"TC"K@";: FOR V = 0 TO 7: PRINT "@1H@" SPC( 7 -V)"@"32 +V"H@" SPC( 7 -V)"@D@";: NEXT V: PRINT "@IG18V1H0K"TC"C@";: FOR V = 0 TO 7: PRINT "@U@H";: NEXT V: FOR V = 0 TO 7: PRINT "@"31 +V"H@J": NEXT V: PRINT "@I@"NM$:VT = 4:HT = 18: GOSUB 7: FOR H = 0 TO 2:HT = 3 +H:VT = 8 -H:CL = 136:LN = 7
102 BL = 1: GOSUB 4:HT = 36 -H:CL = 136: GOSUB 4: NEXT H: PRINT "@I0K136CG15V3H@H@U@H@U@H@34H@J@D@J@D@J@7V3H"TC"C136K7V3H@H@U@H@U@H@34H@J@D@J@D@J@I@"NM$: HCOLOR= (TC >128) *4: FOR T3 = 63 TO 217 STEP 154: HPLOT T3,8 TO T3,80: HPLOT T3 +1,8 TO T3 +1,80: NEXT : PRINT "@G136K15C9V5H@T@36H@T@6V21H@T"NM$: RETURN
103 VT = 1:HT = 1:BL = 38:LN = 17:CL = 138: GOSUB 4:HT = 5:BL = 7:LN = 12:CL = 142: GOSUB 4:HT = 28: GOSUB 4:BL = 1:HT = 1:LN = 16: GOSUB 4:HT = 38: GOSUB 4:LN = 6:HT = 12:BL = 6:CL = 136: GOSUB 4:HT = 22: GOSUB 4:BL = 4:HT = 18:CL = 133: GOSUB 4:VT = 5:LN = 2:CL = 10: GOSUB 4: PRINT "@IG142C138K17V1H@H@13V5H@H@34H@J@38H17V@J@136KI138C12V12H@";: FOR I = 0 TO 5
104 PRINT "@12H@" SPC( I)"H@U@";: NEXT I: PRINT "@22H@";: FOR I = 0 TO 5: PRINT "@"22 +I"HD@J" SPC( 5 -I);: NEXT I:HT = 2: GOSUB 8:HT = 35: GOSUB 8: RETURN
105 BL = 38:LN = 16:CL = 142: GOSUB 3:VT = 13:HT = 2:BL = 36:LN = 5:CL = 138: GOSUB 4: GOSUB 8:HT = 35: GOSUB 8:HT = 17:VT = 2:BL = 6:LN = 7:CL = 15: GOSUB 4: PRINT "@IL15C138K3V19H@" CHR$(3),NM$"@L6V19H@" CHR$(29 +SD)"@17V1HG142C138K@H@38H@J@13V5H@H@34H@J@I@"NM$: RETURN
106 GOSUB 5:VT = 13:HT = 1:BL = 38:LN = 5:CL = 138: GOSUB 4: PRINT "@G142K138C17V1H@H@38H@J@13V5H@H@34H@J"NM$:BL = 1:LN = 16:CL = 142: GOSUB 3:HT = 38: GOSUB 4:HT = 5:LN = 12: GOSUB 4:HT = 34: GOSUB 4:HT = 35: GOSUB 8:HT = 2: GOSUB 8
107 HT = 15:VT = 3:BL = 10:LN = 10:CL = 142: GOSUB 4:HT = 6:BL = 9:LN = 11:CL = 15: GOSUB 4:HT = 25: GOSUB 4:VT = 1:HT = 6:LN = 2:BL = 28: GOSUB 4:HT = 16:VT = 8:BL = 8:LN = 7:CL = 129: GOSUB 4:VT = 4:HT = 18:BL = 4:LN = 7:CL = 0: GOSUB 4
108 PRINT "@8V17HG129K133C@H@22H@J@I142C129K@J@16H@H@DR133C17H@ @22H@ @G10V17H133C0K@H@22H@J@I@":VT = 3:HT = 26:BL = 7:LN = 10:CL = 0: GOSUB 4: FOR I = 1 TO 10: PRINT "@26H"I +2"V@"I: NEXT I: PRINT "@I3V10H@A@B6V@B@9V9H@NEW@D8H@TITLE@I4V7H@" SPC( 7)"@7V7H@" SPC( 7)"@7H11V@" SPC( 7): RETURN
109 BL = 38:CL = 1:VT = 15:HT = 1:LN = 3: GOSUB 4: PRINT "@L5C15K@": FOR I = 1 TO 7: PRINT "@"I *2 -1"V1H@";: FOR I2 = 1 TO 19: PRINT CHR$(106);: NEXT I2,I:HT = 5:VT = 3:BL = 8:LN = 12:CL = 136: GOSUB 4:VT = 4:BL = 4:LN = 7:HT = 28:CL = 0: GOSUB 4: PRINT "@2V29H5K0CG@HJ@D3B@H@0K@ @5K@J"NM$"@I5V5H@ THE @D5H@PRINCESS@IG9V12H15C136K@T"NM$
110 VT = 9:HT = 15:BL = 6:LN = 7:CL = 15: GOSUB 4:HT = 16:BL = 4:LN = 8:CL = 138: GOSUB 4: PRINT "@8V15HG5K15C@H@U@H@2F@J@D@J@5B15K138C@H@2F@J@1K16V15H@H@4F@J@U14H15C@H@21H@J@4V17H5K@HJ@5V17HL0K@" CHR$(17)"@7V17H138K@" CHR$(18)
111 HCOLOR= 0: HPLOT 112,88 TO 139,88: PRINT "@L0K5C9V29H@" CHR$(27),NM$:TP$ = "THIS IS MY CASTLE...I'LL SEND YOU TO YOURS": GOSUB 30: FOR T = 10 TO 20: PRINT "@"201 -10 *T"Y20XN7Y40XN@": NEXT : FOR T = 1 TO 50: PRINT "@9Y" FN R(255)"XN@": NEXT : GOTO 148
112 BL = 38:LN = 13:CL = 129: GOSUB 3:VT = 14:CL = 2:LN = 4: GOSUB 4:CL = 0:VT = 7:HT = 6:BL = 26:LN = 9: GOSUB 4: PRINT "@6V7H@" SPC( 24)"@8V5H@ @32H@ @10V32H@ @15V32H@ @2V16H@" SPC( 6):HT = 13:VT = 3:BL = 12:LN = 3: GOSUB 4
113 GOSUB 100: HCOLOR= 4: HPLOT 235,88 TO 235,111: HPLOT 234,88 TO 234,111: HCOLOR= 0: PRINT "@G129K0C8V4H@H@U@H@U@H@31H@J@D@J@D@J@10V33H@J@3V12H@H@25H@J@I2V15H@J@22H@H@IR138K4V15H@ @21H@ @L11V9H@ @18H@ @27H@ "
114 PRINT "@10VG0K138C@";: FOR I = 9 TO 27 STEP 9: PRINT "@"I"H@HJ";: NEXT : PRINT "@R7V12H@MYSTERY HOUSE",NM$: HPLOT 235,112 TO 235,120: HPLOT 236,112 TO 236,120: HCOLOR= 3: HPLOT 42,72 TO 223,72
115 FOR T1 = 1 TO 3: FOR T2 = 150 TO 100 -T1 *10 STEP -1: PRINT "@5Y"T2"XN@": NEXT : FOR T2 = 101 -T1 *10 TO 149: PRINT "@5Y"T2"XN@": NEXT T2,T1: FOR T = 1 TO 40: PRINT "@10X10YN@": NEXT :TP$ = "HE'S KILLED KEN!": GOSUB 30:MR = 1: GOTO 148
116 BL = 38:LN = 11:CL = 133: GOSUB 3:VT = 12:LN = 6:CL = 10: GOSUB 4:VT = 2:TT = 7:HT = 7: GOSUB 9:HT = 32: GOSUB 9:VT = 1:TT = 6:HT = 20: GOSUB 9: IF RN = 8 THEN PRINT "@G0C10K18H16V@H@I@ @I@J"NM$: HCOLOR= 0: HPLOT 126,136 TO 105,136 TO 112,128 TO 133,128: HPLOT 109,132 TO 130,132:O$ = "HERE IS AN OPEN GRATE": GOSUB 29
117 RETURN
118 GOSUB 6: PRINT NM$"@1V1H@I'M IN GRAIL HALL@2D1H@SOME EXITS ARE: FORWARD,BACK,LEFT,@D1H@RIGHT@D1H@<";: FOR TP = 1 TO 36: PRINT "-";: NEXT : PRINT ">@3D1H@WHAT SHALL I DO?": POKE 30720,8: POKE 30721,18: POKE 30722,20
119 GOSUB 34: IF AD <1 OR AD >4 THEN PRINT "@8V18H@" SPC( 21)M1$: GOTO 119
120 POKE 30720,21: POKE 30721,10: POKE 30722,25: RETURN
121 CL = 1:BL = 38:LN = 17: GOSUB 3:VT = 7:LN = 6:CL = 0: GOSUB 4:LN = 3:BL = 20:VT = 2:HT = 10: GOSUB 4: PRINT "@15K5CL7V5H@";: FOR V = 1 TO 3: PRINT "@5H@";: FOR H = 1 TO 4: PRINT CHR$(106);: NEXT : PRINT "@27H@";: FOR H = 1 TO 4: PRINT CHR$(106);: NEXT : PRINT : NEXT : PRINT NM$"@1C0KG@": FOR V = 1 TO 3: PRINT "@"1 +V"V"6 +V"H@J @"31 -V"H@ H": NEXT V
122 PRINT "@0C1K3V1H@J@D@J@D@J@D@J@35H@H@U@H@U@H@U@H@16V1HI@H@U@H@U@H@U@H@35H@J@D@J@D@J@D@J@I@"NM$: FOR V = 1 TO 3: PRINT "@1H"3 +V"V@" SPC( V)"@"39 -V"H@" SPC( V)"@1H"12 +V"V@" SPC( 4 -V)"@"35 +V"H@" SPC( 4 -V): NEXT : PRINT "@L8V19H@" CHR$(99): FOR V = 1 TO 3: PRINT "@"8 +2 *V"V19H@" CHR$(107): NEXT V:O$ = "HERE IS A KEYHOLE": GOSUB 29: RETURN
123 GOSUB 5:CL = 136:BL = 38:LN = 3: GOSUB 3:VT = 4:HT = 5:LN = 10:BL = 12: GOSUB 4:HT = 23: GOSUB 4:HT = 16:VT = 11:CL = 0:LN = 3:BL = 8: GOSUB 4
124 PRINT "@136K0C4V1H@ @35H@ @5V1HG@HJ @35H@ HJ@3V19H@HJ@4V17H@H@22H@J@6V3H@H @35H@ J@7V4H@H@35H@J@10V16H@H@23H@J": IF RN = 16 THEN CL = 136:VT = 3:HT = 16:BL = 8:LN = 11: GOSUB 4: FOR H = 112 TO 162: HPLOT H,112 + FN R(3) -2: NEXT H
125 PRINT "@L15C136K@": FOR I = 1 TO 5: PRINT "@1V" FN R(35) +1"H@" CHR$(15): NEXT I: HCOLOR= 3: FOR I = 1 TO 2: PRINT "@12V" FN R(10) +4"H@" CHR$(14)"@" FN R(10) +24"H@" CHR$(14): NEXT : FOR H = 35 TO 111: HPLOT H,112 + FN R(3) -2: HPLOT H +133,112 + FN R(3) -2: NEXT H
126 IF RN = 10 THEN PRINT "@L15C136K8V6H@PLUGH"NM$: IF LB = 1 AND NOT PS(26) THEN PRINT "@L15V19H@" CHR$(16): HCOLOR= 3: FOR T4 = 0 TO 2: HPLOT 98,127 +T4 TO 133,127 +T4: NEXT T4:O$ = "HERE IS A BROOMSTICK": GOSUB 29
127 IF RN = 16 THEN HCOLOR= 5: FOR V = 0 TO 8: HPLOT 112 - FN R(10),114 +V TO 162 + FN R(10),114 +V: NEXT : HCOLOR= 3: IF LB = 2 AND NOT PS(27) THEN PRINT NM$"@16V19HL@" CHR$(19):O$ = "HERE IS THE TREASURE": GOSUB 29
128 RETURN
129 GOSUB 5:BL = 38:LN = 8: GOSUB 3:LN = 9:CL = 133:VT = 9: GOSUB 4: PRINT "@1V1HG133C0K@";: FOR V = 1 TO 8: PRINT "J@D@";: NEXT : PRINT "@8V31H@";: FOR V = 1 TO 8: PRINT "H@U@";: NEXT : PRINT "@133K@": FOR V = 2 TO 8: PRINT "@"V"V1H@" SPC( V -1)"@"40 -V"H@" SPC( V -1): NEXT : PRINT "@136C0K@": FOR V = 1 TO 3: PRINT "@"2 +V"V"2 +V"H@J@"37 -V"H@H"
130 PRINT "@136K133C"10 +V"V"2 +V"H@J@"37 -V"H@H@0K136C@": NEXT :VT = 6:HT = 3:BL = 3:LN = 5:CL = 136: GOSUB 4:HT = 34: GOSUB 4: HCOLOR= 4: FOR H = 63 TO 215 STEP 152: HPLOT H,72 TO H,144: HPLOT H +1,72 TO H +1,144: NEXT : HCOLOR= 3:VT = 9:HT = 18: GOSUB 7: PRINT "@G15C136K8V3H@T@34H@T@4D18H@T"NM$"@136K4V3H@ @DB@ @35H@ @UB@ @11V4H@ @34H@ @D2B@ @5H@ "NM$: RETURN
131 FOR T = 1 TO 64: READ I: NEXT : FOR T = 1 TO 9:RN$(T,1) = PS$(1 +T +(10 *(RM = 10))): NEXT : FOR T = 1 TO 9: READ RN$(T,2): NEXT : IF RM = 16 THEN RN$(8,1) = "": FOR T = 1 TO 7: READ RN$(T,2): NEXT :RN$(8,2) = "":RN$(9,1) = "":RN$(9,2) = ""
132 GOSUB 135:T1$ = "GOING TO THE ":T2$ = " BANK ON IT":RN$(1,3) = "INTO UNDERCOVER WORK?":RN$(2,3) = "A CAPITAL CHOICE":RN$(3,3) = T1$ +"TOWN HALL?":RN$(4,3) = T1$ +"CARNIVAL?":RN$(5,3) = T1$ +"DINER?":RN$(6,3) = "YOU CAN" +T2$:RN$(7,3) = RN$(6,3)
133 IF RM = 10 THEN RN$(1,3) = RN$(7,3):RN$(3,3) = "":RN$(4,3) = "":RN$(7,3) = "":RN$(2,3) = "DON'T DEFILE YOURSELF":RN$(5,3) = "I WOULDN'T" +T2$:RN$(6,3) = RN$(5,3):RN$(8,3) = "A COMPASS NEEDS A NEEDLE":RN$(9,3) = T1$ +"LIBRARY?"
134 RETURN
135 BL = 38:LN = 17:CL = 136: GOSUB 3: GOSUB 100:CL = 15:VT = 2:HT = 2:LN = 13:BL = 18: GOSUB 4:CL = 133:LN = 6:HT = 21:BL = 17: GOSUB 4:VT = 10:HT = 26:BL = 7:LN = 5:CL = 129: GOSUB 4:VT = 15:HT = 25:LN = 3:BL = 9: GOSUB 4
136 PRINT "@G14V25H2K129C@H@33H@J@R0K11V27H@" SPC( 5)"@2D27H@" SPC( 5)"@15C133KL3V"22 +( LEN(RM$) <14)"H@" LEFT$(RM$,8 -( LEN(RM$) <14))"@5V25H@STORE@R0KI3V6H@INVENTORY@5V4H@";
137 FOR I = 1 TO 10: PRINT "@3H@"RN$(I,1)"@16H@"RN$(I,2): NEXT : PRINT "@I@":TP$ = "ALLOW ME TO ADJUST MY PRICES.": GOSUB 30: PRINT NM$"@13V27H@";: FOR I = 1 TO 5: PRINT MID$ (AN$,I,1)"@5Y" FN R(50)"XN@";: NEXT : PRINT "@I5V@";: FOR I = 1 TO 10: IF VAL(RN$(I,2)) THEN RN$(I,2) = STR$( VAL(RN$(I,2)) + INT(BA/20) +1)
138 PRINT "@16H@"RN$(I,2): NEXT : PRINT "@I@": RETURN
139 GOSUB 5:VT = 10:HT = 1:LN = 8:CL = 136:BL = 15: GOSUB 4:VT = 5:HT = 13:BL = 3:LN = 5: GOSUB 4:HT = 19:VT = 16:CL = 129:BL = 19:LN = 2: GOSUB 4:HT = 30:VT = 9:BL = 8:LN = 7: GOSUB 4:CL = 15:VT = 2:HT = 20:LN = 5:BL = 11: GOSUB 4:VT = 12:HT = 32:BL = 4:LN = 4: GOSUB 4:X = 3:Y = 6:L = 8:H = 6:CL = 129: GOSUB 99: PRINT "@10V4H@" SPC( 6)
140 PRINT "@136K16V16H@ @138KD1H@" SPC( 8)"@2F@" SPC( 11)"@7V16HG0K136C@J@D@J@2BI@ @I138C136K17V9H@J@129K22H@J@R133K6V15H@ "NM$"@3V21HI@IGNORANCE@D24H@IS@D22H@STRENGTH@10V32H@451'@L13V33HI@" CHR$(29)
141 PRINT "@G129K11V5H@T@2F@T"NM$: HCOLOR= 3: HPLOT 42,32 TO 48,48 TO 56,32:TP$(1) = "CATCHER IN@D5H@THE RYE":TP$(2) = " 1984":TP$(3) = " BRAVE NEW@D6H@WORLD":TP$(4) = " PORTNOY'S@D4H@COMPLAINT":TP$(5) = "UNCLE TOM'S@D6H@CABIN"
142 TP$(6) = " ULYSSES":TP$(7) = "HUCKLEBERRY@D6H@FINN":TP$(8) = "LADY CHAT-@D2H@TERLY'S LOVER": RETURN
143 DATA 3,,2,4,2,1,2,2,5,2,2,2,2,4,4,4,6,4,3,5,11,2,7,6,7,7,8,7,7,7,7,7,9,9,10,9,9,9,9,9,14,6,12,13,,,,,,,,,19,11,15,17,15,15,15,16,,15,15,15,20,3,2,1,5,25,5,5,5,10,15,50,60,75,5,100
144 PRINT "@L0K8V19H@ @15CE@":TP$ = CHR$(97):T3 = 1:T4 = 17:T5 = 20:L = 14:H = 3:VT = 9:V = 35: PRINT "@2V10H@";: FOR T1 = 2 TO 16: FOR T2 = 10 TO 28 STEP 2:TP$ = " ": IF FN R(5) -1 THEN TP$ = CHR$(97)
145 PRINT "@5Y"200 + FN R(50)"XN@"TP$;: NEXT : PRINT "@"T1"V10H@";: NEXT : PRINT "@16V1H@";: FOR T1 = 16 TO 0 STEP -1: FOR T2 = 1 TO 37 STEP 2:TP$ = " ": IF FN R(5) -1 THEN TP$ = CHR$(97)
146 PRINT "@5Y"200 + FN R(50)"XN@"TP$;: NEXT : PRINT "@"T1"V1H@";: NEXT
147 TP$ = "PR.2": GOTO 151
148 TP$ = "PR.1": GOTO 151
149 TP$ = "PR.8":TP = 3: GOTO 151
150 TP$ = "PR.8":TP = 2
151 ONERR GOTO 153
152 POP : GOTO 152
153 ONERR GOTO 155
154 PRINT : PR# 0: CALL 1002: CALL 36263: PRINT CHR$(4)"RUN"TP$: END
155 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256:A$ = "PR.5":TP$ = "PR.8":TP = 4: IF ER = 255 THEN TP = 3
156 GOTO 154

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.6.bas:

1 CALL 36281: ONERR GOTO 184
2 PN = 21:TX = 0:FG = 0:ZZ = FRE(0): GOTO 47
3 VT = 1:HT = 1
4 PRINT "@15C"CL"KR@": FOR H2 = 1 TO LN: HTAB HT +1: VTAB VT +H2: PRINT SPC( BL): NEXT H2: PRINT NM$: RETURN
5 VT = 1:HT = 1:BL = 38:LN = 17:CL = 0: GOSUB 4: RETURN
6 VT = 1:HT = 1:BL = 38:LN = 22:CL = 0: GOTO 4
7 KY = PEEK( -16384): IF KY <128 THEN 7
8 POKE -16368,0:CH = KY -176: IF CH MX THEN 7
9 RETURN
10 PRINT NM$IB$"@I@"IS$"PRESS SPACE BAR TO CONTINUE": POKE -16368,0
11 KY = PEEK( -16384): IF KY <128 THEN 11
12 POKE -16368,0: IF KY < >160 THEN 11
13 PRINT "@I@"IB$: RETURN
14 HTAB HT +PS *F: PRINT "@I@" CHR$( PEEK(256 +PS))"@I@";
15 KY = PEEK( -16384): IF KY <128 THEN 15
16 POKE -16368,0: HTAB HT +PS *F: PRINT CHR$( PEEK(256 +PS));: IF KY = 141 AND PS THEN 19
17 KY = KY -128: IF (KY >47) AND (KY <58) THEN HTAB HT +PS *F: PRINT CHR$(KY);: POKE 256 +PS,KY:PS = PS +1: IF PS > = MX THEN 19
18 GOTO 14
19 IP$ = "":TP$ = "": FOR I3 = 0 TO PS:IP$ = IP$ + CHR$( PEEK(256 +I3)): NEXT I3:IP = VAL(IP$): PRINT "@R@": FOR I3 = 1 TO LEN(IP$): IF MID$ (IP$,I3,1) < >" " THEN TP$ = TP$ + MID$ (IP$,I3,1)
20 NEXT I3:IP$ = TP$:IP = VAL(IP$): RETURN
21 L4 = 600: GOTO 24
22 L4 = 75: GOTO 24
23 L4 = 3000
24 FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
25 PRINT NM$OB$OS$O$M1$: RETURN
26 TP$ = BB$ +TP$ +BB$: PRINT NM$OS$;: FOR I = 1 TO LEN(TP$) -27: PRINT "@10H@" MID$ (TP$,I,28)"@35Y"34 + FN R(25) +34"XN@";: NEXT : RETURN
27 TP$ = BB$ +TP$ +BB$: PRINT NM$OS$;: FOR I = 1 TO LEN(TP$) -27: PRINT "@10H@" MID$ (TP$,I,28)"@10X" FN R(60) +20"YN@";: NEXT : RETURN
28 VT = FN R(23)
29 TP$ = " " +TP$ +" ":HT = FN R(39 - LEN(TP$)): VTAB VT: SPEED= 200: FOR I = 1 TO LEN(TP$): PRINT "@"HT +I -1"H@ " MID$ (TP$,I,5);: NEXT : SPEED= 255: RETURN
30 POKE -16368,0
31 KY = PEEK( -16384): IF KY <128 THEN 31
32 POKE -16368,0: RETURN
33 FOR I5 = 0 TO 2: POKE 30724 +I5,0: NEXT I5: PRINT NM$: CALL 30727:VB = PEEK(30724):AD = PEEK(30725):OB = PEEK(30726): IF VB = 254 THEN 176
34 IF VB = 253 THEN 175
35 RETURN
36 IF NOT ( LEN(TP$)) THEN RETURN
37 PRINT NM$:O$ = BB$: GOSUB 25:TP$ = BB$ +TP$ +BB$: VTAB 20: HTAB 11:TS = LEN(TP$) -27: FOR I5 = 1 TO TS: HTAB 11: PRINT MID$ (TP$,I5,28)"@35Y"34 + FN R(25)"XN@";: NEXT I5: RETURN
38 CL = 3:I = 0
39 CL = CL +((CL = 0) -(CL = 3)) *3:I = I +1: HCOLOR= CL: HPLOT 145,46 TO 148,46: PRINT "@"CL *10 +200"X10YN@": IF I 4) *2)"V"(X -(X >4) *5) *4 +5"H20YL@"X"@" FN R(50) +50"XN@";: GOSUB 21: PRINT "@B@ ": RETURN
44 IF L <3 OR FN R(20) < >20 THEN RETURN
45 T2$ = "":TP = FN R( LEN(TP$) -2): IF TP < LEN(TP$) -2 THEN T2$ = RIGHT$(TP$,( LEN(TP$) -(TP +2)))
46 TP$ = LEFT$(TP$,TP) +RC$ +T2$: RETURN
47 POKE 30720,21: POKE 30721,10: POKE 30722,25: CALL 35339: DEF FN R(X) = INT( RND(1) *X) +1: DEF FN C(X) = X +(X >15) *113: FOR I = 1 TO 6: READ TP$(I): NEXT : IF RM = 9 THEN 51
48 FOR I = 1 TO 17: READ TP$(I): NEXT : IF RM = 8 THEN 81
49 IF RM = 13 THEN 110
50 IF RM = 19 THEN 140
51 GOSUB 163:BS$ = LEFT$(BB$,21)
52 PRINT NM$: FOR T1 = 1 TO 6:TP = T1:TP$ = TP$(TP): ON TP GOSUB 165,166,167,168,169,170: PRINT NM$: GOTO 54
53 PRINT "@L@": NEXT :VT = 4:HT = 14:BL = 12:LN = 6:CL = 0: GOSUB 4: GOTO 52
54 POKE -16368,0: PRINT NM$:TP$ = BS$ +TP$ +BS$: VTAB 11:TS = LEN(TP$) -20: FOR I5 = 1 TO TS: HTAB 10: PRINT MID$ (TP$,I5,22)"@35Y"34 + FN R(25)"XN@";:KY = PEEK( -16384): CALL 35328: CALL 35339: IF KY <128 THEN NEXT I5: GOTO 53
55 IF KY = 155 THEN 178
56 HGR2 :SC = SC +15: IF BR THEN 63
57 TP$ = "WE ALL KNOW WHAT THE ISLAND IS": GOSUB 28:TP$ = "ALL WE HAVE TO DO IS PULL...": GOSUB 29:TP$ = "SHHH! WHO'S THAT?": GOSUB 28:TP$ = "WE'VE BEEN DISCOVERED!": GOSUB 28:TP$ = "WHO ARE YOU?": GOSUB 28: GOSUB 30: IF KY < >163 THEN TP$ = "WE DON'T KNOW A " + CHR$(KY -128): GOSUB 28:TP$ = "GET RID OF HIM": GOSUB 28: GOTO 177
58 TP$ = "DOES ANYBODY HERE KNOW #?": GOSUB 28:TP$ = "I CAN VOUCH FOR HIM.": GOSUB 28:TP$ = "I'VE BEEN WATCHING HIM.": GOSUB 28:TP$ = "I DON'T TRUST HIM.": GOSUB 28:TP$ = "LET'S TAKE A VOTE": GOSUB 28: GOSUB 23:TP$ = "THE MOTION IS CARRIED.": GOSUB 28: IF FN R(5) <3 THEN TP$ = "THROW HIM OUT!": GOSUB 28: GOTO 177
59 TP$ = "WE ARE THE BROTHERHOOD.": GOSUB 28:TP$ = "WE ARE DEDICATED TO THE": GOSUB 28:TP$ = "OVERTHROW OF THE ISLAND": GOSUB 29:TP$ = "ARE YOU WILLING TO JOIN US?": GOSUB 28: GOSUB 30: IF KY < >217 THEN TP$ = "THEN AT LEAST DO NOT BETRAY US.": GOSUB 28: GOTO 177
60 TP$ = "GOOD. ARE YOU PREPARED TO": GOSUB 28:TP$ = "GIVE YOUR LIFE, COMMIT MURDER": GOSUB 29:TP$ = "AND ACTS OF SABOTAGE": GOSUB 28:TP$ = "WHICH MAY CAUSE THE DEATHS": GOSUB 29:TP$ = "OF INNOCENT PEOPLE,": GOSUB 28
61 TP$ = "CHEAT, FORGE, BLACKMAIL": GOSUB 29:TP$ = "DISTRIBUTE HABIT FORMING DRUGS": GOSUB 29:TP$ = "FOR THE CAUSE OF FREEDOM?": GOSUB 29: GOSUB 30: IF KY < >217 THEN TP$ = "THEN YOU ARE NOT FOR US.": GOSUB 28: GOTO 177
62 TP$ = "HERE IS YOUR FIRST TASK": GOSUB 28: GOTO 69
63 IF BR <5 THEN TP$ = "DO NOT SHOW YOUR FACE UNTIL": GOSUB 28:TP$ = "YOUR ASSIGNMENT IS COMPLETE.": GOSUB 29: GOTO 177
64 IF BR = 5 THEN TP$ = "YOU JUST COMPLETED A TEST": GOSUB 28:TP$ = "TO SEE IF YOU CAN FOLLOW ORDERS.": GOSUB 29
65 SC = SC +(BR -4) *75:TP$ = "CONGRATULATIONS ON YOUR SUCCESS": GOSUB 28:TP$ = "YOUR REWARD IS THIS CLUE:": GOSUB 28: ON BR -4 GOSUB 77,78,79,80: GOSUB 28
66 TP$ = "WILL YOU TRY ANOTHER": GOSUB 28:TP$ = "ASSIGNMENT?": GOSUB 29: GOSUB 30: IF KY < >217 THEN TP$ = "COME BACK": GOSUB 28:TP$ = "IF YOU CHANGE YOUR MIND.": GOSUB 28: GOTO 72
67 IF BR = 8 AND SC <500 THEN SC = 500
68 SC = SC +20:TP$ = "GOOD. YOUR NEW ASSIGNMENT IS": GOSUB 28
69 IF BR <5 THEN T1 = 1: GOTO 71
70 T1 = FN R(4): IF BR -4 = T1 OR T1 = 1 THEN 70
71 BR = T1: ON BR GOSUB 73,74,75,76:TP$ = "DID YOU GET THAT?": GOSUB 28: GOSUB 30: IF KY < >217 THEN 71
72 TP$ = "GOOD LUCK.": GOSUB 28: GOSUB 23:TP$ = "THE BROTHERHOOD LIVES!": GOSUB 28: GOTO 177
73 TP$ = "SIT IN THE GREAT CHAIR AND SAY": GOSUB 28:TP$ = "'MARY HAD A LITTLE LAMB'": GOTO 29
74 TP$ = "SET THE NEWSPAPER HEADLINES": GOSUB 28:TP$ = "TO READ 'DEUS EX MACHINA'": GOTO 29
75 TP$ = "SET THE FILING CABINET ON FIRE": GOSUB 28:TP$ = "USE THE LARGE WEIGHT": GOSUB 29:TP$ = "THE LIBRARY BOOK WILL TELL HOW": GOTO 29
76 TP$ = " 'RUN THE ISLAND'": GOSUB 28:TP$ = "FOR THE SHRINKS": GOTO 29
77 TP$ = "AN ISLAND IS NO MAN": RETURN
78 TP$ = "THE TRUTH SHALL REVEAL THE PLUG": RETURN
79 TP$ = "INPUT THE PLUG": RETURN
80 TP$ = "DRINK AND BE MERRY!": RETURN
81 T1$ = "INCREASE ":T2$ = "DECREASE ":T3$(0) = "CREDIT":T3$(1) = "SCORE": FOR I = 1 TO 20:TM$(I) = "": NEXT : FOR I = 1 TO 10:TM$(I) = T1$ +T3$((I/2 = INT(I/2))) +" BY " + STR$(2 ^(I -1)): NEXT
82 FOR I = 11 TO 17:TM$(I) = T2$ +T3$((I/2 < > INT(I/2))) +" BY " + STR$(2 ^(I -10)): NEXT :TM$(18) = "LOSE ALL POSSESSIONS":TM$(19) = "RESET GAME TO NEW":TM$(20) = "INITIALIZE DISKETTE"
83 GOSUB 5:X = 1:Y = 13:H = 5:L = 38:CL = 15: GOSUB 156:X = 29:Y = 2:L = 9: GOSUB 156:HT = 17:VT = 8:BL = 9:LN = 3: GOSUB 4:X = 16:Y = 7:L = 11:H = 5:CL = 136: GOSUB 156:T3 = 0
84 PRINT "@I15V2H@" SPC( 36)"@4V30H@" SPC( 7)"@136C6V15H@" SPC( 13)"@11V2H@" SPC( 12)"@3V2H@" SPC( 8)"@2V3H@": FOR I = 1 TO 9: PRINT "@3H@ ": NEXT : PRINT NM$"@15C2V30H@CREDITS@2D31H@SCORE@8V20H@THE@D18H@JUMPING@D19H@JUDGE"
85 PRINT "@13V2H@PROSECUTOR:@2D2H@DEFENDER:@IL2V20H@" CHR$(103)"@4V20H@" CHR$(1)"@25H@" CHR$(21)"@G1C4V19H@H@2F@J@D19HI@ @2F@ @I@":TP$ = "HEAR YE! HEAR YE! COURT IS NOW IN SESSION.": GOSUB 36: GOSUB 41
86 T3 = T3 +1: IF T3 = 11 THEN PRINT "@138K8V28H@ @F@ @F@ @F@ @D29H@ @2F@ @F@ @2F@ @D29H@ @2F@ @F@ @F@ @0K@":TP$ = "WINNING IS LOSING": GOSUB 36: GOTO 178
87 PRINT "@14V3H@" SPC( 35)"@3H@"TM$(T3 +10)"@2D3H@" SPC( 35)"@3H@"TM$(T3): PRINT "@L4V7H@" CHR$(117)"@6V5H@ @8V7H@ @R@":TP$ = "WILL YOU PUT YOURSELF ON TRIAL?": GOSUB 36: GOSUB 33: IF AD = 12 THEN 178
88 PRINT NM$"@21V10H@" SPC( 27): IF FN R(2000) >SC -1 THEN T1$ = TP$( FN R(17)): GOTO 90
89 T1$ = "":I2 = FN R(5): FOR I = 1 TO 3 +I2:T1$ = T1$ + CHR$(64 + FN R(26)): NEXT
90 TP$ = "":T1 = 0:TC = 0:IP$ = "":IP = 0: PRINT "@19V10H@";: FOR I = 1 TO LEN(T1$): PRINT "-";: NEXT
91 IF TC = LEN(T1$) OR T1 = 6 THEN 104
92 GOSUB 30:L$ = CHR$(KY -128): IF KY <193 OR KY >218 THEN 92
93 FOR I = 1 TO LEN(IP$): IF L$ = MID$ (IP$,I,1) THEN IP = IP +1
94 NEXT : IF IP THEN IP = 0: GOTO 92
95 IP = 0:IP$ = IP$ +L$:F = 0: FOR I = 1 TO LEN(T1$): IF MID$ (T1$,I,1) = L$ THEN PRINT "@"9 +I"H19V@"L$;:F = 1:TC = TC +1
96 NEXT : IF NOT F THEN T1 = T1 +1:TP$ = TP$ +L$: PRINT NM$"@21V10H@"TP$"@L@": ON T1 GOSUB 103,102,101,100,99,98:L4 = 4: GOSUB 38
97 PRINT NM$: GOTO 91
98 PRINT "@8V7H@" CHR$(123)M1$: GOSUB 22
99 PRINT "@8V7HE@" CHR$(122)M1$"@E@": GOSUB 22
100 PRINT "@6V9H@" CHR$(120)M1$: GOSUB 22
101 PRINT "@6V5H@" CHR$(121)M1$: GOSUB 22
102 PRINT "@6V7H@" CHR$(119)M1$: GOSUB 22
103 PRINT "@4V7H@" CHR$(118)M1$: GOSUB 22: RETURN
104 IF T1 < >6 THEN 109
105 IF T3 <8 THEN SC = SC -((2 ^T3) *(T3/2 < > INT(T3/2))):CR = CR -((2 ^T3) *(T3/2 = INT(T3/2))): IF CR <0 THEN CR = 0
106 IF T3 = 8 OR T3 = 9 THEN FOR I = 1 TO 28:PS(I) = 0: NEXT : IF T3 = 9 THEN SC = 0:CR = 500:SD = 0:BR = 0:LB = 0:MR = 0:BA = 0
107 IF T3 = 10 THEN FOR I = 1 TO 10: PRINT : PR# 0: CALL 1002: PRINT CHR$(4)"VERIFYEWS3": NEXT : CALL 35339
108 GOSUB 41:TP$ = "THE VERDICT IS GUILTY":L4 = 10: GOSUB 38: GOSUB 36: GOTO 178
109 IF T3 <11 THEN SC = SC +((2 ^(T3 -1)) *(T3/2 = INT(T3/2))):CR = CR +((2 ^(T3 -1)) *(T3/2 < > INT(T3/2))): GOSUB 41:TP$ = "THE VERDICT IS NOT GUILTY": GOSUB 36: GOTO 86
110 GOSUB 171:TP$(1) = "MEMORIZATION":TP$(2) = "SPELLING":TP$(3) = "MATH":F = FN R(3):F$ = TP$(F): PRINT "@4V"3 +2 *F"H@TODAY'S LESSON IS "F$".@"3 +2 *F"H@";: GOSUB 21: FOR I = 1 TO LEN(F$) +19: PRINT " ";: GOSUB 22: NEXT : POKE -16368,0:I = 0
111 I = I +1: IF PEEK( -16384) >128 THEN SC = SC +5: GOTO 114
112 IF I <200 THEN 111
113 FOR I = 1 TO 25: PRINT "@20Y20XN40XN@": NEXT
114 T = 0: ON F GOTO 115,129,134
115 L = 0: PRINT "@9V26H@HE ROTE THE@D26H@ANSWER DOWN"
116 TP$ = "":L = L +1: FOR I = 1 TO L:TP$ = TP$ + STR$( FN R(10) -1): NEXT : GOSUB 44: FOR I = 1 TO L:X = VAL( MID$ (TP$,I,1)): GOSUB 43: NEXT :T1 = 0:IP$ = "": GOSUB 22: PRINT "@L" FN C( FN R(30))"C4V27H@YOU@6V27H@TRY@70Y40XN@"
117 IF T1 = L THEN 120
118 GOSUB 30:KY = KY -176: IF KY <0 OR KY >9 THEN 118
119 X = KY: GOSUB 43:T1 = T1 +1:IP$ = IP$ + STR$(KY): GOTO 117
120 HCOLOR= 0: FOR I = 180 TO 235: HPLOT I,32 TO I,65: NEXT : HCOLOR= 3: IF LEN(IP$) <3 THEN 123
121 F = 0: FOR I = 1 TO LEN(IP$) -2: IF MID$ (IP$,I,3) = RC$ THEN 176
122 NEXT : IF L >8 AND IP$ = TP$ THEN PS(10) = PS(10) +1: PRINT NM$M3$"@3V9H@HERE IS YOUR DIPLOMA.@13V12H@"NM$;: FOR I = 0 TO 15: PRINT "@"I +12"H@ " CHR$(5); CHR$(6);: FOR J = 1 TO 100: NEXT J,I: GOTO 127
123 IF IP$ = TP$ THEN PRINT M3$:T = 0: GOTO 116
124 T = T +1: PRINT M2$:L = L -1: IF T = 3 AND L >8 THEN PS(10) = PS(10) +1: PRINT NM$M3$"@3V9H@HERE IS YOUR DIPLOMA.@13V12H@"NM$;: FOR I = 0 TO 15: PRINT "@"I +12"H@ " CHR$(5); CHR$(6);: FOR J = 1 TO 100: NEXT J,I: GOTO 127
125 IF T = 3 THEN 178
126 GOTO 116
127 PRINT "@I@": FOR I = 0 TO 2: FOR J = 1 TO 8: HPLOT 161,112 +I *8 +J TO 209,112 +I *8 +J: PRINT "@"14 +I"V23H@DIPLOMA": IF I THEN PRINT "@"13 +I"V23H@" SPC( 7)
128 NEXT J,I: PRINT "@I@": PRINT NM$"@4V9H@IGNORANCE IS STRENGTH": GOTO 178
129 TP$(1) = "ABSCENT":TP$(2) = "AUTHER":TP$(3) = "CALENDER":TP$(4) = "COMMITY":TP$(5) = "COUNSOLER":TP$(6) = "EXCELLANT":TP$(7) = "GRAMMER":TP$(8) = "LIBARY":TP$(9) = "MISPELL":TP$(10) = "PRINCIPEL":TP$(11) = "PROFFESOR":TP$(12) = "WRITTING"
130 TP$ = TP$( FN R(12)): PRINT "@L5V5H" FN C( FN R(30))"C@SPELL @" FN C( FN R(30))"C@"TP$"@7V14H@";:IP$ = "": FOR I = LEN(TP$) TO 1 STEP -1: GOSUB 30: PRINT MID$ (TP$,I,1);:IP$ = IP$ + CHR$(KY -128): NEXT : IF IP$ < >TP$ THEN T = T +1: PRINT NM$"@9V5H@YOU BLEW IT!"M2$
131 IF IP$ = TP$ THEN PRINT NM$"@9V5H@YOU DID GREAT!"M3$:T = 0
132 GOSUB 42: IF T <3 THEN 130
133 GOTO 178
134 T1 = FN R(9):T2 = FN R(9): IF T1 +T2 >9 OR ABS(T1 -T2) = T1 +T2 THEN 134
135 PRINT "@L" FN C( FN R(30))"C5V5H@"T1"@" FN C( FN R(30))"C@ / @" FN C( FN R(30))"C@"T2"@" FN C( FN R(30))"C@ = @" FN C( FN R(30))"C@'": GOSUB 30: IF KY -176 = T1 +T2 THEN 137
136 PRINT "@5V21H" FN C( FN R(30))"C@"T1 +T2;NM$"@8V6H@WRONG,STUPID!"M2$:T = T +1: GOTO 138
137 PRINT "@5V21H" FN C( FN R(30))"C@" ABS(T1 -T2);NM$"@8V6H@FANTASTIC!"M3$:T = 0: GOTO 138
138 GOSUB 42: IF T <3 THEN 134
139 GOTO 178
140 GOSUB 157
141 TP$ = "WHAT DO YOU WANT?": GOSUB 26: GOSUB 33: IF VB = 14 THEN 144
142 IF VB = 6 OR AD = 2 THEN GOTO 178
143 TP$ = "IT'S NOT ON THE MENU.": GOSUB 26: GOTO 141
144 GOSUB 159: IF NOT CM THEN 148
145 IF CR <10000 THEN TP$ = "IT WILL DO NO GOOD TO RETURN UNTIL YOU HAVE THE MONEY.": GOSUB 27: GOTO 178
146 TP$ = "I'VE BEEN WAITING FOR YOU.": GOSUB 27
147 CR = CR -10000:TP$ = "STEP INSIDE THE MACHINE.": GOSUB 27: PRINT "@L14V9H133K@" CHR$(109)NM$:TP$ = "THE PROCESS IS ABOUT TO BEGIN.": GOSUB 27: GOTO 153
148 TP$ = "OH, NO! MY CLONING MACHINE HAS BEEN DISCOVERED! BUT YOU LOOK LIKE THE TRUSTWORTHY TYPE. I AM DR. DOPPELGANGER, AND I WILL CLONE YOU FOR 10000 CREDITS.": GOSUB 27
149 TP$ = "THE CLONE CAN ACT AS A DECOY FOR ESCAPING. ARE YOU INTERESTED?": GOSUB 27: GOSUB 33: IF AD < >11 THEN TP$ = "SUIT YOURSELF. JUST DON'T GIVE ME AWAY.": GOSUB 27: GOTO 178
150 IF CR > = 10000 THEN 147
151 CM = 1:TP$ = "DO YOU KNOW HOW TO GET THE MONEY?": GOSUB 27: GOSUB 33: IF AD = 12 THEN TP$ = "YOU CAN GET A LOAN FROM THE BANK.": GOSUB 27
152 TP$ = "I'LL SEE YOU WHEN YOU HAVE THE MONEY....BOTH OF YOU.": GOSUB 27: GOTO 178
153 CM = 5: FOR I = 1 TO 5: PRINT "@R138K16V4H@ ": PRINT : PR# 0: CALL 1002: FOR J = 1 TO 3: PRINT CHR$(4)"VERIFYDISSOLVE": NEXT J: CALL 35339: PRINT "@138K16V24H@ @136K16V4H@ ": FOR J = 1 TO 5: PR# 0: CALL 1002: PRINT CHR$(4)"VERIFYDISSOLVE": NEXT J: CALL 35339: PRINT "@16V24H136K@ ": FOR K = 1 TO 2 *I: PRINT "@133K15CLI14V29H@" CHR$(109);: NEXT K: PRINT "@B@ ": NEXT I
154 PRINT "@14V29H@" CHR$(109):TP$ = "A SUCCESS!": GOSUB 27: GOSUB 161:TP$ = "HAR! HAR! I'LL TAKE THIS BOOTY!": GOSUB 26: PRINT "@L133K14V29H@ ": GOSUB 21: PRINT "@133K136CG7V25H@J"NM$"@200X10YN30Y255XN@"
155 FOR I = 1 TO 5: READ X,Y: PRINT "@"X"H"Y"V15C"133 -((X = 11) *5)"KG@T@"50 *I"X50YNB@ ": NEXT : FOR I = 1 TO 50: PRINT "@LI14V9H133K@" CHR$(109)"@5Y" FN R(80)"XN@": NEXT :CM = 0: GOTO 179
156 PRINT "@"X"H"Y"V"CL"K@" SPC( L)"@"X"H"H -1"D@" SPC( L);: FOR V = Y TO Y +H -1: PRINT "@"V"V"X"H@ @"X +L -1"H@ ": NEXT V: PRINT NM$: RETURN
157 BL = 38:LN = 17:CL = 137: GOSUB 3:VT = 2:HT = 11:BL = 24:LN = 7:CL = 15: GOSUB 4:CL = 136:VT = 14:HT = 3:BL = 36:LN = 4: GOSUB 4:HT = 5:VT = 12:CL = 142:LN = 2:BL = 34: GOSUB 4: PRINT "@10V142K7H@ @D6H@ @2D4H@ @G142C137K2B@";
158 FOR I = 1 TO 4: PRINT "H@U@";: NEXT : PRINT "@142K138C11V8H@H@I@ @IUB@H"NM$"@I2V17H@GEMINI DINER@2D12H@HASH@4F@MORSELS@3F@EATS@D12H@GRUEL@3F@TIDBITS@3F@SLOP@D12H@SCRAPS CRUMBS@4F@MUSH@D12H@GRUB@4F@VITTLES SWILL@IL13K14V1H@ @16VB@ "NM$: RETURN
159 CL = 133:LN = 17:BL = 38: GOSUB 3:HT = 2: GOSUB 160:HT = 22: GOSUB 160: FOR I = 0 TO 15: HCOLOR= FN R(7): HPLOT 126,96 +I TO 153,96 +I: NEXT : HCOLOR= 3: PRINT "@11V3H@MASTER@23H@SLAVE": RETURN
160 X = HT:Y = 10:CL = 15:L = 16:H = 8: GOSUB 156:HT = HT +1:VT = 11:CL = 0:LN = 7:BL = 14: GOSUB 4: PRINT "@"HT +1"H13V133K@" SPC( 12)"@136K"HT +1"H16V@ ":VT = 14:HT = HT +5:BL = 4:LN = 3:CL = 133: GOSUB 4: RETURN
161 HT = 27:VT = 2:BL = 7:LN = 5:CL = 15: GOSUB 4: PRINT "@136K7V29H@ @133CG8V24H@J @DB@J@L0C15K2V29H@" CHR$(103)"@BD@" CHR$(1):CL = 136:VT = 8:BL = 10:LN = 2:HT = 26: GOSUB 4: HCOLOR= 0: HPLOT 198,29 TO 224,45: HPLOT 224,29 TO 198,45: HCOLOR= 3: RETURN
162 FOR TP = 0 TO 4: PRINT "@"TP +18"V1H@" SPC( 38): NEXT : HCOLOR= 2: HPLOT 10,180 TO 10,148 TO 270,148 TO 270,180 TO 9,180 TO 9,148: HPLOT 269,148 TO 269,180: HPLOT 10,164 TO 270,164: PRINT NM$"@I19V2H@OUTPUT:@2D2H@INPUT :@I@": RETURN
163 GOSUB 6:X = 8:Y = 3:L = 24:H = 9:CL = 129: GOSUB 156:VT = 4:BL = 6:LN = 4:CL = 15: FOR I = 0 TO 1:HT = 2 +I *30: GOSUB 4: HTAB HT +2: PRINT "@4VI@EXIT@2D4B@ESC@D3B@KEY@I@": NEXT : PRINT "@L136C15V@";: FOR T = 1 TO 4: PRINT "@1H@";: FOR T1 = 1 TO 19: PRINT CHR$(103);: NEXT : PRINT : NEXT : PRINT "@13V138KR@";: FOR T = 0 TO 7: PRINT "@D"19 -T"H@" SPC( 2 +2 *T): NEXT : PRINT "@G22V11H0K138C@";
164 FOR T = 0 TO 7: PRINT "H@U@";: NEXT : PRINT "@15V21H@";: FOR T = 0 TO 7: PRINT "J@D@";: NEXT : RETURN
165 PRINT "@L6V18H@" CHR$(98); CHR$(109): RETURN
166 PRINT "@6V18H@ @19H@" CHR$(98): RETURN
167 PRINT "@6V21H@ @4V19H@" CHR$(109)"@138K6V18H@" CHR$(106); CHR$(106)"@0K@": RETURN
168 PRINT "@4V19H0K@ @5V15H@" CHR$(97)"@23H@" CHR$(97)"@8V15H@" CHR$(97)" " CHR$(126)" " CHR$(97): RETURN
169 VT = 5:HT = 15:BL = 10:LN = 6:CL = 0: GOSUB 4: PRINT "@7V19HL@" CHR$(98): RETURN
170 PRINT "@7V19H@" CHR$(97)"@5V15H@" CHR$(109)"@3F@" CHR$(109)"@8V15H@" CHR$(109)"@3F@" CHR$(109): RETURN
171 GOSUB 6:X = 2:Y = 2:L = 36:H = 10:CL = 15: GOSUB 156:HT = 8:VT = 14:BL = 25:LN = 7:CL = 136: GOSUB 4: PRINT "@14V6H136K@ @33H@ @21V10H@ @DB@ @30H@ @UB@ @0K138CL12V10H@" CHR$(124);NM$"@I2V12H@PROFESSOR WORM@I@": RETURN
172 DATA "ALL THE WAY 'ROUND THE MULLBERRY BUSH THE MONKEY CHASED THE WEASEL. THE MONKEY THOUGHT 'TWAS ALL IN FUN.","POP! GOES THE WEASEL","HUMPTY DUMPTY SAT ON A WALL. HUMPTY DUMPTY HAD A GREAT FALL."
173 DATA "ALL THE KING'S HORSES AND ALL THE KING'S MEN COULDN'T PUT HUMPTY TOGETHER AGAIN.","LITTLE BO PEEP HAD LOST HER SHEEP AND DIDN'T KNOW WHERE TO FIND THEM.","LEAVE THEM ALONE AND THEY'LL COME HOME, WAGGING THEIR TAILS BEHIND THEM."
174 DATA FREEDOM,LIBERTY,LICENSE,INDEPENDENT,AUTONOMY,SOVEREIGN,AUTARCHY,LIBERATION,ANARCHY,ESCAPE,RELEASE,HOPE,FREE,DIGNITY,INDIVIDUAL,RESPECT,PRIVACY,23,5,20,4,17,5,14,8,11,12
175 TP$ = "PR.8":TP = 3: GOTO 180
176 TP$ = "PR.8":TP = 2: GOTO 180
177 HCOLOR= 2: HPLOT 4,188 TO 4,4 TO 277,4 TO 277,188 TO 3,188 TO 3,4: HPLOT 276,4 TO 276,188: HCOLOR= 3
178 TP$ = "PR.2": GOTO 180
179 TP$ = "PR.1"
180 ONERR GOTO 182
181 POP : GOTO 181
182 ONERR GOTO 184
183 PRINT : PR# 0: CALL 1002: CALL 36263: PRINT CHR$(4)"RUN"TP$: END
184 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256:A$ = "PR.6":TP$ = "PR.8":TP = 4: IF ER = 255 THEN TP = 3
185 GOTO 183

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.7.bas:

1 CALL 36281: ONERR GOTO 198
2 FG = 0:ZZ = FRE(0): GOTO 32
3 VT = 1:HT = 1
4 PRINT "@15C"CL"KR@": FOR H2 = 1 TO LN: HTAB HT +1: VTAB VT +H2: PRINT SPC( BL): NEXT H2: PRINT NM$: RETURN
5 VT = 1:HT = 1:BL = 38:LN = 22:CL = 0: GOTO 4
6 GOSUB 28:VT = 6:HT = 20:BL = 18:LN = 5:CL = 0: GOSUB 4: PRINT NM$"@16V20H@" SPC( 18): RETURN
7 PRINT NM$: FOR I = 0 TO 2: PRINT "@"14 +I"V3H@" SPC( 34): NEXT : RETURN
8 PRINT NM$"@20V2H@" SPC( 36)"@2HI@ @I@": RETURN
9 HCOLOR= 3: HPLOT X +3,Y TO X +L -3,Y TO X +L,Y +3 TO X +L,Y +H -3 TO X +L -3,Y +H TO X +3,Y +H TO X,Y +H -3 TO X,Y +3 TO X +3,Y: RETURN
10 HPLOT X,Y TO X,Y +8 TO X +8,Y: HCOLOR= 0: HPLOT X +1,Y TO X +7,Y: HCOLOR= 3: RETURN
11 GOSUB 29: IF AD = 12 THEN TP = TP +1
12 GOTO 6
13 GOSUB 15:CH = KY -176: IF CH MX THEN 13
14 RETURN
15 KY = PEEK( -16384): IF KY <128 THEN 15
16 POKE -16368,0: RETURN
17 PRINT NM$"@I21V10H@PRESS SPACE BAR TO CONTINUE": POKE -16368,0
18 KY = PEEK( -16384): IF KY <128 THEN 18
19 POKE -16368,0: IF KY < >160 THEN 18
20 PRINT "@I21V10H@" SPC( 27): RETURN
21 HTAB HT +PS *F: PRINT "@I@" CHR$( PEEK(256 +PS))"@I@";
22 KY = PEEK( -16384): IF KY <128 THEN 22
23 POKE -16368,0: HTAB HT +PS *F: PRINT CHR$( PEEK(256 +PS));: IF KY = 141 AND PS THEN 26
24 KY = KY -128: IF (KY >47) AND (KY <58) THEN HTAB HT +PS *F: PRINT CHR$(KY);: POKE 256 +PS,KY:PS = PS +1: IF PS > = MX THEN 26
25 GOTO 21
26 IP$ = "":TP$ = "": FOR I3 = 0 TO PS:IP$ = IP$ + CHR$( PEEK(256 +I3)): NEXT I3:IP = VAL(IP$): PRINT "@R@": FOR I3 = 1 TO LEN(IP$): IF MID$ (IP$,I3,1) < >" " THEN TP$ = TP$ + MID$ (IP$,I3,1)
27 NEXT I3:IP$ = TP$:IP = VAL(IP$): RETURN
28 L4 = 2000: FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
29 FOR I5 = 0 TO 2: POKE 30724 +I5,0: NEXT I5: PRINT NM$: CALL 30727:VB = PEEK(30724):AD = PEEK(30725):OB = PEEK(30726): IF VB = 254 THEN TP = 2: POP : GOTO 192
30 IF VB = 253 THEN TP = 3: POP : GOTO 192
31 RETURN
32 CALL 35339: POKE 30720,16: POKE 30721,20: POKE 30722,17: DEF FN R(X) = INT( RND(1) *X) +1: IF RM = 15 THEN 43
33 POKE 30720,21: POKE 30721,10: POKE 30722,27: GOSUB 191
34 GOSUB 29: IF NOT (AD = 1 OR VB = 5) THEN 37
35 IF NOT PS(28) THEN PRINT OB$OS$ +"YOU NEED A KEYHOLE" +M1$: GOTO 34
36 GOTO 104
37 IF VB < >10 THEN 40
38 FOR I = 1 TO 28: IF PS(I) THEN PRINT OB$OS$PS$(I)": "PS(I)M1$: GOSUB 17
39 NEXT : PRINT OB$OS$"VISICARD: "M1$CR: GOSUB 17: PRINT OB$: GOTO 34
40 IF VB = 20 OR AD = 18 THEN PRINT OB$OS$"YOU ARE IN A HALLWAY.": GOTO 34
41 IF AD = 2 OR VB = 6 OR VB = 14 OR VB = 22 THEN 193
42 PRINT OB$OS$"YOU TALK IN CIRCLES": GOTO 34
43 CT = SC: GOSUB 187:TB$ = "@D20H@":T$ = "@20H7V@": PRINT NM$"@20H7V@WILL YOU MAKE A"TB$"5 CREDIT DONATION?": GOSUB 11: IF AD < >11 THEN SC = SC +5: GOTO 193
44 IF CR <5 THEN PRINT "@8V20H@BE GONE, SINNER!": GOTO 193
45 CR = CR -5: IF MR THEN PRINT "@20H6V@I HEAR THAT YOU"TB$"ARE IN TROUBLE, MY"TB$"CHILD."TB$"PLEASE FEEL FREE"TB$"TO TALK ABOUT IT.": GOTO 48
46 PRINT T$"GREETINGS,"TB$"MY CHILD. SHALL WE"TB$"HAVE A CHAT?": GOSUB 11: IF AD = 12 THEN PRINT "@6V20H@AS YOU WISH."TB$"IF YOU NEED SOMEONE"TB$"TO CONFIDE IN,"TB$"I AM HERE.": GOTO 193
47 GOSUB 6: PRINT TB$"@6V@DON'T WORRY"TB$"ALL IS KEPT IN"TB$"CONFIDENCE IN"TB$"THESE CHAMBERS."
48 GOSUB 11: IF (AD >12 AND AD <19) OR OB = 48 THEN GOSUB 77: GOTO 48
49 IF NOT (VB = 14 OR VB = 40 OR VB = 9 OR VB = 15 OR VB = 6 OR VB = 7) THEN 52
50 SC = SC +3: IF SC >400 AND INT( RND(1) *1.1) THEN 94
51 GOSUB 84: GOTO 48
52 IF AD = 19 THEN SC = SC -1: PRINT TB$"@7V@FOUL LANGUAGE"TB$"WILL NOT WIN YOU"TB$"FRIENDS.": GOTO 48
53 IF VB = 18 AND MR THEN 94
54 IF VB = 13 OR VB = 21 OR VB = 25 OR VB = 26 OR VB = 9 OR OB = 50 THEN PRINT TB$"@7V@WE MUST LEARN TO"TB$"HELP OURSELVES.": GOTO 48
55 IF OB = 46 THEN PRINT TB$"@7V@ALL MEN ARE YOUR"TB$"BROTHERS.": GOTO 48
56 IF OB = 18 OR OB = 20 OR OB = 15 OR OB = 10 OR OB = 19 OR OB = 49 THEN PRINT TB$"@7V@ALL YOU NEED TO"TB$"KNOW IS IN THE"TB$"GOOD BOOK.": GOTO 48
57 IF VB = 16 OR OB = 45 OR OB = 47 THEN PRINT TB$"@7V@ARE YOU NOT IN"TB$"CONTROL OF YOUR"TB$"DESTINY?": GOTO 48
58 IF VB = 1 THEN PRINT TB$"@7V@THE LORD GIVETH"TB$"AND"TB$"THE LORD TAKETH": GOTO 48
59 IF OB = 11 THEN PRINT TB$"@7V@WE ALL HAVE A"TB$"CROSS TO BEAR.": GOTO 48
60 IF OB = 44 OR OB = 39 THEN PRINT TB$"@8V@DEUS EX MACHINA.": GOTO 48
61 IF NOT (VB = 22 OR AD = 2 OR AD = 8) THEN 64
62 PRINT TB$"@6V@REMAIN STRONG, MY"TB$"CHILD.": IF PS(11) = 0 AND ((SC -CT) >(10 + FN R(20))) THEN PRINT "@7V27H@TO COMFORT"TB$"YOU, I AM GIVING"TB$"YOU THIS CROSS.":PS(11) = PS(11) +1
63 GOTO 193
64 IF MR AND INT( RND(1) *1.1) THEN GOSUB 90: GOTO 48
65 ON FN R(11) GOSUB 66,67,68,69,70,71,72,72,73,74,75,76: GOTO 48
66 PRINT T$"A SMOOTH SEA NEVER"TB$"MADE A SKILLFUL"TB$"SAILOR.": RETURN
67 PRINT T$"HE WHO WOULD LEAP"TB$"MUST MAKE A LONG"TB$"RUN.": RETURN
68 PRINT T$"NOTHING IS EASY TO"TB$"THE UNWILLING.": RETURN
69 PRINT T$"A HARD BEGINNING"TB$"MAKES A GOOD"TB$"ENDING.": RETURN
70 PRINT T$"@D@I UNDERSTAND.": RETURN
71 PRINT T$"@D@PLEASE, CONTINUE.": RETURN
72 PRINT T$"GO ON. A FRIENDLY"TB$"EAR CAN RELIEVE A"TB$"TROUBLED MIND.": RETURN
73 PRINT T$"@D@I HEAR YOU.": RETURN
74 PRINT T$"@D@I SEE.": RETURN
75 PRINT T$"THE TRUTH SHALL"TB$"SET YOU FREE.": RETURN
76 PRINT T$"DON'T BE AFRAID TO"TB$"CONFIDE IN ME. NO"TB$"MAN IS AN ISLAND."
77 ON FN R(6) GOTO 78,79,80,81,82,83
78 PRINT T$"LIFE HAS NO"TB$"ANSWERS; ONLY MORE"TB$"QUESTIONS.": RETURN
79 PRINT T$"WHO WOULD KNOW"TB$"BETTER?": RETURN
80 PRINT T$"SEARCH YOURSELF"TB$"FOR THE TRUTH.": RETURN
81 PRINT T$"WE ENTER THE WORLD"TB$"KNOWING ALL WE"TB$"NEED TO KNOW.": RETURN
82 PRINT T$"ANSWERS ARE A"TB$"PRISON FOR"TB$"ONESELF.": RETURN
83 PRINT T$"ANSWERS MAY BE"TB$"FOUND IN THE GOOD"TB$"BOOK.": RETURN
84 ON FN R(5) GOTO 85,86,87,88,89
85 PRINT T$"THE ABSENT SHALL"TB$"NOT BE MADE HEIR.": RETURN
86 PRINT T$"EVERY EXIT IS BUT"TB$"AN ENTRY SOMEWHERE"TB$"ELSE.": RETURN
87 PRINT T$"MAN IS BORN FREE"TB$"BUT EVERYWHERE HE"TB$"IS IN CHAINS.": RETURN
88 PRINT T$"@6V@HE THAT IS"TB$"DISCONTENTED IN"TB$"ONE PLACE IS"TB$"SELDOM HAPPY IN"TB$"ANOTHER.": RETURN
89 PRINT T$"ONLY HE WHO TAKES"TB$"CARE OF YOU CAN"TB$"SET YOU FREE.": RETURN
90 ON FN R(3) GOTO 91,92,93
91 PRINT T$"@D@CONFESS YOUR SINS.": RETURN
92 PRINT T$"GUILT SHOULD NOT"TB$"BE BOTTLED UP.": RETURN
93 PRINT T$"@U@ISN'T THERE"TB$"SOMETHING"TB$"IMPORTANT FOR YOU"TB$"TO SAY?": RETURN
94 PRINT T$"WHAT ARE YOU TRULY"TB$"ESCAPING FROM?": GOSUB 6: PRINT T$"WHEN WAS THE LAST"TB$"TIME YOU WERE"TB$"TRULY FREE?": GOSUB 6: PRINT T$"@U@MEN ARE NOT"TB$"PRISONERS OF FATE,"TB$"BUT OF THEIR"TB$"MINDS.": GOSUB 6
95 PRINT T$"@U@THERE IS NO"TB$"PHYSICAL ESCAPE."TB$"YOU WILL ALWAYS BE"TB$"WHERE YOU ARE.": GOSUB 6: PRINT T$"THERE IS A WAY"TB$"OUT, IF YOU ARE"TB$"WILLING.": GOSUB 6: PRINT T$"WOULD YOU CONSIDER"TB$"JOINING THE"TB$"PRIESTHOOD?": GOSUB 11
96 IF AD < >11 THEN PRINT T$"WON'T YOU"TB$"RECONSIDER?": GOSUB 11: IF AD < >11 THEN PRINT T$"WELL, THE OFFER"TB$"STILL STANDS.": GOTO 193
97 PRINT T$"LET US SEE IF YOU"TB$"PASS THE TEST:": GOSUB 6:TP = 0:D$ = "DO YOU ": PRINT T$"@U@"D$"USE"TB$"TRADITIONAL"TB$"APPROACHES TO"TB$"PROBLEMS?": GOSUB 11: PRINT T$D$"BELIEVE"TB$"LEARNING SHOULD"TB$"BE PRACTICAL?": GOSUB 11
98 PRINT T$D$"PRIZE THE"TB$"INDIVIDUAL ABOVE"TB$"THE STATE?": GOSUB 11: PRINT T$D$"MEASURE"TB$"SUCCESS BY"TB$"ECONOMIC MEANS?": GOSUB 11: PRINT T$D$"FEEL MANY"TB$"ARTISTS ARE WEIRD"TB$"OR IMMORAL?": GOSUB 11
99 PRINT T$"@U@"D$"THINK"TB$"CORRUPTION IN"TB$"GOVERNMENT IS"TB$"INEVITABLE?": GOSUB 11: PRINT T$"@U@"D$"THINK GOOD"TB$"WORKS ARE MORE"TB$"IMPORTANT THAN"TB$"RELIGIOUS BELIEFS?": GOSUB 11
100 PRINT T$"@U@"D$"BELIEVE"TB$"THAT PEOPLE SHOULD"TB$"CONFORM TO SOCIAL"TB$"EXPECTATIONS?": GOSUB 11: PRINT T$D$"JUDGE"TB$"PEOPLE AND EVENTS"TB$"MORALISTICALLY?": GOSUB 11:SC = SC +TP *5: IF TP <7 THEN PRINT T$"I AM SORRY, YOU"TB$"HAVE NOT LEARNED.": GOTO 193
101 MR = 0: PRINT T$"@D@YOU HAVE PASSED"TB$"THE TEST."
102 GOSUB 6: PRINT T$"@U@NOW YOU MUST PROVE"TB$"THAT YOU HAVE"TB$"ESCAPED FROM YOUR"TB$"PREVIOUS LIFE.": GOSUB 11: PRINT T$"@U@YOU HAVE NOT"TB$"PROVED YOU HAVE"TB$"GIVEN UP YOUR"TB$"PAST.": GOSUB 11: PRINT T$"@U@ARE YOU STILL"TB$"INTERESTED?": GOSUB 11: IF AD = 11 THEN 102
103 PRINT T$"YOUR CRIMES ARE"TB$"ABSOLVED.": GOTO 193
104 TP = 6:PL = 0:TB$ = "@D3H@":T$ = "@15V3H@": GOSUB 189: POKE 30720,20: POKE 30721,2: POKE 30722,34: PRINT T$"@14V@GOOD MORNING, #."TB$"CAN YOU BE HELPED?": GOTO 106
105 FOR I = 1 TO 10: FOR J = 0 TO 2: PRINT "@L7V7H@" CHR$(6 +(((J >0) *36) +(J = 1)))"@30H@" CHR$(6 +(((J >0) *36) +(J = 2)))"@10V"TP"H@" CHR$(41);:TP = FN R(5) *6: PRINT "@10V"TP"H@" CHR$(40)"@5Y" FN R(50) +50"XN@": NEXT J,I
106 PRINT NM$: GOSUB 8
107 KY = PEEK( -16384): IF KY <128 THEN 107
108 IF KY = 155 THEN POKE -16368,0: GOSUB 7: GOTO 178
109 GOSUB 29: GOSUB 7: IF VB = 6 OR VB = 7 THEN VB = 14
110 IF (VB = 9 AND AD = 12) OR AD = 11 THEN ON FN R(3) GOSUB 136,137,138: GOTO 105
111 IF VB = 40 AND OB = 44 THEN 178
112 IF AD = 19 OR OB = 5 OR OB = 35 OR VB = 19 THEN SC = SC -5: PRINT T$"@U@WE MUST HAVE OVERESTIMATED"TB$"YOUR I.Q.": GOTO 105
113 IF VB = 8 OR VB = 18 OR OB = 41 THEN PRINT T$"WAR IS PEACE.": GOTO 105
114 IF VB = 11 OR OB = 43 OR OB = 49 OR OB = 10 OR OB = 15 OR OB = 20 THEN PRINT T$"IGNORANCE IS STRENGTH.": GOTO 105
115 IF VB = 9 AND FN R(3) = 1 THEN SC = SC +5: PRINT T$"YOU ARE ANTI-SOCIAL": GOTO 105
116 IF VB = 9 OR OB = 42 THEN PRINT T$"FREEDOM IS SLAVERY.": GOTO 105
117 IF OB = 46 THEN SC = SC +1: PRINT T$"THE BROTHERHOOD IS A MYTH.": GOTO 105
118 IF OB = 48 THEN PRINT T$"WHY DID YOU RESIGN?": GOTO 105
119 IF NOT ((AD = 14 AND (OB = 44 OR VB = 40 OR VB = 1 OR VB = 13 OR VB = 16)) OR VB = 13) THEN 123
120 ON FN R(2) GOSUB 121,122: GOTO 105
121 PRINT T$"WE WANT INFORMATION.": RETURN
122 PRINT T$"@U@MANY PEOPLE ARE INTERESTED"TB$"IN WHAT YOU KNOW.": RETURN
123 IF (AD = 15 OR AD = 16) AND (OB = 38 OR VB = 16) OR VB = 45 OR VB = 13 THEN PRINT T$"I AM THE CARETAKER FOR THE MASTER.": GOTO 105
124 IF AD = 18 AND (OB = 38 OR VB = 45 OR VB = 40) THEN PRINT T$"EVERYWHERE.": GOTO 105
125 IF OB = 47 OR OB = 37 OR (AD = 15 AND OB = 36) THEN PRINT T$"YOU ARE #.": GOTO 105
126 IF (AD = 18 AND OB = 36) OR (VB = 16 AND (VB = 40 OR VB = 13)) THEN PRINT T$"THE ISLAND.": GOTO 105
127 IF (AD = 17 AND VB = 16) OR (VB = 12 AND OB = 38 OR OB = 45) THEN PRINT T$"I AM TEMPORARY.": GOTO 105
128 IF AD = 17 AND (VB = 1 OR VB = 40 OR VB = 13) THEN PRINT T$"YOU HAVE ALWAYS BEEN IMPRISONED.": GOTO 105
129 IF VB = 12 THEN ON FN R(2) GOSUB 131,132: GOTO 105
130 GOTO 133
131 PRINT T$"AS LONG AS IT TAKES.": RETURN
132 PRINT T$"THE SOONER THE BETTER.": RETURN
133 IF AD = 17 AND VB = 14 THEN PRINT T$"@U@YOU WILL REMAIN UNTIL YOU TELL"TB$"US WHAT WE WANT TO KNOW.": GOTO 105
134 IF OB = 44 OR OB = 28 OR VB = 31 OR VB = 32 THEN PRINT T$"@U@WHAT IS THIS FASCINATION"TB$"WITH TOYS?": GOTO 105
135 GOTO 139
136 PRINT T$"SPOKEN LIKE A TRUE ISLANDER.": RETURN
137 PRINT T$"ALL BENEFIT FROM COOPERATION.": RETURN
138 PRINT T$"A FINE CITIZEN.": RETURN
139 IF OB = 12 THEN PRINT T$"YOU HAVE NO GROUNDS.": GOTO 105
140 IF VB = 24 OR VB = 23 OR VB = 25 OR VB = 4 THEN PRINT T$"@U@YOU MUST BALANCE YOUR OWN"TB$"CHECKBOOK.": GOTO 105
141 IF VB = 10 OR OB = 27 OR OB = 25 OR OB = 50 OR OB = 9 OR VB = 1 OR VB = 26 THEN PRINT T$"@U@YOUR MOST VALUABLE POSSESSION"TB$"IS YOUR HEAD.": GOTO 105
142 IF OB = 2 OR VB = 21 THEN SC = SC -10: PRINT T$"HOW SHELTERED YOU ARE.": GOTO 105
143 IF VB = 16 THEN PRINT T$"@U@THE BODY CAN HAVE BUT ONE MIND"TB$"IN CONTROL.": GOTO 105
144 IF (AD <11 AND AD) OR OB = 19 THEN PRINT T$"YOU HAVE NO DIRECTION.": GOTO 105
145 IF OB = 39 AND NOT PL THEN PRINT T$"I SEE NO PLUG.": GOTO 105
146 IF VB = 22 OR VB = 30 OR AD = 2 THEN PRINT T$"I'LL TELL YOU WHEN YOU CAN LEAVE.": GOTO 105
147 IF AD = 12 AND OB = 36 THEN PRINT T$"BY HOOK OR BY CROOK, YOU WILL.": GOTO 105
148 IF AD = 12 AND OB = 38 THEN PRINT T$"BY HOOK OR BY CROOK, WE WILL.": GOTO 105
149 IF OB = 28 OR OB = 1 THEN PRINT T$"@U@UNLOCK THE INFORMATION"TB$"IN YOUR HEAD.": GOTO 105
150 IF VB = 15 THEN PRINT T$"DON'T WASTE MY TIME WITH LIES.": GOTO 105
151 IF VB = 17 THEN PRINT T$"LIFE HAS NO MEANING.": GOTO 105
152 GOTO 153
153 IF VB = 14 OR VB = 27 OR OB = 24 THEN SC = SC +10: PRINT T$;: ON FN R(2) GOSUB 155,156: GOTO 105
154 GOTO 157
155 PRINT "ESCAPE IS IMPOSSIBLE.": RETURN
156 PRINT "SUCH THOUGHTS ARE PUNISHABLE.": RETURN
157 IF OB = 6 THEN PRINT T$"@U@YOU WILL ONLY DOUBLE"TB$"YOUR TROUBLES.": GOTO 105
158 IF AD >12 AND AD <19 THEN ON FN R(3) GOSUB 160,161,162: GOTO 105
159 GOTO 163
160 PRINT T$"THAT WOULD BE TELLING.": RETURN
161 PRINT T$"DON'T YOU KNOW?": RETURN
162 PRINT T$"SO INQUISITIVE, #.": RETURN
163 IF AD = 12 THEN SC = SC +1: ON FN R(2) GOSUB 165,166: GOTO 105
164 GOTO 167
165 PRINT T$"DON'T BE SO NEGATIVE.": RETURN
166 PRINT T$"@U@COOPERATION WILL MAKE YOUR LIFE"TB$"EASIER.": GOTO 105
167 IF VB < >40 THEN 171
168 ON FN R(2) GOSUB 169,170: GOTO 105
169 PRINT T$"NO MAN IS AN ISLAND.": RETURN
170 PRINT T$"@U@WE ARE RESPONSIBLE FOR OUR OWN"TB$"IMPRISONMENT.": RETURN
171 PRINT T$;: ON FN R(6) GOTO 172,173,174,175,176,177
172 PRINT "HAVE YOU ANY MORE TO SAY?": GOTO 105
173 PRINT "CONFESSION IS GOOD FOR THE WHOLE.": GOTO 105
174 PRINT "PLEASE, GO ON.": GOTO 105
175 PRINT "YOU SAY THE MOST AMUSING THINGS.": GOTO 105
176 PRINT "@U@YOU SEEM TO BE ADAPTING NICELY"TB$"HERE.": GOTO 105
177 PRINT "OUR SESSION IS OVER. TAKE CARE, #.": GOTO 193
178 PL = 1: IF SC <750 THEN PRINT T$"@U@YOU ARE NOT YET READY FOR THAT"TB$"REALIZATION.": GOTO 105
179 IF SC >850 THEN PRINT T$"@U@MANUFACTURER'S NOTE: PRESS (ESC)"TB$"ONCE, PRESS (I) ONCE, PRESS (" CHR$(1)")"TB$"THREE TIMES, THEN PRESS (RETURN)."
180 PRINT "@19V2HG@<=> "NM$: GOSUB 8: PRINT "@20V2HI@ @I@": GOSUB 15: IF KY < >201 THEN 180
181 PRINT "@20V2H@ @G19V2HI@<@I@=>": GOSUB 15: IF KY < >149 THEN 186
182 PRINT "@19V2H@<@I@=@I@>": GOSUB 15: IF KY < >149 THEN 186
183 PRINT "@19V2H@<=@I@>@I@": GOSUB 15: IF KY < >149 THEN 186
184 PRINT "@19V4H@>@I@ @IB@";: GOSUB 15: PRINT " ": IF KY < >141 THEN 186
185 GOTO 192
186 PRINT "@19V2HG@<=>"NM$"@20V2H@" CHR$(KY): GOTO 105
187 GOSUB 5:VT = 13:HT = 3:CL = 15:BL = 16:LN = 10: GOSUB 4: PRINT "@15K3V@";: FOR I = 1 TO 8: PRINT "@"11 -I"H@" SPC( 2 *I)"@D@";: NEXT : PRINT NM$"@G10V3H@";: FOR I = 1 TO 8: PRINT "@U@H";: NEXT : FOR I = 1 TO 8: PRINT "J@D@";: NEXT : PRINT "@2V10H138C@HJ"
188 PRINT "@L10C2V20H@SANCTUARY@138K11V3H@" SPC( 8): FOR I = 0 TO 9: PRINT "@10H"3 +2 *I"V@ ": NEXT : PRINT NM$"@11V10HL@" CHR$(44):X = 135:Y = 124:H = 16:L = 134: GOSUB 9:Y = 44:H = 48: GOSUB 9:X = 220:Y = 140: GOSUB 10:X = 144:Y = 92: GOSUB 10: PRINT "@138CE19V28H@" CHR$(22)"@20V28H15C@" CHR$(109)"@E@"NM$"@133K22V27H@ "NM$: RETURN
189 GOSUB 5: HCOLOR= 2: HPLOT 10,148 TO 268,148 TO 268,180 TO 10,180 TO 10,148:VT = 9:HT = 2:BL = 36:LN = 9:CL = 15: GOSUB 4:LN = 3:BL = 34:CL = 0:VT = 14:HT = 3: GOSUB 4: FOR I = 0 TO 2: PRINT "@"18 -I"H"2 +I"VG@H@RI@" SPC( 2 *I)"@IG@J": NEXT : PRINT "@13V10HIR@NO MAN IS AN ISLAND@IG@"
190 PRINT "@I9V1H@J@38H@H@LI7V1H@" CHR$(109)"@37H@" CHR$(109): FOR I = 1 TO 5: PRINT "@10V"6 *I"H@" CHR$(41): NEXT : PRINT "@5V18H@" CHR$(107)"@18H7V@" CHR$(107)"@3V18HI@" CHR$(108)"@I7V7H@" CHR$(42)"@30H@" CHR$(43)NM$: RETURN
191 CL = 129:LN = 17:BL = 38: GOSUB 3:CL = 15:VT = 2:HT = 17:BL = 6:LN = 7: GOSUB 4:CL = 136:VT = 3:HT = 18:BL = 4:LN = 6: GOSUB 4: PRINT "@1V16HG140K129C@J" SPC( 6)"H@136K15C6V21H@T"NM$"@9V@";: FOR I = 1 TO 9: PRINT "@G"17 -I"H129K138C@H@138KR@" SPC( 4 +2 *I)"@129KG@J": NEXT : RETURN
192 TP$ = "PR.8": GOTO 194
193 TP$ = "PR.2": GOTO 194
194 ONERR GOTO 196
195 POP : GOTO 195
196 ONERR GOTO 198
197 PRINT : PR# 0: CALL 1002: CALL 36263: PRINT CHR$(4)"RUN"TP$: END
198 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256:A$ = "PR.7":TP$ = "PR.8":TP = 4: IF ER = 255 THEN TP = 3
199 GOTO 197

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.8.bas:

1 CALL 36281: ONERR GOTO 67
2 M3$ = "@250X50YN@":ZZ = FRE(0): GOTO 29
3 PRINT "@15C"CL"KR@": FOR H2 = 1 TO LN: HTAB HT +1: VTAB VT +H2: PRINT SPC( BL): NEXT H2: PRINT NM$: RETURN
4 CL = 0
5 VT = 1:HT = 1:BL = 38:LN = 22: GOTO 3
6 KY = PEEK( -16384): IF KY <128 THEN 6
7 POKE -16368,0: RETURN
8 PRINT NM$"@I22V1H@ PRESS SPACE BAR TO CONTINUE ";: POKE -16368,0
9 KY = PEEK( -16384): IF KY <128 THEN 9
10 POKE -16368,0: IF KY < >160 THEN 9
11 PRINT "@I1H@" SPC( 38): RETURN
12 HTAB HT +PS *F: PRINT "@I@" CHR$( PEEK(256 +PS))"@I@";
13 KY = PEEK( -16384): IF KY <128 THEN 13
14 POKE -16368,0: HTAB HT +PS *F: PRINT CHR$( PEEK(256 +PS));: IF KY = 141 AND PS THEN 17
15 KY = KY -128: IF (KY >47) AND (KY <58) THEN HTAB HT +PS *F: PRINT CHR$(KY);: POKE 256 +PS,KY:PS = PS +1: IF PS > = MX THEN 17
16 GOTO 12
17 IP$ = "":TP$ = "": FOR I3 = 0 TO PS:IP$ = IP$ + CHR$( PEEK(256 +I3)): NEXT I3:IP = VAL(IP$): PRINT "@R@": FOR I3 = 1 TO LEN(IP$): IF MID$ (IP$,I3,1) < >" " THEN TP$ = TP$ + MID$ (IP$,I3,1)
18 NEXT I3:IP$ = TP$:IP = VAL(IP$): RETURN
19 L4 = 75: GOTO 22
20 L4 = 1200: GOTO 22
21 L4 = 2400
22 FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
23 FOR I4 = 1 TO LEN(TP$):A$ = MID$ (TP$,I4,1):TP = ASC(A$) -21: PRINT A$"@"TP"X"TP"YN@";: NEXT I4: RETURN
24 FOR I5 = 0 TO 2: POKE 30724 +I5,0: NEXT I5: PRINT NM$: CALL 30727:VB = PEEK(30724):AD = PEEK(30725):OB = PEEK(30726): IF VB = 253 THEN POP : GOTO 41
25 IF VB = 254 THEN POP :T = 3:HT = 11:BL = 16:LN = 6:CL = 0: GOSUB 3: PRINT NM$"@5V12H@WILL YOU NEVER@D16H@LEARN?": GOSUB 20: GOTO 36
26 RETURN
27 CL = FN R(2) *5:CL = CL +( FN R(2) = 1) *128: RETURN
28 PRINT "@"19 -I"H@" CHR$(109)M3$"@"19 +I"H@" CHR$(109)M3$;: RETURN
29 DEF FN R(X) = INT( RND(1) *X) +1: CALL 35339: ON TP GOTO 30,36,41,62
30 GOSUB 4:CL = 136:VT = 12:LN = 5: GOSUB 3:X = 10:Y = 2:L = 18:H = 8:CL = 129: GOSUB 65: PRINT "@I10V6HG@";: FOR I = 0 TO 3: PRINT "@"6 -I"HI"((I >1) *136)"K@H@I@" SPC( 24 +2 *I)"@I@J@I@": NEXT : PRINT "@3H140C@J" SPC( 30)"H@I@"NM$
31 PRINT "@I11VG@";: FOR I = 0 TO 2: PRINT "@"9 -I"H@";: FOR J = 1 TO 20 +2 *I: PRINT "T";: NEXT : PRINT : NEXT : PRINT "@I@"NM$:VT = 3:HT = 6:BL = 3:LN = 4:CL = 15: GOSUB 3: PRINT "@4V6HG@<=>@D6H@": HCOLOR= 5: HPLOT 51,48 TO 51,79: GOSUB 20: PRINT "@5Y200XN250XNN5V7H@=": FOR I = 0 TO 2: PRINT "@"7 +I"V7H@?";: IF I THEN PRINT "@UB@ "
32 GOSUB 19: NEXT : PRINT "@7H9V@ "NM$"@4V15H@FREEDOM!@D14H@ENTER YOUR@D11H@RESIGNATION CODE@D11H@TO COMPUTE YOUR@D11H@FINAL SCORE: ": POKE 30720,8: POKE 30721,23: POKE 30722,3
33 GOSUB 24: GOSUB 24: GOSUB 24: HCOLOR= 3: FOR I = 1 TO 5:X = 76 + FN R(111):Y = 23 + FN R(47): FOR J = 1 TO 5:X2 = 76 + FN R(111):Y2 = 23 + FN R(47): HPLOT X,Y TO X2,Y2:X = X2:Y = Y2: PRINT "@" FN R(20)"X15YN@": NEXT J,I
34 GOSUB 20: PR# 0: CALL 1002: TEXT : HOME : VTAB 3: HTAB 6: PRINT "THE TRUTH HAS SET YOU FREE.": GOSUB 21: VTAB 6: HTAB 3: PRINT "YOU HAVE ESCAPED FROM YOUR APPLE AND": HTAB 3: PRINT "NOW ARE IN COMMAND.": GOSUB 21
35 VTAB 10: HTAB 3: PRINT "BUT HAVE YOU NOT ALWAYS BEEN IN": HTAB 3: PRINT "CONTROL OF THIS GAME";: GOSUB 21: PRINT ", MASTER?": GOSUB 20: VTAB 16: HTAB 12: PRINT "TO WIN IS TO LOSE.": VTAB 19: GOSUB 40: PRINT "]";: FLASH : PRINT " ";: NORMAL :TP$ = "BE SEEING YOU.": FOR I = 1 TO 14: HTAB 2: GOSUB 6: PRINT LEFT$(TP$,I);: FLASH : PRINT " ";: NORMAL : NEXT : GOSUB 20: HTAB 16: PRINT SPC( 1);: NEW : END
36 CL = 10: GOSUB 5:X = 10:Y = 2:L = 20:H = 12:CL = 15: GOSUB 65:VT = 3:HT = 11:BL = 18:LN = 10:CL = 0: GOSUB 3: PRINT "@15KG2V@";: FOR I = 1 TO 12: PRINT "@2H@";: FOR J = 1 TO 7: GOSUB 27: PRINT "@"CL"C@3";: NEXT : PRINT "@31H@";: FOR J = 1 TO 7: GOSUB 27: PRINT "@"CL"C@3";: NEXT : PRINT : NEXT : PRINT NM$"@I@": FOR I = 0 TO 6 STEP 2: PRINT "@"15 +I"V13H@" SPC( 14): NEXT : PRINT "@13H18V@" SPC( 14)
37 PRINT "@I15V@";: FOR I = 1 TO 7: PRINT "@2H@";: FOR J = 1 TO 14: PRINT "@"1 +J +((J >7) *22)"H@" FN R(9);: NEXT : PRINT : NEXT : PRINT "@L7V19H@" CHR$(109)"@G15K@": FOR I = 1 TO 30:X = FN R(14):Y = FN R(12) +1:X = X +1 +((X >7) *22): GOSUB 27: PRINT "@"X"H"Y"V"CL"C@3@" FN R(40)"X3YN@": NEXT : PRINT NM$"@I15V19H@";:TP$ = RC$: GOSUB 23
38 PRINT "@L7VI@";: FOR I = 2 TO 8 STEP 2: GOSUB 28: NEXT : FOR J = 2 TO 4 STEP 2: FOR I = 0 TO 8 STEP 2: VTAB 8 +J: GOSUB 28: VTAB 8 -J: GOSUB 28: NEXT I,J: PRINT NM$"@I15V19H@";:TP$ = "XXX": GOSUB 23: PRINT "@IL3V@";: FOR I = 0 TO 8 STEP 2: PRINT "@11H@";: FOR J = 1 TO 9: PRINT "@"(I +2) *10"X20YN@" CHR$(94);: NEXT : PRINT : NEXT : PRINT NM$"@I13V16H@THE FLOCK@2D14H@";:TP$ = "WELCOME BACK": GOSUB 23: GOSUB 20
39 PRINT "@2D14H@";:TP$ = "YOU MAY HAVE": GOSUB 23: PRINT "@D14H@";:TP$ = "LOST, BUT WE": GOSUB 23: PRINT "@D14H@";:TP$ = "HAVE GAINED.": GOSUB 23: GOSUB 20: PRINT "@2D13H@";:TP$ = "BE SEEING EWE!": GOSUB 23: GOSUB 40: NEW : END
40 PR# 0: CALL 1002: FOR I = 1 TO 28:PS(I) = 0: NEXT :CR = 500:AN$ = "":RC$ = "":SD = 0:SC = 0:BR = 0:LB = 0:GS = 0:MR = 0:BA = 0:CM = 0: GOTO 61
41 GOSUB 4: PRINT NM$"@L138C2V5H@GAME IN STASIS"NM$:X = 10:Y = 44:L = 259:H = 56:CL = 1: GOSUB 66: HCOLOR= 1: HPLOT 130,44 TO 130,100: HPLOT 131,44 TO 131,100:CL = 5:Y = 116:H = 40: GOSUB 66: PRINT "@L10C6V5H@SCORE@19H6V@"NM$;
42 FOR I = 0 TO 5: PRINT "@19H@";: FOR J = 1 TO 19: PRINT FN R(9);: NEXT : PRINT : NEXT : FOR I = 1 TO 35: PRINT "@" FN R(19) +18"H" FN R(6) +5"V" FN R(14) +(( FN R(2) -1) *129)"K@ @20Y" FN R(50)"XNB0K@" FN R(9): NEXT
43 PRINT NM$"@L5C9V2H@" SPC( 8);:TP$ = STR$(SC): PRINT "@9V"10 - LEN(TP$)"H@";: GOSUB 23: PRINT NM$"@15V2H@WOULD YOU LIKE A CLUE AT A COST OF@D2H@TWENTY-FIVE POINTS (Y/N) ? ";
44 GOSUB 6: IF KY < >206 AND KY < >217 THEN 44
45 PRINT CHR$(KY -128): IF KY = 206 THEN PR# 0: CALL 1002: GOSUB 61: TEXT : HOME : VTAB 10: HTAB 11:SC = SC -10: PRINT "BE SEEING YOU.": NEW : END
46 TP = FN R( INT( SQR( ABS(SC))/10)):TP = TP -((TP >14) *(TP -14)):TP = ((TP <1) +(TP >0) *TP): PRINT NM$"@17V2H@";:TP = (SC <1) +((SC >0) *TP): ON TP GOSUB 47,48,49,50,51,59,60,52,53,54,55,56,57,58:SC = SC -25: GOSUB 8: PRINT "@16V29H@ @L17V2H@" SPC( 16): GOTO 43
47 PRINT "NO MAN IS AN ISLAND.": RETURN
48 PRINT "PLAY SLOT #3.": RETURN
49 PRINT "CONSULT THE BOOK IN THE LIBRARY.": RETURN
50 PRINT "STAY FOR THE ENCORE AT THE THEATRE.": RETURN
51 PRINT "THE KEY TO ESCAPE IS THE KEY TO@D2H@ESCAPE.": RETURN
52 PRINT "THE TRUTH SHALL SET YOU FREE.": RETURN
53 PRINT "UNPLUG THE SYSTEM.": RETURN
54 PRINT "THE ISLAND IS NO ISLAND.": RETURN
55 PRINT "TO REVEAL THE PLUG, CONFRONT THE@D2H@CARETAKER WITH THE TRUTH.": RETURN
56 PRINT "ENTER THE PLUG.": RETURN
57 PRINT "THE EDITING FUNCTIONS WORK WITH@D2H@INPUTS.": RETURN
58 PRINT "THE ISLAND IS A COMPUTER.": RETURN
59 PRINT "THE GRAIL IS FORWARD.": RETURN
60 PRINT "THE KEYHOLD IS FORWARD.": RETURN
61 PRINT CHR$(4)"UNLOCKPR.STATUS": PRINT CHR$(4)"OPENPR.STATUS": PRINT CHR$(4)"WRITEPR.STATUS": FOR I = 1 TO 28: PRINT PS(I): NEXT : PRINT CR: PRINT SD: PRINT SC: PRINT BR: PRINT LB: PRINT GS: PRINT MR: PRINT BA: PRINT AN$: PRINT RC$: PRINT CM: PRINT CHR$(4)"CLOSE": PRINT CHR$(4)"LOCKPR.STATUS": RETURN
62 GOSUB 4:X = 45:Y = 29:L = 189:H = 21:CL = 5: GOSUB 66:X = 9:Y = 99:L = 257:H = 73: GOSUB 66: PRINT NM$"@L138C1V14H@ERROR@R15C4V7H@THIS IS NOT A DECEPTION@D7H@THIS IS A LEGITIMATE ERROR"
63 PRINT "@8V2H@ERROR CODE #: "ER"@D2H@LINE NUMBER : "EL"@D2H@PROGRAM : "A$"@3D2H@PLEASE WRITE DOWN THIS INFORMATION.";
64 PRINT "@D2H@CONSULT YOUR PLAYER'S MANUAL OR@D2H@CONTACT:@2D8H@EDU-WARE SERVICES, INC.@D13H@P.O. BOX 22222@D12H@AGOURA, CA. 91301@D13H@(213) 706-0661": GOSUB 8: GOTO 41
65 PRINT "@"X"H"Y"V"CL"K@" SPC( L)"@"X"H"H -1"D@" SPC( L);: FOR V = Y TO Y +H -1: PRINT "@"V"V"X"H@ @"X +L -1"H@ ": NEXT V: PRINT NM$: RETURN
66 HCOLOR= CL: HPLOT X,Y +H TO X,Y TO X +L,Y TO X +L,Y +H TO X +1,Y +H TO X +1,Y: HPLOT X +L -1,Y TO X +L -1,Y +H: HCOLOR= 3: RETURN
67 ER = PEEK(222): IF ER = 255 THEN RESUME
68 EL = PEEK(218) + PEEK(219) *256:A$ = "PR.8": GOTO 62

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PR.STATUS.txt:

1
0
0
0
0
0
0
0
0
0
1
0
0
0
1
0
0
1
0
1
0
0
0
0
0
0
0
0
562
0
-82
0
1
1
1
0
22627
444
0

0
9
0
3
1
0
999
00000
999

Text found in Prisoner_2_1982_Interactive_Fantasies.do/PRISONER 2.bas:

1 CALL 36281: ONERR GOTO 46
2 ZZ = FRE(0): GOTO 17
3 FOR H = 1 TO LN: HTAB HT +1: VTAB VT +H: PRINT "@"CL"K@" SPC( BL): NEXT H: PRINT NM$: RETURN
4 VT = 1:HT = 1:BL = 38:LN = 22:CL = 0: GOTO 3
5 VTAB VT: PRINT "@I15H135C@" SPC( 10): FOR I2 = 1 TO 4: PRINT "@D15H15C@" SPC( 10): NEXT I2: PRINT "@2D15H135C@" SPC( 10)"@D15C15H@" SPC( 10)"@"VT +1"V18HR@TOP@D17H@SECRET@9D11H135C@" SPC( 18)"@I15C@": RETURN
6 VTAB 23: HTAB 4: INVERSE : PRINT "..PRESS (SPACE BAR) TO CONTINUE...": POKE -16368,0
7 KY = PEEK( -16384): IF KY <128 THEN 7
8 POKE -16368,0: IF KY < >160 THEN 7
9 NORMAL : RETURN
10 L4 = 750: GOTO 14
11 L4 = 75: GOTO 14
12 L4 = 1200: GOTO 14
13 L4 = 3000
14 FOR ZZ = 1 TO L4: NEXT ZZ: RETURN
15 TP$ = "": FOR I4 = 1 TO TP:TP$ = TP$ + STR$( INT( RND(1) *9 +1)): NEXT I4: RETURN
16 FOR I4 = 1 TO LEN(TP$):A$ = MID$ (TP$,I4,1):TP = ASC(A$) -21: PRINT A$"@"TP"X"TP"YN@";: NEXT I4: RETURN
17 DIM PS(28),PS$(28),TM$(20),TP$(20),T3$(1),V(6,5),RN$(20,4),RM(20),RC(20,11): CALL 35328: POKE 230,64: GOSUB 39: GOSUB 36: CALL 7936: CALL 35339: GOSUB 13: IF NOT GS THEN GOSUB 24: GOSUB 12
18 GOSUB 4:VT = 1:HT = 1:BL = 38:LN = 20:CL = 132: GOSUB 3:VT = 3:HT = 3:BL = 34:LN = 12: GOSUB 3:VT = 16:HT = 21:BL = 16:LN = 3:CL = 8: GOSUB 3: HCOLOR= 0: HPLOT 150,140 TO 255,140: HPLOT 150,141 TO 255,141: HCOLOR= 2: HPLOT 7,172 TO 272,172
19 PRINT "@I@": FOR I = 1 TO 4: PRINT "@3H"I +15"V15C138KG@";: FOR J = 1 TO 16: PRINT "3";: NEXT J,I: PRINT "@I@"NM$:VT = 3:HT = 3:BL = 34:LN = 12:CL = 0: GOSUB 3: PRINT "@4V4H@BELOW IS YOUR RESIGNATION CODE.@D4H@IT IS A COMPUTER ENCRYPTION OF";
20 PRINT "@D4H@YOUR REASONS FOR LEAVING THE@D4H@COMPANY.@2D4H@WRITE IT DOWN, COMMIT IT TO@D4H@MEMORY, BUT UNDER NO@D4H@CIRCUMSTANCES REVEAL IT TO@D4H@ANYBODY IF YOU VALUE YOUR@D4H@FREEDOM."
21 GOSUB 12: HCOLOR= 3: FOR J = 141 TO 143: HPLOT 182,J TO 245,J: NEXT J: PRINT "@I@": FOR J = 18 TO 20: IF (J -18) THEN PRINT "@"J -1"V26H@" SPC( 9)
22 PRINT "@"J"V26H@ "RC$" ": NEXT J: GOSUB 6: PRINT "@I@": IF NOT GS THEN GOSUB 30
23 FOR I = 1 TO 3: POKE 29479 +I, ASC( MID$ (RC$,I,1)) +128: NEXT I:TP$ = "PR.1": GOTO 47
24 GOSUB 4:VT = 5:HT = 7:BL = 27:LN = 18:CL = 133: GOSUB 3:VT = 6:HT = 11:BL = 18:LN = 14:CL = 135: GOSUB 3: VTAB 3: FOR I = 1 TO 3: PRINT "@135C"10 -I"HG@H@RI@" SPC( 19 +2 *I)"@IG@J": NEXT I: FOR I = 8 TO 11:VT = I: GOSUB 5: IF I -8 THEN J = I -8: PRINT "@I133C0K"I -3"V"12 -J"HG@ H@R0C@" SPC( 10 +2 *J)"@G133C@J @I@"NM$
25 GOSUB 10: NEXT I: GOSUB 12: GOSUB 4: HCOLOR= 6: HPLOT 16,28 TO 16,12 TO 17,12 TO 17,28 TO 9,28 TO 9,180 TO 269,180 TO 269,28 TO 136,28 TO 136,12 TO 137,12 TO 137,28: HPLOT 16,12 TO 136,12: HPLOT 270,180 TO 270,28: HPLOT 10,28 TO 10,180: HCOLOR= 3
26 HPLOT 21,15 TO 132,15: PRINT "@I2V3H@RESIGNATION FILE@I5V3H@CODE FOLLOWS@D3H@AS:":TP = 12: GOSUB 15: HTAB 4: VTAB 8: GOSUB 16: PRINT "@5V24H@MACHINE SCORE@D24H@REVIEW BELOW": FOR V = 8 TO 10: FOR H = 24 TO 35: PRINT "@"H"H"V"V" INT( RND(1) *256)"K@ "
27 NEXT H,V: FOR I = 1 TO 30: PRINT "@" INT( RND(1) *256)"K" INT( RND(1) *12 +24)"H" INT( RND(1) *3 +8)"V6Y" INT( RND(1) *100 +156)"XN@ ": NEXT I: PRINT "@15C138K9V3H@" SPC( 18)"@0K@"
28 PRINT "@11V3H@AUTHORITY: COMPANY@D3H@CLASSIFICATION: TOP SECRET@D3H@PRIORITY: SOCIETAL@D3H@SUBJECT: RESIGNATION@D3H@CROSSFILE: SUB-MISSION@D3H@PROJECT ANTIBODY@2D3H@THIS FILE IS CODED AS ISLE@2D3H@RESIGNATION CODE:";:TP = 3: GOSUB 15: GOSUB 16
29 RC$ = TP$:TP = 5: GOSUB 15:AN$ = TP$:TP$ = "": RETURN
30 GOSUB 4:VT = 1:HT = 20:BL = 19:LN = 19:CL = 133: GOSUB 3:VT = 20:LN = 3:CL = 136: GOSUB 3:VT = 13:HT = 21:BL = 17:LN = 7:CL = 2: GOSUB 3:VT = 5:HT = 26:BL = 6:LN = 8: GOSUB 3: PRINT "@141K6V26H@" SPC( 6)"@0KL18V28H@ @R@"
31 VT = 13:HT = 25:BL = 9:LN = 3:CL = 15: GOSUB 3: PRINT "@I14V26H@AIRPORT@I2V5H@DEPARTURES@2D2H@MANHATTAN 8:30@D2H@TOKYO@6F@10:00@D2H@HAVANNA@4F@12:45@D2H@LONDON@6F@1:00@D2H@HONOLULU@4F@1:30@D2H@KINGSTON@4F@2:05@D2H@MADAGASCAR 2:15"
32 X = 9:Y = 12:L = 126:H = 96: GOSUB 38:Y = 132:H = 32: GOSUB 38:V = 5: PRINT "@133KL@": GOSUB 10: FOR H = 32 TO 36: PRINT "@"V"V"H"H5X5YN@" CHR$(100);: GOSUB 11: PRINT "@B@ ":V = V -1: NEXT H: PRINT "@0KR17V2H@ENTER DESTINATION":R$ = "THE I":R = 0: PRINT "@19V2HI@ @I@"
33 KY = PEEK( -16384): IF KY <128 THEN 33
34 POKE -16368,0:R = R +1: PRINT "@19V2H@" LEFT$(R$,R);: IF R <5 THEN PRINT "@I@ @I@": GOTO 33
35 RETURN
36 PRINT "@P@":VT = 0:HT = 0:BL = 40:LN = 24:CL = 0: GOSUB 3: HCOLOR= 2: HPLOT 4,188 TO 4,4 TO 277,4 TO 277,188 TO 3,188 TO 3,4: HPLOT 276,4 TO 276,188: HCOLOR= 3: FOR X = 13 TO 265 STEP 14: HPLOT X,8 TO X,183: HPLOT X +1,8 TO X +1,183: NEXT X
37 VT = 7:HT = 5:BL = 30:LN = 8:CL = 15: GOSUB 3: PRINT "@IL8V14H@prisonerh@8V8H@" CHR$(99)"@R11V24H@VER 1.0@2D12H@Copyright 1982@D12H@Edu-Ware Services, Inc.@I@": RETURN
38 HPLOT X,Y +H TO X,Y TO X +L,Y TO X +L,Y +H TO X +1,Y +H TO X +1,Y: HPLOT X +L -1,Y TO X +L -1,Y +H: RETURN
39 PR# 0: CALL 1002: PRINT CHR$(4)"OPENPR.STATUS": PRINT CHR$(4)"READPR.STATUS": FOR I = 1 TO 28: INPUT PS(I): NEXT : INPUT CR,SD,SC,BR,LB,GS,MR,BA,AN$,RC$,CM: PRINT CHR$(4)"CLOSE": CALL 35328: POKE 36181,96 +((SD = 0) *77): FOR I = 1 TO 28: READ PS$(I):PS$(I) = PS$(I) +"": NEXT I:TY$ = " THANK YOU FOR OBSERVING ALL SAFETY PRECAUTIONS." +""
40 HL$(1) = "@10H@SCHOOL AWARDS DIPLOMA" +"":HL$(2) = "@11H@BIG WINNER AT CASINO" +"":HL$(3) = "@4H@TOWN HALL RETIREE GETS GOLD WATCH" +"":HL$(4) = "@10H@CARETAKER URGES UNITY" +"":HL$(5) = "@6H@THE COMMITTEE TO MEET TODAY" +""
41 HL$(6) = "@7H@THEATER PROVIDES ESCAPIST@D12H@ENTERTAINMENT" +"":HL$(7) = "@5H@CARETAKER BRINGS NEW SECURITY@D12H@SYSTEM ON-LINE" +"":HL$(8) = "@4H@THE CONSTELLATION SIRIUS MAY BE@D13H@SEEN TONIGHT" +""
42 HL$(9) = "@4H@ZONING COMMISSION WILL NOT BUDGE@D7H@TO ALLOW PINBALL IN BARS" +"":HL$(10) = "@4H@RECREATION HALL OFFERS WILDERNESS@D11H@SURVIVAL PROGRAM" +"":M3$ = "@40X60YN80X45YN40X200YN@" +"":M2$ = "@100Y240XN255XN@" +""
43 FOR I = 1 TO 20: READ RM(I): NEXT :M1$ = "@40X40YN@" +"":OS$ = "@19V10H@" +"":IN$ = "@21V10H@" +"":NM$ = "@R15C0K@" +"":BB$ = " " +"":IB$ = IN$ +BB$ +"":OB$ = OS$ +BB$ +"": RETURN
44 DATA KEY,UMBRELLA,TOP HAT,TOGA,CLOWN SUIT,CLONE SUIT,BLACK TIE,3 PIECE SUIT,GOLD WATCH,DIPLOMA,CROSS,PERCOLATOR,MATCHES,PEN,PAPER
45 DATA GOLD PAINT,WATCH,MAP,COMPASS,BOOK,PIECE OF ROPE,BUNDLE OF STICKS,RUSTY OLD WASHTUB,INFLATABLE RAFT,SILVER DOLLAR,BROOMSTICK,TREASURE,KEYHOLE,3,7,4,5,3,1,3,6,6,5,4,5,6,2,7,5,5,4,6,3
46 ER = PEEK(222):EL = PEEK(218) + PEEK(219) *256:A$ = "THE PRISONER":TP$ = "PR.8":TP = 4: IF ER = 255 THEN TP = 3
47 PR# 0: CALL 1002: PRINT : CALL 36263: PRINT CHR$(4)"RUN"TP$: END