home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8404.d64
/
drawline
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
5KB
|
139 lines
100 REM GRAFIKAID.BL VON $C000 BIS $C34A
102 REM DIE ROUTINE DRAWLINE IST ENTSPRECHEND EINES
104 REM ALGORITHMUS VON MIKE HIGGINS, ERSCHIENEN IN
106 REM BYTE 1981 HEFT 8 SEITE 414 - 416 GESCHRIEBEN.
108 REM DIE RESTLICHEN ROUTINEN STAMMEN AUS 64 INTERN
110 REM SEITE 97 - 100 VON ANGERHAUSEN, BECKER,
112 REM ENGLISCH UND GERITS.
114 REM
116 REM DIE ROUTINEN WURDEN TEILWEISE MODIFIZIERT,
118 REM ERWEITERT, BZW. NEU GESCHRIEBEN VON
120 REM M. BAUER AINDORFERSTR. 86 8000 MUENCHEN 21
122 REM
124 PRINT"[147]"TAB(13)"GRAFIK - AID":PRINT"AUFRUFE:
126 [153]"GRAFIK-MODUS EIN : SYS49152
128 PRINT"GRAFIK LOESCHEN : SYS49155
130 [153]"FARBE SETZEN : SYS49158,FARBENNR.
132 PRINT"GRAFIK INVERTIERT: SYS49161
134 [153]"PUNKT SETZEN : SYS49164,X,Y
136 PRINT"PUNKT LOESCHEN : SYS49167,X,Y
138 [153]"X-ACHSE ZEICHNEN : SYS49170,Y
140 PRINT"X-ACHSE LOESCHEN : SYS49173,Y
142 [153]"Y-ACHSE ZEICHNEN : SYS49176,X
144 PRINT"Y-ACHSE LOESCHEN : SYS49179,X
146 [153]"LINIE ZEICHNEN : SYS49182,X0,Y0,X1,Y2
148 PRINT"LINIE LOESCHEN : SYS49185,X0,Y0,X1,Y2
150 [153]"GRAFIK LADEN : SYS49188,'NAME',1
152 PRINT"GRAFIK SPEICHERN : SYS49191,'NAME',1
154 [153]"GRAFIC-MODUS AUS : SYS49194
156 DATA 076,045,192,076,068,192,076,091
158 DATA 192,076,120,192,076,146,192,076
160 DATA 149,192,076,128,193,076,131,193
162 DATA 076,168,193,076,171,193,076,206
164 DATA 193,076,209,193,076,096,193,076
166 DATA 072,193,076,112,193,173,017,208
168 DATA 141,091,195,173,024,208,141,092
170 DATA 195,169,059,141,017,208,169,024
172 DATA 141,024,208,096,160,000,169,032
174 DATA 132,253,133,254,152,145,253,200
176 DATA 208,251,230,254,165,254,201,064
178 DATA 208,242,096,032,253,174,032,158
180 DATA 183,160,000,169,004,132,253,133
182 DATA 254,138,145,253,200,208,251,230
184 DATA 254,165,254,201,008,208,242,096
186 DATA 160,000,169,032,132,253,133,254
188 DATA 177,253,073,255,145,253,200,208
190 DATA 247,230,254,165,254,201,064,208
192 DATA 239,096,169,000,044,169,128,133
194 DATA 151,032,252,192,176,243,138,074
196 DATA 074,074,168,185,047,193,141,087
198 DATA 195,185,022,193,141,088,195,138
200 DATA 041,007,024,109,087,195,141,087
202 DATA 195,165,020,041,248,141,089,195
204 DATA 024,169,000,109,087,195,133,253
206 DATA 169,032,109,088,195,133,254,024
208 DATA 165,253,109,089,195,133,253,165
210 DATA 254,101,021,133,254,165,020,041
212 DATA 007,073,007,170,169,001,202,048
214 DATA 003,010,208,250,160,000,036,151
216 DATA 016,005,073,255,049,253,044,017
218 DATA 253,145,253,096,032,253,174,032
220 DATA 235,183,224,200,176,012,165,021
222 DATA 201,001,144,007,208,004,164,020
224 DATA 192,064,096,164,020,096,000,001
226 DATA 002,003,005,006,007,008,010,011
228 DATA 012,013,015,016,017,018,020,021
230 DATA 022,023,025,026,027,028,030,000
232 DATA 064,128,192,000,064,128,192,000
234 DATA 064,128,192,000,064,128,192,000
236 DATA 064,128,192,000,064,128,192,000
238 DATA 032,253,174,032,212,225,162,000
240 DATA 160,064,169,000,133,253,169,032
242 DATA 133,254,169,253,032,216,255,096
244 DATA 032,253,174,032,212,225,169,097
246 DATA 133,185,169,000,032,213,255,096
248 DATA 173,091,195,141,017,208,173,092
250 DATA 195,141,024,208,032,068,229,096
252 DATA 169,000,044,169,128,133,151,032
254 DATA 253,174,032,158,183,224,200,176
256 DATA 238,142,075,195,134,253,160,063
258 DATA 140,076,195,160,001,140,077,195
260 DATA 136,132,021,132,020,076,250,193
262 DATA 169,000,044,169,128,133,151,032
264 DATA 253,174,032,138,173,032,247,183
266 DATA 032,008,193,176,194,141,077,195
268 DATA 140,076,195,162,199,134,253,160
270 DATA 000,140,075,195,240,215,169,000
272 DATA 044,169,128,133,151,032,252,192
274 DATA 176,225,142,075,195,141,082,195
276 DATA 140,081,195,032,252,192,176,211
278 DATA 134,253,140,076,195,172,081,195
280 DATA 132,020,141,077,195,173,082,195
282 DATA 133,021,160,001,140,086,195,140
284 DATA 083,195,140,081,195,136,140,082
286 DATA 195,140,085,195,140,084,195,136
288 DATA 173,077,195,197,021,144,009,208
290 DATA 030,173,076,195,197,020,176,023
292 DATA 056,165,020,237,076,195,141,079
294 DATA 195,165,021,237,077,195,141,080
296 DATA 195,140,086,195,076,072,194,056
298 DATA 173,076,195,229,020,141,079,195
300 DATA 173,077,195,229,021,141,080,195
302 DATA 165,253,205,075,195,176,015,056
304 DATA 173,075,195,229,253,141,078,195
306 DATA 140,083,195,076,100,194,237,075
308 DATA 195,141,078,195,173,080,195,208
310 DATA 036,173,079,195,205,078,195,176
312 DATA 028,174,078,195,141,078,195,142
314 DATA 079,195,173,086,195,141,084,195
316 DATA 173,083,195,141,085,195,200,140
318 DATA 086,195,140,083,195,173,080,195
320 DATA 074,141,077,195,173,079,195,106
322 DATA 141,076,195,076,049,195,173,086
324 DATA 195,048,014,024,101,020,133,020
326 DATA 165,021,105,000,133,021,076,190
328 DATA 194,056,165,020,233,001,133,020
330 DATA 165,021,233,000,133,021,024,173
332 DATA 075,195,109,085,195,141,075,195
334 DATA 024,173,076,195,109,078,195,141
336 DATA 076,195,173,077,195,105,000,141
338 DATA 077,195,238,081,195,208,003,238
340 DATA 082,195,173,077,195,205,080,195
342 DATA 144,071,208,008,173,079,195,205
344 DATA 076,195,176,061,056,173,076,195
346 DATA 237,079,195,141,076,195,173,077
348 DATA 195,237,080,195,141,077,195,173
350 DATA 084,195,048,014,024,101,020,133
352 DATA 020,165,021,105,000,133,021,076
354 DATA 039,195,056,165,020,233,001,133
356 DATA 020,165,021,233,000,133,021,024
358 DATA 173,075,195,109,083,195,141,075
360 DATA 195,174,075,195,032,158,192,173
362 DATA 082,195,205,080,195,144,009,173
364 DATA 079,195,205,081,195,176,001,096
366 DATA 076,158,194
368 S=0:FORI=49152TO49994:READD
370 POKEI,D:S=S+D:IFS>60000THENS=S-60000:MU=MU+1
372 NEXT:IFS<>49070ANDMU<>1THENPRINT"LADE-FEHLER! [146]":STOP
374 PRINT"LADEN ERFOLGREICH BEENDET!