home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 21 / 021.d81 / pgm.demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  11KB  |  340 lines
  1. 100 ifx=0thenx=1:load"pgm.bin",8,1
  2. 110 poke55,255:poke56,90:clr
  3. 120 dimx(8),y(8),m$(12),ht(12),s1(25),c(25),r(25)
  4. 130 cs=1:co=2:c=2:a=rnd(ti)
  5. 140 a1=40960:a2=41984:a3=42497:a4=43226:a5=44251:a6=44980:a7=45485:a8=46214
  6. 150 a9=46719:a0=47448
  7. 160 poke53280,14:poke53281,6:print"[147]"
  8. 170 ba=32768+4*256:poke646,0
  9. 180 sysba+6,57344,52224:sysba:sysba+75
  10. 185 print"[147]preparing for demo..."
  11. 190 sysba+12,40960,"char sets"
  12. 200 sysba+12,49152,"sprites"
  13. 210 sysba+39,a2,1,1,"[147][137][138][154]":sysba+24
  14. 220 sysba+3*28,0,0,0,0,0,1
  15. 230 sysba+3*29,0,350,50,0
  16. 240 sysba+3*27,1,0
  17. 250 sysba+39,55296,1,0,"  [212]his is the normal [195]64 character set."
  18. 260 sysba+39,55296,3,0,"[215]hile it is almost readable, it's not"
  19. 270 sysba+39,55296,5,0,"always right for every occasion, and it"
  20. 280 sysba+39,55296,7,0,"could not possibly be called exciting."
  21. 290 sysba+39,55296,9,0,"  [207]ther computers can mix several"
  22. 300 sysba+39,55296,11,0,"character sets, but alas not our"
  23. 310 sysba+39,55296,13,0,"faithful [195]ommodore 64."
  24. 320 t1=10000:gosub2960:poke787,7
  25. 330 sysba+39,a3,18,15,"[159][133][213]ntil [206]ow![137]":poke787,6
  26. 340 t1=4000:gosub2960:poke53280,0:poke53281,0
  27. 350 sysba+39,a3,0,2,"[144][144][147][133][134][215][197][204][195][207][205][197] [212][207] [208][199][205] 64[137][138]"
  28. 360 t1=1500:gosub2960
  29. 370 sysba+39,a3,3,4,"[133][154][217]ou can now display many sizes,[137]"
  30. 380 t1=1500:gosub2960
  31. 390 sysba+39,a6,6,3,"[134][129]fonts and shapes,[137][138]"
  32. 400 t1=1500:gosub2960
  33. 410 sysba+39,a4,8,5,"even [211]cript fonts can be used![137][138]"
  34. 420 t1=3000:gosub2960
  35. 430 sysba+39,a5,10,0,"[152][200][201][210][197][211] [199][210][193][208][200][201][195][211] [195][193][206] [194][197] [207][206] [212][200][197] [211][193][205][197] [211][195][210][197][197][206][137][138]"
  36. 435 sysba+39,a1,19,0,"[156]y=sin "
  37. 436 sysba+39,a0,19,6,"d[188]"
  38. 440 x1=50:y1=150:x2=270:y2=90
  39. 450 fori=y2toy1step10
  40. 460 sysba+60,x1,i,x2,i,3,0
  41. 470 nexti
  42. 480 fori=x1tox2step10
  43. 490 sysba+60,i,y1,i,y2,3,0
  44. 500 nexti
  45. 510 x=x1:fori=0to25.14step.1143:s=120-sin(i)*24
  46. 520 sysba+60,x1,y1,x,s,3,0:x=x+1:x1=x:y1=s:nexti
  47. 530 t1=2500:gosub2960
  48. 540 sysba+36,a1,21,0,"[159][207]f course [158]80 column [159]text is supported,"
  49. 550 sysba+36,a1,20,20,"[133][159]including [135][153]double height[139] [159]in 80 columns![137]"
  50. 560 t1=2500:gosub2960
  51. 570 sysba+39,a2,23,1,"[133][134][135][150]even underline it![137][138][139]"
  52. 580 t1=4000:gosub2960
  53. 590 sysba+39,a4,2,0,"[133][134][156][147][215]elcome"
  54. 600 sysba+39,a5,6,0,"[133][134] [212]o [212]he [215]orld"
  55. 610 sysba+39,a3,10,0,c$+"[133][134]  [207][198] [196][217][206][193][205][201][195] [211][208][210][201][212][197][211]":cs=1
  56. 620 sysba+84,0,0,0,0,0,14
  57. 630 fori=1to30
  58. 640 c=c+1:ifc=16thenc=0
  59. 650 rx=int(rnd(1)*335):ry=int(rnd(1)*190)+35
  60. 660 sysba+99,0,rx,ry,3,0,3,cs,0,3,cs
  61. 670 t1=150:gosub2960
  62. 680 next
  63. 690 sysba+99,0,163,117,3,0,3,cs,0,3,cs
  64. 700 fori=1to7:sysba+3*28,i,0,0,0,0,i+6:nexti
  65. 710 fori=1to7:sysba+3*29,i,163,117,0:nexti:forj=1to100:nextj
  66. 720 t1=1000:gosub2960
  67. 730 sysba+81,1,0:sysba+99,0,40,140,1,0,3,cs,0,3,cs
  68. 740 sysba+81,1,1:sysba+99,1,40,60,1,0,3,cs,0,3,cs
  69. 750 sysba+81,1,2:sysba+99,2,170,60,1,0,3,cs,0,3,cs
  70. 760 sysba+81,1,3:sysba+99,3,320,60,1,0,3,cs,0,3,cs
  71. 770 sysba+81,1,4:sysba+99,4,40,220,1,0,3,cs,0,3,cs
  72. 780 sysba+81,1,5:sysba+99,5,170,220,1,0,3,cs,0,3,cs
  73. 790 sysba+81,1,6:sysba+99,6,320,220,1,0,3,cs,0,3,cs
  74. 800 sysba+81,1,7:sysba+99,7,320,140,1,0,3,cs,0,3,cs
  75. 810 t1=1000:gosub2960
  76. 820 fori=0to7:sysba+99,i,163,117,14-i,0,3,cs,0,3,cs:nexti
  77. 830 bb=8:forb=1to4:sysba+72,0+b*30,199-b*15,7,4,25,b+1,0
  78. 840 x(b)=b*30+15:y(b)=199-b*15+12
  79. 850 sysba+72,30+bb*30,139+(bb-5)*15,7,4,25,bb+1,0
  80. 860 x(bb)=bb*30+45:y(bb)=139+(bb-5)*15+12:bb=bb-1:nextb
  81. 870 fori=1to7:sysba+81,0,i:nexti
  82. 880 fori=1to8
  83. 890 sysba+81,1,i-1
  84. 900 sysba+99,i-1,x(i),y(i),1,0,3,cs,0,3,cs:nexti
  85. 910 t1=2000:gosub2960
  86. 920 fori=0to7:sysba+99,i,165,117,1,0,3,cs,0,3,cs:nexti
  87. 930 t1=250:gosub2960
  88. 940 fori=1to7:sysba+81,0,i:nexti
  89. 950 sysba+39,a3,2,0,"[147][156][134][204][197][212]'[211] [208][204][193][217] [204][201][206][197] [158][212][193][199]![137][138]":sysba+90,768,4
  90. 960 t1=1500:gosub2960:sysba+39,a3,2,2,"[147]"
  91. 970 x1=int(rnd(1)*320):y1=int(rnd(1)*200):f=0
  92. 980 sysba+99,0,x1+24,y1+50,1,0,3,cs,0,3,cs
  93. 990 x2=int(rnd(1)*320):y2=int(rnd(1)*200)
  94. 1000 forj=1to20:sysba+60,x1,y1,x2,y2,co,0
  95. 1010 ifx2>x1andf=1thensysba+90,768,4:f=0
  96. 1020 ifx2<x1andf=0thensysba+90,768,4:f=1
  97. 1030 sysba+99,0,x2+24,y2+50,1,0,3,cs,0,3,cs
  98. 1040 x1=x2:y1=y2
  99. 1050 x2=int(rnd(1)*320):y2=int(rnd(1)*200):co=int(rnd(1)*15)+1
  100. 1060 t1=200:gosub2960:next:x2=319:y2=190
  101. 1070 sysba+60,x1,y1,x2,y2,co,0
  102. 1080 sysba+99,0,x2+24,y2+50,1,0,3,cs,0,3,cs
  103. 1090 t1=500:gosub2960:sysba+81,0,255:fori=0to7:sysba+102,i,4:nexti
  104. 1100 iff=1thensysba+90,768,4
  105. 1110 sysba+39,a3,0,2,"[144][144][147]"
  106. 1120 sysba+18,52224,53223,0
  107. 1130 sysba+39,a7,0,0,"[133][215]ith the [135]auto animate[139] command you can[137]"
  108. 1140 sysba+39,a7,2,0,"[133]tell a sprite to go from point one[137]"
  109. 1150 sysba+39,a7,4,0,"[133]to point two, at a specified speed.[137]"
  110. 1160 sysba+39,a7,6,0,"[133][212]he sprite moves without [153][135]any[139] other[137]"
  111. 1170 sysba+39,a7,8,0,"[133]instructions being necessary.[137]"
  112. 1180 t1=7000:gosub2960
  113. 1190 sysba+84,1,1,0,1,1,2,10,6
  114. 1200 sysba+87,1,300,180,4
  115. 1210 sysba+81,0,255:sysba+81,1,1
  116. 1220 sysba+39,a7,11,0,"[133][212]his is [210]alph.[137]"
  117. 1230 t1=2000:gosub2960
  118. 1240 sysba+39,a7,14,0,"[133][200]e's a sprite and you're not."
  119. 1250 t1=2500:gosub2960
  120. 1260 sysba+39,a3,23,6,"[133][134][156][215]atch him run![137][138]"
  121. 1270 sysba+99,1,40,180,5,4,11,3,4,4,0
  122. 1280 t1=4000:gosub2960
  123. 1290 sysba+117,0,23,0,2,40
  124. 1300 sysba+39,a3,23,3,"[133][156][196]id you notice the pointer change?[137]"
  125. 1310 t1=3000:gosub2960
  126. 1320 sysba+117,0,23,0,2,40
  127. 1330 sysba+39,a3,23,1,"[156][133][204]et's turn him around and do it again.[137]"
  128. 1340 t1=3000:gosub2960
  129. 1350 sysba+90,772,8:sysba+84,1,1,0,1,1,10,2,6
  130. 1360 sysba+117,0,23,0,2,40
  131. 1370 sysba+39,a3,23,7,"[156][133][193]nd this time move faster![137][138]"
  132. 1380 t1=2000:gosub2960
  133. 1390 sysba+99,1,350,180,1,4,11,1
  134. 1400 t1=3000:gosub2960
  135. 1410 sysba+81,0,1
  136. 1420 sysba+90,772,8:sysba+84,1,1,0,1,1,2,10,6
  137. 1430 gosub2660
  138. 1440 gosub2970
  139. 1450 sysba+81,0,255:sysba+75:fori=0to7:sysba+102,i,0:next
  140. 1460 sysba+39,a3,1,1,"[144][147]"
  141. 1470 sysba+39,a3,2,0,"[133][134][215]elcome to the [215]orld"
  142. 1480 sysba+39,a3,6,0,"[153]   of [208]resentation"
  143. 1490 sysba+39,a3,10,0,"  [194][213][211][201][206][197][211][211] [199][210][193][208][200][201][195][211][137][138]"
  144. 1500 t1=500:gosub2960
  145. 1510 m$(0)="[202]an ":m$(1)="[198]eb ":m$(2)="[205]ar ":m$(3)="[193]pr ":m$(4)="[205]ay "
  146. 1520 m$(5)="[202]un ":m$(6)="[202]ul ":m$(7)="[193]ug ":m$(8)="[211]ep ":m$(9)="[207]ct "
  147. 1530 m$(10)="[206]ov ":m$(11)="[196]ec ":m$(12)="[193]vg "
  148. 1540 vc=int(rnd(1)*15)+1:vc$=mid$(co$,vc,1)
  149. 1550 poke53280,0
  150. 1560 poke646,0:sysba+39,a2,1,1,"[136]"
  151. 1570 x=0:y=190:poke53280,0
  152. 1580 fori=0to11
  153. 1590 ht=int(rnd(1)*68)+1
  154. 1600 sysba+36,a1,24,(i*24/8),m$(i)
  155. 1610 sysba+72,i*24,y,14,8,ht,i+1,0:ht(i)=ht:ag=ag+ht
  156. 1620 nexti:ht(i)=int(ag/13)
  157. 1630 sysba+72,i*24,y,14,8,ht(i),13,0
  158. 1640 sysba+36,a1,24,(i*24/8),m$(i)
  159. 1650 sysba+117,0,0,0,14,40:rem clr wnd
  160. 1660 sysba+39,a2,1,1,"[133][134][135][158]1985 sales analysis[137][138][139]"
  161. 1670 x1=0:y1=0:x2=319:y2=94:c1=6:c2=0:gosub2900
  162. 1680 rem tick marks
  163. 1690 fori=0to94step9.4:sysba+60,0,i,3,i,6,0:next
  164. 1700 fori=0to11:rem line graph
  165. 1710 x=i*24+12
  166. 1720 sysba+60,x,92,x,96,6,0
  167. 1730 sysba+39,a2,13,x/8,"[144][159][157]"+str$(ht(i))
  168. 1740 sysba+60,x,94-ht(i),x+24,94-ht(i+1),6,0:xb=x:yb=y
  169. 1750 nexti:x=i*24+12
  170. 1760 sysba+39,a2,13,x/8,"[144][159][157]"+str$(ht(i))
  171. 1770 t1=1000:gosub2960
  172. 1780 sysba+48,23551,0,0,25,40:rem bmcpy
  173. 1790 sysba+111,5,4,16,33,2,2:remclr clr
  174. 1800 sysba+111,5,4,16,33,2,2:remclr clr
  175. 1810 sysba+117,0,5,4,16,33:rem clr wnd
  176. 1820 sysba+39,a7,6,12,"[133][135]1986 [208]rojections[137][138][139]"
  177. 1830 x1=44:y1=45:x2=284:y2=160:c1=1:c2=2:gosub2900:rem box
  178. 1840 rem tick marks
  179. 1850 fori=45to160step11.5:sysba+60,45,i,48,i,1,2:next:in=18.462:x1=in+44
  180. 1860 y1=152:y2=y1:sh=80:fori=in+44 to 284 step in:rem line graph
  181. 1870 sysba+60,i,159,i,161,1,2
  182. 1880 yh=rnd(1)*11.42:x2=i
  183. 1890 sysba+60,x1,y1,x2,y2,6,2:x1=x2:y1=y2:y2=y2-yh
  184. 190