Glitch Floppy: 113b.dsk

Language: English

Notes

Disk info for 113b.dsk:

File Name: glitch_113b/113b.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 69632
Used Space (bytes): 73728
Physical Size (KB): 140
Free Space (KB): 68
Used Space (KB): 72
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 272
Used Sectors: 288
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 113b.dsk:

glitch_113b/113b.dsk DISK VOLUME #254
* A 002 HELLO
T 002 TAIPAN START
A 061 TAIPAN
B 058 TAIPAN.B
B 034 TAIPAN INSTRUCTIONS
* A 002 TEMPLE OF APSHAI
* B 034 EPYX
* A 015 TITLE
* B 011 TITLESHAPES
* A 053 DM
* A 069 INN
* B 004 OBJ.1
* B 024 OBJ.2
* T 002 FRELIC
* T 002 PARDUE
* T 002 TCHPAS
* B 010 SHAPE0
* B 010 SHAPE1
* B 010 SHAPE2
* B 010 SHAPE3
* B 010 SHAPE4
* B 010 DATA0
* B 010 DATA1
* B 010 DATA2
* B 010 DATA3
* B 010 DATA4
DOS 3.3 format; 69,632 bytes free; 73,728 bytes used.

Text found in 113b.dsk/DM.bas:

0 HIMEM: 32767
1 REM COPYRIGHT (C) 1979 AUTOMATED SIMULATIONS, REV2(DISK)
2 REM TEMPLE REV 3 7/11/82
4 K1 = 32771:K2 = K1 +3:K3 = K2 +12:K4 = K3 +12:KV = 37890:K5 = KV +14:K6 = K5 +10:K7 = K6 +11:K8 = K7 +10:K9 = K8 +10
5 DATA 0,"ROOM NO:",1,"WOUNDS:",2,"FATIGUE:",3,"WEIGHT:",13,"ARROWS:",14,"MAGIC",15,"ARROWS:",20,"THOU HAST",21,"SLAIN 0"
6 PRINT CHR$(4)"BLOAD OBJ.2,A$8000": HGR : POKE -16302,0: INVERSE : FOR I = 1 TO 23: PRINT "QQQQQQQQQQQQQQQQQQQQQQQQQQQQ@@@@@@@@@@@@";: NEXT : PRINT "QQQQQQQQQQQQQQQQQQQQQQQQQQQQ@@@@@@@@@@@";: NORMAL : POKE 2039,0
7 KA = 4194
8 KC = 7527:KG = 7786
10 GOSUB 16000
12 Q = 60: DIM ZA(3),TM(5),RF(7),RN(7)
13 Q1 = 12:KM = 0
14 FOR I = 0 TO 7:RF(I) = 0:RN(I) = 0
15 Q2 = 20: DATA 10,13,5,5,5: FOR I = 1 TO 5: READ TM(I): NEXT I
16 NO = KA:NT = 4 *Q +KA:D1 = 8 *Q +KA:D2 = 12 *Q +KA:MT = 16 *Q +KA:MN = MT +Q:NP = MN +Q:XP = NP +Q:YP = XP +Q:TR = YP +Q:XR = TR +Q:YR = XR +Q:KB = KA +2251: FOR I = 1 TO 60: POKE KA -I,0: NEXT I
17 X1 = YR +Q:X2 = X1 +2 *Q:Y1 = X2 +2 *Q:Y2 = Y1 +2 *Q:TW = Y2 +160:TS = TW +Q2:US = TS +56:UI = US +48
20 ZA(1) = 0:ZA(2) = 3:ZA(3) = -6
35 DATA 169,32
36 DATA 133,25,169,0,133,24,170,168,169,128,145,24,200,192,27,208,249,177,24,41,192,145,24,160,0,165,24,24,232,224,3,208,4,162,0,105,7,105,40,133,24,176,4,144,219,144,217,230,25,165,25,201
37 DATA 64,208,209,96
40 FOR I = 768 TO 825: READ J: POKE I,J: NEXT I: GOTO 5000
41 QY = 5:Q$ = D1$: GOSUB 75:QY = 6:Q$ = D2$: GOSUB 75: POKE KV,24: RETURN
42 QY = 8:Q$ = D1$: GOSUB 75:QY = 9:Q$ = D2$: GOSUB 75: POKE KV +1,24: RETURN
43 QY = 11: GOSUB 75: POKE KV +2,24: RETURN
44 QY = 19: GOSUB 75: POKE KV +3,24: RETURN
45 QY = 23: GOSUB 75: POKE KV +4,24: RETURN
55 IF YM W2 -18 THEN YM = W2 -18
57 IF XM V2 -18 THEN XM = V2 +18
59 RETURN
60 D1$ = STR$(J) +" ARROWS":D2$ = "": GOSUB 42: RETURN
70 GOSUB 500: IF L = 0 THEN 70
71 J = ASC(C$) -48: IF J <0 OR J >9 THEN 70
72 RETURN
73 QY = 13:Q$ = "ARROWS: " + STR$( PEEK(KB +13)): GOSUB 75: RETURN
74 QY = 15:Q$ = "ARROWS: " + STR$( PEEK(KB +14)): GOSUB 75: RETURN
75 POKE KG,QY:Q$ = Q$: CALL 7588: RETURN
80 FOR I = 1 TO 60: POKE KA -I,0: NEXT : RETURN
82 FOR I = 0 TO 7: IF RF(I) < >0 THEN POKE NT +RF(I),3: IF I <4 THEN POKE KA -61 +(RF(I) -(60 *I)),0
83 NEXT I: FOR I = 0 TO 7:RF(I) = RN(I):RN(I) = 0: NEXT : RETURN
84 RN(KF -1) = (KF *Q -Q) +KR:RF = KF +1: IF RF >3 THEN RF = RF -4
85 RN(KF +3) = RF *60 + PEEK(NO +((KF *Q -Q) +KR)): RETURN
90 POKE K5, PEEK(K9 +20): RETURN
95 GOSUB 82: POKE KV +6,0: POKE K9 +1,255: POKE K9 +4,255: POKE K7 +8,0: CALL K4 +6: POKE KV +5,0: POKE K9 +34,0: RETURN
100 GOSUB 105: CALL 7168: RETURN
105 XX = XX/4:YY = YY/4: IF XX <0 THEN POKE 7515,256 +XX: GOTO 107
106 POKE 7515,XX
107 IF YY <0 THEN POKE 7516,256 +YY: GOTO 109
108 POKE 7516,YY
109 POKE 7517,L: POKE 7518,I1:YY = YY *4:XX = XX *4: RETURN
120 GOSUB 105: CALL 7291: RETURN
140 GOSUB 105: CALL 7312: RETURN
150 GOSUB 105: CALL 7439: RETURN
500 IF PEEK( -16384) > = 127 THEN 550
520 L = 0: RETURN
550 C$ = CHR$( PEEK( -16384) -128): POKE -16368,0:L = 1: RETURN
600 POKE K9 +2,XL: POKE K9 +5,YL: CALL K2
602 XX = XL:YY = YL
605 ON KF GOTO 606,607,608,609
606 ROT= 48:QZ = 78: GOTO 610
607 ROT= 0:QZ = 78: GOTO 610
608 ROT= 16:QZ = 78: GOTO 610
609 ROT= 0:QZ = 79
610 IF K = 0 THEN DRAW QZ AT XX,YY: ROT= 0: RETURN
620 HCOLOR= 4: DRAW QZ AT XX,YY: HCOLOR= 7: ROT= 0: CALL K1: RETURN
630 IF PEEK(K9 +22) = 0 THEN FV = 0: RETURN
635 FV = ( ABS( PEEK(K9 +22))/MM *(100/PH +5 -5 * PEEK(K9 +19)/PH) *(1 +WC/WT *3) -2)/( PEEK(K9 +22) *2):FV = FV -(11/( PEEK(K9 +22) *2)): IF PEEK(KA -86) >0 THEN FV = FV/2
637 IF FV <0 THEN FV = 256 +FV
638 POKE K9 +23, INT(FV): POKE K9 +24,(FV - INT(FV)) *256: RETURN
640 TA = TA -( ABS(M)/MM *(100/PH +5 -5 * PEEK(K9 +19)/PH) *(1 +WC/WT *3) -2) +11: IF TA >100 THEN TA = 100
641 IF TA < -127 THEN TA = -127
642 POKE K8 +2,TA +256 *(TA <0): CALL K4 +15: GOTO 7000
670 QY = W2 -4 * PEEK(YP +KR):QX = V1 +4 * PEEK(XP +KR): POKE K9 +31,1: POKE K9 +32,255: POKE K9 +33,16: FOR L = 1 TO 8: XDRAW 56 AT QX,QY: CALL K4 +21: FOR I = 1 TO 80: NEXT : XDRAW 56 AT QX,QY: FOR I = 1 TO 100: NEXT : NEXT : RETURN
800 LL = KR: GOTO 850
840 LL = LR
850 V3 = PEEK(X1 +LL) +128 * PEEK(X1 +Q +LL):V4 = PEEK(X2 +LL) +128 * PEEK(X2 +Q +LL):W3 = PEEK(Y1 +LL) +128 * PEEK(Y1 +Q +LL):W4 = PEEK(Y2 +LL) +128 * PEEK(Y2 +Q +LL):V3 = V3 *4:V4 = V4 *4:W3 = W3 *4:W4 = W4 *4: IF LL < >KR THEN RETURN
860 V1 = V3:V2 = V4:W1 = W3:W2 = W4: RETURN
1200 XA = PEEK(KA +2236) *4:YA = PEEK(KA +2237) *4:KF = PEEK(KA +2238): POKE K9 +18,KF: POKE K8, PEEK(KA +2235): POKE K5,0: POKE K6,0
1210 MM = 4:PH = PEEK(KB +24): POKE K9 +19,PH:PB = PEEK(KB +18):TA = 100: POKE K8 +2,TA:AS = PEEK(KB +23)/10
1211 WM = PEEK(KB +7):WT = AS *AS *100:WC = PEEK(KB +12):SM = PEEK(KB +10): RETURN
3000 IF PEEK(KA +LR -61) = 1 THEN RETURN
3001 GOSUB 840:XX = V4 -XB% -8: IF V3 -XB% > -1 AND V4 -XB% <193 AND YB% -W3 > -1 AND YB% -W4 <193 THEN POKE KA +LR -61,1
3010 FOR K = 1 TO 3 STEP 2:NN = LR +K *Q:YY = INT(YB% -W3): IF NS = K THEN 3014
3011 I1 = 3:L = (W3 -W4)/4: IF PEEK(D2 +NN) - PEEK(D1 +NN) +4 = L THEN 3014
3012 GOSUB 100
3013 I1 = 5 -2 * PEEK(NT +NN): IF I1 > = 0 AND I1 <5 THEN YY = YB% -W4 -4 * PEEK(D2 +NN):L = PEEK(D2 +NN) - PEEK(D1 +NN): GOSUB 120
3014 XX = V3 -XB%: NEXT K
3020 YY = YB% -W3: FOR K = 0 TO 2 STEP 2:NN = LR +K *Q: IF NS = K THEN 3034
3025 I1 = 1:XX = V3 -XB%:L = (V4 -V3)/4: IF PEEK(D2 +NN) - PEEK(D1 +NN) +4 = L THEN 3034
3030 GOSUB 140:I1 = 2 - PEEK(NT +NN): IF I1 > = 0 AND I1 <2 THEN XX = V3 -XB% +4 * PEEK(D1 +NN):L = PEEK(D2 +NN) - PEEK(D1 +NN): GOSUB 150
3034 YY = YB% -W4 -8: NEXT K:LR = KR:KR = 0: GOSUB 840:KR = LR: RETURN
3990 LR = KR: GOSUB 800: CALL 768: GOSUB 95: GOSUB 80: GOTO 4002
4000 CALL K2 +9: GOSUB 95:LR = KR: GOSUB 800:IB = 0: IF PEEK(KA +KR -61) = 1 THEN 4007
4001 XA = XL +XB%:YA = YB% -YL: IF V1 -XB% > = 0 AND V2 -XB% <190 AND YB% -W1 > = 0 AND YB% -W2 <190 THEN 4005
4002 CALL 768: GOSUB 80:IB = 1
4003 XB% = V1:YB% = W1: IF PEEK(NT +LR +3 *Q) = 1 THEN XB% = XB% - INT(192 -V2 +V1)/2: IF PEEK(NT +LR +Q) = 1 THEN XB% = XB% + INT(V1 -XB%)/2
4004 IF PEEK(NT +LR) = 1 THEN YB% = YB% +192 -W1 +W2: IF PEEK(NT +LR +2 *Q) = 1 THEN YB% = YB% - INT(YB% -W1)/2
4005 XB% = INT((XB%/4) +.5) *4:YB% = INT((YB%/4) +.5) *4:LR = KR:NS = 5: GOSUB 3000:XL = XA -XB%:YL = YB% -YA
4007 FOR I = 17 TO 19: POKE KG,I: CALL KC: NEXT :V1 = V1 -XB%:V2 = (V2 -XB%) -2:W1 = YB% -W1:W2 = (YB% -W2) -2: POKE K8 +5,V1: POKE K8 +6,V2: POKE K8 +7,W1: POKE K8 +8,W2: IF PEEK(MT +KR) >0 AND PEEK(MN +KR) >0 THEN CALL K3 +9: POKE K7 +8,1: GOTO 4009
4008 CALL K4
4009 QY = 0:Q$ = "ROOM NO: " + STR$(KR): GOSUB 75
4010 IF PEEK(K7 +8) >0 THEN CALL K2 +6
4030 FOR IR = 0 TO 3:I = KR +IR *Q: IF PEEK(NT +I) = 1 AND PEEK(NO +I) >0 THEN LR = PEEK(NO +I): GOSUB 3000
4040 NEXT IR: CALL K3:LR = KR:KR = 0: GOSUB 840:KR = LR
4041 IF IB = 0 THEN 4060
4042 IF XL V2 -16 THEN XL = V2 -16
4050 IF YL W2 -14 THEN YL = W2 -14
4060 POKE K9 +2,XL: POKE K9 +5,YL: POKE K9,XL: POKE K9 +3,YL: CALL K1: RETURN
5000 KR = 1: POKE K6 +1,KR: GOSUB 1200
5010 QY = 1:Q$ = "WOUNDS: 100%": GOSUB 75:QY = 2:Q$ = "FATIGUE:100%": GOSUB 75:QY = 3:Q$ = "WEIGHT: " + STR$(WC): GOSUB 75: GOSUB 73: GOSUB 74
5030 GOSUB 3990
5044 CALL K4 +9: GOTO 7400
5370 IF TA <1 THEN GOTO 5860
5372 POKE K5 +1,XL: POKE K5 +2,YL: ON KF GOTO 5375,5378,5381,5384
5375 YL = YL -24: GOTO 5385
5378 XL = XL +24: GOTO 5385
5381 YL = YL +24: GOTO 5385
5384 XL = XL -24: GOTO 5385
5385 IF YL W2 -14 OR XL >V2 -14 OR XL = 1 THEN IA = I -5: POKE K9 +34,0:KM = 0: POKE K5 +5,IA: ON IA GOTO 5400,5400,5400,5500,5490
5395 D1$ = "TOO TIRED":D2$ = "": GOSUB 42: GOTO 7000
5400 IF ABS(XL -XM) >20 OR ABS(YL -YM) >20 THEN D1$ = "TOO FAR":D2$ = "TO HIT": GOSUB 42: GOTO 7000
5405 IF KF = 1 AND (YL 16) THEN 5860
5410 IF KF = 2 AND (XL >XM OR ABS(YL -YM) >16) THEN 5860
5415 IF KF = 3 AND (YL >YM OR ABS(XL -XM) >16) THEN 5860
5420 IF KF = 4 AND (XL 16) THEN 5860
5430 M = TM(IA):K = 0: GOSUB 600:P = PB -( PEEK(KB +22) -9)/3 * EXP( -2 * PEEK(K9 +19)/PH) + PEEK(K7 +1)/3 -ZA(IA):R = RND(1) *20: IF R

