0 IFA=1THEN7
1 IFA=2THEN8
2 IFA=3THEN50
3 GOSUB100
6 IFA=0THENA=1:LOAD"GRAPHICCLR",8,1
7 IFA=1THENA=2:LOAD"BITMAPON",8,1
8 SYS58692:SYS28700:SYS28726
9 FORI=1024TO2023:POKEI,FB:NEXT
10 IFA=2THENA=3:LOADBL$,8,1
50 POKE198,0:WAIT198,1
60 POKE53265,27:POKE53272,21:SYS58692:END
100 PRINT"[147]BILDNAME";:INPUTBL$
110 PRINT"FARBE HINTERGRUND (0-15)";:INPUTHG
120 PRINT"FARBE VORDERGRUND (0-15)";:INPUTVG
130 FB=16*VG+HG:RETURN