home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / presenter (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  230 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:r=53265:j=128:sys38921,49152,"menu.help.lnk":sys38921,51306,"w.gladiolus.*":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$="                                             
  4. 120 lm[178]1:rm[178]38:tm[178]3:bm[178]20:[141]270:[158]ww:[158]cw,16:lp[178]1:lm[178]1:rm[178]38:tm[178]3:bm[178]19:[141]270:[158]ww:[158]cw,1:[141]3220:[139]mu[167][158]50432,40960
  5. 160 [141]530:[158]51459:[151]53270,[194](53270)[175]239
  6. 170 lm[178]1:rm[178]37:tm[178]3:bm[178]19:[141]3220:[141]950
  7. 230 [139][200](m$(mp,0),1)[178]"*"[167][141]1550:[137]230
  8. 240 [137]1200
  9. 270 [151]828,lm:[151]829,rm:[151]830,tm:[151]831,bm:di[178]bm[171]tm:[142]
  10. 330 lm[178][194](828):rm[178][194](829):tm[178][194](830):bm[178][194](831):di[178]bm[171]tm:[142]
  11. 390 [151]828,0:[151]829,39:[151]830,0:[151]831,19:[142]
  12. 440 sh[178]6:xp[178]4:yp[178]9:[141]530:[158]51462:[129]dl[178]1[164]100:[130]:sh[178]5:xp[178]1:yp[178]9:[141]530:[158]51462:[158]te,[200](m$(mp,3),1),2,12,0:[142]
  13. 530 [151]249,224:[151]250,204:[151]251,0:[151]252,sb:[151]253,xp:[151]254,yp:[151]255,sh:[142]
  14. 600 [141]270:[158]ww:qu[178]0:[141]4020:[139]qu[178]1[167][142]
  15. 630 [129]dl[178]1[164]200:[130]:[141]530:[158]51459:[158]50435:[153]"load":[151]56,160:[156]:[151]808,237:[151]56325,59:[147]"goodbye",8:[128]
  16. 680 v[178]53248:[139](mu)[167]730
  17. 700 [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
  18. 730 [129]i[178]59[164]63:[146]r,j:[151]r,i:[130]:[129]i[178]63[164]56[169][171]1:[146]r,j:[146]r,j:[151]r,i:[130]:[129]i[178]56[164]59:[146]r,j:[146]r,j:[146]r,j:[146]r,j:[151]r,i:[130]:[142]
  19. 780 [158]re,29184,t$(0):mo$[178]t$(2):m[178]1:nl[178][194](251)[170][194](252)[172]256[171]2:nl[178](nl[171]2)[173]4:c[178]3:[129]x[178]1[164]nl:m$(x,0)[178]t$(c):t$(c)[178]"":m$(x,1)[178]t$(c[170]1):t$(c[170]1)[178]"":m$(x,2)[178]t$(c[170]2):t$(c[170]2)[178]"":m$(x,3)[178]t$(c[170]3):t$(c[170]3)[178]"":c[178]c[170]4:[130]:m[178]nl:a[178][194](51)[170][194](52)[172]256:a[178]a[171]1:ah[178][181](a[173]256):al[178]a[171]ah[172]256
  20. 890 [159]2,8,2,"setup":[132]2,bo,bk,tc,pa,sa:[160]2:mu[178][194](179):co[178][194](180):[139]mu[179][177]1[175]mu[179][177]0[167]mu[178]1
  21. 914 [139]mu[178]1[167]mu[178][171]1
  22. 916 [139]co[179][177]1[175]co[179][177]0[167]co[178]1
  23. 918 [139]co[178]1[167]co[178][171]1
  24. 920 [129]x[178]0[164]24:[151]s[170]x,0:[130]:mp[178][194](178):[141]4130:[139]s$[178]"1"[167]930
  25. 927 [139]mp[179][177]0[167]930
  26. 928 mp[178]1
  27. 929 [143] ifm$(mp,3)<>s$thenmp=mp+1:goto929
  28. 930 [139]mp[179]1[176]mp[177]nl[167]mp[178]1
  29. 935 [142]
  30. 950 rf[178]0:lm[178]8:rm[178]38:[141]270:[158]ww:[158]cw,1:sh[178]5:xp[178]1:yp[178]9:[141]530:[158]51462:yp[178]3:xp[178]lm:br[178]mp[171]8[170][182](mp[177]8):[129]x[178]br[164]mp[170]9:[139]x[179]0[167][158]te," ",xp,yp,0:[137]1070
  31. 1020 [139]x[178]0[167]x[178]1
  32. 1030 mo[178]0:[141]1110:[141]1160:[139]fl[178]1[167][158]te,[202](m$(x,0),2),xp,yp,mo:[137]1070
  33. 1060 [158]te,m$(x,0),xp,yp,mo
  34. 1070 yp[178]yp[170]1:[130]:[142]
  35. 1110 mo[178]0:[139][200](m$(x,0),1)[178]"+"[176][200](m$(x,0),1)[178]"!"[167]mo[178]1
  36. 1140 [142]
  37. 1160 fl[178]0:[139][200](m$(x,0),1)[178]"+"[176][200](m$(x,0),1)[178]"*"[167]fl[178]1
  38. 1172 [139][200](m$(x,0),1)[178]"!"[167]fl[178]1
  39. 1180 [142]
  40. 1200 [151]53280,6
  41. 1220 [158]te,m$(mp,3),2,12,0:[141]1340:[139]op[178]1[167][141]1550
  42. 1250 [139]op[178]2[167][141]1650
  43. 1260 [139]op[178]3[167][141]440:lm[178]7:rm[178]37:[141]270:[158]ww:[158]cw,1:[137]1920
  44. 1270 [139]op[178]4[167][141]600:[151]828,7:[151]831,17:[151]829,37:[158]cw,1:[158]ww:[141]950
  45. 1272 [139]op[178]4[167]1200
  46. 1280 [139]op[178]5[167][141]1760
  47. 1290 [139]op[178]6[167][141]1840
  48. 1300 [139]op[178]7[167][141]3720:lm[178]7:[141]270:[158]ww:[158]cw,1:[137]170
  49. 1310 [137]1220
  50. 1340 :
  51. 1350 [139]mu[175][194](666)[178]0[167][158]50432,40960
  52. 1352 [139][194](197)[178]64[175][194](56320)[178]127[167]1350
  53. 1360 a[178][194](197):j%[178][168][194](56320)[175]31:b[178][194](653):[151]198,.
  54. 1363 [139](b[175]1)[175](a[178]7)[167]op[178]2:[137]1530
  55. 1366 [139](b[175]1)[175](a[178]2)[167]op[178]1:[137]1530
  56. 1370 [139]a[178]64[175]j%[178]0[167]1350
  57. 1380 [139]a[178]6[176]a[178]7[176]j%[178]2[167]op[178]1:[137]1530
  58. 1390 [139]a[178]5[176]a[178]2[176]j%[178]1[167]op[178]2:[137]1530
  59. 1400 [139]a[178]1[176]a[178]60[176]j%[178]16[167]op[178]3:[137]1530
  60. 1410 [139]a[178]62[167]op[178]4:[137]1530
  61. 1420 [139]a[178]3[176]j%[178]8[167]op[178]5:[137]1530
  62. 1430 [139]a[178]4[176]j%[178]4[167]op[178]6:[137]1530
  63. 1440 [139]a[178]41[167]op[178]7:[137]1530
  64. 1470 [139]a[178]13[167][141]3460:[137]1350
  65. 1480 [139]a[178]20[175]rf[178]1[167][141]3520:[137]1350
  66. 1490 [139]a[178]28[175]rf[178]1[167][141]3570:[137]1350
  67. 1510 [139]mm[178].[167][141]9000:[137]1363
  68. 1520 mm[178].:[137]1350
  69. 1530 mm[178].:[142]
  70. 1550 :
  71. 1560 [139]mp[178]m[167][141]680:[137]1630
  72. 1570 [141]270:[158]su:mp[178]mp[170]1:yp[178]bm:xp[178]lm:x[178]mp[170]9:[141]1110:[141]1160:[158]te,[200](sp$,30),xp,yp,0:[139]fl[178]1[167][158]te,[202](m$(x,0),2),xp,yp,mo:[137]1610
  73. 1600 [158]te,m$(x,0),xp,yp,mo
  74. 1610 [139][200](m$(mp,0),1)[179][177]"*"[175][200](m$(mp,0),1)[179][177]"!"[167]1630
  75. 1620 [139]mp[179][177]m[167]1560
  76. 1622 [141]680:[141]1650
  77. 1630 [142]
  78. 1650 :
  79. 1660 [139]mp[178]1[167][141]680:[137]1740
  80. 1670 [141]270:[158]sd:mp[178]mp[171]1:yp[178]tm:xp[178]lm:x[178]mp[171]7:[158]te,[200](sp$,30),xp,yp,0:[139]x[179]1[167][158]te," ",xp,yp,0:[137]1720
  81. 1690 [141]1110:[141]1160:[139]fl[178]1[167][158]te,[202](m$(x,0),2),xp,yp,mo:[137]1720
  82. 1710 [158]te,m$(x,0),xp,yp,mo
  83. 1720 [139][200](m$(mp,0),1)[179][177]"*"[175][200](m$(mp,0),1)[179][177]"!"[167]1740
  84. 1730 [139]mp[179][177]1[167]1660
  85. 1732 [141]680:[141]1550
  86. 1740 [142]
  87. 1760 tt[178]mp[170]di:[139]tt[177]m[167]tt[178]m
  88. 1790 mp[178]tt:[141]950:[139][200](m$(mp,0),1)[179][177]"*"[175][200](m$(mp,0),1)[179][177]"!"[167]1820
  89. 1800 [139]mp[179][177]m[167][141]1550:[137]1820
  90. 1810 [141]680:[141]1650
  91. 1820 [142]
  92. 1840 tt[178]mp[171]di:[139]tt[179]1[167]tt[178]1
  93. 1870 mp[178]tt:[141]950:[139][200](m$(mp,0),1)[179][177]"*"[175][200](m$(mp,0),1)[179][177]"!"[167]1900
  94. 1880 [139]mp[179][177]1[167][141]1650:[137]1900
  95. 1890 [141]680:[141]1550
  96. 1900 [142]
  97. 1920 sh[178]1:xp[178]0:yp[178]20:[141]530:[158]51462:cb[178]2:[141]5000:sh[178]0:xp[178]0:yp[178]0:[141]530:[158]51462:[141]270:rf[178]0:sh[178]4:xp[178]7:yp[178]4:[141]530:[158]51462:t$[178]m$(mp,2):[139]t$[178]"100"[167]2310
  98. 1980 lm[178]8:rm[178]29:tm[178]6:bm[178]14:[141]270: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:sh[178]5:xp[178]1:yp[178]9:[141]530:[158]51462:[158]te,m$(mp,3),2,12,0:x[178]mp:[141]1110:[139]mo[178]1[167][158]te,[202](m$(mp,0),2),lm,5,0:[137]2070
  99. 2065 [158]te,m$(mp,0),lm,5,0:ld[178]10:nq[178]1
  100. 2070 [139][202](t$,1,1)[178]"1"[167][158]te,"(NULL)ead it",lm,ld,0:ld[178]ld[170]1:nq[178]nq[170]1
  101. 2080 [139][202](t$,2,1)[178]"1"[167][158]te,"(NULL)un it",lm,ld,0:ld[178]ld[170]1:nq[178]nq[170]1
  102. 2090 [139][202](t$,3,1)[178]"1"[167][158]te,"lenopy it",lm,ld,0:ld[178]ld[170]1:nq[178]nq[170]1
  103. 2092 [158]te,"peekack to (NULL)ain (NULL)enu",lm,ld,0:lw[178]1
  104. 2110 [141]1340:[139]op[178]1[167][139]lw[179]nq[167][158]su:lw[178]lw[170]1:[137]2110
  105. 2130 [139]op[178]2[167][139]lw[177]1[167][158]sd:lw[178]lw[171]1:[137]2110
  106. 2140 [139]op[178]3[167][141]440:[137]2250
  107. 2160 [139]op[178]5[167][139]lw[179]nq[167][158]su:lw[178]lw[170]1:[137]2160
  108. 2170 [139]op[178]5[167]2110
  109. 2180 [139]op[178]6[167][139]lw[177]1[167][158]sd:lw[178]lw[171]1:[137]2180
  110. 2190 [139]op[178]6[167]2110
  111. 2200 [139]op[178]6[167][139]lw[177]1[167][158]sd:lw[178]lw[171]1:[137]2200
  112. 2220 [141]680:[137]2110
  113. 2250 [139]lw[178]nq[167]2282
  114. 2257 pt[178]1:nu[178]0
  115. 2260 [139][202](t$,pt,1)[179][177]"1"[167]pt[178]pt[170]1:[137]2260
  116. 2264 nu[178]nu[170]1:[139]nu[179][177]lw[167]pt[178]pt[170]1:[137]2260
  117. 2280 [145]pt[137]2310,4410,8000
  118. 2282 lm[178]7:rm[178]36:tm[178]4:bm[178]15:[141]270:[158]ww:[158]cw,1:[13