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