home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 24
/
64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_B.d64
/
schreibschutz
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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