20 POKE53280,0:POKE53281,11:PRINT"[147][159]"CHR$(14):DIMB$(64)
30 CLOSE4:OPEN4,4,0:CLOSE4
40 IF ST AND-64 THEN PRINT,"[196]RUCKER EINSCHALTEN[145]":GOTO30
60 S=704:DJ=99
70 C$=CHR$(13):E$=CHR$(27):O$=CHR$(0):GOSUB930:POKES+3,DJ:POKE198,0
100 PRINT"[147]","[196]IRECTORY [208]RINTER
110 [153]"   (null)AECHSTE STR$ISKETTE - 'ASC7'WAIT ODER (null)VAL(null)(null)(null)(null)
120 IFW=64THENPRINT"   [196]RUCK WIEDERHOLEN - '[198]5'"
130 PRINT,"VALIDIEREN - '[198]3'"
140 PRINT,"      [197]NDE - '[198]1'"
150 WAIT198,1:GETA$:AS=ASC(A$):POKE198,0:IFAS=135ANDW<>64THENAS=0
160 IFAS=136ANDW=64THENGOSUB300:GOTO100
170 IFAS=13THENAS=136
180 ONAS+132*(AS>132)GOSUB3000,1020,600,200:GOTO100
200 DJ=PEEK(S+3):DJ$=MID$(STR$(DJ),2)
210 GOSUB800:IFD3$<>DJ$THEND$="TTMM"+DJ$
220 PRINT"[153][212]AGESDATUM  :"D$C$"[145]"SPC(11);
230 INPUTD$:IFLEN(D$)<>6THEN220
240 IFD$=DA$THEN300
250 POKES,VAL(MID$(D$,1,2)):POKES+1,VAL(MID$(D$,3,2))
260 POKES+2,VAL(MID$(D$,5,2)):GOSUB800
290 REM=== BLOCK'S FREE / DIR-NAME
300 W=0:N=0:CC$="":PRINT"[147][153]";:GOSUB1000:IFDE=21THENGOSUB2100:GOTO510
310 OPEN2,8,2,"#":GET#2,A$:P=ASC(A$+O$)+3
320 PRINT#15,"M-R"CHR$(250)CHR$(2):GET#15,BL$
330 PRINT#15,"M-R"CHR$(252)CHR$(2):GET#15,BH$:BF=ASC(BL$+O$)+256*ASC(BH$+O$)
340 SP=18:SE=0:GOSUB870:BF$=RIGHT$("   "+STR$(BF),4)
350 PRINT#15,"M-R"CHR$(144)CHR$(7)CHR$(23)
360 A$="":CC$="":INPUT#15,A$:CC$=LEFT$(A$,16):ID$=MID$(A$,19,2)
370 SP=18:SE=1:PRINT"[147]"," "DD$C$," "CC$"[146] "ID$
380 :
390 REM=== DIR LESEN
400 GOSUB870:IFED=10THEN500
410 FORDI=0TO7:PZ=DI*32:PRINT#15,"B-P 2";PZ+2:GOSUB2000:REM ERR
420 : IFDETHENED=10:DI=10
430 : GET#2,A$:A=ASC(A$+O$):B=A-(A AND128):IFA=0THEN490:REM GELOESCHT
435 : IFB>64THENB=B-60
440 : PRINT#15,"M-R"CHR$(PZ+5)CHR$(P)CHR$(16):INPUT#15,F$:IFLEN(F$)=16THEN470
450 : PRINT#15,"M-R"CHR$(PZ+5)CHR$(P)CHR$(16)
460 : F$="":FORI=1TO16:GET#15,A$:F$=F$+A$:NEXT
470 : PRINT#15,"B-P 2";PZ+30:GET#2,BL$:GET#2,BH$:BL=ASC(BH$+O$)*256+ASC(BL$+O$)
480 : N=N+1:F$(N)=RIGHT$("  "+STR$(BL),4)+" "+F$+" "+B$(B):PRINT"      "F$(N)
490 NEXT:IFED=0THEN400
500 PRINTC$"      "BF$" BLOECKE FREI.
510 [160]15:[160]2
590 [143]=== PRINT
600 [139]CC$[178]""[167][142]
610 F[178]4:[159]F,4,7:[152]F:[157]F:[153]E$"(null)";
620 [153]E$"(null)"E$[199](15)E$"S"O$E$"A"[199](5)E$" NAME : "CC$"  RIGHT$STR$:  "ID$"  ";
630 [152]F,BF$"  PEEKLOECKE FREI.       (null)TAND VOM: "DD$" "E$"-0":[152]F
640 [139]W[167]670
650 B[178]N[173]3:B%[178]B:[139]N[178]0[167]710
660 [139]B[179][177]B%[167][129]X[178]1[164]3:F$(N[170]X)[178]"":[130]:N[178]N[170]3
670 B%[178]N[173]3:[129]X[178]1[164]B%
680 : [152]F,F$(X)" "F$(X[170]B%)" "F$(X[170]2[172]B%)
690 [130]
710 W[178]64:[152]F:[160]F:[153]"LOADOPEN"[199](14):[142]
790 [143]=== SUBROUTINE
800 D1$[178][201]("0"[170][202]([196]([194](S)),2),2)
810 D2$[178][201]("0"[170][202]([196]([194](S[170]1)),2),2)
820 D3$[178][201]("0"[170][202]([196]([194](S[170]2)),2),2):DD$[178]D1$[170]"."[170]D2$[170]"."[170]D3$
830 D$[178]D1$[170]D2$[170]D3$:DA$[178]D$:[142]
850 [143]" BLOCK READ
860 ED=10:GOTO900
870 PRINT#15,"U1 2 0";SP;SE:GOSUB2000:IFDETHENPRINT"ZEILE 870":GOTO860
880 ED=0:GET#2,SP$:GET#2,SE$:SP=ASC(SP$+O$):SE=ASC(SE$+O$)
890 IFSP=0ORSP>35ORSE>20THENED=1
900 RETURN
920 REM" INITIALISIEREN
930 J[178]0:I[178]0:DI[178]0:PZ[178]0:SE[178]0:A[178]0:B[178]0:BL[178]0:BF[178]0:W[178]0
940 B$(0)[178]"    ":B$(1)[178]"SEQ ":B$(2)[178]"PRG ":B$(3)[178]"USR ":B$(4)[178]"REL "
950 B$(5)[178]"SEQ<":B$(6)[178]"PRG<":B$(7)[178]"USR<":B$(8)[178]"REL<"
960 [134]F$(152)
970 [142]
990 [143]" DISK-ANW.
1000 OPEN15,8,15,"I0":GOSUB2000:RETURN
1010 :
1020 OPEN15,8,15,"V0":GOSUB2000:RETURN
1030 :
1990 REM" DISK-ERR
2000 [132]15,DE,DE$,S1,S2
2010 [139]DE[167][153]""DE;DE$,S1;S2
2020 [142]
2030 :
2100 [153],"DISK ERROR #"DE;C$"WEITER MIT:   (null)ATN(null)(null)VAL
2110 POKE198,0:WAIT198,1:RETURN
2990 REM=== ENDE
3000 PRINT"[147]":CLOSE15:END