home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 April / 64er_Magazin_84-04_1984_Markt__Technik_de.d64 / drawline (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  139 lines
  1. 100 rem  grafikaid.bl    von $c000 bis $c34a
  2. 102 rem  die routine drawline ist entsprechend eines
  3. 104 rem  algorithmus von mike higgins, erschienen in
  4. 106 rem  byte 1981 heft 8 seite 414 - 416 geschrieben.
  5. 108 rem  die restlichen routinen stammen aus 64 intern
  6. 110 rem  seite 97 - 100 von angerhausen, becker,
  7. 112 rem  englisch und gerits.
  8. 114 rem
  9. 116 rem  die routinen wurden teilweise modifiziert,
  10. 118 rem  erweitert, bzw. neu geschrieben von
  11. 120 rem  m. bauer  aindorferstr. 86  8000 muenchen 21
  12. 122 rem
  13. 124 print"[147]"tab(13)"grafik - aid":print"aufrufe:
  14. 126 [153]"grafik-modus ein : sys49152
  15. 128 print"grafik loeschen  : sys49155
  16. 130 [153]"farbe setzen     : sys49158,farbennr.
  17. 132 print"grafik invertiert: sys49161
  18. 134 [153]"punkt setzen     : sys49164,x,y
  19. 136 print"punkt loeschen   : sys49167,x,y
  20. 138 [153]"x-achse zeichnen : sys49170,y
  21. 140 print"x-achse loeschen : sys49173,y
  22. 142 [153]"y-achse zeichnen : sys49176,x
  23. 144 print"y-achse loeschen : sys49179,x
  24. 146 [153]"linie zeichnen   : sys49182,x0,y0,x1,y2
  25. 148 print"linie loeschen   : sys49185,x0,y0,x1,y2
  26. 150 [153]"grafik laden     : sys49188,'name',1
  27. 152 print"grafik speichern : sys49191,'name',1
  28. 154 [153]"grafic-modus aus : sys49194
  29. 156 data 076,045,192,076,068,192,076,091
  30. 158 data 192,076,120,192,076,146,192,076
  31. 160 data 149,192,076,128,193,076,131,193
  32. 162 data 076,168,193,076,171,193,076,206
  33. 164 data 193,076,209,193,076,096,193,076
  34. 166 data 072,193,076,112,193,173,017,208
  35. 168 data 141,091,195,173,024,208,141,092
  36. 170 data 195,169,059,141,017,208,169,024
  37. 172 data 141,024,208,096,160,000,169,032
  38. 174 data 132,253,133,254,152,145,253,200
  39. 176 data 208,251,230,254,165,254,201,064
  40. 178 data 208,242,096,032,253,174,032,158
  41. 180 data 183,160,000,169,004,132,253,133
  42. 182 data 254,138,145,253,200,208,251,230
  43. 184 data 254,165,254,201,008,208,242,096
  44. 186 data 160,000,169,032,132,253,133,254
  45. 188 data 177,253,073,255,145,253,200,208
  46. 190 data 247,230,254,165,254,201,064,208
  47. 192 data 239,096,169,000,044,169,128,133
  48. 194 data 151,032,252,192,176,243,138,074
  49. 196 data 074,074,168,185,047,193,141,087
  50. 198 data 195,185,022,193,141,088,195,138
  51. 200 data 041,007,024,109,087,195,141,087
  52. 202 data 195,165,020,041,248,141,089,195
  53. 204 data 024,169,000,109,087,195,133,253
  54. 206 data 169,032,109,088,195,133,254,024
  55. 208 data 165,253,109,089,195,133,253,165
  56. 210 data 254,101,021,133,254,165,020,041
  57. 212 data 007,073,007,170,169,001,202,048
  58. 214 data 003,010,208,250,160,000,036,151
  59. 216 data 016,005,073,255,049,253,044,017
  60. 218 data 253,145,253,096,032,253,174,032
  61. 220 data 235,183,224,200,176,012,165,021
  62. 222 data 201,001,144,007,208,004,164,020
  63. 224 data 192,064,096,164,020,096,000,001
  64. 226 data 002,003,005,006,007,008,010,011
  65. 228 data 012,013,015,016,017,018,020,021
  66. 230 data 022,023,025,026,027,028,030,000
  67. 232 data 064,128,192,000,064,128,192,000
  68. 234 data 064,128,192,000,064,128,192,000
  69. 236 data 064,128,192,000,064,128,192,000
  70. 238 data 032,253,174,032,212,225,162,000
  71. 240 data 160,064,169,000,133,253,169,032
  72. 242 data 133,254,169,253,032,216,255,096
  73. 244 data 032,253,174,032,212,225,169,097
  74. 246 data 133,185,169,000,032,213,255,096
  75. 248 data 173,091,195,141,017,208,173,092
  76. 250 data 195,141,024,208,032,068,229,096
  77. 252 data 169,000,044,169,128,133,151,032
  78. 254 data 253,174,032,158,183,224,200,176
  79. 256 data 238,142,075,195,134,253,160,063
  80. 258 data 140,076,195,160,001,140,077,195
  81. 260 data 136,132,021,132,020,076,250,193
  82. 262 data 169,000,044,169,128,133,151,032
  83. 264 data 253,174,032,138,173,032,247,183
  84. 266 data 032,008,193,176,194,141,077,195
  85. 268 data 140,076,195,162,199,134,253,160
  86. 270 data 000,140,075,195,240,215,169,000
  87. 272 data 044,169,128,133,151,032,252,192
  88. 274 data 176,225,142,075,195,141,082,195
  89. 276 data 140,081,195,032,252,192,176,211
  90. 278 data 134,253,140,076,195,172,081,195
  91. 280 data 132,020,141,077,195,173,082,195
  92. 282 data 133,021,160,001,140,086,195,140
  93. 284 data 083,195,140,081,195,136,140,082
  94. 286 data 195,140,085,195,140,084,195,136
  95. 288 data 173,077,195,197,021,144,009,208
  96. 290 data 030,173,076,195,197,020,176,023
  97. 292 data 056,165,020,237,076,195,141,079
  98. 294 data 195,165,021,237,077,195,141,080
  99. 296 data 195,140,086,195,076,072,194,056
  100. 298 data 173,076,195,229,020,141,079,195
  101. 300 data 173,077,195,229,021,141,080,195
  102. 302 data 165,253,205,075,195,176,015,056
  103. 304 data 173,075,195,229,253,141,078,195
  104. 306 data 140,083,195,076,100,194,237,075
  105. 308 data 195,141,078,195,173,080,195,208
  106. 310 data 036,173,079,195,205,078,195,176
  107. 312 data 028,174,078,195,141,078,195,142
  108. 314 data 079,195,173,086,195,141,084,195
  109. 316 data 173,083,195,141,085,195,200,140
  110. 318 data 086,195,140,083,195,173,080,195
  111. 320 data 074,141,077,195,173,079,195,106
  112. 322 data 141,076,195,076,049,195,173,086
  113. 324 data 195,048,014,024,101,020,133,020
  114. 326 data 165,021,105,000,133,021,076,190
  115. 328 data 194,056,165,020,233,001,133,020
  116. 330 data 165,021,233,000,133,021,024,173
  117. 332 data 075,195,109,085,195,141,075,195
  118. 334 data 024,173,076,195,109,078,195,141
  119. 336 data 076,195,173,077,195,105,000,141
  120. 338 data 077,195,238,081,195,208,003,238
  121. 340 data 082,195,173,077,195,205,080,195
  122. 342 data 144,071,208,008,173,079,195,205
  123. 344 data 076,195,176,061,056,173,076,195
  124. 346 data 237,079,195,141,076,195,173,077
  125. 348 data 195,237,080,195,141,077,195,173
  126. 350 data 084,195,048,014,024,101,020,133
  127. 352 data 020,165,021,105,000,133,021,076
  128. 354 data 039,195,056,165,020,233,001,133
  129. 356 data 020,165,021,233,000,133,021,024
  130. 358 data 173,075,195,109,083,195,141,075
  131. 360 data 195,174,075,195,032,158,192,173
  132. 362 data 082,195,205,080,195,144,009,173
  133. 364 data 079,195,205,081,195,176,001,096
  134. 366 data 076,158,194
  135. 368 s=0:fori=49152to49994:readd
  136. 370 pokei,d:s=s+d:ifs>60000thens=s-60000:mu=mu+1
  137. 372 next:ifs<>49070andmu<>1thenprint"lade-fehler!       [146]":stop
  138. 374 print"laden erfolgreich beendet!
  139.