10 OPEN15,8,15,"I":OPEN2,8,2,"#"
20 PRINT#15,"U1 2 0 18 0"
30 PRINT#15,"B-P 2 2":GET#2,FO$
50 PRINT"[147]   ALTES FORMATZEICHEN = ";FO$
55 IFFO$="A"THENX$="X"
56 IFFO$<>"A"THENX$="A"
60 PRINT"   NEUES FORMATZEICHEN = ";X$;"[157]";
70 POKE198,0:WAIT198,1
80 A$=X$:GETX$:IFX$=CHR$(13)THENX$=A$:GOTO90
85 PRINTX$
90 IFFO$="A"THEN200
100 PRINT#15,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65)
200 PRINT#15,"B-P 2 2":PRINT#2,X$;
220 PRINT#15,"U2 2 0 18 0":PRINT
230 IFX$="A"THENPRINT"   SCHREIBSCHUTZ ENTFERNT"
240 IFX$<>"A"THENPRINT"   SCHREIBSCHUTZ AKTIVIERT"
250 PRINT#15,"I":CLOSE2:CLOSE15