home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disc 4
/
Commodore_Disc_04_19xx_-_de.d64
/
ges.directory.64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
14KB
|
493 lines
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 ====