WM THEN AK = WM
5437 IF AK < PEEK(K7) THEN AK = PEEK(K7)
5440 IF PEEK(US + PEEK(K7 +3)) < >2 OR PEEK(KB +10) >0 AND IA <3 OR IA = 5 THEN MP = PEEK(K7 +2) -AK + PEEK(K7): POKE K7 +2,MP *(MP >0): POKE K9 +34,0
5450 GOTO 6990
5490 IF PEEK(KV +5) < >0 THEN 5860
5492 POKE K6 +6,20:KM = 5: IF PEEK(KB +14) < = 0 THEN 7000
5495 POKE KB +14, PEEK(KB +14) -1: GOSUB 74: GOTO 5505
5500 IF PEEK(KV +5) < >0 THEN 5860
5501 POKE K6 +6,12: IF PEEK(KB +13) < = 0 THEN 7000
5502 POKE KB +13, PEEK(KB +13) -1: GOSUB 73
5505 POKE KV +5,KF
5510 IF KF = 1 THEN LX = XL -4:LY = YL -8
5515 IF KF = 2 THEN LX = XL +4:LY = YL -4
5520 IF KF = 3 THEN LX = XL -4:LY = YL +8
5530 IF KF = 4 THEN LX = XL -12:LY = YL -4
5535 POKE K6 +4,LX: POKE K6 +5,LY
5540 CALL K4 +6:M = 5: GOTO 640
5600 K = KR +KF *Q -Q: IF PEEK(NT +K) = 2 THEN ON KF GOTO 5602,5604,5606,5608
5601 GOTO 7000
5602 IF XL >V1 +4 * PEEK(D1 +K) +4 AND XL W1 +12 THEN 5609
5603 GOTO 7000
5604 IF YL <(W2 -4) -4 * PEEK(D1 +K) AND YL >(W2 +4) -4 * PEEK(D2 +K) AND XL V1 +4 +4 * PEEK(D1 +K) AND XL <(V1 -4) +4 * PEEK(D2 +K) AND YL = (W2 -4) -4 * PEEK(D1 +K) OR YL < = (W2 +4) -4 * PEEK(D2 +K) OR XL >V1 +16 THEN 7000
5609 POKE NT +K,1:IJ = 0: ON KF GOSUB 5660,5620,5680,5640: CALL K4 +18
5610 LR = PEEK(NO +K):NS = KF +1: IF NS >3 THEN NS = NS -4
5611 IF LR = 0 THEN 7000
5612 POKE NT +LR +NS *Q,1:NS = 5: GOSUB 3000: GOTO 7000
5620 XX = V4 -XB% -8
5630 I1 = 3 +IJ:YY = YB% -W4 -4 * PEEK(D2 +K):L = PEEK(D2 +K) - PEEK(D1 +K): GOSUB 120: RETURN
5640 XX = V3 -XB%: GOTO 5630
5660 YY = YB% -W3
5670 I1 = 1 +IJ/2:XX = V3 -XB% +4 * PEEK(D1 +K):L = PEEK(D2 +K) - PEEK(D1 +K): GOSUB 150: RETURN
5680 YY = YB% -W4 -8: GOTO 5670
5700 K = KR +(KF -1) *Q: IF PEEK(K +NT) = 3 AND RND(1) *40 <20 + PEEK(KB +21) THEN POKE K +NT,2:D1$ = "A SECRET":D2$ = "DOOR!": GOSUB 41: CALL K4 +24: GOSUB 84:IJ = -2:LR = KR: ON KF GOSUB 5660,5620,5680,5640: GOTO 7000
5710 D1$ = "NOTHING":D2$ = "": GOSUB 41: GOTO 7000
5800 N = PEEK(TR +KR): IF N = 0 OR ABS(XL -(V1 +4 * PEEK(XR +KR))) >12 OR ABS(YL -(W2 -4 * PEEK(YR +KR))) >12 THEN D1$ = "YOU CAN'T":D2$ = "": GOSUB 41: GOTO 7000
5801 POKE TR +KR,0:D1$ = "TREASURE #" + STR$(N):D2$ = "": GOSUB 41: CALL K4 +24: POKE KA +N -81, PEEK(KA +N -81) +1:WC = WC + PEEK(TW +N):QY = 3:Q$ = "WEIGHT: " + STR$(WC): GOSUB 75: POKE K9 +34,0
5802 GOSUB 630
5803 CALL K3 +3:I = PEEK(TS +N): IF I >100 THEN J = KB +I -81: POKE J, PEEK(J) +1:J = KA +I -197: POKE J, PEEK(J) +1: GOTO 7000
5804 ON I +1 GOTO 7000,5810,5815,5825,5830,5835,5805,5840,5845,5846,10000
5805 POKE KA -89,1: GOTO 7000
5810 J = INT( RND(1) *6):D1$ = STR$(J) +" ITEMS":D2$ = "": GOSUB 42: POKE KB +6, PEEK(KB +6) +J: GOTO 7000
5815 POKE KB,4: GOTO 7000
5820 Q$ = "USE SWORD?"QY = 8: GOSUB 75: POKE KG,9: CALL KC: GOSUB 500: IF L = 0 THEN 5820
5821 POKE KG,8: CALL KC: IF C$ = "Y" THEN PB = PB +SM:SM = ( RND(1) *4) +( RND(1) *4) -4:PB = PB -SM:WM = AS *(7 +SM) +.5: IF SM >0 THEN SM = SM - INT(2 - PEEK(KA)/2): IF SM >1 THEN D1$ = "IT GLOWS!":D2$ = "": GOSUB 42
5822 IF C$ < >"Y" THEN POKE KA +N -81, PEEK(KA +N -81) -1:WC = WC - PEEK(TW +N): POKE KG,8: CALL KC: POKE KG,9: CALL KC: GOSUB 630
5823 GOTO 7000
5825 J = INT( RND(1) *20): GOSUB 60: POKE KB +13, PEEK(KB +13) +J: GOSUB 73: GOTO 7000
5830 J = INT( RND(1) *10): GOSUB 60: POKE KB +14, PEEK(KB +14) +J: GOSUB 74: GOTO 7000
5835 POKE KA -90,1: POKE KB +19, PEEK(KB +19) +1: GOTO 7000
5840 POKE KA -88,1: GOTO 7000
5845 POKE KA -87,1: GOTO 7000
5846 POKE K8,75: POKE KA +2235,75: GOTO 7000
5850 ON KF GOTO 5851,5853,5855,5857
5851 YY = W2 -YL +14:XX = XL -V1: IF YL V2 -22 THEN 5860
5854 GOTO 5852
5855 YY = W2 -YL -10:XX = XL -V1: IF YL >W2 -22 THEN 5860
5856 GOTO 5852
5857 YY = W2 -(YL -4):XX = (XL -V1) -12: IF XL 20 THEN 5870
5867 I = PEEK(KA +JJ -81): IF I <1 THEN 5870
5868 POKE KA +JJ -81,I -1:WC = WC - PEEK(TW +JJ): POKE KG,8: CALL KC:QY = 3:Q$ = "WEIGHT: " + STR$(WC): GOSUB 75: GOSUB 630
5869 IF PEEK(TR +KR) = 0 AND PEEK(TS +JJ) = 0 THEN POKE TR +KR,JJ: POKE XR +KR,XX: POKE YR +KR,YY: CALL K3 +3
5870 POKE KG,8: CALL KC: POKE KG,9: CALL KC: GOTO 7000
5900 IF RND(1) *100 <.3 *( PEEK(KB +20) + PEEK(KB +22)) * PEEK(UI + PEEK(K7 +3)) THEN 5910
5905 GOTO 7000
5910 D1$ = "PASS BY":D2$ = "": GOSUB 41: POKE K9 +34,1: GOTO 7000
6100 IF PEEK(KB +11) >0 THEN POKE KB +11, PEEK(KB +11) -1:J = 0: GOTO 6110
6105 GOTO 6150
6110 POKE K9 +19, PEEK(K9 +19) +1 +J: IF PEEK(K9 +19) >PH THEN POKE K9 +19,PH
6120 GOSUB 630
6130 QY = 1:Q$ = "WOUNDS: " + STR$( INT(100 * PEEK(K9 +19)/PH +.5)) +"%": GOSUB 75: GOTO 7000
6140 I = KB +6: IF PEEK(I) >0 THEN POKE I, PEEK(I) -1:J = RND(1) *6 +1: GOTO 6110
6150 D1$ = "NONE LEFT":D2$ = "": GOSUB 42: GOTO 5044
6200 JJ = PEEK(KB +21):I = PEEK(NO +KR +Q *KF -Q): IF I = 0 OR PEEK(MN +I) = 0 OR RND(1) *1000 >JJ *JJ + PEEK(KA -89) *700 THEN D1$ = "NOTHING":D2$ = "": GOSUB 41: GOTO 7000
6210 T = PEEK(K7 +3):C$ = Q$: POKE K7 +3, PEEK(MT +I): CALL K3 +6: CALL KP: POKE K7 +3,T:Q$ = C$: GOTO 7000
6300 IF PEEK(NP +KR) >0 AND RND(1) *20 < PEEK(KB +21) THEN GOSUB 670: GOTO 7000
6310 D1$ = "NOTHING":D2$ = "": GOSUB 41: GOTO 7000
6500 POKE K9 +2, PEEK(K9): POKE K9 +5, PEEK(K9 +3): ON I GOTO 6505,6520,6540,6560,6580
6505 GOSUB 90: IF PEEK(K5 +7) = 1 AND KF < >3 THEN 7000
6507 IF KF < >1 THEN CALL K2:KF = 1: POKE K9 +18,KF: CALL K1
6510 GOTO 7000
6520 GOSUB 90: IF PEEK(K5 +7) = 1 AND KF < >2 THEN 7000
6522 IF KF < >4 THEN CALL K2:KF = 4: POKE K9 +18,KF: CALL K1
6530 GOTO 7000
6540 POKE K5,0: GOTO 7000
6560 GOSUB 90: IF PEEK(K5 +7) = 1 AND KF < >4 THEN 7000
6562 IF KF < >2 THEN CALL K2:KF = 2: POKE K9 +18,KF: CALL K1
6570 GOTO 7000
6580 GOSUB 90: IF PEEK(K5 +7) = 1 AND KF < >1 THEN 7000
6582 IF KF < >3 THEN CALL K2:KF = 3: POKE K9 +18,KF: CALL K1
6590 GOTO 7000
6600 D1$ = "TREASURE":D2$ = "INVENTORY": GOSUB 41:Q$ = " TR. NO.":QY = 8: GOSUB 75: FOR I = 1 TO 9:Q$ = " " + STR$(I) +" " + STR$( PEEK(KA +I -81)):QY = 9: GOSUB 75: FOR J = 1 TO 1000: NEXT : POKE KG,9: CALL KC: NEXT
6610 FOR I = 10 TO 20:Q$ = " " + STR$(I) +" " + STR$( PEEK(KA +I -81)):QY = 9: GOSUB 75: FOR J = 1 TO 1000: NEXT : POKE KG,9: CALL KC: NEXT : FOR QY = 5 TO 9: POKE KG,QY: CALL KC: NEXT : GOTO 7000
6700 D1$ = "GAME HELD":D2$ = "": GOSUB 41:D1$ = "PRESS RETURN":D2$ = "TO CONTINUE": GOSUB 42: WAIT -16384,128
6710 POKE -16368,0: FOR I = 5 TO 9: POKE KG,I: CALL KC: NEXT : GOTO 7000
6800 KR = PEEK(K6 +1): GOSUB 4000: GOTO 5044
6820 GOTO 10000
6840 AK = INT( RND(1) *7) +KM:M = 0: GOTO 5437
6860 GOTO 11000
6880 GOSUB 630: GOTO 5044
6990 K = 1: GOSUB 600: IF M < >0 THEN 640
7000 CALL K4 +12
7400 XL = PEEK(K9):XM = PEEK(K9 +1):YL = PEEK(K9 +3):YM = PEEK(K9 +4):KF = PEEK(K9 +18):TA = PEEK(K8 +2)
7405 IF TA >127 THEN TA = TA -256
7500 I = PEEK(K9 +30): ON I GOTO 6500,6500,6500,6500,6500,5390,5390,5390,5390,5390,5800,5700,5370,5900,6100,6200,6300,6140,5850,5600,6600,6700,6800,6820,6840,6860,6880
7505 GOTO 5044
10000 HOME : HGR : POKE -16302,0:QX = 14:QY = 10:Q$ = "THOU LEAVEST THE DUNJON.": GOSUB 16200: POKE -16368,0
10006 IF SM <0 THEN SM = 0
10008 POKE KB +10,SM
10010 QX = 14:QY = 12:Q$ = "EXPERIENCE: " + STR$( PEEK(KB +1) +256 * PEEK(KB +2) +65536 * PEEK(KB +3)): GOSUB 16200:QX = 14:QY = 14:Q$ = "DOST THOU WISH TO REENTER?": GOSUB 16200: GET C$: PRINT : IF C$ = "Y" THEN RUN
10012 D$ = CHR$(4): HGR : POKE -16302,0
10020 GOSUB 82: GOSUB 82:QX = 14:QY = 10:Q$ = "WOULDST THOU SAVE THY CHARACTER": GOSUB 16200:QX = 14:QY = 12:Q$ = "BEFORE RETURNING TO THE INN?": GOSUB 16200: GET C$: PRINT : IF C$ < >"Y" THEN 10060
10025 HGR : POKE -16302,0:QX = 14:QY = 10:Q$ = "INSERT THE DISK 'PON WHICH THOU": GOSUB 16200:QX = 0:QY = 12:Q$ = "SAVE THY CHARACTER, AND THEN": GOSUB 16200:QX = 0:QY = 14:Q$ = "STRIKE ANY KEY.": GOSUB 16200: GET A$: PRINT
10030 C$ = "": FOR I = 0 TO 10:C$ = C$ + CHR$( PEEK(KB -11 +I)): NEXT :QX = 14:QY = 10:Q$ = "STORING THE ADVENTURER": HGR : POKE -16302,0: GOSUB 16200:QX = 14:QY = 12:Q$ = "HIGHT " +C$: GOSUB 16200
10040 PRINT D$;"OPEN "C$: PRINT D$;"WRITE "C$: FOR I = 61 TO 96:J = PEEK(KA -I): PRINT J: NEXT I:J = PEEK(KA): PRINT J: FOR I = 0 TO 37:J = PEEK(KB -12 +I): PRINT J: NEXT I: PRINT D$;"CLOSE"
10059 QX = 14:QY = 14:Q$ = "THY CHARACTER IS SAVED.": GOSUB 16200: FOR I = 1 TO 2000: NEXT
10060 HGR : POKE -16302,0:QX = 14:QY = 8:Q$ = "WOULDST THOU SAVE THE CURRENT": GOSUB 16200:QX = 0:QY = 10:Q$ = "STATE OF THE DUNJON?": GOSUB 16200: GET C$: PRINT : IF C$ < >"Y" THEN 10081
10070 QX = 14:QY = 12:Q$ = "WHAT LEVEL (A NUMBER) SHOULD": GOSUB 16200:QX = 14:QY = 14:Q$ = "I CALL IT?": GOSUB 16200:QX = 91: GOSUB 16100:J = QC: IF J <5 THEN QX = 14:QY = 16:Q$ = "ART THOU SURE?": GOSUB 16200: GET C$: PRINT : IF C$ < >"Y" THEN HGR : POKE -16302,0: GOTO 10060
10073 QX = 14:QY = 8: HGR : POKE -16302,0:Q$ = "INSERT THE DISI 'PON WHICH THOU": GOSUB 16200:QX = 14:QY = 10:Q$ = "WOULDST SAVE THE LEVEL, AND": GOSUB 16200:QX = 14:QY = 12:Q$ = "STRIKE ANY KEY.": GOSUB 16200: GET C$: PRINT
10075 C$ = "DATA" + STR$(J): PRINT "SAVING AS "C$: PRINT D$;"BSAVE"C$;",A$1062,L$8BE": PRINT D$;"BSAVE SHAPE" STR$(J);",A$800,L$7FF"
10080 QX = 14:QY = 16:Q$ = "THE LEVEL IS SAVED.": GOSUB 16200
10081 ONERR GOTO 10085
10082 PRINT CHR$(4)"VERIFYINN": GOTO 10090
10085 POKE 216,0: HGR : POKE -16302,0:QX = 14:QY = 8:Q$ = "INSERT THE DISK HOLDING THE": GOSUB 16200:QX = 0:QY = 10:Q$ = "INNKEEPER PROGRAM, AND THEN": GOSUB 16200:QX = 0:QY = 12:Q$ = "STRIKE ANY KEY.": GOSUB 16200: GET C$: PRINT
10090 QX = 14:QY = 14:Q$ = "NOW LOADING THE INNKEEPER.": GOSUB 16200: POKE 216,0: HIMEM: 38400: PRINT CHR$(4)"RUNINN"
11000 HOME : HGR : POKE -16302,0:QX = 14:QY = 2:Q$ = "THOU ART SLAIN!": GOSUB 16200: FOR I = 1 TO 2500: NEXT : HGR : POKE -16302,0:I = ( SQR( RND(1) *16) +.7): POKE -16368,0
11005 D$ = CHR$(4): ON I GOTO 11010,11030,11040,11020
11010 QX = 14:QY = 2:Q$ = "THOU ART EATEN!": GOSUB 16200: POKE KB -12,0:SM = PEEK(KB +10): FOR I = 1 TO 4000: NEXT : GOTO 10081
11020 QX = 14:QY = 2:Q$ = "BENEDIC THE CLERIC FOUND THEE!": GOSUB 16200: FOR I = 1 TO 4000: NEXT : GOTO 10006
11030 QX = 14:QY = 2:Q$ = "LOWENTHAL THE MAGE FOUND THEE!": GOSUB 16200: FOR I = 81 TO 90: POKE KA -I,0: NEXT I: FOR I = 1 TO 4000: NEXT : GOTO 10006
11040 QX = 14:QY = 2:Q$ = "OLIAS THE DWARF FOUND THEE!": GOSUB 16200: FOR I = 61 TO 90: POKE KA -I,0: NEXT : POKE KB +10,0:SM = 0: POKE KB +16,0: POKE KB +14,0: POKE KB +6,0: FOR I = 1 TO 4000: NEXT : GOTO 10006
16000 FOR I = 1 TO 9: READ QY,Q$: GOSUB 75: NEXT I: RETURN
16100 C$ = "":QC = 0
16105 GET A$: PRINT : IF ASC(A$) = 8 AND QC = 0 THEN 16105
16106 IF ASC(A$) < >8 THEN 16115
16110 QC = QC -1: IF QC = 0 THEN C$ = "": GOTO 16112
16111 C$ = LEFT$(C$, LEN(C$) -1)
16112 QX = QX -7: HCOLOR= 0: FOR QZ = QY *8 TO QY *8 +7: HPLOT QX,QZ TO QX +6,QZ: NEXT : GOTO 16105
16115 IF ASC(A$) = 13 THEN QC = VAL(C$): RETURN
16120 QC = QC +1: IF QC = 13 THEN QC = 12: GOTO 16105
16125 C$ = C$ +A$:Q$ = A$: GOSUB 16200:QX = QX +7: GOTO 16105
16200 POKE KG,QY: POKE KG +2, INT(QX/256): POKE KG +1,QX -256 *(QX >255):Q$ = Q$: CALL 7601: RETURN

