home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_92-10_1992_-_de_Side_A.d64 / fk.schreibschutz (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  857b  |  48 lines

  1. 10 print"[147]        diskette schreibschuetzen       [146]"
  2. 20 gosub 200
  3. 30 print"wollen sie:"
  4. 40 print"-----------"
  5. 45 x=1
  6. 50 if a$="a" then print"(d)iskette sichern":x=2:goto60
  7. 55 print"(d)iskette entsichern"
  8. 60 print"(n)eue disk behandeln"
  9. 70 print"(p)rogramm beenden"
  10. 80 getx$:ifx$=""then80
  11. 90 ifx$="n" then 500
  12. 100 ifx$="p"then end
  13. 110 ifx$="d"then on x gosub 300,400:run
  14. 120 goto80
  15. 130 :
  16. 140 :
  17. 200 open1,8,15,"i"
  18. 210 print#1,"m-r";chr$(1);chr$(1);chr$(1)
  19. 220 get#1,a$
  20. 230 print"diskette ist ";
  21. 240 ifa$="a"thenprint"nicht ";
  22. 250 print"geschuetzt!"
  23. 260 close1:return
  24. 270 :
  25. 280 :
  26. 300 open1,8,15,"i":open2,8,2,"#"
  27. 310 print#1,"u1 2 0 18 0"
  28. 320 print#1,"m-w";chr$(1);chr$(1);chr$(1);chr$(65);
  29. 330 print#1,"b-p 2 2"
  30. 340 print#2,"a";
  31. 350 print#1,"u2 2 0 18 0"
  32. 360 print#1,"i"
  33. 370 close1:close2:return
  34. 380 :
  35. 390 :
  36. 400 open1,8,15,"i":open2,8,2,"#"
  37. 410 print#1,"u1 2 0 18 0"
  38. 430 print#1,"b-p 2 2"
  39. 440 print#2,"b";
  40. 450 print#1,"u2 2 0 18 0"
  41. 460 print#1,"i"
  42. 470 close1:close2:return
  43. 480 :
  44. 490 :
  45. 500 print"neue disk einlegen und taste druecken!"
  46. 510 getx$:ifx$=""then510
  47. 520 run
  48.