home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 33 / 033.d81 / presenter (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  8.1 KB  |  214 lines
  1. 10 ifx=0thenx=1:load"package.51.o",8,1
  2. 20 sys38921,50432,"bluplay":sys38921,35840,"sos.lnk":sys38921,51456,"unpacker":sys38921,40960,"romusic":poke56,114:clr:poke808,234:r=53265:j=128:su=38912:sd=su+3:ww=sd+3:bl=ww+3:cw=bl+3:re=cw+3:te=re+3:fi=te+3:us=fi+3:poke649,1:dimm$(110,3),t$(450):gosub780
  3. 110 sp$="                                             ":lm=1:rm=38:tm=3:bm=20:gosub270:sysww:syscw,16:lp=1:lm=1:rm=38:tm=3:bm=19:gosub270:sysww:syscw,1:gosub3220:ifmuthensys50432,40960
  4. 160 gosub530:sys51459:poke53270,peek(53270)and239
  5. 170 lm=1:rm=37:tm=3:bm=19:gosub3220:gosub950
  6. 230 ifleft$(m$(mp,0),1)="*"thengosub1550:goto230
  7. 240 goto1200
  8. 270 poke828,lm:poke829,rm:poke830,tm:poke831,bm:di=bm-tm:return
  9. 330 lm=peek(828):rm=peek(829):tm=peek(830):bm=peek(831):di=bm-tm:return
  10. 390 poke828,0:poke829,39:poke830,0:poke831,19:return
  11. 440 ifnot(mu)then470
  12. 460 sys50435:s=54272:pokes+24,15:pokes+5,9:pokes+1,20:pokes+4,128
  13. 470 sh=6:xp=4:yp=9:gosub530:sys51462:fordl=1to100:next:pokes+4,129:sh=5:xp=1:yp=9:gosub530:sys51462:syste,left$(m$(mp,3),1),2,12,0:pokes+4,128:ifmuthensys50438
  14. 510 return
  15. 530 poke249,224:poke250,204:poke251,0:poke252,sb:poke253,xp:poke254,yp:poke255,sh:return
  16. 600 gosub270:sysww:qu=0:gosub4020:ifqu=1thenreturn
  17. 630 fordl=1to200:next:gosub530:sys51459:sys50435:print"[147]":poke56,160:clr:poke808,237:poke56325,59:load"goodbye",8:end
  18. 680 s=54272:v=53248:ifnot(mu)then730
  19. 700 pokes+4,0:pokes+11,0:pokes+18,0:pokes+5,8:pokes+6,0:pokes+24,15:pokes+4,20:pokes,rnd(0)*256:pokes+1,rnd(0)*256:pokes+14,rnd(0)*256:pokes+15,30:pokes+4,21
  20. 730 fori=59to63:waitr,j:poker,i:next:fori=63to56step-1:waitr,j:waitr,j:poker,i:next:fori=56to59:waitr,j:waitr,j:waitr,j:waitr,j:poker,i:next:return
  21. 780 sysfi,29184,35840,0:sysbl,29184,"features":sysre,29184,t$(0):mo$=t$(2):m=1:nl=peek(251)+peek(252)*256-2:nl=(nl-2)/4:c=3:forx=1tonl:m$(x,0)=t$(c):t$(c)="":m$(x,1)=t$(c+1):t$(c+1)="":m$(x,2)=t$(c+2):t$(c+2)="":m$(x,3)=t$(c+3):t$(c+3)="":c=c+4
  22. 860 next:m=nl:a=peek(51)+peek(52)*256:a=a-1:ah=int(a/256):al=a-ah*256:open2,8,2,"setup":input#2,bo,bk,tc,pa,sa,mu,co:close2:s=54272:forx=0to24:pokes+x,0:next:mp=peek(178):gosub4130:ifs$="1"then930
  23. 927 ifmp<>0then930
  24. 928 mp=1
  25. 929 rem   ifm$(mp,3)<>s$thenmp=mp+1:goto929
  26. 930 ifmp<1ormp>nlthenmp=1
  27. 932 mu=0:co=0
  28. 935 return
  29. 950 rf=0:lm=8:rm=38:gosub270:sysww:syscw,1:sh=5:xp=1:yp=9:gosub530:sys51462:yp=3:xp=lm:br=mp-8+abs(mp>8):forx=brtomp+9:ifx<0thensyste," ",xp,yp,0:goto1070
  30. 1020 ifx=0thenx=1
  31. 1030 mo=0:gosub1110:gosub1160:iffl=1thensyste,mid$(m$(x,0),2),xp,yp,mo:goto1070
  32. 1060 syste,m$(x,0),xp,yp,mo
  33. 1070 yp=yp+1:next:return
  34. 1110 mo=0:ifleft$(m$(x,0),1)="+"thenmo=1
  35. 1140 return
  36. 1160 fl=0:ifleft$(m$(x,0),1)="+"orleft$(m$(x,0),1)="*"thenfl=1
  37. 1180 return
  38. 1200 poke53280,6
  39. 1220 syste,m$(mp,3),2,12,0:gosub1340:ifop=1thengosub1550
  40. 1250 ifop=2thengosub1650
  41. 1260 ifop=3thengosub440:lm=7:rm=37:gosub270:sysww:syscw,1:goto1920
  42. 1270 ifop=4thengosub600:poke828,7:poke831,17:poke829,37:syscw,1:sysww:gosub950
  43. 1272 ifop=4then1200
  44. 1280 ifop=5thengosub1760
  45. 1290 ifop=6thengosub1840
  46. 1300 ifop=7thengosub3720:lm=7:gosub270:sysww:syscw,1:goto170
  47. 1310 goto1220
  48. 1340 :
  49. 1350 ifmuandpeek(666)=0thensys50432,40960
  50. 1352 ifpeek(197)=64andpeek(56320)=127then1350
  51. 1360 a=peek(197):j%=notpeek(56320)and31:poke198,0:ifa=64andj%=0then1350
  52. 1380 ifa=6ora=7orj%=2thenop=1:goto1530
  53. 1390 ifa=5ora=2orj%=1thenop=2:goto1530
  54. 1400 ifa=1ora=60orj%=16thenop=3:goto1530
  55. 1410 ifa=62thenop=4:goto1530
  56. 1420 ifa=3orj%=8thenop=5:goto1530
  57. 1430 ifa=4orj%=4thenop=6:goto1530
  58. 1440 ifa=41thenop=7:goto1530
  59. 1470 ifa=13thengosub3460:goto1350
  60. 1480 ifa=20andrf=1thengosub3520:goto1350
  61. 1490 ifa=28andrf=1thengosub3570:goto1350
  62. 1510 gosub680:goto1350
  63. 1530 return
  64. 1550 :
  65. 1560 ifmp=mthengosub680:goto1630
  66. 1570 gosub270:syssu:mp=mp+1:yp=bm:xp=lm:x=mp+9:gosub1110:gosub1160:syste,left$(sp$,30),xp,yp,0:iffl=1thensyste,mid$(m$(mp+9,0),2),xp,yp,mo:goto1610
  67. 1600 syste,m$(mp+9,0),xp,yp,mo
  68. 1610 ifleft$(m$(mp,0),1)<>"*"then1630
  69. 1620 ifmp<>mthen1560
  70. 1622 gosub680:gosub1650
  71. 1630 return
  72. 1650 :
  73. 1660 ifmp=1thengosub680:goto1740
  74. 1670 gosub270:syssd:mp=mp-1:yp=tm:xp=lm:x=mp-7:syste,left$(sp$,30),xp,yp,0:ifmp-7<1thensyste," ",xp,yp,0:goto1720
  75. 1690 gosub1110:gosub1160:iffl=1thensyste,mid$(m$(mp-7,0),2),xp,yp,mo:goto1720
  76. 1710 syste,m$(mp-7,0),xp,yp,mo
  77. 1720 ifleft$(m$(mp,0),1)<>"*"then1740
  78. 1730 ifmp<>1then1660
  79. 1732 gosub680:gosub1550
  80. 1740 return
  81. 1760 tt=mp+di:iftt>mthentt=m
  82. 1790 mp=tt:gosub950:ifleft$(m$(mp,0),1)<>"*"then1820
  83. 1800 ifmp<>mthengosub1550:goto1820
  84. 1810 gosub680:gosub1650
  85. 1820 return
  86. 1840 tt=mp-di:iftt<1thentt=1
  87. 1870 mp=tt:gosub950:ifleft$(m$(mp,0),1)<>"*"then1900
  88. 1880 ifmp<>1thengosub1650:goto1900
  89. 1890 gosub680:gosub1550
  90. 1900 return
  91. 1920 sh=1:xp=0:yp=20:gosub530:sys51462:cb=2:gosub5000:sh=0:xp=0:yp=0:gosub530:sys51462:gosub270:rf=0:sh=4:xp=7:yp=4:gosub530:sys51462:t$=m$(mp,2):ift$="rq"then2310
  92. 1980 lm=8:rm=29:tm=7:bm=13:gosub270:sh=2:xp=0:yp=3:gosub530:sys51462:sh=3:xp=39:yp=3:gosub530:sys51462:sh=5:xp=1:yp=9:gosub530:sys51462:syste,m$(mp,3),2,12,0:x=mp:gosub1110:ifmo=1thensyste,mid$(m$(mp,0),2),lm,5,0:goto2070
  93. 2065 syste,m$(mp,0),lm,5,0
  94. 2070 syste,"[210]ead it",lm,10,0:syste,"[210]un it",lm,11,0:syste,"[194]ack to [205]ain [205]enu",lm,12,0:lw=1
  95. 2110 gosub1340:ifop=1theniflw<3thensyssu:lw=lw+1:goto2110
  96. 2130 ifop=2theniflw>1thensyssd:lw=lw-1:goto2110
  97. 2140 ifop=3thengosub440:goto2250
  98. 2160 ifop=5theniflw<3thensyssu:lw=lw+1:goto2160
  99. 2170 ifop=5then2110
  100. 2180 ifop=6theniflw>1thensyssd:lw=lw-1:goto2180
  101. 2190 ifop=6then2110
  102. 2200 ifop=6theniflw>1thensyssd:lw=lw-1:goto2200
  103. 2220 gosub680:goto2110
  104. 2250 iflw=1then2310
  105. 2270 iflw=2then4410
  106. 2280 iflw=3thenlm=7:rm=36:tm=4:bm=15:gosub270:sysww:syscw,1:goto170
  107. 2290 stop
  108. 2310 rf=1:poke53280,bo:x=mp:gosub1110:ifmo=1thensyste,mid$(m$(mp,0),2),8,5,0:goto2332
  109. 2330 syste,m$(mp,0),8,5,0
  110. 2332 ifmp<>olthensys50435
  111. 2340 syste,"[199]etting the file...",8,10,0:syste,"                   ",8,11,0:syste,"                    ",8,12,0
  112. 2360 ifmp=olthen2400
  113. 2380 gosub4350:iffl=0then2390
  114. 2384 lw=3:ifmuthensys50438
  115. 2386 goto2280
  116. 2390 gosub3160
  117. 2400 sh=7:xp=39:yp=3:gosub530:sys51462:sh=7:xp=0:yp=3:gosub530:sys51462:lm=0:rm=39:tm=0:bm=19:ift$(0)="^x"thenbm=24
  118. 2440 gosub270:syscw,1:sysww:tm=1:gosub270:u$="[210]eading: ":x=mp:gosub1110:ifmo=1thenu$=u$+mid$(m$(mp,0),2):goto2470
  119. 2465 u$=u$+m$(mp,0)
  120. 2470 u$=u$+left$(sp$,40-len(u$)):syste,u$,0,0,1:ift$(0)<>"^u"andt$(0)<>"^x"then2590
  121. 2520 ifol=mpthen2560
  122. 2530 u$="u."+m$(mp,1):sysbl,us,u$:sysbl,29184,m$(mp,1)+".lnk
  123. 2560 [158]us::[141]330
  124. 2590 cb[178]3:[139]mu[167][158]50438
  125. 2592 [139]co[178]0[167][141]3570
  126. 2594 [139]co[167][141]3520
  127. 2595 ol[178]mp:[141]270:lp[178]1:[141]2640:[141]270:[137]2720
  128. 2640 [141]270:[158]ww:tt[178]tm:[129]x[178]lp[164]lp[170]di:[139]t$(x)[178]"^u"[176]t$(x)[178]"^x"[167][158]te," ",lm,tt,0:[137]2690
  129. 2675 [139]x[177]nl[167][158]te," ",lm,tt,0:[137]2690
  130. 2680 [158]te," "[170]t$(x),lm,tt,0
  131. 2690 tt[178]tt[170]1:[130]:[142]
  132. 2720 [141]1340:[139]op[178]1[167][141]2820
  133. 2740 [139]op[178]2[167][141]2900
  134. 2760 [139]op[178]3[167]2980
  135. 2770 [139]op[178]5[167][141]3030
  136. 2780 [139]op[178]6[167][141]3100
  137. 2790 [139]op[178]7[167][141]3870:[137]2360
  138. 2800 [137]2720
  139. 2820 [139]lp[170]di[177][178]nl[167]2870
  140. 2840 [141]270:[158]su:lp[178]lp[170]1:[158]te,[200](sp$,rm[171]lm[170]1),lm,bm,0:[158]te," "[170]t$(lp[170]di),lm,bm,0:[137]2880
  141. 2870 [141]680
  142. 2880 [142]
  143. 2900 [139]lp[178]1[167]2950
  144. 2920 [141]270:[158]sd:lp[178]lp[171]1:[158]te,[200](sp$,rm[171]lm[170]1),lm,tm,0:[158]te," "[170]t$(lp),lm,tm,0:[137]2960
  145. 2950 [141]680
  146. 2960 [142]
  147. 2980 [141]390:[158]cw,1:[158]ww:[141]270:[139]m$(mp,2)[178]"req"[167]1920
  148. 3010 [137]170
  149. 3030 tp[178]lp[170]di[170]1:[139]tp[177]nl[167][141]680:[137]3080
  150. 3060 [139]tp[179]1[167][141]680:tp[178]1
  151. 3070 lp[178]tp:[141]2640
  152. 3080 [142]
  153. 3100 tp[178]lp[171]di[171]1:[139]tp[179]1[167][141]680:tp[178]1
  154. 3130 lp[178]tp:[141]2640:[142]
  155. 3160 [151]51,al:[151]52,ah:[158]fi,29184,35840,0:[158]bl,29184,"t."[170]m$(mp,1):[158]re,29184,t$(0):nl[178][194](251)[170][194](252)[172]256[171]2:[142]
  156. 3220 sb[178]140:sh[178]0:xp[178]0:yp[178]0:[141]530:[158]51462:sh[178]1:xp[178]0:yp[178]20:[141]530:[158]51462:cb[178]1:[141]5000:sh[178]2:xp[178]0:yp[178]3:[141]530:[158]51462:sh[178]3:xp[178]39:yp[178]3:[141]530:[158]51462:[142]
  157. 3460 mu[178][168]mu:[141]5000:[139]mu[167][158]50432,40960:[137]3500
  158. 3490 [158]50435
  159. 3500 [142]
  160. 3520 co[178][171]1:[141]5000:[141]270:[158]cw,bk[170]16[172]tc:[142]
  161. 3570 co[178]0:[141]5000:[141]270:[158]cw,1:[142]
  162. 3620 [141]270:[158]ww:sh[178]4:xp[178]7:yp[178]4:[141]530:[158]51462:[158]te,"(NULL)(NULL)right$(NULL)(NULL)(NULL)(NULL)(NULL)",8,5,0:[158]te,"  (NULL)ress <(NULL)(NULL)atnlenval> to (NULL)rint",9,8,0:[158]te,"  (NULL)ress <val> to valxit",10,10,0
  163. 3680 [151]198,0:[146]198,1:[161]a$:[139]a$[179][177]" "[175]a$[179][177]"e"[167]3680
  164. 3690 fl[178]0:[139]a$[178]"e"[167]fl[178]1
  165. 3700 [142]
  166. 3720 :
  167. 3730 [141]3620:[139]fl[178]1[167]3850
  168. 3742 [141]7000:[139]po[178]1[167]3730
  169. 3745 [158]50435:[159]4,pa,sa:lc[178]0:cl[178]1
  170. 3760 [139]m[171]cl[179]120[167]3810
  171. 3770 [129]i[178]cl[164]cl[170]59:[152]4,m$(i,0)[200](sp$,42[171][195](m$(i,0)))m$(i[170]60,0):[130]:[129]i[178]1[164]6:[152]4:[130]:cl[178]cl[170]120:[137]3760
  172. 3810 ch%[178](m[171]cl[170]2)[173]2:[129]i[178]cl[164]cl[170]ch%[171]1:[152]4,m$(i,0)[200](sp$,42[171][195](m$(i,0)))m$(i[170]ch%,0):[130]:[129]i[178]1[164]4:[152]4:[130]:[160]4:[139]mu[167][158]50438
  173. 3850 [142]
  174. 3870 :
  175. 3880 [141]3620:[139]fl[178]1[167]4000
  176. 3892 [141]7000:[139]po[178]1[167]3880
  177. 3895 [158]50435:[159]4,pa,sa:lc[178]0:cl[178]1
  178. 3910 [139]nl[171]cl[179]120[167]3960
  179. 3920 [129]i[178]cl[164]cl[170]59:[152]4,t$(i)[200](sp$,42[171][195](t$(i)))t$(i[170]60):[130]:[129]i[178]1[164]6:[152]4:[130]:cl[178]cl[170]120:[137]3910
  180. 3960 ch%[178](nl[171]cl[170]2)[173]2:[129]i[178]cl[164]cl[170]ch%[171]1:[152]4,t$(i)[200](sp$,42[171][195](t$(i)))t$(i[170]ch%):[130]:[129]i[178]1[164]4:[152]4:[130]:[160]4:[139]mu[167][158]50438
  181. 4000 [141]390:[158]ww:[158]cw,1:[141]270:[142]
  182. 4020 sh[178]4:xp[178]7:yp[178]4:[141]530:[158]51462:[158]te,"(NULL)uit?",8,5,0:[158]te,"atnre you sure you want",10,10,0:[158]te,"to (NULL)(NULL)right$(NULL)? [(NULL)/(NULL)]",13,12,0
  183. 4070 [151]198,0:[146]198,1:[161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167][141]680:[137]4070
  184. 4090 [139]a$[178]"y"[167]4110
  185. 4100 qu[178]1
  186. 4110 [142]
  187. 4130 [159]15,8,15,"i0":[159]8,8,8,"#":[152]15,"ua:8 0 18 0":[152]15,"b-p:8 154":[161]#8,a$,a$,a$,a$,a$,s$:[160]8:[160]15:[142]
  188. 4220 [141]270:s$[178]"(NULL)ide "[170]m$(mp,3)[170]" of (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) #"[170]mo$:[158]te,s$,8,7,0:[158]te,"not found!",14,8,0:[158]te,"right$nsert that side and",8,10,0:[158]te,"press <(NULL)(NULL)atnlenval>",12,11,0:[158]te,"<'val' to val(NULL)right$(NULL)>",12,12,0
  189. 4300 [151]198,0:[146]198,1:[161]a$:[139]a$[179][177]" "[175]a$[179][177]"e"[167][141]680:[137]4300
  190. 4320 fl[178]0:[139]a$[178]"e"[167]fl[178]1
  191. 4330 [142]
  192. 4350 :
  193. 4360 [141]4130:fl[178]0:[142]
  194. 4380 [141]4220:[139]fl[178]0[167]4360
  195. 4390 [142]
  196. 4410 [141]270:[158]ww:[158]te,"(NULL)lease stand by...",lm,10,0:[141]4350:[139]fl[179][177]0[167]lw[178]3:[141]2280
  197. 4450 [158]50435:[159]15,8,15,"i0":[160]15:[153]"loadpoke56325,59:loadm$(mp,1),8"
  198. 4452 [153]"sys51459:run":[151]631,13:[151]632,13:[151]178,mp:[151]808,237
  199. 4454 [151]198,2
  200. 4456 [128]
  201. 5000 [139]bm[178]24[167]5100
  202. 5020 [139]mu[167][158]te,"[(NULL)]ilence",0,24,0:[137]5050
  203. 5030 [158]te,"[(NULL)]ound  ",0,24,0
  204. 5050 [139]cb[178]2[167]5060
  205. 5055 [158]te,"[(NULL)]rint",33,24,0
  206. 5060 [139]cb[178]2[167][158]te,"(NULL)elects",26,23,0:[137]5100
  207. 5080 [139]cb[178]1[167][158]te,"[(NULL)]uit",16,24,0:[158]te,"(NULL)elects",26,23,0:[137]5100
  208. 5085 [158]te,"valxits",26,23,1:[158]te,"  ",31,23,0:[139]co[167][158]te,"[peek]lack & (NULL)hite",13,24,0:[137]5100
  209. 5095 [158]te,"  [len]olor        ",13,24,0
  210. 5100 [142]:[153]"loadstr$isk valrror -- "m$(mp,1)"? -- "er:[158]51459:[153]"":[151]808,237:[151]56,160:[156]:[128]
  211. 7000 po[178]0:[159]15,4,15:[160]15:sg[178]st:[158]te,"                        ",9,8,0:[158]te,"                    ",10,10,0:[139]sg[179][177]0[167][158]te,"(NULL)rinter (NULL)ot (NULL)eady...",9,10,0:[129]dl[178]1[164]500:[130]:po[178]1
  212. 7025 [139]sg[178]0[167][158]te,"(NULL)ow printing...",10,10,0
  213. 7030 [142]
  214.