Text found in 113b.dsk/TAIPAN START.txt:

POKE103,1:POKE104,64:POKE16384,0
BLOAD TAIPAN.B
RUN TAIPAN

Text found in 113b.dsk/TAIPAN.bas:

10 CLEAR :WK$ = "*":CH$ = "*":CH% = 0:WU% = 0:R1% = 0:I = 0:J = 0:K = 0:II = 0:IJ = 0:IK = 0:T = 300:LT = LOG(10):T$ = "Taipan": GOTO 10000
90 REM
92 FOR II = 1 TO T:II = II +( PEEK( -16384) >127) *9999: NEXT II
94 FOR II = 1 TO T/2:II = II +( PEEK( -16384) >127) *9999: NEXT II
96 FOR II = 1 TO T/2:II = II +( PEEK( -16384) >127) *9999: NEXT II
98 POKE -16368,0: RETURN
100 CALL 2560: RETURN
150 WK$ = "" +" ": CALL 2680:W = VAL(WK$):R1% = LEFT$(WK$,1) = "A": RETURN
200 REM
210 PRINT FS$;HM$;CS$; SPC( 12 - LEN(H$)/2): PRINT "Firm: ";CA$;H$;CS$;", ";:X = USR(1): PRINT
220 VTAB 2: PRINT CG$;"[";: & 45,26: PRINT "]": FOR II = 1 TO 5: PRINT "!"; TAB( 28);"!": NEXT II: PRINT "(";: & 61,26: PRINT ")": FOR II = 1 TO 5: PRINT "!"; TAB( 28);"!": NEXT II: PRINT "<";: & 58,26: PRINT ">";CS$
230 VTAB 3: HTAB 2:X = USR(1) + USR(2): VTAB 4: HTAB 21: PRINT "In use:": VTAB 6: HTAB 21: PRINT "Vacant:": VTAB 9: HTAB 2: PRINT "Hold Guns";
240 FOR II = 3 TO 9 STEP 6: FOR IJ = 1 TO 4: VTAB II +IJ: HTAB 5: PRINT LEFT$(CO$(IJ),7);: NEXT IJ,II
250 VTAB 3: HTAB 33: PRINT "Date": VTAB 6: HTAB 31:X = USR(3): VTAB 9: HTAB 33: PRINT "Debt": VTAB 12: HTAB 29: PRINT " Ship status":
260 VTAB 16: HTAB 1: PRINT CG$;: & 45,40: PRINT CS$
270 RETURN
300 REM
310 VTAB 4: HTAB 30: PRINT "15 ";YE: VTAB 4: HTAB 33: PRINT IV$; MID$ ("JanFebMarAprMayJunJulAugSepOctNovDec",(MO -1) *3 +1,3);NV$
311 VTAB 7: HTAB 31: PRINT " ": VTAB 7: HTAB 35 - LEN(LO$(LO))/2 +.5: PRINT IV$;LO$(LO);NV$
312 VTAB 10: HTAB 29: PRINT " ": VTAB 10:WW = DW: GOSUB 600: HTAB 35 - LEN(WW$)/2: PRINT IV$;WW$;NV$
313 WW = 100 - INT(DM/SC *100 +.5):WW = WW *(WW >0):W = INT(WW/20): VTAB 13: HTAB 30: IF W <2 THEN PRINT IV$;
314 PRINT ST$(W);":";WW;: IF PEEK(36) >30 THEN PRINT TAB( 40);" ";
315 PRINT NV$;
316 VTAB 5: HTAB 22: PRINT " ";: HTAB 22: PRINT WS: VTAB 7: HTAB 22: PRINT " ";: HTAB 22: PRINT WC -WS
320 POKE 32,12: FOR II = 1 TO 2: POKE 33,(II -1) *9 +6:IK = II *6 -3: POKE 34,IK: POKE 35,IK +4: PRINT HM$: FOR IJ = 1 TO 4: VTAB IK +IJ: HTAB 1: PRINT ST(II,IJ);: NEXT IJ,II
330 PRINT FS$: VTAB 15: HTAB 1:WW = CA: GOSUB 600: PRINT "Cash:";WW$; TAB( 21);:WW = BA: GOSUB 600: PRINT "Bank:";WW$; TAB( 40);" ": VTAB 9: HTAB 22: PRINT GN;: HTAB 7: PRINT " ";: HTAB 7
340 IF MW <0 THEN PRINT IV$;"Overload";NV$
350 IF MW > = 0 THEN PRINT MW;
360 RETURN
400 REM
410 POKE 32,0: POKE 33,40: POKE 34,18: POKE 35,24: PRINT HM$;: RETURN
480 VTAB 17: HTAB 1:X = USR(4): RETURN
490 VTAB 17: HTAB 1:X = USR(5): RETURN
500 REM
510 GOSUB 400:X = USR(6): GOSUB 150: IF R1% THEN W = CA
530 IF CA > = W THEN CA = CA -W:BA = BA +W: GOSUB 300: GOTO 550
540 PRINT : PRINT : PRINT T$;:X = USR(8): PRINT CA: PRINT "in cash.": CALL 2518: GOSUB 94: GOTO 510
550 GOSUB 400:X = USR(7): GOSUB 150: IF R1% THEN W = BA
570 IF BA > = W THEN BA = BA -W:CA = CA +W: GOSUB 300: GOTO 590
580 PRINT : PRINT : PRINT T$;:X = USR(8): PRINT BA: PRINT "in the bank.": CALL 2518: GOSUB 94: GOTO 550
590 RETURN
600 IF WW <1E6 THEN WW$ = STR$( INT(WW)): RETURN
610 II = INT( LOG(WW)/LT):IJ = INT(II/3) *3:IK = 10 ^(II -2):WW$ = LEFT$( STR$( INT(WW/IK +.5) *IK/10 ^IJ),4) +" "
620 IF IJ = 3 THEN W$ = "Thousand"
630 IF IJ = 6 THEN W$ = "Million"
640 IF IJ = 9 THEN W$ = "Billion"
650 IF IJ = 12 THEN W$ = "Trillion"
680 WW$ = WW$ +W$
690 RETURN
1000 REM
1010 IF D < >0 THEN GOSUB 490: GOSUB 400:X = USR(9): PRINT LO$(D): GOSUB 96:BA = INT(BA +BA *.005):DW = INT(DW +DW *.1):TI = TI +1:MO = MO +1:LO = D
1020 IF MO >12 THEN YE = YE +1:MO = 1:EC = EC +10:ED = ED +.5: FOR I = 1 TO 7: FOR J = 1 TO 4:BP%(I,J) = BP%(I,J) + FN R(2): NEXT J,I
1030 GOSUB 400: GOSUB 480: GOSUB 300: IF LO < >1 THEN 1500
1040 IF LI < >0 OR CA = 0 THEN 1120
1050 WW = 0:W = 1.8: IF TI >12 THEN WW = FN R(1000 *TI) +1000 *TI:W = 1
1060 I = FN R(CA/W) +WW:WW = I: GOSUB 600: GOSUB 400:X = USR(10): PRINT WW$;" ";:X = USR(11):CH$ = "NY": GOSUB 100: IF CH% < >2 THEN 1120
1065 LI = 1:CA = CA -I: IF CA >0 THEN 1100
1070 GOSUB 400: PRINT T$;:X = USR(12): CALL 2512: PRINT : PRINT :X = USR(13):CH$ = "YN": GOSUB 100
1080 IF CH% = 1 THEN DW = DW -CA:CA = 0: GOSUB 400:X = USR(14): CALL 2521: GOSUB 94
1090 IF CH% = 2 THEN CA = 0:LI = 0: GOSUB 400:X = USR(15): PRINT T$;".": CALL 2518: GOSUB 94
1100 GOSUB 300
1120 IF DM = 0 THEN 1210
1130 GOSUB 400: PRINT T$;:X = USR(16):CH$ = "YN": GOSUB 100: IF CH% = 2 THEN 1210
1140 BR = INT(( FN R(60 *(TI +3)/4) +25 *(TI +3)/4) *SC/50)
1142 WW = INT(DM/SC *100 +.5)
1145 GOSUB 400:X = USR(17): PRINT WW;"% damaged.": PRINT :WW = BR *DM +1: GOSUB 600:X = USR(18): PRINT WW$;","
1150 X = USR(19): GOSUB 150: IF R1% = 1 THEN W = BR *DM +1: IF CA 0)): GOSUB 300: GOSUB 400
1210 IF DW <10000 OR WN OR D = 0 THEN 1300
1220 GOSUB 400: PRINT "Elder Brother Wu has sent "; FN R(100) +50;" braves": PRINT "to escort you to the Wu mansion, ";T$;".":WN = 1: GOSUB 94
1230 GOSUB 400:X = USR(20): GOSUB 92
1240 GOSUB 400:X = USR(21): PRINT T$;".";: GOSUB 92
1300 REM
1310 GOSUB 400:X = USR(22):CH$ = "NY":WU% = 1: GOSUB 100:WU% = 0: IF CH% < >2 THEN 1500
1320 W = 0: FOR I = 1 TO 2: FOR J = 1 TO 4:W = W +ST(I,J): NEXT J,I: IF CA OR BA OR W OR GN THEN 1360
1330 BL% = BL% +1:I = INT( FN R(1500) +500):J = FN R(2000) *BL% +1500: GOSUB 400: PRINT "Elder Brother is aware of your plight, ";T$;". He is willing to loan you an additional ";I;" if you will pay back"
1340 PRINT J;". Are you willing, ";T$;"? ";:CH$ = "YN": GOSUB 100: IF CH% = 2 THEN GOSUB 400: PRINT : PRINT "Very well, Taipan, the game is over!": CALL 2512: GOTO 2698
1350 CA = CA +I:DW = DW +J: GOSUB 400: PRINT "Very well, ";T$;". Good joss!!": CALL 2521: GOSUB 300: GOSUB 96: GOTO 1500
1360 IF DW = 0 OR CA = 0 THEN 1400
1370 GOSUB 400:X = USR(23): GOSUB 150: IF R1% THEN W = CA: IF CA >DW THEN W = DW
1380 IF CA > = W THEN CA = CA -W:DW = DW -W: GOSUB 300: GOTO 1400
1390 PRINT : PRINT : PRINT T$;", you have only ";CA: PRINT "in cash.": CALL 2518: GOSUB 94: GOTO 1370
1400 GOSUB 400:X = USR(24): GOSUB 150: IF R1% THEN W = 2 *CA
1420 IF CA *2 > = W THEN CA = CA +W:DW = DW +W: GOSUB 300: GOTO 1450
1430 PRINT : PRINT : PRINT "He won't loan you so much, ";T$;"!": CALL 2518: GOSUB 94: GOTO 1400
1450 REM
1460 IF DW >20000 AND NOT ( FN R(5)) THEN GOSUB 400: PRINT "Bad joss!!": PRINT FN R(3) +1;" of your bodyguards have been killed": PRINT "by cutthroats and you have been robbed of all your cash, ";T$;"!!": CALL 2512:CA = 0: GOSUB 300: GOSUB 94
1500 REM
1610 I = INT(1000 + FN R(1000 *(TI +5)/6)) *( INT(SC/50) *(DM >0) +1): IF CA _______" + CHR$(15) + CHR$(16) +"fine":WW = I: GOSUB 600
1620 GOSUB 400: PRINT "Do you wish to trade in your "; MID$ (W$,(DM = 0) *25 +1,25): PRINT "ship for one with 50 more capacity by paying an additional ";WW$;", ";T$;"? ";
1630 CH$ = "YN": GOSUB 100: IF CH% = 1 THEN CA = CA -I:MW = MW +50:SC = SC +50:DM = 0: GOSUB 300
1700 REM
1710 I = INT( FN R(1000 *(TI +5)/6) +500): IF CA = 10 THEN CA = CA -I:GN = GN +1:MW = MW -10: GOSUB 300: GOTO 1900
1740 PRINT : PRINT : PRINT "Your ship would be overburdened, ";T$;"!": CALL 2518: GOSUB 94
1900 IF ST(2,1) = 0 OR LO = 1 OR FN R(18) THEN 2000
1910 I = FN R(CA/1.8):WW = I: GOSUB 600: GOSUB 400: CALL 2512:X = USR(25) + USR(26): PRINT WW$;", ";T$;"!":MW = MW +ST(2,1):ST(2,1) = 0:CA = CA -I: GOSUB 300: GOSUB 94
2000 W = 0: FOR J = 1 TO 4:W = W +ST(1,J): NEXT J: IF W = 0 OR FN R(50) THEN 2100
2030 GOSUB 400: CALL 2512:X = USR(25) + USR(27): PRINT T$;"!": FOR J = 1 TO 4:W = ST(1,J):WW = FN R(W/1.8):WS = WS -W +WW:ST(1,J) = WW: NEXT J: GOSUB 300: GOSUB 96
2100 FOR I = 1 TO 4:CP(I) = BP%(LO,I)/2 *( FN R(3) +1) *10 ^(4 -I): NEXT I
2310 LI = LI AND FN R(20): IF LI = 0 AND LI% >0 THEN LI% = LI% +1: IF LI% >4 THEN LI% = 0
2330 IF LI = 0 AND LO < >1 AND FN R(4) THEN GOSUB 400:X = USR(28): CALL 2521: GOSUB 94
2410 IF FN R(9) THEN 2500
2420 GOSUB 400:I = FN R(4) +1:J = FN R(2):K = FN R(2) *5: PRINT T$;"!! The price of ";CO$(I)
2430 IF J = 0 THEN CP(I) = INT(CP(I)/5): PRINT "has dropped to ";CP(I);"!!": CALL 2518
2440 IF J = 1 THEN CP(I) = CP(I) *( FN R(5) +5):WW = CP(I): GOSUB 600: PRINT "has risen to ";WW$;"!!": CALL 2518
2450 GOSUB 94
2500 REM
2501 GOSUB 400: IF CA >25000 AND NOT ( FN R(20)) THEN I = FN R(CA/1.4):WW = I: GOSUB 600:X = USR(25): PRINT "You've been beaten up and robbed of": PRINT WW$;" in cash, ";T$;"!!": CALL 2512:CA = CA -I: GOSUB 300: GOSUB 94: VTAB 22: HTAB 1: PRINT CE$
2510 GOSUB 400: PRINT T$;:X = USR(29)
2515 FOR I = 1 TO 3 STEP 2: PRINT TAB( 4); LEFT$(CO$(I),7);": ";CP(I); TAB( 18); LEFT$(CO$(I +1),7);": ";CP(I +1): NEXT I
2520 I = CA +BA -DW: VTAB 22: HTAB 1: PRINT CE$
2522 IF LO < >1 THEN X = USR(30):CH$ = "BSQ"
2524 IF LO = 1 AND I <1E6 THEN X = USR(31) + USR(32):CH$ = "BSQTV"
2526 IF LO = 1 AND I > = 1E6 THEN X = USR(31) + USR(33):CH$ = "BSQTVR"
2528 GOSUB 100: ON CH% GOTO 2530,2570,2700,2620,2680,2695
2530 VTAB 23: HTAB 1: PRINT CE$;"What do you wish me to buy, ";T$;"? ";:CH$ = "OSAG": GOSUB 100:CO$ = CO$(CH%):CP = CP(CH%)
2540 VTAB 22: HTAB 1: PRINT CE$,IV$;: HTAB 31: PRINT " You can ";: VTAB 23: HTAB 31: PRINT " afford ";: VTAB 24: HTAB 31: PRINT " ";:W = INT(CA/CP): IF W >1E9 THEN W = 1E9 -1
2542 HTAB 36 - LEN( STR$(W))/2: PRINT W;NV$;: VTAB 23: HTAB 1: PRINT "How much ";CO$;" shall": PRINT "I buy, ";T$;"? ";: GOSUB 150: IF R1% THEN W = INT(CA/CP): IF W >1E9 THEN W = 1E9 -1
2550 IF W <0 OR CA (WC -WS) AND K = 1 THEN W = (WC -WS)
2627 IF K = 2 THEN 2630
2628 IF W >0 AND WS = WC THEN PRINT : PRINT : PRINT "Your warehouse is full, ";T$;"!": CALL 2518: GOSUB 94: GOTO 2626
2629 IF W >(WC -WS) THEN PRINT : PRINT : PRINT "Your warehouse will only hold an": PRINT "additional ";WC -WS;", ";T$;"!";: CALL 2518: GOSUB 94: GOTO 2626
2630 IF W >ST(I,J) THEN PRINT : PRINT : PRINT "You have only ";ST(I,J);", ";T$;".": CALL 2518: GOSUB 94: GOTO 2626
2632 ST(I,J) = ST(I,J) -W:ST(K,J) = ST(K,J) +W:MW = MW + SGN(I -K) *W:WS = WS + SGN(I -K) *W: GOSUB 300
2634 NEXT K,J: GOTO 2500
2680 REM
2690 GOSUB 500: GOTO 2500
2695 OK = 16
2696 GOSUB 400: PRINT IV$; TAB( 26): PRINT : PRINT " Y o u ' r e a"; TAB( 26): PRINT : PRINT TAB( 26): PRINT : PRINT " M I L L I O N A I R E ! ": PRINT TAB( 26): PRINT NV$: GOSUB 96
2698 : GOSUB 20000
2699 PRINT "Play again? ";:CH$ = "NY": GOSUB 100: ON CH% GOTO 63999: RUN
2700 REM
2810 IF MW <0 THEN GOSUB 400: PRINT "You're ship is overloaded, ";T$;"!!": CALL 2518: GOSUB 94: GOTO 2500
3010 GOSUB 400: PRINT T$;", do you wish to go to:": PRINT "1) Hong Kong, 2) Shanghai, 3) Nagasaki, 4) Saigon, 5) Manila, 6) Singapore, or 7) Batavia ? ";
3020 CH$ = "1234567": GOSUB 100:D = CH%: IF D = LO THEN PRINT : PRINT : PRINT "You're already here, ";T$;".";: CALL 2518: GOSUB 94: GOTO 3010
3030 LO = 0: GOSUB 300: GOSUB 400: GOSUB 490
3100 REM
3110 IF FN R(BP) THEN 3200
3120 SN = FN R(SC/10 +GN) +1: GOSUB 400: CALL 2512: PRINT SN;" hostile ship"; MID$ ("s",(SN = 1) +1,1);" approaching, ";T$;"!!": GOSUB 96:F1 = 1: GOTO 5000
3200 REM
3210 IF FN R(4 +8 *LI) THEN 3300
3220 GOSUB 400: PRINT "Li Yuen's pirates, ";T$;"!!": CALL 2521: GOSUB 94: IF LI THEN PRINT : PRINT "Good joss!! They let us be!!": CALL 2521: GOSUB 94: GOTO 3300
3230 SN = FN R(SC/5 +GN) +5: GOSUB 400: PRINT SN;" ships of Li Yuen's pirate": PRINT "fleet, ";T$;"!!": CALL 2512: GOSUB 94:F1 = 2: GOTO 5000
3300 REM
3310 IF FN R(10) THEN 3350
3320 GOSUB 400: PRINT "Storm, ";T$;"!!": CALL 2521: GOSUB 94: IF NOT ( FN R(30)) THEN PRINT : PRINT " I think we're going down!!": CALL 2521: GOSUB 94: IF FN R(DM/SC *3) THEN PRINT : PRINT "We're going down, Taipan!!": CALL 2512:OK = 1: GOTO 2698
3330 PRINT : PRINT " We made it!!": CALL 2521: GOSUB 94: IF FN R(3) THEN 3350
3340 LO = FN R(7) +1: ON (LO = D) GOTO 3340: GOSUB 400: PRINT "We've been blown off course": PRINT "to ";LO$(LO):D = LO: GOSUB 94
3350 LO = D: GOTO 1000
5000 REM
5030 LC = 0:CMD = 0: PRINT FS$;HM$
5050 VTAB 1: HTAB 1: PRINT " ships attacking, ";T$;"!": VTAB 1: HTAB 32: PRINT CG$;"!": VTAB 2: HTAB 32: PRINT "!": VTAB 3: HTAB 32: PRINT "<::::::::";CS$: VTAB 2: HTAB 37: PRINT "guns": VTAB 1: HTAB 34: PRINT "We have";
5060 PRINT "Your orders are to:"
5080 FOR I = 0 TO 9:AM%(I,0) = 0:AM%(I,1) = 0: NEXT I:SA = SN:S0 = SN:BT = FN R(TI/4 *1000 *SN ^1.05) + FN R(1000) +250:SS = 0
5090 REM
5100 GOSUB 5760: GOSUB 5700:LC = CMD: VTAB 12: HTAB 40: PRINT MID$ ("+ ", NOT (SA) +1,1)
5160 DM = INT(DM):WW = 100 - INT(DM/SC *100): IF WW <0 THEN WW = 0
5162 VTAB 4: PRINT "Current seaworthiness: ";ST$( INT(WW/20));" (";WW;"%)": GOSUB 5600: VTAB 4: PRINT CL$
5165 IF WW = 0 THEN OK = 0: GOTO 5900
5175 GOSUB 5600
5180 ON CMD GOTO 5200,5300,5400
5190 VTAB 4: PRINT T$;", what shall we do??": CALL 2512: GOSUB 5600: ON (CMD = 0) +1 GOTO 5500,5180
5200 REM
5205 VTAB 4: HTAB 1: PRINT CL$: VTAB 4: PRINT "Aye, we'll run, ";T$;"!": GOSUB 96: VTAB 4: PRINT CL$
5207 IF LC = 1 OR LC = 3 THEN OK = OK +IK:IK = IK +1
5208 IF LC = 0 OR LC = 2 THEN OK = 3:IK = 1
5210 IF FN R(OK) > FN R(SN) THEN VTAB 4: PRINT "We got away from 'em, ";T$;"!!": CALL 2518: GOSUB 96: VTAB 4: PRINT CL$:OK = 3: GOTO 5900
5220 VTAB 4: PRINT "Can't lose 'em!!": GOSUB 5600: VTAB 4: PRINT CL$
5230 IF SN >2 AND FN R(5) = 0 THEN W = FN R(SN/2) +1:SN = SN -W:SA = SA -W: GOSUB 5680: GOSUB 5750: VTAB 4: PRINT "But we escaped from ";W;" of 'em, ";T$;"!": GOSUB 5600: VTAB 4: PRINT CL$
5240 GOTO 5500
5300 REM
5302 IF GN = 0 THEN VTAB 4: HTAB 1: PRINT "We have no guns, ";T$;"!!": GOSUB 5600: VTAB 4: PRINT CL$: GOTO 5500
5305 VTAB 4: HTAB 1: PRINT CL$: VTAB 4: PRINT "Aye, we'll fight 'em, ";T$;"!": GOSUB 5600: VTAB 4: PRINT CL$
5310 SK = 0: VTAB 4: PRINT "We're firing on 'em, ";T$;"!": FOR K = 1 TO GN: IF SN = 0 THEN 5340
5320 I = FN R(10): IF AM%(I,0) = 0 THEN 5320
5330 GOSUB 5840:AM%(I,1) = AM%(I,1) + FN R(30) +10: IF AM%(I,1) >AM%(I,0) THEN AM%(I,0) = 0:AM%(I,1) = 0: GOSUB 5860: GOSUB 5820:SK = SK +1:SN = SN -1:SS = SS -1: GOSUB 5750: IF SS = 0 THEN GOSUB 5700
5340 NEXT K: IF SK >0 THEN VTAB 4: HTAB 1: PRINT "Sunk ";SK;" of the buggers, ";T$;"!": CALL 2521: GOSUB 5600: VTAB 4: PRINT CL$
5350 IF SK = 0 THEN VTAB 4: HTAB 1: PRINT "Hit 'em, but didn't sink 'em, ";T$;"!": GOSUB 5600: VTAB 4: PRINT CL$
5360 IF FN R(S0) IK THEN W = IK
5460 ST(2,J) = ST(2,J) -W:WW = WW +W:MW = MW +W: NEXT J: VTAB 4: HTAB 1: PRINT CL$
5470 IF WW = 0 THEN VTAB 4: PRINT "There's nothing there, ";T$;"!": CALL 2518: GOSUB 5600: VTAB 4: PRINT CL$
5480 GOSUB 400: IF WW >0 THEN RF = RF +WW/3:OK = OK +WW/10: VTAB 4: PRINT "Let's hope we lose 'em, ";T$;"!": CALL 2521: GOSUB 5600: VTAB 4: PRINT CL$: GOTO 5210
5500 REM
5505 IF SN = 0 THEN VTAB 4: PRINT "We got 'em all, ";T$;"!!": CALL 2521: GOSUB 5600:OK = 1: GOTO 5900
5510 VTAB 4: PRINT "They're firing on us, ";T$;"!": GOSUB 5600: VTAB 4: PRINT CL$
5540 FOR I = 1 TO 10: POKE -16298,0: POKE -16299,0: POKE -16297,0: POKE -16300,0: FOR J = 1 TO 10: NEXT J,I
5542 VTAB 4: PRINT "We've been hit, ";T$;"!!": CALL 2512
5545 I = SN: IF I >15 THEN I = 15
5550 IF GN THEN IF FN R(100) <(DM/SC) *100 OR (DM/SC) *100 >80 THEN I = 1: GOSUB 5600: VTAB 4: PRINT CL$: VTAB 4: PRINT "The buggers hit a gun, ";T$;"!!": CALL 2512:GN = GN -1:MW = MW +10: GOSUB 5600: VTAB 4: PRINT CL$
5555 DM = DM + FN R(ED *I *F1) +I/2
5560 IF NOT ( FN R(20)) AND F1 = 1 THEN OK = 2: GOTO 5900
5590 GOTO 5090
5600 VTAB 2: HTAB 21: FOR II = 1 TO T/3
5610 W = PEEK( -16384): IF W <128 THEN NEXT II: PRINT : RETURN
5620 IF W = 210 THEN CMD = 1: PRINT "Run "
5630 IF W = 198 THEN CMD = 2: PRINT "Fight "
5640 IF W = 212 THEN CMD = 3: PRINT "Throw cargo"
5650 POKE -16368,0: PRINT
5670 RETURN
5680 IF SA > = 0 THEN RETURN
5681 I = 9: FOR IJ = SA TO -1
5682 IF AM%(I,0) = 0 THEN I = I -1: GOTO 5682
5683 AM%(I,0) = 0:AM%(I,1) = 0: GOSUB 5880: GOSUB 5820:I = I -1:SS = SS -1: NEXT IJ: RETURN
5700 REM
5710 FOR I = 0 TO 9: IF AM%(I,0) THEN 5740
5720 SA = SA -1: IF SA <0 THEN SA = 0: RETURN
5730 AM%(I,0) = FN R(EC) +20:AM%(I,1) = 0: GOSUB 5800:SS = SS +1
5740 NEXT I: RETURN
5750 REM
5760 VTAB 1: HTAB 1: PRINT RIGHT$(" " + STR$(SN),4)
5770 VTAB 2: HTAB 33: PRINT RIGHT$(" " + STR$(GN),3): RETURN
5800 GOSUB 5880: HTAB X: VTAB Y: PRINT SH$: RETURN
5820 GOSUB 5880: HTAB X: VTAB Y: PRINT SB$: RETURN
5840 GOSUB 5880: POKE 2493,(Y +4) *8 -1: POKE 2494,X -1: FOR J = 0 TO 1:IJ = FN R(6):II = DL%(IJ,J): HTAB X + INT(II/10): VTAB Y +II - INT(II/10) *10: PRINT DM$(IJ,J): NEXT J: CALL 2368: RETURN
5860 GOSUB 5880: POKE 2361,(Y +4) *8 -1: POKE 2362,X -1: POKE 2300, FN R( FN R(192)): CALL 2224: RETURN
5880 X = (I - INT(I/5) *5) *8 +1:Y = INT(I/5) *6 +7: RETURN
5900 GOSUB 200: GOSUB 300: GOSUB 400
5910 IF OK = 0 THEN PRINT "The buggers got us, ";T$;"!!!": PRINT "It's all over, now!!!":OK = 1: GOTO 2698
5920 IF OK = 1 THEN GOSUB 400: PRINT "We've captured some booty":WW = BT: GOSUB 600: PRINT "It's worth ";WW$;"!": CALL 2518:CA = CA +BT: GOSUB 96: GOTO 3300
5930 IF OK = 2 THEN PRINT "Li Yuen's fleet drove them off!": GOSUB 96: GOTO 3220
5940 IF OK = 3 THEN PRINT "We made it, ";T$;"!": CALL 2518: GOSUB 96: GOTO 3300
10000 REM
10010 CALL 6147: POKE 1013,76: POKE 1014,224: POKE 1015,9: POKE 10,76: POKE 11,16: POKE 12,11: POKE 1010,102: POKE 1011,213: POKE 1012,112: DIM LO$(7),CO$(4),CP(4),BP%(7,4),ST(2,4),AM%(9,1),DM$(5,1),DL%(5,1),ST$(5)
10020 DEF FN R(X) = INT( USR(0) *X)
10040 HM$ = CHR$(16):CS$ = CHR$(1) +"0":CA$ = CHR$(1) +"1":CG$ = CHR$(1) +"2":BD$ = CHR$(2):CD$ = CHR$(3):DD$ = CHR$(4):IV$ = CHR$(9):NV$ = CHR$(14):FS$ = CHR$(25):CE$ = CHR$(6):CL$ = CHR$(5)
10045 IF PEEK(2367) = 236 THEN 10070
10050 POKE -16368,0
10060 FOR I = 1 TO 400:CH% = PEEK( -16384):X = USR(0): IF CH% <128 THEN NEXT
10062 VTAB 20: HTAB 31: PRINT IV$;CA$;"'ESC'";: FOR I = 1 TO 20:X = USR(0): IF PEEK( -16384) < >155 THEN NEXT : VTAB 20: HTAB 31: PRINT NV$;CA$ +"'ESC'";: FOR I = 1 TO 20:X = USR(0): IF PEEK( -16384) < >155 THEN NEXT : GOTO 10062
10070 POKE 2367,236: POKE -16368,0: PRINT NV$;FS$;HM$
10110 VTAB 8: HTAB 1: PRINT CG$;"[";: & 45,38: PRINT "]";: FOR I = 1 TO 8: PRINT "!"; TAB( 40);"!";: NEXT I: PRINT "<";: & 58,38: PRINT ">";CS$
10120 VTAB 10: HTAB 7: PRINT CS$;T$;",": VTAB 12: HTAB 3: PRINT "What will you name your": VTAB 15: HTAB 13: & 45,22: VTAB 14: HTAB 7: PRINT "Firm: ";CA$;: & 32,27: VTAB 14: HTAB 13: POKE 33,39: CALL 2200: POKE 33,40:WK$ = MID$ (WK$,1): IF WK$ = "" THEN CALL 2521: GOTO 10120
10130 IF LEN(WK$) >22 THEN PRINT : VTAB 18: PRINT IV$;: & 32,42: PRINT "Please limit your Firm's name to 22 characters or less.";: & 32,59: PRINT NV$: CALL 2518: GOSUB 92: VTAB 18: PRINT CE$: GOTO 10120
10140 H$ = WK$: PRINT HM$;CS$: VTAB 6: PRINT "Do you want to start . . .": PRINT : PRINT : PRINT " 1) With cash (and a debt)": PRINT : PRINT : PRINT ,">> or <<": PRINT : PRINT : PRINT " 2) With five guns and no cash": PRINT ,"(But no debt!)"
10150 PRINT : PRINT : PRINT TAB( 10);" ?";:CH$ = "12": GOSUB 100:MO = 1:YE = 1860:SC = 60:BA = 0:LO = 1:TI = 1:WC = 10000:WS = 0
10160 IF CH% = 1 THEN DW = 5000:CA = 400:MW = 60:GN = 0:BP = 10
10170 IF CH% = 2 THEN DW = 0:CA = 0:MW = 10:GN = 5:BP = 7
10180 FOR I = 0 TO 7: READ LO$(I): NEXT I: DATA At sea,Hong Kong,Shanghai,Nagasaki,Saigon,Manila,Singapore,Batavia
10190 FOR I = 1 TO 4: READ CO$(I): FOR J = 1 TO 7: READ BP%(J,I): NEXT J,I
10200 DATA Opium,11,16,15,14,12,10,13,Silk,11,14,15,16,10,13,12,Arms,12,16,10,11,13,14,15,General Cargo,10,11,12,13,14,15,16
10210 FOR I = 0 TO 5: READ ST$(I): NEXT I: DATA "Critical"," Poor"," Fair"," Good"," Prime","Perfect"
10250 SH$ = BD$ +CG$ +"ABCDEFG" +CD$ +"HIJKLMN" +CD$ +"OIJKLPQ" +CD$ +"RSTUVWX" +CD$ +"YJJJJJZ" +DD$
10260 SB$ = BD$: FOR II = 1 TO 5:SB$ = SB$ +" " +CD$: NEXT II:SB$ = SB$ +DD$
10270 FOR I = 0 TO 5: FOR J = 0 TO 1:CH$ = BD$ +CG$
10280 READ WK$:CH$ = CH$ +WK$: IF RIGHT$(CH$,1) = "*" THEN CH$ = MID$ (CH$,1, LEN(CH$) -1) +CD$: GOTO 10280
10290 DM$(I,J) = CH$ +DD$: READ DL%(I,J): NEXT J,I
10300 DATA cde,20,r,3,fg*,mn,50,tu,23,ij,11,vw,43,0,22,x*,z,63,kl,32,12,14,pq,52,345,34
10310 EC = 20:ED = .5
10990 GOSUB 200: GOTO 1000
20000 REM
20010 WW = CA +BA -DW: GOSUB 600:WW = INT((CA +BA -DW)/100/TI ^1.1)
20020 PRINT FS$;HM$;CS$;: PRINT "Your final status:": PRINT : PRINT "Net Cash: ";WW$: PRINT : PRINT "Ship size: ";SC;" units with ";GN;" guns": PRINT
20030 PRINT "You traded for "; INT(TI/12);" year"; MID$ ("s",(TI >11 AND TI <24) +1,1);" and ";TI - INT(TI/12) *12;" month"; MID$ ("s",((TI - INT(TI/12) *12) = 1) +1,1): PRINT : PRINT IV$;"Your score is ";WW;".";NV$
20040 VTAB 14: PRINT "Your Rating:": PRINT CG$;"[";: & 45,31: PRINT "]": FOR I = 1 TO 5: PRINT "!";: HTAB 33: PRINT "!": NEXT I: PRINT "<";: & 58,31: PRINT ">";CS$: VTAB 16
20050 HTAB 2: IF WW >49999 THEN PRINT IV$;
20060 PRINT "Ma Tsu";NV$;" 50,000 and over "
20070 HTAB 2: IF WW <50000 AND WW >7999 THEN PRINT IV$;
20080 PRINT "Master ";T$;NV$;" 8,000 to 49,999"
20090 HTAB 2: IF WW <8000 AND WW >999 THEN PRINT IV$;
20100 PRINT T$;NV$;" 1,000 to 7,999"
20110 HTAB 2: IF WW <1000 AND WW >499 THEN PRINT IV$;
20120 PRINT "Compradore";NV$;" 500 to 999"
20130 HTAB 2: IF WW <500 THEN PRINT IV$;
20140 PRINT "Galley Hand";NV$;" less than 500"
20170 VTAB 11
20180 IF WW <99 AND WW > = 0 THEN PRINT "Have you considered a land based job?": PRINT
20190 IF WW <0 THEN PRINT "The crew has requested that you stay on shore for their safety!!": PRINT
20900 VTAB 23: RETURN
63999 PRINT FS$;HM$: TEXT : HOME : POKE 103,1: POKE 104,8: END

