home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 126
/
126.d81
/
b.trio
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
73 lines
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