1 REM ********************************
2 REM **                            **
3 REM **       SCHREIBSCHUTZ        **
4 REM **                            **
5 REM ** (C)'85 BY                  **
6 REM ** MANFRED LINS               **
7 REM ** REITACKER 1                **
8 REM ** 6492 SINNTAL-ZUENTERSBACH  **
9 REM ********************************
10 PRINTCHR$(147):REM CLEAR/HOME
20 X=7:Y=2:GOSUB510
30 PRINT"D I S K  -  S C H U T Z"
40 X=2:Y=6:GOSUB510
50 PRINT"ALTES FORMATKENNZEICHEN :";
60 OPEN1,8,15,"I":OPEN2,8,2,"#"
70 PRINT#1,"U1 2 0 18 0"
80 PRINT#1,"B-P 2 2"
90 GET#2,AF$: REM ALTES FORMATKENNZ.
100 PRINTAF$
110 X=2:Y=9:GOSUB510
120 PRINT"WIRD GEAENDERT IN   ";
130 IFAF$="A"THENPRINT"X":GOTO150
140 PRINT"A"
150 X=20:Y=9:GOSUB510
160 INPUTNF$
170 PRINT#1,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65)
180 PRINT#1,"B-P 2 2"
190 PRINT#2,NF$:REM NEUES FORMATKENNZ.
200 PRINT#1,"U2 2 0 18 0"
210 CLOSE2:CLOSE1
220 IFNF$="A"THEND$="  KEIN SCHREIBSCHUTZ !  ":GOTO240
230 D$="  SCHREIBSCHUTZ AKTIVIERT !  "
240 X=6:Y=14:GOSUB510
250 PRINTD$
260 END
500 REM ROUTINE ZUM CURSORSETZEN
510 POKE211,X:POKE214,Y:SYS58640:RETURN
520 REM UNTERPROGRAMMENDE