start tok64 d64-UMJXXc
10 PRINT"{clear}{white}{down*6}s[tt i disketten som ska bli skyddad"
20 PRINT"{down}tryck p] en knapp"
30 GETa$:IFa$=""THENGOTO30
40 b$=""
70 OPEN15,8,15:PRINT#15,"i0":OPEN1,8,3,"#":PRINT#15,"u1:3"0",18,0"
100 nd$="protected"+CHR$(34)+CHR$(0)+CHR$(0)
105 nd$=nd$+CHR$(cx)+b$
110 nd$=LEFT$(nd$+"{space*14}",16)
120 PRINT#15,"b-p:3,144":PRINT#1,nd$;:PRINT#15,"u2:3"dv",18,0"
130 i$="i"+MID$(STR$(0),2):PRINT#15,i$
stop tok64
(bastext 1.0)