home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 31 / 031.d81 / presenter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  212 lines
  1. 10 ifx=0thenx=1:load"package.51.o",8,1
  2. 20 sys38921,50432,"joeplay":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$<>"2"then930
  23. 927 ifmp<>0then930
  24. 928 mp=1
  25. 929 ifm$(mp,3)<>"2"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:syscw,1:sysww:gosub950:goto1200
  43. 1280 ifop=5thengosub1760
  44. 1290 ifop=6thengosub1840
  45. 1300 ifop=7thengosub3720:lm=7:gosub270:sysww:syscw,1:goto170
  46. 1310 goto1220
  47. 1340 :
  48. 1350 ifmuandpeek(666)=0thensys50432,40960
  49. 1352 ifpeek(197)=64andpeek(56320)=127then1350
  50. 1360 a=peek(197):j%=notpeek(56320)and31:poke198,0:ifa=64andj%=0then1350
  51. 1380 ifa=6ora=7orj%=2thenop=1:goto1530
  52. 1390 ifa=5ora=2orj%=1thenop=2:goto1530
  53. 1400 ifa=1ora=60orj%=16thenop=3:goto1530
  54. 1410 ifa=62thenop=4:goto1530
  55. 1420 ifa=3orj%=8thenop=5:goto1530
  56. 1430 ifa=4orj%=4thenop=6:goto1530
  57. 1440 ifa=41thenop=7:goto1530
  58. 1470 ifa=13thengosub3460:goto1350
  59. 1480 ifa=20andrf=1thengosub3520:goto1350
  60. 1490 ifa=28andrf=1thengosub3570:goto1350
  61. 1510 gosub680:goto1350
  62. 1530 return
  63. 1550 :
  64. 1560 ifmp=mthengosub680:goto1630
  65. 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
  66. 1600 syste,m$(mp+9,0),xp,yp,mo
  67. 1610 ifleft$(m$(mp,0),1)<>"*"then1630
  68. 1620 ifmp<>mthen1560
  69. 1622 gosub680:gosub1650
  70. 1630 return
  71. 1650 :
  72. 1660 ifmp=1thengosub680:goto1740
  73. 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
  74. 1690 gosub1110:gosub1160:iffl=1thensyste,mid$(m$(mp-7,0),2),xp,yp,mo:goto1720
  75. 1710 syste,m$(mp-7,0),xp,yp,mo
  76. 1720 ifleft$(m$(mp,0),1)<>"*"then1740
  77. 1730 ifmp<>1then1660
  78. 1732 gosub680:gosub1550
  79. 1740 return
  80. 1760 tt=mp+di:iftt>mthentt=m
  81. 1790 mp=tt:gosub950:ifleft$(m$(mp,0),1)<>"*"then1820
  82. 1800 ifmp<>mthengosub1550:goto1820
  83. 1810 gosub680:gosub1650
  84. 1820 return
  85. 1840 tt=mp-di:iftt<1thentt=1
  86. 1870 mp=tt:gosub950:ifleft$(m$(mp,0),1)<>"*"then1900
  87. 1880 ifmp<>1thengosub1650:goto1900
  88. 1890 gosub680:gosub1550
  89. 1900 return
  90. 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
  91. 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
  92. 2065 syste,m$(mp,0),lm,5,0
  93. 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
  94. 2110 gosub1340:ifop=1theniflw<3thensyssu:lw=lw+1:goto2110
  95. 2130 ifop=2theniflw>1thensyssd:lw=lw-1:goto2110
  96. 2140 ifop=3thengosub440:goto2250
  97. 2160 ifop=5theniflw<3thensyssu:lw=lw+1:goto2160
  98. 2170 ifop=5then2110
  99. 2180 ifop=6theniflw>1thensyssd:lw=lw-1:goto2180
  100. 2190 ifop=6then2110
  101. 2200 ifop=6theniflw>1thensyssd:lw=lw-1:goto2200
  102. 2220 gosub680:goto2110
  103. 2250 iflw=1then2310
  104. 2270 iflw=2then4410
  105. 2280 iflw=3thenlm=7:rm=36:tm=4:bm=15:gosub270:sysww:syscw,1:goto170
  106. 2290 stop
  107. 2310 rf=1:poke53280,bo:x=mp:gosub1110:ifmo=1thensyste,mid$(m$(mp,0),2),8,5,0:goto2332
  108. 2330 syste,m$(mp,0),8,5,0
  109. 2332 ifmp<>olthensys50435
  110. 2340 syste,"[199]etting the file...",8,10,0:syste,"                   ",8,11,0:syste,"                    ",8,12,0
  111. 2360 ifmp=olthen2400
  112. 2380 gosub4350:iffl=0then2390
  113. 2384 lw=3:ifmuthensys50438
  114. 2386 goto2280
  115. 2390 gosub3160
  116. 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
  117. 2440 gosub270:syscw,1:sysww:tm=1:gosub270:u$="[210]eading: ":x=mp:gosub1110:ifmo=1thenu$=u$+mid$(m$(mp,0),2):goto2470
  118. 2465 u$=u$+m$(mp,0)
  119. 2470 u$=u$+left$(sp$,40-len(u$)):syste,u$,0,0,1:ift$(0)<>"^u"andt$(0)<>"^x"then2590
  120. 2520 ifol=mpthen2560
  121. 2530 u$="u."+m$(mp,1):sysbl,us,u$:sysbl,29184,m$(mp,1)+".lnk
  122. 2560 [158]us::[141]330
  123. 2590 cb[178]3:[139]mu[167][158]50438
  124. 2592 [139]co[178]0[167][141]3570
  125. 2594 [139]co[167][141]3520
  126. 2595 ol[178]mp:[141]270:lp[178]1:[141]2640:[141]270:[137]2720
  127. 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
  128. 2675 [139]x[177]nl[167][158]te," ",lm,tt,0:[137]2690
  129. 2680 [158]te," "[170]t$(x),lm,tt,0
  130. 2690 tt[178]tt[170]1:[130]:[142]
  131. 2720 [141]1340:[139]op[178]1[167][141]2820
  132. 2740 [139]op[178]2[167][141]2900
  133. 2760 [139]op[178]3[167]2980
  134. 2770 [139]op[178]5[167][141]3030
  135. 2780 [139]op[178]6[167][141]3100
  136. 2790 [139]op[178]7[167][141]3870:[137]2360
  137. 2800 [137]2720
  138. 2820 [139]lp[170]di[177][178]nl[167]2870
  139. 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
  140. 2870 [141]680
  141. 2880 [142]
  142. 2900 [139]lp[178]1[167]2950
  143. 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
  144. 2950 [141]680
  145. 2960 [142]
  146. 2980 [141]390:[158]cw,1:[158]ww:[141]270:[139]m$(mp,2)[178]"req"[167]1920
  147. 3010 [137]170
  148. 3030 tp[178]lp[170]di[170]1:[139]tp[177]nl[167][141]680:[137]3080
  149. 3060 [139]tp[179]1[167][141]680:tp[178]1
  150. 3070 lp[178]tp:[141]2640
  151. 3080 [142]
  152. 3100 tp[178]lp[171]di[171]1:[139]tp[179]1[167][141]680:tp[178]1
  153. 3130 lp[178]tp:[141]2640:[142]
  154. 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]
  155. 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]
  156. 3460 mu[178][168]mu:[141]5000:[139]mu[167][158]50432,40960:[137]3500
  157. 3490 [158]50435
  158. 3500 [14