home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 July / 64er_Magazin_93-07_1993_Markt__Technik_de_Side_A.d64 / file-lock (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  66 lines
  1. 1 rem nikolaus heusler, zwengauerweg 18, 8 muenchen 71
  2. 10 print"[147][142]    **** file-lock fuer vc 1541 ****
  3. 12 [153]"      schuetzt files vor 'scratch'close
  4. 14 print"          (c) n. heusler 03.91
  5. 16 [153]"bitte warten. programm wird uebertragen.
  6. 20 open15,8,15,"i":gosub100
  7. 21 print"reading[145]
  8. 22 [159]8,8,0,"filelock $500":[141]100
  9. 24 [141]200:b[178]a:[141]200:[139]a[172]256[170]b[179][177]1280[167][153]"fehler!":[137]110
  10. 26 [141]200:n$[178]n$[170][199](a):[139]st[179][177]64[167]26
  11. 28 [160]8:[153]"writ
  12. 30 fori=1tolen(n$)
  13. 32 print#15,"m-w"chr$(i-1)""mid$(n$,i,1):next
  14. 40 dv$=chr$(34):print"[147]bedienung:                              [163][163][163][163][163][163][163][163][163]
  15. 42 [153]"mit dem  programm  lassen sich files im
  16. 43 print"directory als geschuetzt  kennzeichnen.
  17. 44 [153]"hinter dem filetyp wird das zeichen '<'
  18. 45 print"angehaengt.  diese dateien koennen dann
  19. 46 [153]"nicht mehr mit dem  scratch-befehl  ge-
  20. 47 print"loescht werden.
  21. 48 [153]"das programm  erzeugt eine close'befehlser-
  22. 49 print"weiterung' fuer die floppy.  die syntax
  23. 50 [153]"fuer die 2 neuen befehle ist:
  24. 51 print"     uc:name(n)      file(s) schuetzen
  25. 52 [153]"     ud:name(n)      file(s) freigeben
  26. 53 print"der name/die namen wird/werden wie beim
  27. 54 [153]"scratch-befehl uebergeben.
  28. 55 print"                 taste [146]":poke198,.:wait198,1
  29. 56 print"[147]einige beispiele:                       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  30. 57 [153]" open 15,8,15,"dv$"uc:testfile"dv$
  31. 58 [153]" print#15,"dv$"ud:file1,file2"dv$
  32. 59 [153]" print#15,"dv$"uc:n?me *"dv$
  33. 60 [153]" print#15,"dv$"uc:*"dv$"       (schuetzt alles)
  34. 61 print" print#15,"dv$"ud:software,test*"dv$
  35. 62 print" print#15,"dv$"uc:file1,file2,file3,file4"dv$
  36. 63 print"und so weiter...
  37. 64 [153]"statt uc kann auch u3, statt ud auch u4
  38. 65 print"verwendet werden: print#15,"dv$"u3:test"dv$
  39. 66 print"falls das directory einer diskette sehr
  40. 67 [153]"lang ist,  dauert es u.u. einige sekun-
  41. 68 print"den, bis das programm ganz durch ist.
  42. 69 [153]"                 taste wait":[151]198,.:[146]198,1
  43. 70 [153]"loadbis zu einem ausschalten oder reset der
  44. 71 print"floppy oder einer  anderweitigen benut-
  45. 72 [153]"zung  des puffers 2  sind die neuen be-
  46. 73 print"fehle verfuegbar.
  47. 74 [153]"copyright is most strenuously reserved.
  48. 75 print"our lawyers are watching!
  49. 76 [153]"all rights reserved, beutzung auf eige-
  50. 77 print"ne gefahr.
  51. 78 [153]"belegung der puffer (momentan):         tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  52. 79 print"pf. 0      1      2      3      4
  53. 80 [152]15,"m-ro":[161]#15,a$:aa[178]([198](a$[170][199](0))):a[178]4[176]aa
  54. 81 [153]"";:[129]i[178].[164]4:[139]a[175](2[174]i)[167][153]"belegtwait ";:[137]83
  55. 82 [153]"frei   ";
  56. 83 [130]:[152]15,"m-wo"[199](a)
  57. 84 [160]15:[151]198,.
  58. 99 [153]:[128]
  59. 100 [132]15,f1,f1$,f2,f3
  60. 102 [139]f1[179]2[167][142]
  61. 104 [153]"diskettenfehler nummer"f1"!
  62. 106 print"text: "f1$
  63. 108 print"spur"f2" sektor"f3
  64. 110 close8:close15:end
  65. 200 get#8,a$:a=asc(a$+chr$(.)):return
  66.