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