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