home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 21 / 021.d81 / pgm.demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  10.5 KB  |  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. 1900 nexti
  185. 1910 t1=5000:gosub2960
  186. 1920 sysba+51,23551,0,0
  187. 1930 av=0:ag=0:s=23551:ae=1:re=1
  188. 1940 rem save 25 screen cells
  189. 1950 forrw=0to24step5
  190. 1960 forcl=0to39step8
  191. 1970 s1(ae)=s:r(ae)=rw:c(ae)=cl
  192. 1980 sysba+48,s,rw,cl,5,8
  193. 1990 s=peek(781)+peek(782)*256+1:ae=ae+1
  194. 2000 nextcl:nextrw
  195. 2010 rem scramble screen
  196. 2020 fori=1to100
  197. 2030 r=int(rnd(1)*25)+1:r=r(r)
  198. 2040 c=int(rnd(1)*25)+1:c=c(c)
  199. 2050 a=int(rnd(1)*25)+1:a=s1(a)
  200. 2060 sysba+51,a,r,c
  201. 2070 nexti
  202. 2080 t1=1000:gosub2960
  203. 2090 ae=1
  204. 2100 forrw=1to5
  205. 2110 forcl=1to5:aa=s1(ae):r=r(ae):c=c(cl)
  206. 2120 sysba+51,aa,r,c
  207. 2130 ae=ae+1
  208. 2140 nextcl,rw:t1=1000:gosub2960
  209. 2150 rem square
  210. 2160 sysba+39,a3,0,0,"[144][144][147][137][138]"
  211. 2170 sysba+39,a3,0,4,"[133][153][215]indows can be created by command."
  212. 2180 x1=40:y1=25:x2=176:y2=103:c1=6:c2=0:gosub2900:rem draw box
  213. 2190 t1=2000:gosub2960
  214. 2200 sysba+117,0,0,0,2,40
  215. 2210 sysba+39,a3,0,4,"[133][129][193]nd can contain text or graphics."
  216. 2220 t1=500:gosub2960
  217. 2230 fori=1to35:gosub2900:x1=x1+2:x2=x2-2:y1=y1+2:y2=y2-2:next
  218. 2240 t1=3000:gosub2960
  219. 2250 sysba+117,0,0,0,2,40
  220. 2260 sysba+39,a3,0,4,"[133][156][212]hen stored quickly away."
  221. 2270 sysba+48,23551,3,5,10,17
  222. 2280 t1=1000:gosub2960
  223. 2290 sysba+117,0,0,0,2,40
  224. 2300 sysba+39,a3,0,2,"[133][207]nce stored they can be erased."
  225. 2310 sysba+117,0,3,5,12,19
  226. 2320 t1=3000:gosub2960
  227. 2330 sysba+117,0,0,0,2,40
  228. 2340 sysba+39,a3,0,4,"[133][129][193]nd just as easily restored."
  229. 2350 sysba+51,23551,3,2
  230. 2360 t1=2000:gosub2960
  231. 2370 sysba+117,0,0,0,2,40
  232. 2380 sysba+39,a3,0,9,"[133][150][207]r even duplicated!"
  233. 2390 sysba+51,23551,14,2
  234. 2400 sysba+51,23551,14,20
  235. 2410 sysba+51,23551,3,20
  236. 2420 t1=3000:gosub2960
  237. 2430 sysba+117,0,0,0,2,40
  238. 2440 sysba+39,a3,0,4,"[133][154][193] window's color can be changed."
  239. 2450 sysba+111,14,2,10,17,2,0
  240. 2460 sysba+111,14,20,10,17,5,0
  241. 2470 sysba+111,3,20,10,17,7,0
  242. 2480 t1=4000:gosub2960
  243. 2490 sysba+117,0,0,0,2,40
  244. 2500 sysba+39,a3,0,4,"[133][154][193]nd color can be restored too!"
  245. 2510 sysba+111,14,2,10,17,6,0
  246. 2520 sysba+111,14,20,10,17,6,0
  247. 2530 sysba+111,3,20,10,17,6,0
  248. 2540 t1=4000:gosub2960
  249. 2550 sysba+117,0,0,0,2,40
  250. 2560 sysba+39,a3,0,12,"[133][201]t's up to you."
  251. 2570 sysba+117,0,2,0,23,40
  252. 2580 sysba+51,23551,5,11
  253. 2590 t1=2000:gosub2960
  254. 2600 fori=0to3:forj=1to15
  255. 2610 sysba+111,5,11,10,17,j,0
  256. 2620 t1=100:gosub2960
  257. 2630 next:next
  258. 2640 sysba+111,5,11,10,17,2,0
  259. 2650 t1=4000:gosub2960
  260. 2652 sysba+27:poke53281,6:sysba+3:poke55,0:poke56,160:load"hello connect",8
  261. 2660 rem animate 8 demo
  262. 2670 sysba+84,0,0,0,1,1,2,10,6
  263. 2680 sysba+84,1,0,0,0,0,6
  264. 2690 sysba+39,a3,2,2,"[147][133][134][193]nimate all [135][158]eight[139]"
  265. 2700 sysba+39,a3,5,2,"[133][134]sprites at [135][129]once[139]!![137][138]"
  266. 2710 x2=int(rnd(1)*200)+120:y2=int(rnd(1)*125)+100:f=0
  267. 2720 sysba+90,772,8
  268. 2730 forj=1to7:sysba+87,j,0,0,0:next
  269. 2740 sysba+87,0,0,0,4:sysba+81,1,255
  270. 2750 fori=1to25
  271. 2760 sysba+99,0,x2,y2,1,4,11,1,4,11,5:fort=1to50:next
  272. 2770 forj=1to7
  273. 2780 sysba+99,j,x2,y2,2,0,3,1,0,3,2:fort=1to35:next:next
  274. 2790 x1=x2:y1=y2
  275. 2800 x2=int(rnd(1)*200)+120:y2=int(rnd(1)*125)+100
  276. 2810 ifx2>x1andf=1thensysba+90,768,12:f=0:sysba+84,0,1,0,1,1,2,10,6
  277. 2820 ifx2<x1andf=0thensysba+90,768,12:f=1:sysba+84,0,1,0,1,1,10,2,6
  278. 2830 next
  279. 2840 sysba+99,0,0,0,1,4,11,1
  280. 2850 fort=1to7:sysba+99,t,0,0,1,0,3,1:next:t1=1000:gosub2960
  281. 2860 fort=0to7:sysba+102,t,0:next:sysba+81,0,255
  282. 2870 iff=1thensysba+90,768,12
  283. 2880 return
  284. 2890 rem box
  285. 2900 sysba+60,x1,y1,x2,y1,c1,c2
  286. 2910 sysba+60,x2,y1,x2,y2,c1,c2
  287. 2920 sysba+60,x2,y2,x1,y2,c1,c2
  288. 2930 sysba+60,x1,y2,x1,y1,c1,c2
  289. 2940 return
  290. 2950 aa=peek(781)+peek(782)*256+1:return
  291. 2960 fort=1tot1:next:return
  292. 2970 sysba+39,a7,0,0,"[144][144][147]"
  293. 2980 rem make stars
  294. 2990 sysba+81,0,255:fori=0to200
  295. 3000 x=int(rnd(.)*320):y=int(rnd(.)*200)
  296. 3010 c=int(rnd(.)*15)+1
  297. 3020 sysba+54,x,y,c,0
  298. 3030 next
  299. 3040 sysba+39,a7,2,8,"[133][156][213]se 14 sprites at once![137]"
  300. 3050 sysba+78,160,255:sysba+81,0,255
  301. 3060 sysba+69,0,0
  302. 3070 fori=7to12:sysba+84,i,0,0,0,1,6,5,1
  303. 3080 sysba+87,i,50+(i-7)*30,250,13:next
  304. 3090 fori=1to6:sysba+84,i,0,0,0,1,11,12,15:next
  305. 3100 sysba+84,13,0,0,0,0,11
  306. 3110 sysba+84,0,0,0,0,0,12
  307. 3120 fori=1to3:y=int(rnd(.)*155):sysba+87,i,0,y,28:next
  308. 3130 fori=4to6:y=int(rnd(.)*155):sysba+87,i,350,y,28:next
  309. 3140 y=int(rnd(.)*250):sysba+87,13,350,y,28
  310. 3150 y=int(rnd(.)*250):sysba+87,0,0,y,28
  311. 3160 sysba+81,1,255
  312. 3170 by=255:bp=13:x(0)=350:x(1)=0:k1=1:k=-1:k2=0:l1=0
  313. 3180 forv=1to13
  314. 3190 fori=1to3:y=int(rnd(1)*79)+60:sysba+99,i,x(k2),y,8-i:next
  315. 3200 fortt=1to3
  316. 3210 l1=l1+1:ifl1>15then:ifby>180thenby=by-1
  317. 3220 fori=7to12:sysba+87,i,50+(i-7)*50,by,bp:next:bp=bp+1
  318. 3230 ifbp=28thenbp=13
  319. 3240 next
  320. 3250 fori=4to6:y=int(rnd(1)*79)+60:sysba+99,i,x(k1),y,11-i:next
  321. 3260 y=int(rnd(1)*99)+40:sysba+99,0,x(k2),y,2
  322. 3270 y=int(rnd(1)*99)+40:sysba+99,7,x(k1),y,4
  323. 3280 k1=k1+k:k=k*-1:k2=k2+k
  324. 3290 fortt=1to20
  325. 3300 l1=l1+1:ifl1>9then:ifby>180thenby=by-1
  326. 3310 fori=7to12:sysba+87,i,50+(i-7)*50,by,bp:next:bp=bp+1
  327. 3320 ifbp=28thenbp=13
  328. 3330 next:next:sysba+81,0,255
  329. 3340 forq=0to13:sysba+87,q,0,0,0:next
  330. 3350 sysba+75:sysba+39,a2,0,0,"[147]"
  331. 3360 return
  332. 5000 a(1)=a1:a(2)=a2:a(3)=a3:a(4)=a4:a(5)=a5:a(6)=a6:a(7)=a7:a(8)=a8:a(9)=a9
  333. 5005 a(0)=a0
  334. 5007 fort=0to9
  335. 5010 sysba+39,a(t),1,0,"[144][144][147][154]@abcdefghijklmnopqrstuvwxyz[\]^_ !#$%&'()*+,-./"
  336. 5020 sysba+39,a(t),5,0,"0123456789:]<=>?[192][193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
  337. 5025 forj=161to191:sysba+39,a(t),9,j-161,chr$(j):next
  338. 5030 geta$:ifa$=""then5030
  339. 5040 next:end
  340.