home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 126 / 126.d81 / b.trio (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  73 lines
  1. 10 print"[147]":poke53280,0:poke53281,0:print"[147]":gosub60000
  2. 15 poke56,56:poke55,0:clr
  3. 20 dv=peek(186):ifdv<8thendv=8
  4. 22 sys57812"trio toolbox",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 24 sys57812"trio font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 25 dimtl$(12):dimg$(12):ad=49152:q$=chr$(34)
  7. 30 t$="[208] [210] [197] [198] [193] [195] [197]":r$="[211] [207] [204] [213] [212] [201] [207] [206]"
  8. 32 tl$(1)="manor.ins":tl$(3)="trudge.ins"
  9. 35 tl$(2)="mask.ins":tl$(4)="quest.ins"
  10. 40 mp$(1)="manor.sol":mp$(3)="trudge.sol":mp$(2)="mask.sol"
  11. 45 g$(1)="manor":g$(3)="trudge":g$(2)="mask"
  12. 95 goto200
  13. 100 rem subroutines
  14. 105 poke211,h:poke214,v:sys58732
  15. 110 return
  16. 115 sysad+48,ch$
  17. 120 return
  18. 180 sysad+6,208:print"[147]"
  19. 185 sysad+27,f$,dv,40960,3,14,h$
  20. 190 print"[147][144]":sysad+9,208
  21. 195 return
  22. 200 poke53272,31
  23. 202 print"[147]";
  24. 205 print"[159]   [195] [200] [193] [210] [204] [197] [211]   [195] [193] [204] [214] [197] [210] [212] ' [211][155]"
  25. 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]
  26. 207 [153]"       (NULL)     (NULL)      (NULL)   (NULL)   (NULL)      (NULL)
  27. 208 print"       [221]     [171][192][192][178][192][192][192][189]   [221]   [221]      [221]
  28. 209 [153]"       (NULL)     (NULL)  (NULL)       (NULL)   (NULL)      (NULL)
  29. 210 print"       [177]     [189]  [173][192][192][192][189] [173][192][177][192][189] [173][192][192][192][192][192][192][189]
  30. 215 [153][163]9)"1.cont (NULL)anor (NULL)ystery"
  31. 220 [153][163]9)"2.cont (NULL)ask of (NULL)unkyfas"
  32. 225 [153][163]9)"3.cont (NULL)tar (NULL)rudge"
  33. 230 [153][163]9)"4.cont (NULL)uestreader (NULL)reface"
  34. 235 [153][163]9)"5.cont (NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  35. 240 ch$[178]"12345":[141]115
  36. 250 [139]f%[178]5[167]40000
  37. 260 h$[178]t$:s%[178]f%:f$[178]tl$(s%)
  38. 270 [139]f%[178]4[167][141]180:[137]205
  39. 300 [153][163]11)"1.cont (NULL)lay the chr$ame
  40. 302 printtab(11)"2.[154] [208]reface
  41. 304 [153][163]11)"3.cont (NULL)olution
  42. 305 ch$="123":gosub115:gs=0
  43. 307 sysad+3,11,30,17,23,32,0
  44. 310 iff%=1thengs=1:f$="questreader":goto420
  45. 320 iff%=2thenh$=t$:f$=tl$(s%)
  46. 330 iff%=3thenh$=r$:f$=mp$(s%)
  47. 400 gosub180:goto205
  48. 402 poke53281,0:poke53280,0
  49. 405 print"[147][144]load"q$f$q$","dv
  50. 410 print"run"
  51. 415 poke631,13:poke632,13:poke198,2:end
  52. 420 print"[147]":poke214,10:print:printtab(14)"[155][198]ile name is"
  53. 421 printtab(20-(len(g$(s%))/2))g$(s%)
  54. 422 fort=1to4000:next
  55. 430 f$="questreader":goto402
  56. 10000 open15,8,15,"s0:b.trio":close15:save"b.trio",8:end
  57. 40000 a$="hello connect":fori=8to12:close2:open2,i,2:close2:ifstthen40020
  58. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  59. 40020 next:print"[147][146]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  60. 40030 poke646,peek(53281):print"[147][146]load"chr$(34)a$chr$(34)","i:poke43,1
  61. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  62. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  63. 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
  64. 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]"
  65. 60030 z$(0)="[195] [193] [204] [214] [197] [210] [212] ' [211]   [212] [210] [201] [207]":z$(1)="by [195]harles [195]alvert
  66. 60040 z$(2)[178]"(len) 1994 by (NULL)oftdisk (NULL)ublishing"[170][199](13)
  67. 60050 z$(3)[178]"(NULL)his program is the copyrighted work
  68. 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"
  69. 60070 z$(5)="shareware or in the public domain."
  70. 60080 z$(6)="[212]o subscribe call 1-800-594-3370."
  71. 60090 poke214,12:print
  72. 60100 fori=0to6:printtab(20-(len(z$(i))/2))""z$(i):next:return
  73.