1 X=53280:Y=53281:Z=646:A=6:B=6:C=1:HB=208:LB=32:GOSUB2:GOTO9
2 IFA>15THENA=0
3 IFB>15THENB=0
4 IFC>15THENC=0
5 IFA<0THENA=15
6 IFB<0THENB=15
7 IFC<0THENC=15
8 POKEX,A:POKEY,B:POKEZ,C:RETURN
9 POKE53265,11
10 PRINT"[147]           SCREEN-FARBEN-EDITOR":PRINT""TAB(14)"F1 BILDSCHIRM +"
11 PRINTTAB(14)"F3 RAHMEN     +":PRINTTAB(14)"F5 BILDSCHIRM -":PRINTTAB(14)"F7";
12 PRINT" RAHMEN     -":PRINT""TAB(14)"F8 SPEICHERN":PRINT""TAB(14)" E PRG.-E";
13 PRINT"NDE":PRINT""TAB(14)"F2 SCHRIFT +":PRINTTAB(14)"F4 SCHRIFT -"
14 PRINT" ACHTUNG!: SCHRIFTFARBE WIRD NICHT (!)":PRINTTAB(13)"GESPEICHERT!!"
15 PRINT""TAB(7)"(C) BY TIGERCREW IN 2001[145]":PRINT" CHAR:"C:POKE53265,27
16 GETA$:IFA$=""THEN16
17 IFA$="E"THENPOKE214,19:POKE211,0:SYS58640:END
18 IFA$=CHR$(140)THEN21
19 IFASC(A$)<133ORASC(A$)>138THEN16
20 ON(ASC(A$)-132)GOSUB26,27,28,29,30,31:GOTO9
21 POKE214,21:POKE211,14:SYS58640
22 AX$="":PRINT"NUMMER ";:INPUTAX$:IFAX$=""THENEND
23 SA$="FARBEN"+"."+AX$:OPEN15,8,15,"S:"+SA$:CLOSE15
24 HB$=CHR$(HB):LB$=CHR$(LB):A$=CHR$(A):B$=CHR$(B)
25 OPEN2,8,2,SA$+",P,W":PRINT#2,LB$;HB$;A$;B$:CLOSE2:GOTO9
26 B=B+1:GOSUB2:RETURN
27 A=A+1:GOSUB2:RETURN
28 B=B-1:GOSUB2:RETURN
29 A=A-1:GOSUB2:RETURN
30 C=C+1:GOSUB2:RETURN
31 C=C-1:GOSUB2:RETURN