home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / presenter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  151 lines
  1. 1 iflf=0thenpoke53281,0:print"[147]    [210]eading the [212]able of [195]ontents...
  2. 2 [139]lf[178]0[167]lf[178]1:[147]"romusic",8,1
  3. 4 [139]lf[178]1[167]lf[178]2:[147]"joeplay",8,1
  4. 7 [139]lf[178]2[167]lf[178]3:[147]"routines v5",8,1
  5. 8 ms[178]59
  6. 9 [139]lf[178]3[167]lf[178]4:[147]"menu.sprites",8,1
  7. 10 [134]ds$(14):fr[178]52320:[158]fr,"strings",ds$(0):ol$[178]"":v[178]53248:[151]v[170]16,0:[151]v[170]23,0:[151]v[170]29,0:[159]15,8,15:[137]6000
  8. 28 [151]251,0:[151]252,224:[158]49152:[142]
  9. 1000 [151]646,c%(2):[153]"load"tl$:[151]v[170]33,c%(1):[151]1021,17:lp[178]1:[151]646,c%(4):[151]53280,6:[153]wt$;:[129]i[178]2[164]17:[153]"(NULL)"[166]38)"(NULL)";:[130]:[153]wb$;:[151]646,c%(3):[153]ds$(1);:[153]ds$(14);:[153]ds$(13);:[153]"(NULL)f5wait(NULL)croll ascwd.(NULL)"mu$;ds$(2);:[153]"(NULL)f7wait(NULL)age ascwd.  (NULL)(NULL)wait=valxit (NULL)"[166](16[171][195](mo$))[173]2)mo$[163]39)"(NULL)";:[153]ds$(3);
  10. 1038 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]:[151]646,c%(5):[158]51203:[151]2023,125:[151]56295,c%(3):[142]
  11. 1100 [151]783,[194](783)[175]254:[151]781,y%:[151]782,x%:[158]65520:[142]
  12. 1200 [132]15,er%,er$,et%,es%:[139](er%[177]19[175]er%[179]30)[176]er%[178]66[176]er%[178]67[176]er%[178]71[176]er%[178]73[167]1250
  13. 1210 [142]
  14. 1250 [153]"load(NULL)here has been a disk error.":[153]:[153]"(NULL)ress <space> to continue.":[151]b,0
  15. 1253 [161]k$:[139]k$[178]""[167]1253
  16. 1261 [138]
  17. 1280 [129]i[178]27[164]31[169][170]1:[146]r,128:[151]r,i:[130]:[129]i[178]31[164]24[169][171]1:[146]r,128:[151]r,i:[130]:[129]i[178]24[164]27[169][170]1:[146]r,128:[151]r,i:[130]:[139][194](788)[179][177]49[167]1296
  18. 1291 [151]s[170]4,0:[151]s[170]11,0:[151]s[170]18,0:[151]s[170]5,8:[151]s[170]6,0:[151]s[170]24,15:[151]s[170]4,20:[151]s,[187](0)[172]256:[151]s[170]1,[187](0)[172]256:[151]s[170]14,[187](0)[172]256:[151]s[170]15,30:[151]s[170]4,21
  19. 1296 [142]
  20. 1500 [139]f$[178]ol$[167][142]
  21. 1501 ol$[178]f$:[159]8,8,8,f$:[141]1200:[143]ifer%=62thenreturn
  22. 1505 [153]ds$(4);m$(mp,0):[151]781,8:[158]65478:[158]fr,f$,t$(0):ll[178][194](251)[170]256[172][194](252):[159]15,8,15:[158]65484:[160]8:[141]1200:[129]i[178]ll[164]ll[170]21:t$(i)[178]"":[130]:[142]
  23. 2000 [139][194](788)[178]49[175]mu%[167][141]28
  24. 2001 [161]k$:j%[178][168][194](j)[175]31:[139]k$[178]""[175]j%[178].[167]2000
  25. 2003 [151]b,0:[139]k$[178]"\"[167]60000
  26. 2010 [139]k$[178]"on"[176]k$[178]""[176]k$[178]"dim"[176]j%[178]1[167][141]2100:[137]2000
  27. 2015 [139]k$[178]""[176]k$[178]"cmd"[176]k$[178]"read"[176]j%[178]2[167][141]2200[137]200
  28. 2020 [139]k$[178]"input"[167][129]i[178]1[164]15:[141]2100:[130]:[137]2000
  29. 2025 [139]k$[178]"let"[167][129]i[178]1[164]15:[141]2200:[130]:[137]2000
  30. 2030 [139]k$[178]"p"[176]k$[178]"(NULL)"[176]k$[178]"and"[176]k$[178]""[167]50000
  31. 2040 [139]k$[178]"m"[176]k$[178]"(NULL)"[176]k$[178]"then"[167]mu%[178][171]1:[141]2705:mu$[178]"(NULL)waituiet":[137]2800
  32. 2045 [139]k$[178]"q"[176]k$[178]"(NULL)"[176]k$[178]"-"[167]mu%[178]0:[141]2705:mu$[178]"(NULL)waitusic":[137]2800
  33. 2050 [139](k$[178]"x"[176]k$[178]"(NULL)"[176]k$[178]"exp"[176]k$[178]""[176]j%[178]16[176]k$[178]" ")[175]m$(mp,2)[178]"rq"[167]5000
  34. 2052 [139]k$[178]"x"[176]k$[178]"(NULL)"[176]k$[178]"exp"[176]k$[178]""[176]j%[178]16[176]k$[178]" "[167]s$[178]"1":[141]9000:[137]5900
  35. 2055 [137]2000
  36. 2100 [139]lp[178]1[167]1280
  37. 2105 lp[178]lp[171]1:[158]51209:x%[178]1:y%[178]2:[141]1100:[139][200](t$(lp),4)[178]"\oad"[167][153]"":[142]
  38. 2107 [153]t$(lp):[142]
  39. 2200 [139]lp[170]16[177]ll[167]1280
  40. 2205 lp[178]lp[170]1:[158]51206:x%[178]1:y%[178]17:[141]1100:[139][200](t$(lp[170]15),4)[178]"\oad"[167][153]"":[137]2210
  41. 2207 [153]t$(lp[170]15)
  42. 2210 [142]
  43. 2705 [139]mu%[175][194](788)[178]49[167][141]28:[137]2715
  44. 2706 [139]mu%[175][194](788)[179][177]49[167]2715
  45. 2707 [139]mu%[178]0[175][194](788)[178]49[167]2715
  46. 2710 [158]49155:[151]s[170]4,0:[151]s[170]11,0:[151]s[170]18,0:[151]s[170]5,0:[151]s[170]6,0:[151]s[170]24,15
  47. 2715 [142]
  48. 2800 x%[178]15:y%[178]22:[141]1100:[151]646,c%(3):[153]mu$:[151]646,c%(5):[137]2000
  49. 2900 x%[178]0:y%[178]2:[141]1100:[158]51200:[129]i[178]lp[164]lp[170]15:[139][200](t$(i),4)[178]"\oad"[167][153]"":[137]2904
  50. 2903 [153]""t$(i)
  51. 2904 [130]:[151]b,0:[142]
  52. 5000 s$[178]"1":[141]9000:cf%[178]0
  53. 5050 [139]cf%[178].[175]s$[178]"2"[175][197](m$(mp,3))[179][177]2[167]mp[178]mp[170]1:[137]5050
  54. 5051 [139]cf%[178]0[167]cf%[178]1:[141]5500
  55. 5052 [139]mp[178]1[175]m$(1,1)[178]"*"[176]m$(1,1)[178]"+"[167]a$[178]"":[137]5055
  56. 5053 [129]my[178]55708[164]55708[170]25:[151]my,7:[130]:[151]v[170]21,[197](m$(mp,3))
  57. 5054 [161]a$:j%[178][168][194](j)[175]31:[139]j%[178].[175]a$[178]""[167]5054
  58. 5055 [151]b,0:[139]a$[178]"on"[176]a$[178]""[176]a$[178]"dim"[176]a$[178]"run"[176]j%[178]1[167][141]5100
  59. 5060 kf[178]0:[139]a$[178]""[176]a$[178]"cmd"[176]a$[178]"read"[176]a$[178]"if"[176]j%[178]2[167][141]5200
  60. 5065 [139]a$[178]"input"[176]a$[178]"goto"[167]mp[178]1:[141]5520
  61. 5070 [139]a$[178]"let"[176]a$[178]"restore"[167]mp[178]ml:[141]5500
  62. 5075 [139]j%[178]16[176]a$[178]" "[176]a$[178][199](13)[167][141]63300:[137]5900
  63. 5080 [139]a$[178]"x"[176]a$[178]"(NULL)"[176]a$[178]"exp"[167][151]v[170]21,.:[137]5600
  64. 5090 [137]5050
  65. 5100 [139]mp[178]1[167][141]1280:[137]5160
  66. 5105 [158]51209:[158]51209:mp[178]mp[171]1:[139]mp[179]5[167]5150
  67. 5114 x%[178]12:y%[178]2:[141]1100:po$[178]m$(mp[171]4,.):[139][200](po$,1)[178]"*"[167][153][202](po$,2);:[137]5150
  68. 5115 [139][200](po$,1)[178]"+"[167][153]""[202](po$,2)"wait";:[137]5150
  69. 5116 [153]"for"m$(mp[171]4,.);
  70. 5150 [139][200](m$(mp,1),1)[178]"*"[167]5100
  71. 5160 [142]
  72. 5200 [139]mp[178]ml[167][141]1280:[137]5260
  73. 5205 [158]51206:[158]51206:mp[178]mp[170]1:[139]mp[177]ml[171]4[167]5250
  74. 5214 x%[178]12:y%[178]18:[141]1100:po$[178]m$(mp[170]4,.):[139][200](po$,1)[178]"*"[167][153][202](po$,2);:[137]5250
  75. 5215 [139][200](po$,1)[178]"+"[167][153]""[202](po$,2)"wait";:[137]5250
  76. 5216 [153]"for"m$(mp[170]4,.);
  77. 5250 [139][200](m$(mp,1),1)[178]"*"[167]5200
  78. 5260 [142]
  79. 5500 [158]51200:[153]"for";:[139]mp[179]5[167]5520
  80. 5505 [129]i[178]mp[171]4[164]mp[170]4:[139][200](m$(i,.),1)[178]"*"[167][153][163]12)[202](m$(i,0),2)"":[137]5515
  81. 5506 [139][200](m$(i,0),1)[178]"+"[167][153][163]12)""[202](m$(i,0),2)"":[137]5515
  82. 5510 [153][163]12)"for"m$(i,.)"
  83. 5515 next:return
  84. 5520 sys51200:print"[129]";:fori=mpto4:print"";:next:fori=1tomp+4:ifleft$(m$(i,.),1)="*"thenprinttab(12)mid$(m$(i,0),2)"":goto5530
  85. 5522 ifleft$(m$(i,0),1)="+"thenprinttab(12)""mid$(m$(i,0),2)"[146]":goto5530
  86. 5525 printtab(12)m$(i,.)"
  87. 5530 [130]:[142]
  88. 5600 [141]63002:[141]63000:[153]"load    atnre you sure you want to exit?":[151]198,0:[146]198,1:[161]a$:[139]a$[178]"y"[167]63400
  89. 5608 [137]5000
  90. 5900 po[178]0:[141]7000:[139]po[178]1[167]5000
  91. 5902 f$[178]"t."[170]m$(mp,1):tl$[178]m$(mp,.):po[178]0:[141]63100:[139]po[178]1[167]5000
  92. 5904 [141]1500:[143]ifer%=62thenclose8:goto5000
  93. 5906 [151]v[170]21,0:[151]1020,2:[151]1021,18:[151]1022,1:[151]1023,38:[158]51200:[153]"for";:[158]51203:[151]s[170]4,.:[151]s[170]11,.:[151]s[170]18,.:[139]mu%[175][194](788)[178]49[167][141]28
  94. 5915 mu$[178]"(NULL)waituiet":[139]mu%[178]0[167]mu$[178]"(NULL)waitusic
  95. 5920 poke56325,ms:pokes+24,15
  96. 5999 gosub1000:gosub2900:goto2000
  97. 6000 v=53248:r=v+17:c=128:s=v+1024:j=56320:lp=1:li=52016:mu%=-1:sys52176:b=198:pokes+5,96:pokes+6,246:close15:open15,8,15:dimt$(600),m$(60,3),c(4):fori=1to4:readc(i):next:mu$="[209][146]uiet":data2,5,6,7:poke1020,2:poke1021,17:poke1022,1:poke1023,38:print:pokes+23,0:pokes+4,128:pokev+28,0:pokes+24,0
  98. 6014 wl$=ds$(5):wt$="[176]"+wl$+"[174]":wb$="[173]"+wl$+"[189]":d1$=left$(wt$,27)+"[174]":d2$=left$(wb$,27)+"[189]":bo$=ds$(6):q1$=ds$(7):q2$=ds$(8):m$="features11":open8,8,8,m$:gosub1200:ml=1:input#8,mt$,mo$,mn$
  99. 6030 fori=.to3:poke781,8:sys65478:sysli,b$:m$(ml,i)=b$+"":ifstthengosub1200:ifer%=.andst>63then6037
  100. 6032 ifer%=0andst>63then6037
  101. 6033 next:ml=ml+1:goto6030
  102. 6037 close8:p$="p"+chr$(8)+chr$(1)+chr$(0)+chr$(1):print#15,"i0":dimc%(5):open8,8,8,"color.file":print#15,p$:fori=0to5:input#8,c%(i):next:close8:open8,8,8,"print.file":print#15,p$:input#8,pa:input#8,sa:close8:sys65484:pokes+4,0:pokes+23,0:pokes+5,9:pokes+6,0:mp=peek(597):ifmp>mlormp<1thenmp=1
  103. 6044 poke53280,6:poke53281,0:gosub63230:goto5000
  104. 7000 poke53281,0:poke53280,6:sys