10 REM GESAMT-DIRECTORY =========64
20 REM (P) 03/85 CBM REVUE TEAM   =
30 REM ============================
40 REM (C) 02/85 HERMANN WEIGL    =
50 REM                            =
60 REM                            =
70 REM                            =
80 REM C-64 + 1541                =
90 REM ============================
100 WH$=CHR$(5):DC$=CHR$(8)
110 EC$=CHR$(9):RT$=CHR$(13)
120 SL$=CHR$(14):C4$=CHR$(17)
130 RN$=CHR$(18):HE$=CHR$(19)
140 DE$=CHR$(20):EE$=CHR$(27)
150 RE$=CHR$(28):C3$=CHR$(29)
160 GR$=CHR$(30):BL$=CHR$(31)
170 S1$=CHR$(32):OE$=CHR$(129)
180 FA$=CHR$(130):FB$=CHR$(131)
190 F1$=CHR$(133):F3$=CHR$(134)
200 F5$=CHR$(135):F7$=CHR$(136)
210 F2$=CHR$(137):F4$=CHR$(138)
220 F6$=CHR$(139):F8$=CHR$(140)
230 SR$=CHR$(141):SU$=CHR$(142)
240 BK$=CHR$(144):C2$=CHR$(145)
250 RF$=CHR$(146):CL$=CHR$(147)
260 IN$=CHR$(148):BR$=CHR$(149)
270 LR$=CHR$(150):G1$=CHR$(151)
280 G2$=CHR$(152):LG$=CHR$(153)
290 LB$=CHR$(154):G3$=CHR$(155)
300 PU$=CHR$(156):C1$=CHR$(157)
310 YE$=CHR$(158):CY$=CHR$(159)
320 S2$=CHR$(160):S3$=CHR$(224)
330 Z1$=CHR$(96):Z2$=CHR$(105)
340 Z3$=CHR$(123):Z4$=CHR$(171)
350 Z5$=CHR$(173):Z6$=CHR$(174)
360 Z7$=CHR$(176):Z8$=CHR$(177)
370 Z9$=CHR$(178):ZA$=CHR$(179)
380 ZB$=CHR$(189)
390 FORQ=0TO36:Q1$=Q1$+Z1$:NEXTQ
400 FORQ=0TO7:Q7$=Q7$+C1$:NEXTQ
410 FORQ=0TO2:Q2$=Q2$+C4$:NEXTQ
420 FORQ=0TO3:Q3$=Q3$+C4$:NEXTQ
430 POKE53280,0:POKE53281,0:REM C-64
440 PRINTCL$YE$SL$
450 DIMFI$(1000)
460 OPEN1,8,15
470 H$="[199]ESAMT-[196]IRECTORY":GOSUB1030
480 PRINTC4$:INPUT"[196]ATEINAME      :";DA$
490 IFLEN(DA$)>14THENPRINTC4$"[196]ATEINAME ZU LANG (MAX.14)":GOTO480
500 OPEN2,8,2,DA$+".S,S,R"
510 GOSUB1110
520 IFX1=0THEN700
530 CLOSE2
540 IFX1<>62THENFORT=1TO1000:NEXT:GOTO470
550 PRINT"[198]ALSCHER [196]ATEINAME"
560 PRINTC4$"[211]OLL DIE [196]ATEI UNTER [206]AME"
570 PRINTC4$">"DA$
580 PRINTC4$"NEU ANGELEGT WERDEN ?  ([202]/[206])"
590 GETA$:IFA$<>"J"ANDA$<>"N"THEN590
600 IFA$="N"THEN470
610 PRINTQ2$:INPUT"[193]UTOR          :";AU$
620 PRINTC4$"[196]ATUM          :  [212][212][205][205][202][202]"Q7$;:INPUTDR$
630 OPEN2,8,2,DA$+",S,W":GOSUB1110
640 CLOSE2:GOSUB1110
650 OPEN2,8,2,DA$+".S,S,W":GOSUB1110
660 PRINT#2,AU$:PRINT#2,ND
670 PRINT#2,NC:PRINT#2,DR$
680 CLOSE2:GOSUB1110
690 GOTO870
700 INPUT#2,AU$,ND,NC,DR$
710 PRINTC4$"[193]UTOR          : ";AU$
720 PRINTC4$"[196]ATENSAETZE    : ";ND
730 PRINTC4$"[196]ISKETTEN      : ";NC
740 PRINTC4$"[193]KTUALITAET    : ";DR$
750 CLOSE2:GOSUB1110
760 PRINTQ2$
770 OPEN2,8,2,DA$+",S,R":GOSUB1110
780 FORA=1TO1000:INPUT#2,FI$(A)
790 PRINTC4$"[196]ATENSAETZE    : ";A
800 IFST=0THENNEXT
810 ND=A
820 CLOSE2:GOSUB1110
830 PRINTC4$"[200]EUTIGES [196]ATUM :  [212][212][205][205][202][202]"Q7$;:INPUTDR$
840 REM ===========================
850 REM                 HAUPT-MENUE
860 REM ===========================
870 H$="[199]ESAMT-[196]IRECTORY":GOSUB1030
880 PRINTC4$RN$"(1)"RF$"  [193]UFNEHMEN"
890 PRINTC4$RN$"(2)"RF$"  [211]ORTIEREN"
900 PRINTC4$RN$"(3)"RF$"  [193]USGEBEN"
910 PRINTC4$RN$"(4)"RF$"  [211]UCHEN"
920 PRINTC4$RN$"(5)"RF$"  [204]OESCHEN"
930 PRINTC4$RN$"(6)"RF$"  [214]ERGLEICHEN"
940 PRINTQ2$RN$"([197])"RF$"  [197]NDE"
950 GETA$:IFA$=""THEN950
960 A=ASC(A$)-48:IFA<1THEN950
970 ONAGOSUB1190,1900,2200,2920,3740,4300
980 IFA$="E"THEN4670
990 GOTO870
1000 REM ==========================
1010 REM               UEBERSCHRIFT
1020 REM ==========================
1030 PRINTCL$
1040 PRINTHE$Z7$Q1$Z6$
1050 PRINTTAB(20-.5*LEN(H$));RN$;H$;RF$
1060 PRINTZ5$Q1$ZB$
1070 RETURN
1080 REM ==========================
1090 REM                FEHLERKANAL
1100 REM ==========================
1110 INPUT#1,X1,X2$,X3,X4
1120 IFX1=0THENRETURN
1130 PRINT"   "RN$"[198]EHLER AUF [196]ISK"RF$
1140 PRINT:PRINTX1;X2$;X3;X4:PRINT
1150 RETURN
1160 REM ==========================
1170 REM                  AUFNEHMEN
1180 REM ==========================
1190 H$="[193]UFNEHMEN VON [197]INTRAEGEN":GOSUB1030
1200 PRINTQ3$RN$"(1)"RF$"  [196]IRECTORY"
1210 PRINTQ2$RN$"(2)"RF$"  [198]ILE"
1220 PRINTQ3$RN$"([205])"RF$"  [205]ENUE"
1230 GETA$:IFA$=""THEN1230
1240 IFA$="1"THENGOSUB1310
1250 IFA$="2"THENGOSUB1710
1260 IFA$="M"THENRETURN
1270 GOTO1190
1280 REM ==========================
1290 REM AUFNEHMEN EINES DIRECTORYS
1300 REM ==========================
1310 H$="[197]INLESEN EINES [196]IRECTORYS":GOSUB1030:AE=1
1320 PRINTC4$"[197]INZULESENDE [196]ISKETTE EINLEGEN, DANN"
1330 PRINTC4$RN$"[210][197][212][213][210][206]"RF$
1340 GETA$:IFA$<>CHR$(13)THEN1340
1350 OPEN2,8,2,"#"
1360 IR$="":NR$="":NN=0
1370 PRINT#1,"U1:";2;0;18;0
1380 PRINT#1,"B-P:";2;144
1390 FORA=1TO16:GET#2,A$:NR$=NR$+A$:NEXT:GET#2,A$,A$
1400 PRINTQ2$"[206]AME : ";NR$;
1410 FORA=1TO2:GET#2,A$:IR$=IR$+A$:NEXT
1420 PRINT"[201][196] : ";IR$
1430 PRINTC4$
1440 T=18:S=1
1450 PRINT#1,"U1:";2;0;T;S
1460 PRINT#1,"B-P:";2;0
1470 GET#2,A$,B$:T=ASC(A$+CHR$(0)):S=ASC(B$)
1480 FORA=0TO7:PRINT#1,"B-P:";2;32*A+2
1490 GET#2,A$:FT=ASC(A$+CHR$(0))-128:IFFT<1THEN1610
1500 FT=FTAND7:GET#2,A$,A$
1510 IFFT=1THENFT$=" S"
1520 IFFT=2THENFT$=" P"
1530 IFFT=3THENFT$=" U"
1540 IFFT=4THENFT$=" R"
1550 FR$="":FORB=1TO16:GET#2,A$:FR$=FR$+A$:PRINTA$;:NEXT:PRINT
1560 PRINT#1,"B-P:";2;32*A+30
1570 GET#2,A$,B$:LR=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0))
1580 FL$=MID$(STR$(LR)+"   ",2,3)
1590 NN=NN+1:IFND+NN>1000THENPRINTQ2$RN$" [213]EBERLAUF "RF$Q2$:GOTO1630
1600 FI$(ND+NN)=IR$+FR$+FT$+NR$+FL$+DR$
1610 NEXTA
1620 IFT>0THEN1450
1630 CLOSE2
1640 PRINTC4$"[213]EBERNEHMEN ?  ([202]/[206])"
1650 GETA$:IFA$<>"N"ANDA$<>"J"THEN1650
1660 IFA$="N"THENRETURN
1670 NC=NC+1:ND=ND+NN:RETURN
1680 REM ==========================
1690 REM      AUFNEHMEN EINES FILES
1700 REM ==========================
1710 H$="[193]UFNEHMEN EINES [198]ILES":GOSUB1030:AE=1
1720 IFND=1000THENPRINTQ2$RN$" [213]EBERLAUF "RF$:FORT=1TO2000:NEXT:RETURN
1730 PRINTC4$:INPUT"[198]ILE-[206]AME  :";FR$:IFLEN(FR$)>16THENPRINTQ3$:GOTO1730
1740 IFLEN(FR$)<16THENFR$=FR$+CHR$(160):GOTO1740
1750 PRINT:INPUT"[196]ISK-[206]AME  :";NR$:IFLEN(NR$)>16THENPRINTQ3$:GOTO1750
1760 IFLEN(NR$)<16THENNR$=NR$+CHR$(160):GOTO1760
1770 PRINT:INPUT"[198]ILE-[204]AENGE:";FL$:IFLEN(FL$)>3THENPRINTQ3$:GOTO1770
1780 IFLEN(FL$)<3THENFL$=FL$+CHR$(160):GOTO1780
1790 PRINT:INPUT"[198]ILE-[193]RT   :";FT$:IFLEN(FT$)<>1THENPRINTC2$C2$C2$:GOTO1790
1800 FT$=" "+FT$
1810 PRINT:INPUT"[196]ISK-[201][196]    :";IR$:IFLEN(IR$)<>2THENPRINTC2$C2$C2$:GOTO1810
1820 PRINTQ2$"[193]LLE [193]NGABEN KORREKT ?  ([202]/[206])"
1830 GETA$:IFA$<>"J"ANDA$<>"N"THEN1830
1840 IFA$="N"THENGOSUB1040:GOTO1710
1850 ND=ND+1:FI$(ND)=IR$+FR$+FT$+NR$+FL$+DR$
1860 RETURN
1870 REM ==========================
1880 REM                  SORTIEREN
1890 REM ==========================
1900 H$="[211]ORTIEREN":GOSUB1030
1910 PRINTQ3$RN$"(1)"RF$"  NACH [198]ILE-[206]AME"
1920 PRINTQ2$RN$"(2)"RF$"  NACH [201][196]"
1930 PRINTQ3$RN$"([205])"RF$"  [205]ENUE"
1940 GETA$:IFA$=""THEN1940
1950 IFA$="1"THENH$="[211]ORTIEREN NACH [198]ILE-[206]AME":GOSUB2020
1960 IFA$="2"THENH$="[211]ORTIEREN NACH [201][196]":GOSUB2020
1970 IFA$="M"THENRETURN
1980 GOTO1900
1990 REM ==========================
2000 REM                       SORT
2010 REM ==========================
2020 GOSUB1030:AE=1
2030 IFA$="2"THEN2050
2040 FORA=1TOND:B$=RIGHT$(FI$(A),43)+LEFT$(FI$(A),2):FI$(A)=B$:NEXTA
2050 PRINTQ2$"[211]ORTIEREN BEGINNT"
2060 PRINTC4$ND"[196]ATENSAETZE SIND ZU SORTIEREN"Q2$
2070 FORB=1TOND-1
2080 FORA=1TOND-1
2090 IFFI$(A)<=FI$(A+1)THEN2110
2100 B$=FI$(A):FI$(A)=FI$(A+1):FI$(A+1)=B$
2110 :
2120 PRINT"[196]ATENSATZ :"A;C4$:NEXTA:PRINT
2130 NEXTB
2140 IFA$="2"THEN2160
2150 FORA=1TOND:B$=RIGHT$(FI$(A),2)+LEFT$(FI$(A),43):FI$(A)=B$:NEXTA
2160 RETURN
2170 REM ==========================
2180 REM                    AUSGABE
2190 REM ==========================
2200 H$="[193]USGABE VON [196]ATEN":GOSUB1030
2210 PRINTQ2$RN$"(1)"RF$"  [201][196]    - AUF [194]ILDSCHIRM"
2220 PRINTQ2$RN$"(2)"RF$"  [201][196]    - AUF [196]RUCKER
2230 [153]Q2$RN$"(3)"RF$"  (null)AME  - AUF PEEKILDSCHIRM"
2240 [153]Q2$RN$"(4)"RF$"  (null)AME  - AUF STR$RUCKER"
2250 [153]Q3$RN$"((null))"RF$"  (null)ENUE"
2260 [161]A$:[139]A$[178]""[167]2260
2270 A[178][198](A$)[171]48:[139]A[179]1[167]2260
2280 [145]A[141]2340,2480,2630,2770
2290 [139]A$[178]"M"[167][142]
2300 [137]2200
2310 [143] ==========================
2320 [143]              ID BILDSCHIRM
2330 [143] ==========================
2340 H$[178]"RIGHT$STR$ AUF PEEKILDSCHIRM":[141]1030
2350 [153]Q2$"RIGHT$STR$.STR$ISK-(null)AME........ASCILE-(null)AME........(null).."
2360 [129]A[178]1[164]ND
2370 [153][200](FI$(A),2)" "[202](FI$(A),21,16)" ";
2380 [153][202](FI$(A),3,16)" "[202](FI$(A),37,3);
2390 [161]A$:[139]A$[178]""[167]2390
2400 [139]A$[178]"S"[167]2420
2410 [130]A
2420 [153]Q2$RN$"(null)VAL(null)(null)(null)(null)"RF$
2430 [161]A$:[139]A$[179][177][199](13)[167]2430
2440 [142]
2450 [143] ==========================
2460 [143]                 ID DRUCKER
2470 [143] ==========================
2480 H$[178]"RIGHT$STR$ AUF STR$RUCKER":[141]1030
2490 [159]4,4,7
2500 [152]4,"ATNUTOR : ";AU$;"  STR$ATENSAETZE :";ND;" STR$ISKETTEN :";NC
2510 [152]4
2520 [152]4,"ATNKTUALITAET : ";DR$;"  STR$ATEINAME : ";DA$
2530 [152]4
2540 [152]4,"RIGHT$STR$.STR$ISK-(null)AME........ASCILE-(null)AME........ASC.(null)G..STR$ATUM"
2550 [152]4
2560 [129]A[178]1[164]ND
2570 [152]4,[200](FI$(A),2);" ";[202](FI$(A),21,16);" ";[202](FI$(A),3,16);" ";
2580 [152]4,[202](FI$(A),20,1);" ";[202](FI$(A),37,3);" ";[202](FI$(A),40,6)
2590 [130]A:[160]4:[142]
2600 [143] ==========================
2610 [143]            NAME BILDSCHIRM
2620 [143] ==========================
2630 H$[178]"(null)AME AUF PEEKILDSCHIRM":[141]1030
2640 [153]Q2$"ASCILE-(null)AME........(null)...RIGHT$STR$.STR$ISK-(null)AME......."
2650 [129]A[178]1[164]ND
2660 [153][202](FI$(A),3,16)" "[202](FI$(A),37,3)" ";
2670 [153][202](FI$(A),1,2)" "[202](FI$(A),21,16);
2680 [161]A$:[139]A$[178]""[167]2680
2690 [139]A$[178]"S"[167]2710
2700 [130]A
2710 [153]Q2$RN$"(null)VAL(null)(null)(null)(null)"RF$
2720 [161]A$:[139]A$[179][177][199](13)[167]2720
2730 [142]
2740 [143] ==========================
2750 [143]               NAME DRUCKER
2760 [143] ==========================
2770 H$[178]"(null)AME AUF STR$RUCKER":[141]1030
2780 [159]4,4,7
2790 [152]4,"ATNUTOR : ";AU$;"  STR$ATENSAETZE :";ND;" STR$ISKETTEN :";NC
2800 [152]4
2810 [152]4,"ATNKTUALITAET : ";DR$;"  STR$ATEINAME : ";DA$
2820 [152]4
2830 [152]4,"ASCILE-(null)AME........ASC.(null)G..STR$ISK-(null)AME........RIGHT$STR$.STR$ATUM"
2840 [152]4
2850 [129]A[178]1[164]ND
2860 [152]4,[202](FI$(A),3,16);" ";[202](FI$(A),20,1);" ";[202](FI$(A),37,3);" ";
2870 [152]4,[202](FI$(A),21,16);" ";[202](FI$(A),1,2);" ";[202](FI$(A),40,6)
2880 [130]A:[160]4:[142]
2890 [143] ==========================
2900 [143]                     SUCHEN
2910 [143] ==========================
2920 H$[178]"(null)UCHEN":[141]1030
2930 [153]C4$"NACH :"
2940 [153]C4$RN$"(1)"RF$"  RIGHT$STR$"
2950 [153]C4$RN$"(2)"RF$"  STR$ISK-(null)AME"
2960 [153]C4$RN$"(3)"RF$"  ASCILE-(null)AME"
2970 [153]C4$RN$"(4)"RF$"  ASCILE-(null)AENGE"
2980 [153]C4$RN$"(5)"RF$"  STR$ATUM"
2990 [153]Q2$RN$"((null))"RF$"  (null)ENUE"
3000 [161]A$:[139]A$[178]""[167]3000
3010 A[178][198](A$)[171]48:[139]A[179]1[167]3000
3020 [145]A[141]3080,3230,3360,3490,3620
3030 [139]A$[178]"M"[167][142]
3040 [137]2920
3050 [143] ==========================
3060 [143]                 SUCHEN  ID
3070 [143] ==========================
3080 H$[178]"(null)UCHEN NACH RIGHT$STR$":[141]1030
3090 [153]C4$:[133]"RIGHT$STR$ :";SV$
3100 E[178]2:F[178]1
3110 [153]Q2$"STR$ISK-(null)AME........ASCILE-(null)AME........ASC.(null)G.."
3120 [129]A[178]1[164]ND:[139][200](FI$(A),2)[178]SV$[167][141]3170
3130 [130]
3140 [153]Q2$RN$"(null)VAL(null)(null)(null)(null)"RF$
3150 [161]A$:[139]A$[179][177][199](13)[167]3150
3160 [142]
3170 [153][202](FI$(A),21,16);" ";[202](FI$(A),3,16);" ";[202](FI$(A),20,1);" ";
3180 [153][202](FI$(A),37,3)
3190 [142]
3200 [143] =========================
3210 [143]          SUCHEN DISK-NAME
3220 [143] =========================
3230 H$[178]"(null)UCHEN NACH STR$ISK-(null)AME":[141]1030
3240 [153]C4$:[133]"STR$ISK-(null)AME :";SV$:SV[178][195](SV$)
3250 [139]SV[177]16[167]3230
3260 [139][201](SV$,1)[178]"*"[167]SV[178]SV[171]1:SV$[178][200](SV$,SV)
3270 [153]Q2$"STR$ISK-(null)AME........ASCILE-(null)AME........ASC.(null)G.."
3280 [129]A[178]1[164]ND:[139][202](FI$(A),21,SV)[178]SV$[167][141]3170
3290 [130]
3300 [153]Q2$RN$"(null)VAL(null)(null)(null)(null)"RF$
3310 [161]A$:[139]A$[179][177][199](13)[167]3310
3320 [142]
3330 [143] ==========================
3340 [143]           SUCHEN FILE-NAME
3350 [143] ==========================
3360 H$[178]"(null)UCHEN NACH ASCILE-(null)AME":[141]1030
3370 [153]C4$:[133]"ASCILE-(null)AME :";SV$:SV[178][195](SV$)
3380 [139]SV[177]16[167]3360
3390 [139][201](SV$,1)[178]"*"[167]SV[178]SV[171]1:SV$[178][200](SV$,SV)
3400 [153]Q2$"STR$ISK-(null)AME........ASCILE-(null)AME........ASC.(null)G.."
3410 [129]A[178]1[164]ND:[139][202](FI$(A),3,SV)[178]SV$[167][141]3170
3420 [130]
3430 [153]Q2$RN$"(null)VAL(null)(null)(null)(null)"RF$
3440 [161]A$:[139]A$[179][177][199](13)[167]3440
3450 [142]
3460 [143] ==========================
3470 [143]         SUCHEN FILE-LAENGE
3480 [143] ==========================
3490 H$[178]"(null)UCHEN NACH ASCILE-(null)AENGE":[141]1030
3500 [153]C4$:[133]"ASCILE-(null)AENGE:";SV$:SV[178][195](SV$)
3510 [139]SV[177]3[167]3460
3520 [139]SV[179]3[167]SV$[178]SV$[170]" ":SV[178]SV[170]1:[137]3520
3530 [153]Q2$"STR$ISK-(null)AME........ASCILE-(null)AME........ASC.(null)G.."
3540 [129]A[178]1[164]ND:[139][202](FI$(A),37,SV)[178]SV$[167][141]3170
3550 [130]
3560 [153]Q2$RN$"(null)VAL(null)(null)(null)(null)"RF$
3570 [161]A$:[139]A$[179][177][199](13)[167]3570
3580 [142]
3590 [143] ==========================
3600 [143]               SUCHEN DATUM
3610 [143] ==========================
3620 H$[178]"(null)UCHEN NACH STR$ATUM":[141]1030
3630 [153]C4$:[133]"STR$ATUM:";SV$:SV[178][195](SV$)
3640 [139]SV[179][177]6[167]3590
3650 [153]Q2$"STR$ISK-(null)AME........ASCILE-(null)AME........ASC.(null)G.."
3660 [129]A[178]1[164]ND:[139][202](FI$(A),40,SV)[178]SV$[167][141]3170
3670 [130]
3680 [153]Q2$RN$"(null)VAL(null)(null)(null)(null)"RF$
3690 [161]A$:[139]A$[179][177][199](13)[167]3690
3700 [142]
3710 [143] ==========================
3720 [143]                   LOESCHEN
3730 [143] ==========================
3740 H$[178]"(null)OESCHEN VON STR$ATEN":[141]1030
3750 [153]Q3$RN$"(1)"RF$"  STR$ISK"
3760 [153]Q2$RN$"(2)"RF$"  RIGHT$STR$"
3770 [153]Q2$RN$"(3)"RF$"  ASCILE"
3780 [153]Q3$RN$"((null))"RF$"  (null)ENUE"
3790 [161]A$:[139]A$[178]""[167]3790
3800 A[178][198](A$)[171]48:[139]A[179]1[167]3790
3810 [145]A[141]3870,4030,4160
3820 [139]A$[178]"M"[167][142]
3830 [137]3740
3840 [143] ==========================
3850 [143]                       DISK
3860 [143] ==========================
3870 H$[178]"(null)OESCHEN EINES STR$ISK-(null)AMENS":[141]1030:AE[178]1:GE[178]0
3880 [153]C4$:[133]"STR$ISK-(null)AME :";SV$
3890 [139][195](SV$)[177]16[167]3870
3900 [139][195](SV$)[179]16[167]SV$[178]SV$[170][199](160):[137]3900
3910 [153]C4$
3920 [129]A[178]1[164]ND:[139][202](FI$(A),21,16)[178]SV$[167]FI$(A)[178]"":[141]3970
3930 [130]
3940 [129]A[178]1[164]ND
3950 [139]FI$(A)[178]""[167][129]B[178]A[170]1[164]ND:FI$(B[171]1)[178]FI$(B):[130]B:ND[178]ND[171]1
3960 [130]A:NC[178]NC[171]1:[142]
3970 GE[178]GE[170]1
3980 [153]"ATNNZAHL GELOESCHTER STR$ATENSAETZE :"GE:[153]
3990 [142]
4000 [143] ==========================
4010 [143]                         ID
4020 [143] ==========================
4030 H$[178]"(null)OESCHEN EINER RIGHT$STR$":[141]1030:AE[178]1:GE[178]0
4040 [153]C4$:[133]"RIGHT$STR$ :";SV$
4050 [139][195](SV$)[179][177]2[167]4030
4060 [153]C4$
4070 [129]A[178]1[164]ND:[139][200](FI$(A),2)[178]SV$[167]FI$(A)[178]"":[141]3970
4080 [130]
4090 [129]A[178]1[164]ND
4100 [139]FI$(A)[178]""[167][129]B[178]A[170]1[164]ND:FI$(B[171]1)[178]FI$(B):[130]B:ND[178]ND[171]1
4110 [130]A
4120 NC[178]NC[171]1:[142]
4130 [143] ==========================
4140 [143]                       FILE
4150 [143] ==========================
4160 H$[178]"(null)OESCHEN EINES ASCILES":[141]1010:AE[178]1:GE[178]0
4170 [153]C4$:[133]"ASCILE-(null)AME :";SV$
4180 [139][195](SV$)[177]16[167]4160
4190 [139][195](SV$)[179]16[167]SV$[178]SV$[170][199](160):[137]4190
4200 [153]C4$
4210 [129]A[178]1[164]ND:[139][202](FI$(A),3,16)[178]SV$[167]FI$(A)[178]"":[141]3970
4220 [130]
4230 [129]A[178]1[164]ND
4240 [139]FI$(A)[178]""[167][129]B[178]A[170]1[164]ND:FI$(B[171]1)[178]FI$(B):[130]B:ND[178]ND[171]1
4250 [130]A
4260 [142]
4270 [143] ==========================
4280 [143]                VERGLEICHEN
4290 [143] ==========================
4300 H$[178]"(null)ERGLEICHEN":[141]1030
4310 [153]C4$"STR$ATEI IM (null)PEICHER : ";DA$
4320 [153]:[133]"(null)U VERGLEICHENDE STR$ATEI";DV$
4330 [139][195](DV$)[177]14[167]4300
4340 [153]C4$"ATNUSGABE AUF STR$RUCKER ? (MID$/(null))"
4350 [161]D$:[139]D$[179][177]"J"[175]D$[179][177]"N"[167]4350
4360 [139]D$[178]"J"[167][159]4,4,7
4370 [153]C4$"STR$ATENSAETZE VON STR$ATEI "DV$
4380 [153]"WELCHE IN STR$ATEI "DA$
4390 [153]"NICHT ENTHALTEN SIND :"Q2$
4400 [153]Q2$"STR$ISK-(null)AME........ASCILE-(null)AME........ASC.(null)G.."
4410 [139]D$[178]"N"[167]4460
4420 [152]4,"STR$ATENSAETZE VON STR$ATEI "DV$
4430 [152]4,"WELCHE IN STR$ATEI "DA$
4440 [152]4,"NICHT ENTHALTEN SIND :":[152]4
4450 [152]4,"ASCILE-(null)AME........ASC.(null)G..STR$ISK-(null)AME........RIGHT$STR$.STR$ATUM":[152]4
4460 [159]2,8,2,DV$[170]",S,R":[141]1110
4470 [132]2,A$:B$[178][200](A$,39)
4480 [129]A[178]1[164]ND:[139][200](FI$(A),39)[178]B$[167]4520
4490 [130]A
4500 [141]4580
4510 [139]D$[178]"J"[167][141]4610
4520 [139]ST[178]0[167]4470
4530 [160]2:[141]1110:[160]4
4540 [153]Q2$RN$"(null)VAL(null)(null)(null)(null)"RF$
4550 [161]A$:[139]A$[179][177][199](13)[167]4550
4560 [142]
4570 [153]Q2$"STR$ISK-(null)AME........ASCILE-(null)AME........ASC.(null)G.."
4580 [153][202](A$,21,16);" ";[202](A$,3,16);" ";[202](A$,20,1);" ";
4590 [153][202](A$,37,3)
4600 [142]
4610 [152]4,[202](A$,3,16);" ";[202](A$,20,1);" ";[202](A$,37,3);" ";
4620 [152]4,[202](A$,21,16);" ";[202](A$,1,2);" ";[202](A$,40,6)
4630 [142]
4640 [143] ==========================
4650 [143]                       ENDE
4660 [143] ==========================
4670 H$[178]"ATNBSPEICHERN DER STR$ATENSAETZE":[141]1030:[153]Q2$
4680 [139]AE[178]0[167][160]1:[128]
4690 [153]Q2$"ATNBSPEICHERN DER STR$ATENSAETZE UNTER DEM   "
4700 [153]"(null)AMEN ";DA$;" ? (MID$/(null))"
4710 [161]A$:[139]A$[179][177]"J"[175]A$[179][177]"N"[167]4710
4720 [139]A$[178]"N"[167][153]C4$:[133]"(null)EUER STR$ATEINAME :";DA$:[139][195](DA$)[177]14[167]4640
4730 [152]1,"I"
4740 [159]2,8,2,"@:"[170]DA$[170]".S,S,W":[141]1110
4750 [152]2,AU$:[152]2,ND
4760 [152]2,NC:[152]2,DR$
4770 [160]2:[141]1110:[152]1,"I"
4780 [159]2,8,2,"@:"[170]DA$[170]",S,W":[141]1110:[153]
4790 [129]A[178]1[164]ND:[152]2,FI$(A):[153]C4$"STR$ATENSATZ :";A:[130]
4800 [160]2:[141]1110:[139]X1[178]0[167]4850
4810 [153]Q3$"PEEKITTE SCHADHAFTE STR$ISKETTE AUSWECHSELN"
4820 [153]Q3$RN$"(null)VAL(null)(null)(null)(null)"RF$
4830 [161]A$:[139]A$[179][177][199](13)[167]4830
4840 [137]4670
4850 [160]1:[128]
4860 [143] GESAMT-DIRECTORY =======64
4870 [143] 38911 BYTES MEMORY    ====
4880 [143] 13682 BYTES PROGRAM   ====
4890 [143] 00511 BYTES VARIABLES ====
4900 [143] 03010 BYTES ARRAYS    ====
4910 [143] 00848 BYTES STRINGS   ====
4920 [143] 20860 BYTES FREE      ====