home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 December / 64er_Magazin_85-12_1985_Markt__Technik_de.d64 / grafik-80 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  228 lines
  1. 1 rem "                        [199][210][193][208][200][201][203]-80
  2. 2 :
  3. 3 [143] "    erstellt chr$raphik-(NULL)aket fexpr 80-(NULL)eichen-left$right$(NULL)val(NULL)-peekildschirm
  4. 4 :
  5. 5 rem "                        des  [195]-128
  6. 6 :
  7. 7 [143] "                     (c) 1985  by  (NULL)(NULL)(NULL)
  8. 8 :
  9. 9 rem "                       version 1.00
  10. 10 :
  11. 11 :
  12. 1000 [254]%
  13. 1020 [140]
  14. 1040 [254] 15
  15. 1060 [232] 5: [153] [199](17) [199](17) [163]20)"valrstellen eines chr$raphik-(NULL)aketes"
  16. 1080 [153] [199](17) [163]17)"fexpr den 8563-left$right$(NULL)val(NULL)-chr$raphik-peekildschirm"
  17. 1100 [153] [199](17) [199](17) [199](17) "  peekearbeitet:"
  18. 1120 [153]: [153]
  19. 1140 :
  20. 2000 [143] "valrweiterung der right$nterpreterschleife laden
  21. 2020 :
  22. 2040 print tab(25) "[206]eue [201]nterpreterschleife
  23. 2060 a[178] [209]("1300"): e[178] [209]("1398")
  24. 2080 [141] 8000
  25. 2100 :
  26. 3000 [143] "(NULL)eue (NULL)outine fexpr '(NULL)unkt setzen, llogschen und testen' laden
  27. 3020 :
  28. 3040 print tab(25) "[208]unkt setzen, l[188]schen, testen
  29. 3060 a[178] [209]("1400"): e[178] [209]("1671")
  30. 3080 [141] 8000
  31. 3100 :
  32. 4000 [143] "valrweiterung der chr$(NULL)atn(NULL)left$right$len-(NULL)outine laden
  33. 4020 :
  34. 4040 print tab(25) "[197]rweiterung der [199][210][193][208][200][201][203]-[210]outine
  35. 4060 a[178] [209]("1a3e"): e[178] [209]("1ab6")
  36. 4080 [141] 8000
  37. 4100 :
  38. 5000 [143] "(NULL)(NULL)(NULL)-(NULL)outinen in (NULL)atn(NULL)-peekereich kopieren
  39. 5020 :
  40. 5040 print tab(25) "[210][207][205] -> [210][193][205] - [203]opie
  41. 5060 a[178] [209]("61a8"): e[178] [209]("6388"): [143] "(NULL)atnright$(NULL)(NULL) und peek(NULL)(NULL)
  42. 5080 g= (NULL)("1672")
  43. 5100 gosub 8500
  44. 5120 :
  45. 5140 a= (NULL)("6797"): e= (NULL)("67d6"): rem "[196][210][193][215]
  46. 5160 [139] g[179][177][209]("1853") [167] [153] "ascehler !": [144]
  47. 5180 [141] 8500
  48. 5200 :
  49. 5220 a[178] [209]("668e"): e[178] [209]("674c"): [143] "lenright$(NULL)len(NULL)val
  50. 5240 if g<>(NULL)("1893") then print "[198]ehler !": stop
  51. 5260 gosub 8500
  52. 5280 :
  53. 5300 a= (NULL)("9b30"): e= (NULL)("9c18"): rem "[211]trecke zeichnen
  54. 5320 [139] g[179][177][209]("1952") [167] [153] "ascehler !": [144]
  55. 5340 [141] 8500
  56. 5360 :
  57. 5380 [135] ad$
  58. 5400 [235] [253] ad$[179][177]"ende"
  59. 5420 [135] mn$, al$, ah$
  60. 5440 ad[178] [209](ad$)
  61. 5460 [151] ad, [209](mn$): [151] ad[170]1, [209](al$): [151] ad[170]2, [209](ah$)
  62. 5480 [135] ad$
  63. 5500 [236]
  64. 5520 :
  65. 5540 [153] [163]25) "ascertiges (NULL)aschinenprogramm abspeichern
  66. 5560 if ds >20 then print ds$: stop
  67. 5580 (NULL) "graphik-80.m",d0,u8,on b0,p((NULL)("1300")) to p((NULL)("1ab7"))
  68. 5600 if ds >20 then print ds$: stop
  69. 5620 sys (NULL)("1303")
  70. 5640 print chr$(17) chr$(17) "     [199]raphik-[208]aket fertig installiert, gespeichert und initialisiert."
  71. 5660 end
  72. 6000 end
  73. 7960 rem "[203]opierroutine 1
  74. 7980 :
  75. 8000 [129] i[178]a [164] e
  76. 8020 [135] d
  77. 8040 [151] i,d
  78. 8060 [130] i
  79. 8080 [142]
  80. 8100 :
  81. 8460 [143] "(NULL)opierroutine 2
  82. 8480 :
  83. 8500 for i=a to e
  84. 8520 poke g, peek(i)
  85. 8540 g= g+1
  86. 8560 next i
  87. 8580 return
  88. 8600 :
  89. 9000 :
  90. 10000 rem "datas f[189]r neue [201]nterpreterschleife
  91. 10010 :
  92. 10020 [131]  76,45,19,76,6,19,120,169,45,141,8,3,169,19,141,9,3,88,169,0,141,0
  93. 10030 :
  94. 10040 [131] 255,169,6,141,6,213,169,32,133,48,133,50,133,52,169,0,133,47,133
  95. 10050 :
  96. 10060 [131]  49,133,51,96,32,128,3,201,222,144,31,201,233,176,27,170,36,215,16
  97. 10070 :
  98. 10080 [131]  52,189,123,18,141,78,19,189,135,18,141,79,19,138,32,128,3,32,0,0
  99. 10090 :
  100. 10100 [131]  76,246,74,32,134,3,76,243,74,62,114,215,129,147,141,43,86,88,226
  101. 10110 :
  102. 10120 [131] 121,96,26,22,103,23,24,101,100,24,105,105,106,105,189,162,18,141
  103. 10130 :
  104. 10140 [131]  78,19,189,174,18,141,79,19,76,73,19,90,168,215,183,142,141,43,151
  105. 10150 :
  106. 10160 [131]  85,226,121,96,107,97,103,98,102,101,100,103,105,105,106,105,85
  107. 10170 :
  108. 12000 [143] "datas fexpr (NULL)outine (NULL)unkt setzen, llogschen, testen
  109. 12010 :
  110. 12020 data  76,48,22,76,9,20,76,93,22,173,0,255,72,169,0,141,0,255,169,7,141
  111. 12030 :
  112. 12040 data  6,213,104,141,0,255,96,173,0,255,133,158,169,0,141,0,255,133,253
  113. 12050 :
  114. 12060 data 133,254,173,52,17,208,90,169,199,205,51,17,144,83,169,127,237,49
  115. 12070 :
  116. 12080 data 17,169,2,237,50,17,144,71,172,51,17,185,150,20,133,253,185,99,21
  117. 12090 :
  118. 12100 data 133,254,174,50,17,173,49,17,41,248,74,74,74,24,125,147,20,133,252
  119. 12110 :
  120. 12120 data 24,165,253,101,252,133,253,165,254,105,0,133,254,162,18,32,204,205
  121. 12130 :
  122. 12140 data 162,19,165,253,32,204,205,32,216,205,133,252,173,49,17,41,7,170,189
  123. 12150 :
  124. 12160 data 139,20,24,96,56,96,128,64,32,16,8,4,2,1,0,32,64,0,80,160,240,64,144
  125. 12170 :
  126. 12180 data 224,48,128,208,32,112,192,16,96,176,0,80,160,240,64,144,224,48,128
  127. 12190 :
  128. 12200 data 208,32,112,192,16,96,176,0,80,160,240,64,144,224,48,128,208,32,112
  129. 12210 :
  130. 12220 data 192,16,96,176,0,80,160,240,64,144,224,48,128,208,32,112,192,16,96
  131. 12230 :
  132. 12240 data 176,0,80,160,240,64,144,224,48,128,208,32,112,192,16,96,176,0,80
  133. 12250 :
  134. 12260 data 160,240,64,144,224,48,128,208,32,112,192,16,96,176,0,80,160,240,64
  135. 12270 :
  136. 12280 data 144,224,48,128,208,32,112,192,16,96,176,0,80,160,240,64,144,224,48
  137. 12290 :
  138. 12300 data 128,208,32,112,192,16,96,176,0,80,160,240,64,144,224,48,128,208,32
  139. 12310 :
  140. 12320 data 112,192,16,96,176,0,80,160,240,64,144,224,48,128,208,32,112,192,16
  141. 12330 :
  142. 12340 data 96,176,0,80,160,240,64,144,224,48,128,208,32,112,192,16,96,176,0
  143. 12350 :
  144. 12360 data 80,160,240,64,144,224,48,128,208,32,112,192,16,96,176,0,80,160,240
  145. 12370 :
  146. 12380 data 64,144,224,48,128,208,32,112,192,0,0,0,0,1,1,1,2,2,2,3,3,3,4,4,4
  147. 12390 :
  148. 12400 data 5,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,10,10,10,10,11,11,11,12,12,12,13
  149. 12410 :
  150. 12420 data 13,13,14,14,14,15,15,15,15,16,16,16,17,17,17,18,18,18,19,19,19,20
  151. 12430 :
  152. 12440 data 20,20,20,21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,25,26,26,26
  153. 12450 :
  154. 12460 data 27,27,27,28,28,28,29,29,29,30,30,30,30,31,31,31,32,32,32,33,33,33
  155. 12470 :
  156. 12480 data 34,34,34,35,35,35,35,36,36,36,37,37,37,38,38,38,39,39,39,40,40,40
  157. 12490 :
  158. 12500 data40,41,41,41,42,42,42,43,43,43,44,44,44,45,45,45,45,46,46,46,47,47
  159. 12510 :
  160. 12520 data47,48,48,48,49,49,49,50,50,50,50,51,51,51,52,52,52,53,53,53,54,54
  161. 12530 :
  162. 12540 data54,55,55,55,55,56,56,56,57,57,57,58,58,58,59,59,59,60,60,60,60,61
  163. 12550 :
  164. 12560 data61,61,62,62,62,63,63,63,32,28,20,176,34,166,131,208,5,73,255,37,252
  165. 12570 :
  166. 12580 data  44,5,252,133,252,162,18,165,254,32,204,205,162,19,165,253,32,204
  167. 12590 :
  168. 12600 data 205,162,31,165,252,32,204,205,165,158,141,0,255,96,32,28,20,176,245
  169. 12610 :
  170. 12620 data 37,252,240,6,32,87,22,162,0,96,32,87,22,162,255,96
  171. 12630 :
  172. 14000 rem "datas f[189]r [197]rweiterung des [199][210][193][208][200][201][195]-[194]efehls
  173. 14010 :
  174. 14020 [131] 201,158,208,11,32,34,160,32,128,3,169,0,133,216,96,32,244,135,224
  175. 14030 :
  176. 14040 [131] 6,240,41,176,36,138,72,169,0,141,0,255,162,25,169,64,32,204,205,32
  177. 14050 :
  178. 14060 [131] 12,206,165,215,72,169,128,133,215,32,66,193,104,133,215,104,72,170
  179. 14070 :
  180. 14080 [131]  76,110,107,76,40,125,169,0,141,0,255,162,25,169,128,32,204,205,32
  181. 14090 :
  182. 14100 [131] 28,158,169,0,141,0,255,224,2,176,229,224,0,240,29,160,64,132,8,160
  183. 14110 :
  184. 14120 [131] 0,152,162,18,32,204,205,162,19,32,204,205,162,31,32,204,205,136,208
  185. 14130 :
  186. 14140 [131] 250,198,8,208,246,96
  187. 19900 :
  188. 20000 [131] 1a3b, 4c, 00, 14
  189. 20010 [131] 16d5, 20, 00, 14
  190. 20020 [131] 1a2d, 20, 00, 14
  191. 20030 [131] 188d, 20, 1d, 1a
  192. 20040 [131] 19c7, 20, 1d, 1a
  193. 20050 [131] 19eb, 20, 0c, 1a
  194. 20060 [131] 1a07, 20, 0c, 1a
  195. 20070 [131] 1887, 4c, 6c, 18
  196. 20080 [131] 1890, 4c, 6c, 18
  197. 20090 [131] 17b1, 20, 52, 19
  198. 20100 [131] 17f1, 20, 52, 19
  199. 20110 [131] 1884, 20, 52, 19
  200. 20120 [131] 1948, 20, 52, 19
  201. 20130 [131] 1692, 20, 06, 14
  202. 20140 [131] 16c6, 20, 06, 14
  203. 20150 [131] 1712, 20, 06, 14
  204. 20160 [131] 1747, 20, 06, 14
  205. 20170 [131] 16e5, 20, 46, 17
  206. 20180 [131] 16fa, 20, 46, 17
  207. 20190 [131] 1740, 4c, b5, 16
  208. 20200 [131] 1869, 4c, 1d, 1a
  209. 20210 [131] 1672, 20, 32, 9e
  210. 20220 [131] 1781, 20, 32, 9e
  211. 20230 [131] 1893, 20, 32, 9e
  212. 20240 [131] 1853, ea, ea, ea
  213. 20250 [131] ende
  214. 50000 :
  215. 60000 zz$[178]"graphik-80": un[178]8
  216. 60010 [159] 15,un,15,"s0:"[170]zz$
  217. 60020 [141] 60100
  218. 60030 [148] zz$,un
  219. 60040 [141] 60100
  220. 60050 [149] zz$,un
  221. 60060 [160] 15
  222. 60070 [128]
  223. 60100 [132]15, s1, s$, s2, s3
  224. 60110 [139] s1[178]1 [167] [153] s2; s$
  225. 60120 [139] s1[179]20 [167] [142]
  226. 60130 [153] s1 ", " s$ "," s2; "," s3
  227. 60140 [160] 15
  228.