Text found in 113b.dsk/TCHPAS.txt:

@IC

Text found in 113b.dsk/TEMPLE OF APSHAI.bas:

5 REM TEMPLE REV 3 7/11/82
6 REM MODIFIED FOR TITLES
10 IF PEEK(104) = 96 THEN 30
15 PRINT CHR$(4)"MAXFILES1"
20 POKE 103,1: POKE 104,96: POKE 24576,0
30 TEXT : HOME : PRINT CHR$(4)"BLOAD EPYX,A$2000": POKE -16302,0: POKE -16297,0: POKE -16304,0: PRINT CHR$(4)"RUN TITLE"

Text found in 113b.dsk/TITLE.bas:

0 REM TEMPLE 20713
1 REM APSHAI ANIMATION
2 REM JULY 10, 1980
3 REM LARRY COON
4 REM 3706 WHETSTONE LANE
5 REM FORT WAYNE, IN 46815
6 REM 219-486-1023
7 REM
10 GOTO 1000
97 REM ==============
98 REM = SCENE1 RTN =
99 REM ==============
100 DRAW SEQ(TY) AT X,Y
110 TTY = SEQ(TY +UN): DRAW TTY AT R,S
120 IF TTY < >N7 THEN U = U2:V = V2: GOTO 140
130 U = U1:V = V1
140 DRAW T0 AT U,V
150 DRAW SEQ(TY +TW) AT U,V
160 A1 = U -TW:B1 = V -T4: DRAW SEQ(TY +N3) AT A1,B1
170 A2 = U +T8:B2 = V -T5: DRAW SEQ(TY +N4) AT A2,B2
180 RETURN
197 REM ==============
198 REM = SCENE2 RTN =
199 REM ==============
200 DRAW SEQ(TY) AT X,Y
210 R1 = R -SEQ(TY +UN):S1 = S -SEQ(TY +TW)
220 DRAW T0 AT R1,S1
230 DRAW SEQ(TY +N3) AT R1,S1
240 DRAW SEQ(TY +N4) AT R1 -TW,S1 -T4
250 DRAW SEQ(TY +N5) AT R1 +T8,S1 -T5
260 RETURN
997 REM **********
998 REM ** MAIN **
999 REM **********
1000 HOME :D$ = CHR$(4)
1010 PRINT CHR$(4)"BLOAD TITLESHAPES"
1020 DIM SEQ(124)
1030 UN = 1:TW = 2:N3 = 3:N4 = 4:N5 = 5:N6 = 6:N7 = 7:N8 = 8:N9 = 9:T0 = 10:T1 = 11:T2 = 12:T3 = 13:T4 = 14:T5 = 15:T6 = 16:T7 = 17:T8 = 18
1040 BK = 4:WH = 7:P1 = 32:P2 = 64:PG = 230
1050 FOR I = 1 TO 124: READ SEQ(I): NEXT
1060 A = 145:B = 25:C = 6:D = 80:X = 200:Y = 110:R = X -26:S = Y -1:U1 = X -24:V1 = Y -11:U2 = X -30:V2 = Y -17
1070 HGR : HGR2 : HCOLOR= WH: ROT= 0: SCALE= 1
1097 REM ----------------
1098 REM - INIT PG1 SC1 -
1099 REM ----------------
1100 POKE PG,P1: GOSUB 3000
1110 TY = UN: GOSUB 100:O1 = UN:N1 = T1
1120 POKE -16300,0
1197 REM ----------------
1198 REM - INIT PG2 SC2 -
1199 REM ----------------
1200 POKE PG,P2: GOSUB 3000
1210 TY = N6: GOSUB 100:O2 = N6:N2 = T6
1220 POKE -16299,0
1300 FOR I = UN TO N6
1397 REM --------------
1398 REM - PG1 SCENE1 -
1399 REM --------------
1400 POKE PG,P1
1410 HCOLOR= BK:TY = O1: GOSUB 100
1420 HCOLOR= WH:TY = N1: GOSUB 100
1430 O1 = N1:N1 = N1 +T0
1440 POKE -16300,0
1497 REM --------------
1498 REM - PG2 SCENE1 -
1499 REM --------------
1500 POKE PG,P2
1510 HCOLOR= BK:TY = O2: GOSUB 100
1520 HCOLOR= WH:TY = N2: GOSUB 100
1530 O2 = N2:N2 = N2 +T0
1540 POKE -16299,0
1600 NEXT
1697 REM ----------------
1698 REM - INIT PG1 SC2 -
1699 REM ----------------
1700 POKE PG,P1
1710 HCOLOR= BK:TY = O1: GOSUB 100
1720 DRAW N6 AT R,S: DRAW N7 AT R,S
1730 HCOLOR= WH: DRAW N6 AT R,S: DRAW N7 AT R,S
1740 TY = 71: GOSUB 200:O1 = TY:N1 = 83
1750 POKE -16300,0
1797 REM ----------------
1798 REM - INIT PG2 SC2 -
1799 REM ----------------
1800 POKE PG,P2
1810 HCOLOR= BK:TY = O2: GOSUB 100
1820 DRAW N6 AT R,S
1830 HCOLOR= WH: DRAW T6 AT R,S
1840 TY = 77: GOSUB 200:O2 = TY:N2 = 89
1850 POKE -16299,0
1900 NU = UN
1910 POKE PG,P1: HCOLOR= BK: DRAW N6 AT R,S: DRAW N7 AT R,S
1920 HCOLOR= WH: DRAW T6 AT R,S
1997 REM --------------
1998 REM - PG1 SCENE2 -
1999 REM --------------
2000 POKE PG,P1
2010 HCOLOR= BK:TY = O1: GOSUB 200
2020 HCOLOR= WH:TY = N1: GOSUB 200
2030 O1 = N1:N1 = N1 +T2
2040 POKE -16300,0
2050 IF NU = N4 THEN 2210
2097 REM --------------
2098 REM - PG2 SCENE2 -
2099 REM --------------
2100 POKE PG,P2
2110 HCOLOR= BK:TY = O2: GOSUB 200
2120 HCOLOR= WH:TY = N2: GOSUB 200
2130 O2 = N2:N2 = N2 +T2
2140 POKE -16299,0
2200 NU = NU +UN: GOTO 2000
2210 DRAW T8 AT R1 -20,S1 +1
2220 FOR I = 1 TO 200: NEXT
2230 DRAW T8 AT R1 -22,S1 +3
2297 REM ************
2298 REM ** FINISH **
2299 REM ************
2300 HOME : POKE -16301,0: POKE -16368,0
2310 HTAB 1: VTAB (22): PRINT "COPYRIGHT 1979 AUTOMATED SIMULATIONS"
2320 HTAB (10): PRINT "HIT ANY KEY TO PLAY"
2330 IF PEEK( -16384) <127 THEN 2330
2335 HOME : VTAB 23: PRINT "NOW LOADING THE INNKEEPER . . ."
2340 POKE -16368,0: POKE 103,1: POKE 104,64: POKE 16384,0
2350 PRINT D$"RUN INN"
2997 REM ==============
2998 REM = FIXED BKGD =
2999 REM ==============
3000 POKE 233,8: POKE 232,0
3010 DRAW 17 AT A,B
3020 HCOLOR= 3
3030 DRAW 19 AT C,D
3040 HCOLOR= 7
3050 DRAW 1 AT X,Y
3060 DRAW 6 AT R,S
3070 DRAW 18 AT C,D
3080 RETURN
3997 REM <<<<<<<<<<<>>>>>>>>>>
3998 REM << ANIMATION SEQ'G >>
3999 REM <<<<<<<<<<<>>>>>>>>>>
4000 DATA 3,8,11,15,15
4010 DATA 3,9,12,14,15
4020 DATA 2,8,11,14,13
4030 DATA 3,9,12,13,14
4040 DATA 2,8,11,13,13
4050 DATA 2,9,11,15,14
4060 DATA 2,8,11,14,13
4070 DATA 3,9,12,14,14
4080 DATA 2,7,11,14,15
4090 DATA 2,7,11,15,14
4100 DATA 2,8,11,15,13
4110 DATA 2,9,11,14,13
4120 DATA 2,8,11,14,14
4130 DATA 3,7,11,13,15
4140 DATA 4,20,20,11,15,15
4150 DATA 5,45,12,11,15,15
4160 DATA 5,70,-15,11,14,14
4170 DATA 5,75,-7,11,13,13
4180 DATA 5,80,-20,11,15,15
4190 DATA 5,80,-20,12,13,15
4200 DATA 5,80,-20,11,15,13
4210 DATA 5,80,-20,12,13,15
4220 DATA 5,80,-20,11,15,13