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!