10 PRINT"[147]":POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB60000
15 POKE56,56:POKE55,0:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
22 SYS57812"TRIO TOOLBOX",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
24 SYS57812"TRIO FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
25 DIMTL$(12):DIMG$(12):AD=49152:Q$=CHR$(34)
30 T$="[208] [210] [197] [198] [193] [195] [197]":R$="[211] [207] [204] [213] [212] [201] [207] [206]"
32 TL$(1)="MANOR.INS":TL$(3)="TRUDGE.INS"
35 TL$(2)="MASK.INS":TL$(4)="QUEST.INS"
40 MP$(1)="MANOR.SOL":MP$(3)="TRUDGE.SOL":MP$(2)="MASK.SOL"
45 G$(1)="MANOR":G$(3)="TRUDGE":G$(2)="MASK"
95 GOTO200
100 REM SUBROUTINES
105 POKE211,H:POKE214,V:SYS58732
110 RETURN
115 SYSAD+48,CH$
120 RETURN
180 SYSAD+6,208:PRINT"[147]"
185 SYSAD+27,F$,DV,40960,3,14,H$
190 PRINT"[147][144]":SYSAD+9,208
195 RETURN
200 POKE53272,31
202 PRINT"[147]";
205 PRINT"[159]   [195] [200] [193] [210] [204] [197] [211]   [195] [193] [204] [214] [197] [210] [212] ' [211][155]"
206 PRINT"   [176][192][192][192][178][192][192][192][174] [176][192][192][192][192][192][192][174] [176][192][178][192][174] [176][192][192][192][192][192][192][174]
207 [153]"       (null)     (null)      (null)   (null)   (null)      (null)
208 PRINT"       [221]     [171][192][192][178][192][192][192][189]   [221]   [221]      [221]
209 [153]"       (null)     (null)  (null)       (null)   (null)      (null)
210 PRINT"       [177]     [189]  [173][192][192][192][189] [173][192][177][192][189] [173][192][192][192][192][192][192][189]
215 [153][163]9)"1.CONT (null)ANOR (null)YSTERY"
220 [153][163]9)"2.CONT (null)ASK OF (null)UNKYFAS"
225 [153][163]9)"3.CONT (null)TAR (null)RUDGE"
230 [153][163]9)"4.CONT (null)UESTREADER (null)REFACE"
235 [153][163]9)"5.CONT (null)UIT TO (null)(null)ATNSTR$(null)(null)ATN(null)"
240 CH$[178]"12345":[141]115
250 [139]F%[178]5[167]40000
260 H$[178]T$:S%[178]F%:F$[178]TL$(S%)
270 [139]F%[178]4[167][141]180:[137]205
300 [153][163]11)"1.CONT (null)LAY THE CHR$AME
302 PRINTTAB(11)"2.[154] [208]REFACE
304 [153][163]11)"3.CONT (null)OLUTION
305 CH$="123":GOSUB115:GS=0
307 SYSAD+3,11,30,17,23,32,0
310 IFF%=1THENGS=1:F$="QUESTREADER":GOTO420
320 IFF%=2THENH$=T$:F$=TL$(S%)
330 IFF%=3THENH$=R$:F$=MP$(S%)
400 GOSUB180:GOTO205
402 POKE53281,0:POKE53280,0
405 PRINT"[147][144]LOAD"Q$F$Q$","DV
410 PRINT"RUN"
415 POKE631,13:POKE632,13:POKE198,2:END
420 PRINT"[147]":POKE214,10:PRINT:PRINTTAB(14)"[155][198]ILE NAME IS"
421 PRINTTAB(20-(LEN(G$(S%))/2))G$(S%)
422 FORT=1TO4000:NEXT
430 F$="QUESTREADER":GOTO402
10000 OPEN15,8,15,"S0:B.TRIO":CLOSE15:SAVE"B.TRIO",8:END
40000 A$="HELLO CONNECT":FORI=8TO12:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40020
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147][146]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,8:END
40030 POKE646,PEEK(53281):PRINT"[147][146]LOAD"CHR$(34)A$CHR$(34)","I:POKE43,1
40040 PRINT"RUN":POKE44,8:POKE2048,0:POKE631,13:POKE632,13:POKE198,2:END
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO9:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[195] [193] [204] [214] [197] [210] [212] ' [211]   [212] [210] [201] [207]":Z$(1)="BY [195]HARLES [195]ALVERT
60040 Z$(2)[178]"(LEN) 1994 BY (null)OFTDISK (null)UBLISHING"[170][199](13)
60050 Z$(3)[178]"(null)HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199].  [201]T IS NOT"
60070 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)="[212]O SUBSCRIBE CALL 1-800-594-3370."
60090 POKE214,12:PRINT
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN