home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 75 / 64er_Magazin_Sonderheft_75_19xx_Markt__Technik_de_Side_A.d64 / grafiklader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  830b  |  18 lines
  1. 20 poke53280,6:poke53281,6:print"[147][159]"
  2. 300 fori=900to980:reada:pokei,a:next
  3. 500 input"[147][198]ilename";n$
  4. 510 rem  grafik einschalten
  5. 520 m1=peek(56576):poke56576,m1 and 252:rem  vic-adressbereich ab $c000
  6. 530 m2=peek(53272):poke53272,8:rem  videoram- und grafik-adressen
  7. 540 m3=peek(53265):poke53265,m3or32:rem  hires einschalten
  8. 550 f=16*0+1:rem  16*vordergrundfarbe+hintergrundfarbe
  9. 560 fori=49152to50152:pokei,f:next:rem farbram belegen (nur fuer sw noetig)
  10. 570 sys900,n$:rem grafik laden
  11. 580 poke198,0:wait198,1:rem  auf taste warten
  12. 590 poke56576,m1:poke53272,m2:poke53265,m3:rem  wieder normalzustand
  13. 1000 data32,253,174,32,212,225,169,92,162,8,160,2,32,186,255,32,192,255,162
  14. 1010 data92,32,198,255,32,207,255,32,207,255,162,32,160,0,132,251,169,224,133
  15. 1020 data252,32,193,3,208,9,169,192,133,252,162,4,32,193,3,32,204,255,169,92
  16. 1030 data76,195,255,32,207,255,145,251,169,195,36,144,208,8,200,208,242,230
  17. 1040 data252,202,208,237,96
  18.