home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh75a.d64 / grafiklader (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.