1 REM NIKOLAUS HEUSLER, ZWENGAUERWEG 18, 8 MUENCHEN 71
10 PRINT"[147][142]    **** FILE-LOCK FUER VC 1541 ****
12 [153]"      SCHUETZT FILES VOR 'SCRATCH'CLOSE
14 PRINT"          (C) N. HEUSLER 03.91
16 [153]"BITTE WARTEN. PROGRAMM WIRD UEBERTRAGEN.
20 OPEN15,8,15,"I":GOSUB100
21 PRINT"READING[145]
22 [159]8,8,0,"FILELOCK $500":[141]100
24 [141]200:B[178]A:[141]200:[139]A[172]256[170]B[179][177]1280[167][153]"FEHLER!":[137]110
26 [141]200:N$[178]N$[170][199](A):[139]ST[179][177]64[167]26
28 [160]8:[153]"WRIT
30 FORI=1TOLEN(N$)
32 PRINT#15,"M-W"CHR$(I-1)"
"MID$(N$,I,1):NEXT
40 DV$=CHR$(34):PRINT"[147]BEDIENUNG:                              [163][163][163][163][163][163][163][163][163]
42 [153]"MIT DEM  PROGRAMM  LASSEN SICH FILES IM
43 PRINT"DIRECTORY ALS GESCHUETZT  KENNZEICHNEN.
44 [153]"HINTER DEM FILETYP WIRD DAS ZEICHEN '<'
45 PRINT"ANGEHAENGT.  DIESE DATEIEN KOENNEN DANN
46 [153]"NICHT MEHR MIT DEM  SCRATCH-BEFEHL  GE-
47 PRINT"LOESCHT WERDEN.
48 [153]"DAS PROGRAMM  ERZEUGT EINE CLOSE'BEFEHLSER-
49 PRINT"WEITERUNG' FUER DIE FLOPPY.  DIE SYNTAX
50 [153]"FUER DIE 2 NEUEN BEFEHLE IST:
51 PRINT"     UC:NAME(N)      FILE(S) SCHUETZEN
52 [153]"     UD:NAME(N)      FILE(S) FREIGEBEN
53 PRINT"DER NAME/DIE NAMEN WIRD/WERDEN WIE BEIM
54 [153]"SCRATCH-BEFEHL UEBERGEBEN.
55 PRINT"                 TASTE [146]":POKE198,.:WAIT198,1
56 PRINT"[147]EINIGE BEISPIELE:                       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
57 [153]" OPEN 15,8,15,"DV$"UC:TESTFILE"DV$
58 [153]" PRINT#15,"DV$"UD:FILE1,FILE2"DV$
59 [153]" PRINT#15,"DV$"UC:N?ME *"DV$
60 [153]" PRINT#15,"DV$"UC:*"DV$"       (SCHUETZT ALLES)
61 PRINT" PRINT#15,"DV$"UD:SOFTWARE,TEST*"DV$
62 PRINT" PRINT#15,"DV$"UC:FILE1,FILE2,FILE3,FILE4"DV$
63 PRINT"UND SO WEITER...
64 [153]"STATT UC KANN AUCH U3, STATT UD AUCH U4
65 PRINT"VERWENDET WERDEN: PRINT#15,"DV$"U3:TEST"DV$
66 PRINT"FALLS DAS DIRECTORY EINER DISKETTE SEHR
67 [153]"LANG IST,  DAUERT ES U.U. EINIGE SEKUN-
68 PRINT"DEN, BIS DAS PROGRAMM GANZ DURCH IST.
69 [153]"                 TASTE WAIT":[151]198,.:[146]198,1
70 [153]"LOADBIS ZU EINEM AUSSCHALTEN ODER RESET DER
71 PRINT"FLOPPY ODER EINER  ANDERWEITIGEN BENUT-
72 [153]"ZUNG  DES PUFFERS 2  SIND DIE NEUEN BE-
73 PRINT"FEHLE VERFUEGBAR.
74 [153]"COPYRIGHT IS MOST STRENUOUSLY RESERVED.
75 PRINT"OUR LAWYERS ARE WATCHING!
76 [153]"ALL RIGHTS RESERVED, BEUTZUNG AUF EIGE-
77 PRINT"NE GEFAHR.
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(
79 PRINT"PF. 0      1      2      3      4
80 [152]15,"M-RO":[161]#15,A$:AA[178]([198](A$[170][199](0))):A[178]4[176]AA
81 [153]"";:[129]I[178].[164]4:[139]A[175](2[174]I)[167][153]"BELEGTWAIT ";:[137]83
82 [153]"FREI   ";
83 [130]:[152]15,"M-WO
"[199](A)
84 [160]15:[151]198,.
99 [153]:[128]
100 [132]15,F1,F1$,F2,F3
102 [139]F1[179]2[167][142]
104 [153]"DISKETTENFEHLER NUMMER"F1"!
106 PRINT"TEXT: "F1$
108 PRINT"SPUR"F2" SEKTOR"F3
110 CLOSE8:CLOSE15:END
200 GET#8,A$:A=ASC(A$+CHR$(.)):RETURN