home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 December / 1985-12.d64 / protection.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  417b  |  12 lines
  1. 10 poke53280,14:poke53281,14:f$="nt"
  2. 20 print"[147] the gazette disk is write protected!
  3. 30 [153]" to use the stopfile and stopdisk protection
  4. 40 print" programs, copy the [144]"chr$(34)"protect/unprotect"chr$(34)"
  5. 41 [153]" files onto another disk.
  6. 50 print"[144]    [press any key to reload menu][154]"
  7. 60 poke198,0:wait198,1:getmt$
  8. 70 print"[147][154]load";chr$(34);f$;chr$(34);",8"
  9. 80 a$=chr$(13)+"run"+chr$(13)
  10. 90 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  11. 100 new
  12.