home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 38 / 038.d81 / presenter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  223 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:sys38933,29184,35840,0:sys38921,29184,"features":ifag=0thenag=0
  3. 44 poke808,234
  4. 45 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:s=54272:poke649,1:dimm$(110,3),t$(450):gosub780:sp$="                                             ":lm=1:rm=38:tm=3:bm=20:gosub270:sysww:syscw,16
  5. 130 lp=1:lm=1:rm=38:tm=3:bm=19:gosub270:sysww:syscw,1:gosub3220:ifmuthensys50432,40960
  6. 160 gosub530:sys51459:poke53270,peek(53270)and239
  7. 170 lm=1:rm=37:tm=3:bm=19:gosub3220:gosub950
  8. 230 ifleft$(m$(mp,0),1)="*"thengosub1550:goto230
  9. 240 goto1200
  10. 270 poke828,lm:poke829,rm:poke830,tm:poke831,bm:di=bm-tm:return
  11. 330 lm=peek(828):rm=peek(829):tm=peek(830):bm=peek(831):di=bm-tm:return
  12. 390 poke828,0:poke829,39:poke830,0:poke831,19:return
  13. 440 sh=6:xp=4:yp=9:gosub530:sys51462:fordl=1to100:next:sh=5:xp=1:yp=9:gosub530:sys51462:syste,left$(m$(mp,3),1),2,12,0:return
  14. 530 poke249,224:poke250,204:poke251,0:poke252,sb:poke253,xp:poke254,yp:poke255,sh:return
  15. 600 gosub270:sysww:qu=0:gosub4020:ifqu=1thenreturn
  16. 630 fordl=1to200:next:gosub530:sys51459:sys50435:print"[147]":poke56,160:clr:poke808,237:poke56325,59:load"goodbye",8:end
  17. 680 v=53248:ifnot(mu)then730
  18. 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
  19. 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
  20. 780 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:next:m=nl:a=peek(51)+peek(52)*256:a=a-1:ah=int(a/256):al=a-ah*256
  21. 890 open2,8,2,"setup":input#2,bo,bk,tc,pa,sa:close2:mu=peek(179):co=peek(180):ifmu<>1andmu<>0thenmu=1
  22. 914 ifmu=1thenmu=-1
  23. 916 ifco<>1andco<>0thenco=1
  24. 918 ifco=1thenco=-1
  25. 920 forx=0to24:pokes+x,0:next:mp=peek(178):gosub4130:ifs$="1"then930
  26. 927 ifmp<>0then930
  27. 928 mp=1
  28. 929 rem ifm$(mp,3)<>s$thenmp=mp+1:goto929
  29. 930 ifmp<1ormp>nlthenmp=1
  30. 935 return
  31. 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
  32. 1020 ifx=0thenx=1
  33. 1030 mo=0:gosub1110:gosub1160:iffl=1thensyste,mid$(m$(x,0),2),xp,yp,mo:goto1070
  34. 1060 syste,m$(x,0),xp,yp,mo
  35. 1070 yp=yp+1:next:return
  36. 1110 mo=0:ifleft$(m$(x,0),1)="+"orleft$(m$(x,0),1)="!"thenmo=1
  37. 1140 return
  38. 1160 fl=0:ifleft$(m$(x,0),1)="+"orleft$(m$(x,0),1)="*"thenfl=1
  39. 1172 ifleft$(m$(x,0),1)="!"thenfl=1
  40. 1180 return
  41. 1200 poke53280,6
  42. 1220 syste,m$(mp,3),2,12,0:gosub1340:ifop=1thengosub1550
  43. 1250 ifop=2thengosub1650
  44. 1260 ifop=3thengosub440:lm=7:rm=37:gosub270:sysww:syscw,1:goto1920
  45. 1270 ifop=4thengosub600:poke828,7:poke831,17:poke829,37:syscw,1:sysww:gosub950
  46. 1272 ifop=4then1200
  47. 1280 ifop=5thengosub1760
  48. 1290 ifop=6thengosub1840
  49. 1300 ifop=7thengosub3720:lm=7:gosub270:sysww:syscw,1:goto170
  50. 1310 goto1220
  51. 1340 :
  52. 1350 ifmuandpeek(666)=0thensys50432,40960
  53. 1352 ifpeek(197)=64andpeek(56320)=127then1350
  54. 1360 a=peek(197):j%=notpeek(56320)and31:poke198,0:ifa=64andj%=0then1350
  55. 1380 ifa=6ora=7orj%=2thenop=1:goto1530
  56. 1390 ifa=5ora=2orj%=1thenop=2:goto1530
  57. 1400 ifa=1ora=60orj%=16thenop=3:goto1530
  58. 1410 ifa=62thenop=4:goto1530
  59. 1420 ifa=3orj%=8thenop=5:goto1530
  60. 1430 ifa=4orj%=4thenop=6:goto1530
  61. 1440 ifa=41thenop=7:goto1530
  62. 1470 ifa=13thengosub3460:goto1350
  63. 1480 ifa=20andrf=1thengosub3520:goto1350
  64. 1490 ifa=28andrf=1thengosub3570:goto1350
  65. 1510 gosub680:goto1350
  66. 1530 return
  67. 1550 :
  68. 1560 ifmp=mthengosub680:goto1630
  69. 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$(x,0),2),xp,yp,mo:goto1610
  70. 1600 syste,m$(x,0),xp,yp,mo
  71. 1610 ifleft$(m$(mp,0),1)<>"*"andleft$(m$(mp,0),1)<>"!"then1630
  72. 1620 ifmp<>mthen1560
  73. 1622 gosub680:gosub1650
  74. 1630 return
  75. 1650 :
  76. 1660 ifmp=1thengosub680:goto1740
  77. 1670 gosub270:syssd:mp=mp-1:yp=tm:xp=lm:x=mp-7:syste,left$(sp$,30),xp,yp,0:ifx<1thensyste," ",xp,yp,0:goto1720
  78. 1690 gosub1110:gosub1160:iffl=1thensyste,mid$(m$(x,0),2),xp,yp,mo:goto1720
  79. 1710 syste,m$(x,0),xp,yp,mo
  80. 1720 ifleft$(m$(mp,0),1)<>"*"andleft$(m$(mp,0),1)<>"!"then1740
  81. 1730 ifmp<>1then1660
  82. 1732 gosub680:gosub1550
  83. 1740 return
  84. 1760 tt=mp+di:iftt>mthentt=m
  85. 1790 mp=tt:gosub950:ifleft$(m$(mp,0),1)<>"*"andleft$(m$(mp,0),1)<>"!"then1820
  86. 1800 ifmp<>mthengosub1550:goto1820
  87. 1810 gosub680:gosub1650
  88. 1820 return
  89. 1840 tt=mp-di:iftt<1thentt=1
  90. 1870 mp=tt:gosub950:ifleft$(m$(mp,0),1)<>"*"andleft$(m$(mp,0),1)<>"!"then1900
  91. 1880 ifmp<>1thengosub1650:goto1900
  92. 1890 gosub680:gosub1550
  93. 1900 return
  94. 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$="100"then2310
  95. 1980 lm=8:rm=29:tm=6:bm=14: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
  96. 2065 syste,m$(mp,0),lm,5,0:ld=10:nq=1
  97. 2070 ifmid$(t$,1,1)="1"thensyste,"[210]ead it",lm,ld,0:ld=ld+1:nq=nq+1
  98. 2080 ifmid$(t$,2,1)="1"thensyste,"[210]un it",lm,ld,0:ld=ld+1:nq=nq+1
  99. 2090 ifmid$(t$,3,1)="1"thensyste,"[195]opy it",lm,ld,0:ld=ld+1:nq=nq+1
  100. 2092 syste,"[194]ack to [205]ain [205]enu",lm,ld,0:lw=1
  101. 2110 gosub1340:ifop=1theniflw<nqthensyssu:lw=lw+1:goto2110
  102. 2130 ifop=2theniflw>1thensyssd:lw=lw-1:goto2110
  103. 2140 ifop=3thengosub440:goto2250
  104. 2160 ifop=5theniflw<nqthensyssu:lw=lw+1:goto2160
  105. 2170 ifop=5then2110
  106. 2180 ifop=6theniflw>1thensyssd:lw=lw-1:goto2180
  107. 2190 ifop=6then2110
  108. 2200 ifop=6theniflw>1thensyssd:lw=lw-1:goto2200
  109. 2220 gosub680:goto2110
  110. 2250 iflw=nqthen2282
  111. 2257 pt=1:nu=0
  112. 2260 ifmid$(t$,pt,1)<>"1"thenpt=pt+1:goto2260
  113. 2264 nu=nu+1:ifnu<>lwthenpt=pt+1:goto2260
  114. 2280 onptgoto2310,4410,8000
  115. 2282 lm=7:rm=36:tm=4:bm=15:gosub270:sysww:syscw,1:goto170
  116. 2290 stop
  117. 2310 rf=1:poke53280,bo:x=mp:gosub1110:ifmo=1thensyste,mid$(m$(mp,0),2),8,5,0:goto2332
  118. 2330 syste,m$(mp,0),8,5,0
  119. 2332 ifmp<>olthensys50435
  120. 2340 syste,"[199]etting the file...",8,10,0:forag=11to13:syste,left$(sp$,19),8,ag,0:next
  121. 2360 ifmp=olthen2400
  122. 2380 gosub4350:iffl=0then2390
  123. 2384 lw=nq:ifmuthensys50438
  124. 2386 goto2282
  125. 2390 gosub3160
  126. 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
  127. 2440 gosub270:syscw,1:sysww:tm=1:gosub270:u$="[210]eading: ":x=mp:gosub1110:ifmo=1thenu$=u$+mid$(m$(mp,0),2):goto2470
  128. 2465 u$=u$+m$(mp,0)
  129. 2470 u$=u$+left$(sp$,40-len(u$)):syste,u$,0,0,1:ifleft$(t$(0),2)<>"^u"andleft$(t$(0),2)<>"^x"then2590
  130. 2520 ifol=mpthen2560
  131. 2530 u$="u."+mid$(t$(0),4):sysbl,us,u$:sysbl,29184,mid$(t$(0),4)+".lnk
  132. 2560 [158]us::[141]330
  133. 2590 cb[178]3:[139]mu[167][158]50438
  134. 2592 [139]co[178]0[167][141]3570
  135. 2594 [139]co[167][141]3520
  136. 2595 ol[178]mp:[141]270:lp[178]1:[141]2640:[141]270:[137]2720
  137. 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
  138. 2675 [139]x[177]nl[167][158]te," ",lm,tt,0:[137]2690
  139. 2680 [158]te," "[170]t$(x),lm,tt,0
  140. 2690 tt[178]tt[170]1:[130]:[142]
  141. 2720 [141]1340:[139]op[178]1[167][141]2820
  142. 2740 [139]op[178]2[167][141]2900
  143. 2760 [139]op[178]3[167]2980
  144. 2770 [139]op[178]5[167][141]3030
  145. 2780 [139]op[178]6[167][141]3100
  146. 2790 [139]op[178]7[167][141]3870:[137]2360
  147. 2800 [137]2720
  148. 2820 [139]lp[170]di[177][178]nl[167]2870
  149. 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
  150. 2870 [141]680
  151. 2880 [142]
  152. 2900 [139]lp[178]1[167]2950
  153. 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
  154. 2950 [141]680
  155. 2960 [142]
  156. 2980 [141]390:[158]cw,1:[158]ww:[141]270:[139]m$(mp,2)[178]"100"[167]170
  157. 3010 [137]1920
  158. 3030 tp[178]lp[170]di[170]1:[139]tp[177]nl[167][141]680:[137]3080
  159. 3060 [139]tp[179]1[167][141]680:tp[178]1
  160. 3070 lp[178]tp:[141]2640
  161. 3080 [142]
  162. 3100 tp[178]lp[171]di[171]1:[139]tp[179]1[167][141]680:tp[178]1
  163. 3130 lp[178]tp:[141]2640:[142]
  164. 3160 [151]51,al:[151]52,ah:[158]fi,