home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 85xx / 8512.d64 / grafik-80 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.