1 ISPROT = PEEK(1450)
2 IF ISPROT = 0 THEN 100
3 ' protected branch
5 OPEN "protect.txt" FOR OUTPUT AS 1
6 PRINT#1, ISPROT
7 CLOSE
10 POKE 1450, 0
20 SAVE"UNPROT",A
30 END
100 ' unprotected branch
105 OPEN "unprotct.txt" FOR OUTPUT AS 1
106 PRINT#1, ISPROT
107 CLOSE
130 SAVE"PROT",P
140 RUN"PROT"
