home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 March / Ahoy_Magazine_85-03_1985_Double_L.d64 / function (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  298 lines
  1. 10 poke53280,0:poke53281,11:goto 1000
  2. 100 print tab(20)"[156]   [155]       "
  3. 110 print tab(20)"[156]   [155] f "i"  "
  4. 120 print tab(20)"[156]   [155][164][164][164][164][164][164][164]"
  5. 130 print tab(20)"[156]   [155] f "i+1"  "
  6. 140 print tab(20)"[156]   [155]       "
  7. 150 print tab(20)"[144][183][183][183][183][183][183][183][183][183][183][183]"
  8. 160 return
  9. 1000 print chr$(147);:poke53272,23:for i=1to7 step2:gosub100:next
  10. 2000 print"[208][210][207][199][210][193][205][157][157][157][157][206][207][215]"
  11. 3000 print"[204][207][193][196][201][206][199]:[157][157][157][157][157][157][157][157][163][163][163][163][163][163][163][163]"
  12. 10000 rem ** display & define routine *
  13. 10010 i=36864
  14. 10020 read a:if a=256 then 50000
  15. 10030 poke i,a:i=i+1:goto 10020
  16. 36864 data 56,32,240,255,142,58,3,140
  17. 36872 data 57,3,162,0,189,0,4,157
  18. 36880 data 0,156,232,208,247,162,0,189
  19. 36888 data 0,5,157,0,157,232,208,247
  20. 36896 data 162,0,189,0,6,157,0,158
  21. 36904 data 232,208,247,162,0,189,0,7
  22. 36912 data 157,0,159,232,208,247,32,76
  23. 36920 data 150,169,5,141,33,208,141,32
  24. 36928 data 208,169,13,141,134,2,169,147
  25. 36936 data 32,210,255,162,4,160,10,24
  26. 36944 data 32,240,255,162,0,189,114,150
  27. 36952 data 240,7,32,210,255,232,76,85
  28. 36960 data 144,162,5,160,10,24,32,240
  29. 36968 data 255,162,20,169,163,32,210,255
  30. 36976 data 202,208,250,162,3,160,10,24
  31. 36984 data 32,240,255,162,20,169,114,32
  32. 36992 data 210,255,202,208,250,162,8,160
  33. 37000 data 4,24,32,240,255,162,0,189
  34. 37008 data 73,151,240,7,32,210,255,232
  35. 37016 data 76,143,144,162,0,189,176,207
  36. 37024 data 32,210,255,232,224,10,208,245
  37. 37032 data 162,9,160,4,24,32,240,255
  38. 37040 data 162,14,169,163,32,210,255,202
  39. 37048 data 208,250,162,8,160,24,24,32
  40. 37056 data 240,255,162,0,189,78,151,240
  41. 37064 data 7,32,210,255,232,76,196,144
  42. 37072 data 162,0,189,216,207,32,210,255
  43. 37080 data 232,224,10,208,245,162,9,160
  44. 37088 data 24,24,32,240,255,162,14,169
  45. 37096 data 163,32,210,255,202,208,250,162
  46. 37104 data 10,160,4,24,32,240,255,162
  47. 37112 data 0,189,83,151,240,7,32,210
  48. 37120 data 255,232,76,249,144,162,0,189
  49. 37128 data 186,207,32,210,255,232,224,10
  50. 37136 data 208,245,162,11,160,4,24,32
  51. 37144 data 240,255,162,14,169,163,32,210
  52. 37152 data 255,202,208,250,162,10,160,24
  53. 37160 data 24,32,240,255,162,0,189,88
  54. 37168 data 151,240,7,32,210,255,232,76
  55. 37176 data 46,145,162,0,189,226,207,32
  56. 37184 data 210,255,232,224,10,208,245,162
  57. 37192 data 11,160,24,24,32,240,255,162
  58. 37200 data 14,169,163,32,210,255,202,208
  59. 37208 data 250,162,12,160,4,24,32,240
  60. 37216 data 255,162,0,189,93,151,240,7
  61. 37224 data 32,210,255,232,76,99,145,162
  62. 37232 data 0,189,196,207,32,210,255,232
  63. 37240 data 224,10,208,245,162,13,160,4
  64. 37248 data 24,32,240,255,162,14,169,163
  65. 37256 data 32,210,255,202,208,250,162,12
  66. 37264 data 160,24,24,32,240,255,162,0
  67. 37272 data 189,98,151,240,7,32,210,255
  68. 37280 data 232,76,152,145,162,0,189,236
  69. 37288 data 207,32,210,255,232,224,10,208
  70. 37296 data 245,162,13,160,24,24,32,240
  71. 37304 data 255,162,14,169,163,32,210,255
  72. 37312 data 202,208,250,162,14,160,4,24
  73. 37320 data 32,240,255,162,0,189,103,151
  74. 37328 data 240,7,32,210,255,232,76,205
  75. 37336 data 145,162,0,189,206,207,32,210
  76. 37344 data 255,232,224,10,208,245,162,15
  77. 37352 data 160,4,24,32,240,255,162,14
  78. 37360 data 169,163,32,210,255,202,208,250
  79. 37368 data 162,14,160,24,24,32,240,255
  80. 37376 data 162,0,189,108,151,240,7,32
  81. 37384 data 210,255,232,76,2,146,162,0
  82. 37392 data 189,246,207,32,210,255,232,224
  83. 37400 data 10,208,245,162,15,160,24,24
  84. 37408 data 32,240,255,162,14,169,163,32
  85. 37416 data 210,255,202,208,250,162,18,160
  86. 37424 data 3,24,32,240,255,162,0,189
  87. 37432 data 135,150,240,7,32,210,255,232
  88. 37440 data 76,55,146,162,19,160,8,24
  89. 37448 data 32,240,255,162,0,189,172,150
  90. 37456 data 240,7,32,210,255,232,76,77
  91. 37464 data 146,32,228,255,240,251,201,48
  92. 37472 data 240,35,201,49,240,34,201,50
  93. 37480 data 240,33,201,51,240,32,201,52
  94. 37488 data 240,31,201,53,240,30,201,54
  95. 37496 data 240,29,201,55,240,28,201,56
  96. 37504 data 240,27,76,89,146,76,96,149
  97. 37512 data 76,160,146,76,248,146,76,80
  98. 37520 data 147,76,168,147,76,0,148,76
  99. 37528 data 88,148,76,176,148,76,8,149
  100. 37536 data 32,180,149,162,0,169,32,157
  101. 37544 data 176,207,232,224,10,208,248,162
  102. 37552 data 0,142,55,3,32,228,255,240
  103. 37560 data 251,201,13,240,22,174,55,3
  104. 37568 data 32,210,255,157,176,207,238,55
  105. 37576 data 3,174,55,3,224,10,240,3
  106. 37584 data 76,180,146,173,55,3,201,10
  107. 37592 data 240,23,32,53,150,32,228,255
  108. 37600 data 240,251,201,78,240,11,201,89
  109. 37608 data 208,243,169,13,162,9,157,176
  110. 37616 data 207,169,0,133,212,76,70,144
  111. 37624 data 32,180,149,162,0,169,32,157
  112. 37632 data 216,207,232,224,10,208,248,162
  113. 37640 data 0,142,55,3,32,228,255,240
  114. 37648 data 251,201,13,240,22,174,55,3
  115. 37656 data 32,210,255,157,216,207,238,55
  116. 37664 data 3,174,55,3,224,10,240,3
  117. 37672 data 76,12,147,173,55,3,201,10
  118. 37680 data 240,23,32,53,150,32,228,255
  119. 37688 data 240,251,201,78,240,11,201,89
  120. 37696 data 208,243,169,13,162,9,157,216
  121. 37704 data 207,169,0,133,212,76,70,144
  122. 37712 data 32,180,149,162,0,169,32,157
  123. 37720 data 186,207,232,224,10,208,248,162
  124. 37728 data 0,142,55,3,32,228,255,240
  125. 37736 data 251,201,13,240,22,174,55,3
  126. 37744 data 32,210,255,157,186,207,238,55
  127. 37752 data 3,174,55,3,224,10,240,3
  128. 37760 data 76,100,147,173,55,3,201,10
  129. 37768 data 240,23,32,53,150,32,228,255
  130. 37776 data 240,251,201,78,240,11,201,89
  131. 37784 data 208,243,169,13,162,9,157,186
  132. 37792 data 207,169,0,133,212,76,70,144
  133. 37800 data 32,180,149,162,0,169,32,157
  134. 37808 data 226,207,232,224,10,208,248,162
  135. 37816 data 0,142,55,3,32,228,255,240
  136. 37824 data 251,201,13,240,22,174,55,3
  137. 37832 data 32,210,255,157,226,207,238,55
  138. 37840 data 3,174,55,3,224,10,240,3
  139. 37848 data 76,188,147,173,55,3,201,10
  140. 37856 data 240,23,32,53,150,32,228,255
  141. 37864 data 240,251,201,78,240,11,201,89
  142. 37872 data 208,243,169,13,162,9,157,226
  143. 37880 data 207,169,0,133,212,76,70,144
  144. 37888 data 32,180,149,162,0,169,32,157
  145. 37896 data 196,207,232,224,10,208,248,162
  146. 37904 data 0,142,55,3,32,228,255,240
  147. 37912 data 251,201,13,240,22,174,55,3
  148. 37920 data 32,210,255,157,196,207,238,55
  149. 37928 data 3,174,55,3,224,10,240,3
  150. 37936 data 76,20,148,173,55,3,201,10
  151. 37944 data 240,23,32,53,150,32,228,255
  152. 37952 data 240,251,201,78,240,11,201,89
  153. 37960 data 208,243,169,13,162,9,157,196
  154. 37968 data 207,169,0,133,212,76,70,144
  155. 37976 data 32,180,149,162,0,169,32,157
  156. 37984 data 236,207,232,224,10,208,248,162
  157. 37992 data 0,142,55,3,32,228,255,240
  158. 38000 data 251,201,13,240,22,174,55,3
  159. 38008 data 32,210,255,157,236,207,238,55
  160. 38016 data 3,174,55,3,224,10,240,3
  161. 38024 data 76,108,148,173,55,3,201,10
  162. 38032 data 240,23,32,53,150,32,228,255
  163. 38040 data 240,251,201,78,240,11,201,89
  164. 38048 data 208,243,169,13,162,9,157,236
  165. 38056 data 207,169,0,133,212,76,70,144
  166. 38064 data 32,180,149,162,0,169,32,157
  167. 38072 data 206,207,232,224,10,208,248,162
  168. 38080 data 0,142,55,3,32,228,255,240
  169. 38088 data 251,201,13,240,22,174,55,3
  170. 38096 data 32,210,255,157,206,207,238,55
  171. 38104 data 3,174,55,3,224,10,240,3
  172. 38112 data 76,196,148,173,55,3,201,10
  173. 38120 data 240,23,32,53,150,32,228,255
  174. 38128 data 240,251,201,78,240,11,201,89
  175. 38136 data 208,243,169,13,162,9,157,206
  176. 38144 data 207,169,0,133,212,76,70,144
  177. 38152 data 32,180,149,162,0,169,32,157
  178. 38160 data 246,207,232,224,10,208,248,162
  179. 38168 data 0,142,55,3,32,228,255,240
  180. 38176 data 251,201,13,240,22,174,55,3
  181. 38184 data 32,210,255,157,246,207,238,55
  182. 38192 data 3,174,55,3,224,10,240,3
  183. 38200 data 76,28,149,173,55,3,201,10
  184. 38208 data 240,23,32,53,150,32,228,255
  185. 38216 data 240,251,201,78,240,11,201,89
  186. 38224 data 208,243,169,13,162,9,157,246
  187. 38232 data 207,169,0,133,212,76,70,144
  188. 38240 data 32,95,150,162,0,189,0,156
  189. 38248 data 157,0,4,232,208,247,162,0
  190. 38256 data 189,0,157,157,0,5,232,208
  191. 38264 data 247,162,0,189,0,158,157,0
  192. 38272 data 6,232,208,247,162,0,189,0
  193. 38280 data 159,157,0,7,232,208,247,162
  194. 38288 data 0,173,52,3,157,0,216,157
  195. 38296 data 0,217,157,0,218,157,0,219
  196. 38304 data 232,208,241,174,58,3,172,57
  197. 38312 data 3,24,32,240,255,169,128,133
  198. 38320 data 157,76,131,164,141,56,3,169
  199. 38328 data 147,32,210,255,162,5,160,10
  200. 38336 data 24,32,240,255,162,0,189,197
  201. 38344 data 150,240,7,32,210,255,232,76
  202. 38352 data 198,149,173,56,3,32,210,255
  203. 38360 data 162,7,160,11,24,32,240,255
  204. 38368 data 162,0,189,217,150,240,7,32
  205. 38376 data 210,255,232,76,226,149,162,9
  206. 38384 data 160,7,24,32,240,255,162,0
  207. 38392 data 189,236,150,240,7,32,210,255
  208. 38400 data 232,76,248,149,162,10,160,6
  209. 38408 data 24,32,240,255,162,0,189,7
  210. 38416 data 151,240,7,32,210,255,232,76
  211. 38424 data 14,150,162,15,160,15,24,32
  212. 38432 data 240,255,162,10,169,163,32,210
  213. 38440 data 255,202,208,250,162,14,160,15
  214. 38448 data 24,32,240,255,96,162,17,160
  215. 38456 data 2,24,32,240,255,162,0,189
  216. 38464 data 36,151,240,7,32,210,255,232
  217. 38472 data 76,63,150,96,173,134,2,141
  218. 38480 data 52,3,173,32,208,141,53,3
  219. 38488 data 173,33,208,141,54,3,96,173
  220. 38496 data 52,3,141,134,2,173,53,3
  221. 38504 data 141,32,208,173,54,3,141,33
  222. 38512 data 208,96,70,85,78,67,84,73
  223. 38520 data 79,78,32,68,69,70,73,78
  224. 38528 data 73,84,73,79,78,83,0,69
  225. 38536 data 78,84,69,82,32,70,85,78
  226. 38544 data 67,84,73,79,78,32,78,85
  227. 38552 data 77,66,69,82,32,84,79,32
  228. 38560 data 66,69,32,67,72,65,78,71
  229. 38568 data 69,68,58,0,91,49,45,56
  230. 38576 data 32,79,82,32,90,69,82,79
  231. 38584 data 32,40,48,41,32,84,79,32
  232. 38592 data 69,78,68,93,0,82,69,68
  233. 38600 data 69,70,73,78,69,32,70,85
  234. 38608 data 78,67,84,73,79,78,32,70
  235. 38616 data 0,69,78,84,69,82,32,78
  236. 38624 data 69,87,32,67,79,77,77,65
  237. 38632 data 78,68,58,0,84,69,78,32
  238. 38640 data 40,49,48,41,32,75,69,89
  239. 38648 data 83,84,82,79,75,69,83,32
  240. 38656 data 77,65,88,73,85,77,0,40
  241. 38664 data 73,78,67,76,85,68,73,78
  242. 38672 data 71,32,32,67,65,82,82,73
  243. 38680 data 68,71,69,32,82,69,84,85
  244. 38688 data 82,78,41,0,68,79,32,89
  245. 38696 data 79,85,32,87,65,78,84,32
  246. 38704 data 65,32,67,65,82,82,73,68
  247. 38712 data 71,69,32,82,69,84,85,82
  248. 38720 data 78,32,65,68,68,69,68,63
  249. 38728 data 0,70,49,58,32,0,70,50
  250. 38736 data 58,32,0,70,51,58,32,0
  251. 38744 data 70,52,58,32,0,70,53,58
  252. 38752 data 32,0,70,54,58,32,0,70
  253. 38760 data 55,58,32,0,70,56,58,32
  254. 38768 data 0,0,255,0,0,0,128,0
  255. 38776 data 0,0,0,0,0,0,0,0
  256. 38784 data 120,169,207,141,21,3,169,90
  257. 38792 data 141,20,3,169,144,133,56,169
  258. 38800 data 0,133,55,88,32,94,166,32
  259. 38808 data 68,229,162,10,160,7,24,32
  260. 38816 data 240,255,162,0,189,199,151,232
  261. 38824 data 32,210,255,201,13,208,245,162
  262. 38832 data 15,160,7,24,32,240,255,162
  263. 38840 data 0,189,226,151,232,32,210,255
  264. 38848 data 201,13,208,245,76,116,164,80
  265. 38856 data 82,79,71,82,65,77,77,65
  266. 38864 data 66,76,69,32,70,85,78,67
  267. 38872 data 84,73,79,78,32,75,69,89
  268. 38880 data 83,13,40,67,41,49,57,56
  269. 38888 data 52,59,32,68,69,88,32,84
  270. 38896 data 46,32,80,69,84,69,82,83
  271. 38904 data 79,78,13,0,0,0,0,0,256
  272. 50000 rem ** irq extension wedge **
  273. 50010 i=53082
  274. 50020 read a:if a=256 then 60000
  275. 50030 poke i,a:i=i+1:goto 50020
  276. 53082 data 165,197,201,64,208,6,141,161
  277. 53090 data 207,76,158,207,205,161,207,240
  278. 53098 data 51,141,161,207,162,3,221,162
  279. 53106 data 207,240,5,202,16,248,48,36
  280. 53114 data 138,174,141,2,224,1,208,3
  281. 53122 data 24,105,4,10,133,251,10,10
  282. 53130 data 24,101,251,168,162,0,185,176
  283. 53138 data 207,157,119,2,200,232,224,10
  284. 53146 data 208,244,134,198,76,49,234,64
  285. 53154 data 4,5,6,3,0,255,255,255
  286. 53162 data 255,255,255,255,255,255,76,73
  287. 53170 data 83,84,32,32,32,32,32,13
  288. 53178 data 80,207,54,53,48,44,49,50
  289. 53186 data 56,13,32,76,79,65,68,34
  290. 53194 data 32,32,20,20,83,89,83,32
  291. 53202 data 52,57,49,53,50,13,82,85
  292. 53210 data 78,32,32,32,32,32,32,13
  293. 53218 data 80,207,54,53,48,44,48,32
  294. 53226 data 32,13,83,65,86,69,34,64
  295. 53234 data 48,58,29,157,83,89,83,32
  296. 53242 data 51,54,56,54,52,13,256
  297. 60000 poke53272,21:sys38784
  298.