home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh16a.d64
/
schreibschutz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
469b
|
18 lines
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