home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / save-protect (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  393b  |  22 lines
  1. 5 rem" [202]ohn [210]. [205]enke
  2. 10 [153]"save-protect"
  3. 20 [153]"(d) entire disk
  4. 30 print"(t) a track
  5. 40 [161]a$:[139]a$[178]""[167]40
  6. 50 [139] a$[178]"d" [167] x[178]4:y[178]143: [137] 100
  7. 60 [139] a$[179][177]"t" [167] 40
  8. 70 [133]"track number";t
  9. 80 [139] t[179]1 [176] t[177]35 [167] [128]
  10. 90 x[178]t[172]4: y[178]x[170]3
  11. 100 [159] 15,8,15
  12. 110 [159] 5,8,5,"#"
  13. 120 [152]15,"u1:"5;0;18;0
  14. 130 [152]15,"b-p:"5;x
  15. 140 [129] i[178]x [164] y
  16. 150 [152]5,[199](0);
  17. 160 [130]
  18. 170 [152]15,"u2:"5;0;18;0
  19. 180 [152]15,"u;"
  20. 190 [160] 5: [160] 15
  21. 200 [153]"validate deprotects"
  22.