home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 4 / Commodore_Disc_04_19xx_-_de.d64 / ges.directory.64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  13.4 KB  |  493 lines
  1. 10 rem gesamt-directory =========64
  2. 20 rem (p) 03/85 cbm revue team   =
  3. 30 rem ============================
  4. 40 rem (c) 02/85 hermann weigl    =
  5. 50 rem                            =
  6. 60 rem                            =
  7. 70 rem                            =
  8. 80 rem c-64 + 1541                =
  9. 90 rem ============================
  10. 100 wh$=chr$(5):dc$=chr$(8)
  11. 110 ec$=chr$(9):rt$=chr$(13)
  12. 120 sl$=chr$(14):c4$=chr$(17)
  13. 130 rn$=chr$(18):he$=chr$(19)
  14. 140 de$=chr$(20):ee$=chr$(27)
  15. 150 re$=chr$(28):c3$=chr$(29)
  16. 160 gr$=chr$(30):bl$=chr$(31)
  17. 170 s1$=chr$(32):oe$=chr$(129)
  18. 180 fa$=chr$(130):fb$=chr$(131)
  19. 190 f1$=chr$(133):f3$=chr$(134)
  20. 200 f5$=chr$(135):f7$=chr$(136)
  21. 210 f2$=chr$(137):f4$=chr$(138)
  22. 220 f6$=chr$(139):f8$=chr$(140)
  23. 230 sr$=chr$(141):su$=chr$(142)
  24. 240 bk$=chr$(144):c2$=chr$(145)
  25. 250 rf$=chr$(146):cl$=chr$(147)
  26. 260 in$=chr$(148):br$=chr$(149)
  27. 270 lr$=chr$(150):g1$=chr$(151)
  28. 280 g2$=chr$(152):lg$=chr$(153)
  29. 290 lb$=chr$(154):g3$=chr$(155)
  30. 300 pu$=chr$(156):c1$=chr$(157)
  31. 310 ye$=chr$(158):cy$=chr$(159)
  32. 320 s2$=chr$(160):s3$=chr$(224)
  33. 330 z1$=chr$(96):z2$=chr$(105)
  34. 340 z3$=chr$(123):z4$=chr$(171)
  35. 350 z5$=chr$(173):z6$=chr$(174)
  36. 360 z7$=chr$(176):z8$=chr$(177)
  37. 370 z9$=chr$(178):za$=chr$(179)
  38. 380 zb$=chr$(189)
  39. 390 forq=0to36:q1$=q1$+z1$:nextq
  40. 400 forq=0to7:q7$=q7$+c1$:nextq
  41. 410 forq=0to2:q2$=q2$+c4$:nextq
  42. 420 forq=0to3:q3$=q3$+c4$:nextq
  43. 430 poke53280,0:poke53281,0:rem c-64
  44. 440 printcl$ye$sl$
  45. 450 dimfi$(1000)
  46. 460 open1,8,15
  47. 470 h$="[199]esamt-[196]irectory":gosub1030
  48. 480 printc4$:input"[196]ateiname      :";da$
  49. 490 iflen(da$)>14thenprintc4$"[196]ateiname zu lang (max.14)":goto480
  50. 500 open2,8,2,da$+".s,s,r"
  51. 510 gosub1110
  52. 520 ifx1=0then700
  53. 530 close2
  54. 540 ifx1<>62thenfort=1to1000:next:goto470
  55. 550 print"[198]alscher [196]ateiname"
  56. 560 printc4$"[211]oll die [196]atei unter [206]ame"
  57. 570 printc4$">"da$
  58. 580 printc4$"neu angelegt werden ?  ([202]/[206])"
  59. 590 geta$:ifa$<>"j"anda$<>"n"then590
  60. 600 ifa$="n"then470
  61. 610 printq2$:input"[193]utor          :";au$
  62. 620 printc4$"[196]atum          :  [212][212][205][205][202][202]"q7$;:inputdr$
  63. 630 open2,8,2,da$+",s,w":gosub1110
  64. 640 close2:gosub1110
  65. 650 open2,8,2,da$+".s,s,w":gosub1110
  66. 660 print#2,au$:print#2,nd
  67. 670 print#2,nc:print#2,dr$
  68. 680 close2:gosub1110
  69. 690 goto870
  70. 700 input#2,au$,nd,nc,dr$
  71. 710 printc4$"[193]utor          : ";au$
  72. 720 printc4$"[196]atensaetze    : ";nd
  73. 730 printc4$"[196]isketten      : ";nc
  74. 740 printc4$"[193]ktualitaet    : ";dr$
  75. 750 close2:gosub1110
  76. 760 printq2$
  77. 770 open2,8,2,da$+",s,r":gosub1110
  78. 780 fora=1to1000:input#2,fi$(a)
  79. 790 printc4$"[196]atensaetze    : ";a
  80. 800 ifst=0thennext
  81. 810 nd=a
  82. 820 close2:gosub1110
  83. 830 printc4$"[200]eutiges [196]atum :  [212][212][205][205][202][202]"q7$;:inputdr$
  84. 840 rem ===========================
  85. 850 rem                 haupt-menue
  86. 860 rem ===========================
  87. 870 h$="[199]esamt-[196]irectory":gosub1030
  88. 880 printc4$rn$"(1)"rf$"  [193]ufnehmen"
  89. 890 printc4$rn$"(2)"rf$"  [211]ortieren"
  90. 900 printc4$rn$"(3)"rf$"  [193]usgeben"
  91. 910 printc4$rn$"(4)"rf$"  [211]uchen"
  92. 920 printc4$rn$"(5)"rf$"  [204]oeschen"
  93. 930 printc4$rn$"(6)"rf$"  [214]ergleichen"
  94. 940 printq2$rn$"([197])"rf$"  [197]nde"
  95. 950 geta$:ifa$=""then950
  96. 960 a=asc(a$)-48:ifa<1then950
  97. 970 onagosub1190,1900,2200,2920,3740,4300
  98. 980 ifa$="e"then4670
  99. 990 goto870
  100. 1000 rem ==========================
  101. 1010 rem               ueberschrift
  102. 1020 rem ==========================
  103. 1030 printcl$
  104. 1040 printhe$z7$q1$z6$
  105. 1050 printtab(20-.5*len(h$));rn$;h$;rf$
  106. 1060 printz5$q1$zb$
  107. 1070 return
  108. 1080 rem ==========================
  109. 1090 rem                fehlerkanal
  110. 1100 rem ==========================
  111. 1110 input#1,x1,x2$,x3,x4
  112. 1120 ifx1=0thenreturn
  113. 1130 print"   "rn$"[198]ehler auf [196]isk"rf$
  114. 1140 print:printx1;x2$;x3;x4:print
  115. 1150 return
  116. 1160 rem ==========================
  117. 1170 rem                  aufnehmen
  118. 1180 rem ==========================
  119. 1190 h$="[193]ufnehmen von [197]intraegen":gosub1030
  120. 1200 printq3$rn$"(1)"rf$"  [196]irectory"
  121. 1210 printq2$rn$"(2)"rf$"  [198]ile"
  122. 1220 printq3$rn$"([205])"rf$"  [205]enue"
  123. 1230 geta$:ifa$=""then1230
  124. 1240 ifa$="1"thengosub1310
  125. 1250 ifa$="2"thengosub1710
  126. 1260 ifa$="m"thenreturn
  127. 1270 goto1190
  128. 1280 rem ==========================
  129. 1290 rem aufnehmen eines directorys
  130. 1300 rem ==========================
  131. 1310 h$="[197]inlesen eines [196]irectorys":gosub1030:ae=1
  132. 1320 printc4$"[197]inzulesende [196]iskette einlegen, dann"
  133. 1330 printc4$rn$"[210][197][212][213][210][206]"rf$
  134. 1340 geta$:ifa$<>chr$(13)then1340
  135. 1350 open2,8,2,"#"
  136. 1360 ir$="":nr$="":nn=0
  137. 1370 print#1,"u1:";2;0;18;0
  138. 1380 print#1,"b-p:";2;144
  139. 1390 fora=1to16:get#2,a$:nr$=nr$+a$:next:get#2,a$,a$
  140. 1400 printq2$"[206]ame : ";nr$;
  141. 1410 fora=1to2:get#2,a$:ir$=ir$+a$:next
  142. 1420 print"[201][196] : ";ir$
  143. 1430 printc4$
  144. 1440 t=18:s=1
  145. 1450 print#1,"u1:";2;0;t;s
  146. 1460 print#1,"b-p:";2;0
  147. 1470 get#2,a$,b$:t=asc(a$+chr$(0)):s=asc(b$)
  148. 1480 fora=0to7:print#1,"b-p:";2;32*a+2
  149. 1490 get#2,a$:ft=asc(a$+chr$(0))-128:ifft<1then1610
  150. 1500 ft=ftand7:get#2,a$,a$
  151. 1510 ifft=1thenft$=" s"
  152. 1520 ifft=2thenft$=" p"
  153. 1530 ifft=3thenft$=" u"
  154. 1540 ifft=4thenft$=" r"
  155. 1550 fr$="":forb=1to16:get#2,a$:fr$=fr$+a$:printa$;:next:print
  156. 1560 print#1,"b-p:";2;32*a+30
  157. 1570 get#2,a$,b$:lr=asc(a$+chr$(0))+256*asc(b$+chr$(0))
  158. 1580 fl$=mid$(str$(lr)+"   ",2,3)
  159. 1590 nn=nn+1:ifnd+nn>1000thenprintq2$rn$" [213]eberlauf "rf$q2$:goto1630
  160. 1600 fi$(nd+nn)=ir$+fr$+ft$+nr$+fl$+dr$
  161. 1610 nexta
  162. 1620 ift>0then1450
  163. 1630 close2
  164. 1640 printc4$"[213]ebernehmen ?  ([202]/[206])"
  165. 1650 geta$:ifa$<>"n"anda$<>"j"then1650
  166. 1660 ifa$="n"thenreturn
  167. 1670 nc=nc+1:nd=nd+nn:return
  168. 1680 rem ==========================
  169. 1690 rem      aufnehmen eines files
  170. 1700 rem ==========================
  171. 1710 h$="[193]ufnehmen eines [198]iles":gosub1030:ae=1
  172. 1720 ifnd=1000thenprintq2$rn$" [213]eberlauf "rf$:fort=1to2000:next:return
  173. 1730 printc4$:input"[198]ile-[206]ame  :";fr$:iflen(fr$)>16thenprintq3$:goto1730
  174. 1740 iflen(fr$)<16thenfr$=fr$+chr$(160):goto1740
  175. 1750 print:input"[196]isk-[206]ame  :";nr$:iflen(nr$)>16thenprintq3$:goto1750
  176. 1760 iflen(nr$)<16thennr$=nr$+chr$(160):goto1760
  177. 1770 print:input"[198]ile-[204]aenge:";fl$:iflen(fl$)>3thenprintq3$:goto1770
  178. 1780 iflen(fl$)<3thenfl$=fl$+chr$(160):goto1780
  179. 1790 print:input"[198]ile-[193]rt   :";ft$:iflen(ft$)<>1thenprintc2$c2$c2$:goto1790
  180. 1800 ft$=" "+ft$
  181. 1810 print:input"[196]isk-[201][196]    :";ir$:iflen(ir$)<>2thenprintc2$c2$c2$:goto1810
  182. 1820 printq2$"[193]lle [193]ngaben korrekt ?  ([202]/[206])"
  183. 1830 geta$:ifa$<>"j"anda$<>"n"then1830
  184. 1840 ifa$="n"thengosub1040:goto1710
  185. 1850 nd=nd+1:fi$(nd)=ir$+fr$+ft$+nr$+fl$+dr$
  186. 1860 return
  187. 1870 rem ==========================
  188. 1880 rem                  sortieren
  189. 1890 rem ==========================
  190. 1900 h$="[211]ortieren":gosub1030
  191. 1910 printq3$rn$"(1)"rf$"  nach [198]ile-[206]ame"
  192. 1920 printq2$rn$"(2)"rf$"  nach [201][196]"
  193. 1930 printq3$rn$"([205])"rf$"  [205]enue"
  194. 1940 geta$:ifa$=""then1940
  195. 1950 ifa$="1"thenh$="[211]ortieren nach [198]ile-[206]ame":gosub2020
  196. 1960 ifa$="2"thenh$="[211]ortieren nach [201][196]":gosub2020
  197. 1970 ifa$="m"thenreturn
  198. 1980 goto1900
  199. 1990 rem ==========================
  200. 2000 rem                       sort
  201. 2010 rem ==========================
  202. 2020 gosub1030:ae=1
  203. 2030 ifa$="2"then2050
  204. 2040 fora=1tond:b$=right$(fi$(a),43)+left$(fi$(a),2):fi$(a)=b$:nexta
  205. 2050 printq2$"[211]ortieren beginnt"
  206. 2060 printc4$nd"[196]atensaetze sind zu sortieren"q2$
  207. 2070 forb=1tond-1
  208. 2080 fora=1tond-1
  209. 2090 iffi$(a)<=fi$(a+1)then2110
  210. 2100 b$=fi$(a):fi$(a)=fi$(a+1):fi$(a+1)=b$
  211. 2110 :
  212. 2120 print"[196]atensatz :"a;c4$:nexta:print
  213. 2130 nextb
  214. 2140 ifa$="2"then2160
  215. 2150 fora=1tond:b$=right$(fi$(a),2)+left$(fi$(a),43):fi$(a)=b$:nexta
  216. 2160 return
  217. 2170 rem ==========================
  218. 2180 rem                    ausgabe
  219. 2190 rem ==========================
  220. 2200 h$="[193]usgabe von [196]aten":gosub1030
  221. 2210 printq2$rn$"(1)"rf$"  [201][196]    - auf [194]ildschirm"
  222. 2220 printq2$rn$"(2)"rf$"  [201][196]    - auf [196]rucker
  223. 2230 [153]q2$rn$"(3)"rf$"  (NULL)ame  - auf peekildschirm"
  224. 2240 [153]q2$rn$"(4)"rf$"  (NULL)ame  - auf str$rucker"
  225. 2250 [153]q3$rn$"((NULL))"rf$"  (NULL)enue"
  226. 2260 [161]a$:[139]a$[178]""[167]2260
  227. 2270 a[178][198](a$)[171]48:[139]a[179]1[167]2260
  228. 2280 [145]a[141]2340,2480,2630,2770
  229. 2290 [139]a$[178]"m"[167][142]
  230. 2300 [137]2200
  231. 2310 [143] ==========================
  232. 2320 [143]              id bildschirm
  233. 2330 [143] ==========================
  234. 2340 h$[178]"right$str$ auf peekildschirm":[141]1030
  235. 2350 [153]q2$"right$str$.str$isk-(NULL)ame........ascile-(NULL)ame........(NULL).."
  236. 2360 [129]a[178]1[164]nd
  237. 2370 [153][200](fi$(a),2)" "[202](fi$(a),21,16)" ";
  238. 2380 [153][202](fi$(a),3,16)" "[202](fi$(a),37,3);
  239. 2390 [161]a$:[139]a$[178]""[167]2390
  240. 2400 [139]a$[178]"s"[167]2420
  241. 2410 [130]a
  242. 2420 [153]q2$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  243. 2430 [161]a$:[139]a$[179][177][199](13)[167]2430
  244. 2440 [142]
  245. 2450 [143] ==========================
  246. 2460 [143]                 id drucker
  247. 2470 [143] ==========================
  248. 2480 h$[178]"right$str$ auf str$rucker":[141]1030
  249. 2490 [159]4,4,7
  250. 2500 [152]4,"atnutor : ";au$;"  str$atensaetze :";nd;" str$isketten :";nc
  251. 2510 [152]4
  252. 2520 [152]4,"atnktualitaet : ";dr$;"  str$ateiname : ";da$
  253. 2530 [152]4
  254. 2540 [152]4,"right$str$.str$isk-(NULL)ame........ascile-(NULL)ame........asc.(NULL)g..str$atum"
  255. 2550 [152]4
  256. 2560 [129]a[178]1[164]nd
  257. 2570 [152]4,[200](fi$(a),2);" ";[202](fi$(a),21,16);" ";[202](fi$(a),3,16);" ";
  258. 2580 [152]4,[202](fi$(a),20,1);" ";[202](fi$(a),37,3);" ";[202](fi$(a),40,6)
  259. 2590 [130]a:[160]4:[142]
  260. 2600 [143] ==========================
  261. 2610 [143]            name bildschirm
  262. 2620 [143] ==========================
  263. 2630 h$[178]"(NULL)ame auf peekildschirm":[141]1030
  264. 2640 [153]q2$"ascile-(NULL)ame........(NULL)...right$str$.str$isk-(NULL)ame......."
  265. 2650 [129]a[178]1[164]nd
  266. 2660 [153][202](fi$(a),3,16)" "[202](fi$(a),37,3)" ";
  267. 2670 [153][202](fi$(a),1,2)" "[202](fi$(a),21,16);
  268. 2680 [161]a$:[139]a$[178]""[167]2680
  269. 2690 [139]a$[178]"s"[167]2710
  270. 2700 [130]a
  271. 2710 [153]q2$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  272. 2720 [161]a$:[139]a$[179][177][199](13)[167]2720
  273. 2730 [142]
  274. 2740 [143] ==========================
  275. 2750 [143]               name drucker
  276. 2760 [143] ==========================
  277. 2770 h$[178]"(NULL)ame auf str$rucker":[141]1030
  278. 2780 [159]4,4,7
  279. 2790 [152]4,"atnutor : ";au$;"  str$atensaetze :";nd;" str$isketten :";nc
  280. 2800 [152]4
  281. 2810 [152]4,"atnktualitaet : ";dr$;"  str$ateiname : ";da$
  282. 2820 [152]4
  283. 2830 [152]4,"ascile-(NULL)ame........asc.(NULL)g..str$isk-(NULL)ame........right$str$.str$atum"
  284. 2840 [152]4
  285. 2850 [129]a[178]1[164]nd
  286. 2860 [152]4,[202](fi$(a),3,16);" ";[202](fi$(a),20,1);" ";[202](fi$(a),37,3);" ";
  287. 2870 [152]4,[202](fi$(a),21,16);" ";[202](fi$(a),1,2);" ";[202](fi$(a),40,6)
  288. 2880 [130]a:[160]4:[142]
  289. 2890 [143] ==========================
  290. 2900 [143]                     suchen
  291. 2910 [143] ==========================
  292. 2920 h$[178]"(NULL)uchen":[141]1030
  293. 2930 [153]c4$"nach :"
  294. 2940 [153]c4$rn$"(1)"rf$"  right$str$"
  295. 2950 [153]c4$rn$"(2)"rf$"  str$isk-(NULL)ame"
  296. 2960 [153]c4$rn$"(3)"rf$"  ascile-(NULL)ame"
  297. 2970 [153]c4$rn$"(4)"rf$"  ascile-(NULL)aenge"
  298. 2980 [153]c4$rn$"(5)"rf$"  str$atum"
  299. 2990 [153]q2$rn$"((NULL))"rf$"  (NULL)enue"
  300. 3000 [161]a$:[139]a$[178]""[167]3000
  301. 3010 a[178][198](a$)[171]48:[139]a[179]1[167]3000
  302. 3020 [145]a[141]3080,3230,3360,3490,3620
  303. 3030 [139]a$[178]"m"[167][142]
  304. 3040 [137]2920
  305. 3050 [143] ==========================
  306. 3060 [143]                 suchen  id
  307. 3070 [143] ==========================
  308. 3080 h$[178]"(NULL)uchen nach right$str$":[141]1030
  309. 3090 [153]c4$:[133]"right$str$ :";sv$
  310. 3100 e[178]2:f[178]1
  311. 3110 [153]q2$"str$isk-(NULL)ame........ascile-(NULL)ame........asc.(NULL)g.."
  312. 3120 [129]a[178]1[164]nd:[139][200](fi$(a),2)[178]sv$[167][141]3170
  313. 3130 [130]
  314. 3140 [153]q2$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  315. 3150 [161]a$:[139]a$[179][177][199](13)[167]3150
  316. 3160 [142]
  317. 3170 [153][202](fi$(a),21,16);" ";[202](fi$(a),3,16);" ";[202](fi$(a),20,1);" ";
  318. 3180 [153][202](fi$(a),37,3)
  319. 3190 [142]
  320. 3200 [143] =========================
  321. 3210 [143]          suchen disk-name
  322. 3220 [143] =========================
  323. 3230 h$[178]"(NULL)uchen nach str$isk-(NULL)ame":[141]1030
  324. 3240 [153]c4$:[133]"str$isk-(NULL)ame :";sv$:sv[178][195](sv$)
  325. 3250 [139]sv[177]16[167]3230
  326. 3260 [139][201](sv$,1)[178]"*"[167]sv[178]sv[171]1:sv$[178][200](sv$,sv)
  327. 3270 [153]q2$"str$isk-(NULL)ame........ascile-(NULL)ame........asc.(NULL)g.."
  328. 3280 [129]a[178]1[164]nd:[139][202](fi$(a),21,sv)[178]sv$[167][141]3170
  329. 3290 [130]
  330. 3300 [153]q2$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  331. 3310 [161]a$:[139]a$[179][177][199](13)[167]3310
  332. 3320 [142]
  333. 3330 [143] ==========================
  334. 3340 [143]           suchen file-name
  335. 3350 [143] ==========================
  336. 3360 h$[178]"(NULL)uchen nach ascile-(NULL)ame":[141]1030
  337. 3370 [153]c4$:[133]"ascile-(NULL)ame :";sv$:sv[178][195](sv$)
  338. 3380 [139]sv[177]16[167]3360
  339. 3390 [139][201](sv$,1)[178]"*"[167]sv[178]sv[171]1:sv$[178][200](sv$,sv)
  340. 3400 [153]q2$"str$isk-(NULL)ame........ascile-(NULL)ame........asc.(NULL)g.."
  341. 3410 [129]a[178]1[164]nd:[139][202](fi$(a),3,sv)[178]sv$[167][141]3170
  342. 3420 [130]
  343. 3430 [153]q2$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  344. 3440 [161]a$:[139]a$[179][177][199](13)[167]3440
  345. 3450 [142]
  346. 3460 [143] ==========================
  347. 3470 [143]         suchen file-laenge
  348. 3480 [143] ==========================
  349. 3490 h$[178]"(NULL)uchen nach ascile-(NULL)aenge":[141]1030
  350. 3500 [153]c4$:[133]"ascile-(NULL)aenge:";sv$:sv[178][195](sv$)
  351. 3510 [139]sv[177]3[167]3460
  352. 3520 [139]sv[179]3[167]sv$[178]sv$[170]" ":sv[178]sv[170]1:[137]3520
  353. 3530 [153]q2$"str$isk-(NULL)ame........ascile-(NULL)ame........asc.(NULL)g.."
  354. 3540 [129]a[178]1[164]nd:[139][202](fi$(a),37,sv)[178]sv$[167][141]3170
  355. 3550 [130]
  356. 3560 [153]q2$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  357. 3570 [161]a$:[139]a$[179][177][199](13)[167]3570
  358. 3580 [142]
  359. 3590 [143] ==========================
  360. 3600 [143]               suchen datum
  361. 3610 [143] ==========================
  362. 3620 h$[178]"(NULL)uchen nach str$atum":[141]1030
  363. 3630 [153]c4$:[133]"str$atum:";sv$:sv[178][195](sv$)
  364. 3640 [139]sv[179][177]6[167]3590
  365. 3650 [153]q2$"str$isk-(NULL)ame........ascile-(NULL)ame........asc.(NULL)g.."
  366. 3660 [129]a[178]1[164]nd:[139][202](fi$(a),40,sv)[178]sv$[167][141]3170
  367. 3670 [130]
  368. 3680 [153]q2$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  369. 3690 [161]a$:[139]a$[179][177][199](13)[167]3690
  370. 3700 [142]
  371. 3710 [143] ==========================
  372. 3720 [143]                   loeschen
  373. 3730 [143] ==========================
  374. 3740 h$[178]"(NULL)oeschen von str$aten":[141]1030
  375. 3750 [153]q3$rn$"(1)"rf$"  str$isk"
  376. 3760 [153]q2$rn$"(2)"rf$"  right$str$"
  377. 3770 [153]q2$rn$"(3)"rf$"  ascile"
  378. 3780 [153]q3$rn$"((NULL))"rf$"  (NULL)enue"
  379. 3790 [161]a$:[139]a$[178]""[167]3790
  380. 3800 a[178][198](a$)[171]48:[139]a[179]1[167]3790
  381. 3810 [145]a[141]3870,4030,4160
  382. 3820 [139]a$[178]"m"[167][142]
  383. 3830 [137]3740
  384. 3840 [143] ==========================
  385. 3850 [143]                       disk
  386. 3860 [143] ==========================
  387. 3870 h$[178]"(NULL)oeschen eines str$isk-(NULL)amens":[141]1030:ae[178]1:ge[178]0
  388. 3880 [153]c4$:[133]"str$isk-(NULL)ame :";sv$
  389. 3890 [139][195](sv$)[177]16[167]3870
  390. 3900 [139][195](sv$)[179]16[167]sv$[178]sv$[170][199](160):[137]3900
  391. 3910 [153]c4$
  392. 3920 [129]a[178]1[164]nd:[139][202](fi$(a),21,16)[178]sv$[167]fi$(a)[178]"":[141]3970
  393. 3930 [130]
  394. 3940 [129]a[178]1[164]nd
  395. 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
  396. 3960 [130]a:nc[178]nc[171]1:[142]
  397. 3970 ge[178]ge[170]1
  398. 3980 [153]"atnnzahl geloeschter str$atensaetze :"ge:[153]
  399. 3990 [142]
  400. 4000 [143] ==========================
  401. 4010 [143]                         id
  402. 4020 [143] ==========================
  403. 4030 h$[178]"(NULL)oeschen einer right$str$":[141]1030:ae[178]1:ge[178]0
  404. 4040 [153]c4$:[133]"right$str$ :";sv$
  405. 4050 [139][195](sv$)[179][177]2[167]4030
  406. 4060 [153]c4$
  407. 4070 [129]a[178]1[164]nd:[139][200](fi$(a),2)[178]sv$[167]fi$(a)[178]"":[141]3970
  408. 4080 [130]
  409. 4090 [129]a[178]1[164]nd
  410. 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
  411. 4110 [130]a
  412. 4120 nc[178]nc[171]1:[142]
  413. 4130 [143] ==========================
  414. 4140 [143]                       file
  415. 4150 [143] ==========================
  416. 4160 h$[178]"(NULL)oeschen eines asciles":[141]1010:ae[178]1:ge[178]0
  417. 4170 [153]c4$:[133]"ascile-(NULL)ame :";sv$
  418. 4180 [139][195](sv$)[177]16[167]4160
  419. 4190 [139][195](sv$)[179]16[167]sv$[178]sv$[170][199](160):[137]4190
  420. 4200 [153]c4$
  421. 4210 [129]a[178]1[164]nd:[139][202](fi$(a),3,16)[178]sv$[167]fi$(a)[178]"":[141]3970
  422. 4220 [130]
  423. 4230 [129]a[178]1[164]nd
  424. 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
  425. 4250 [130]a
  426. 4260 [142]
  427. 4270 [143] ==========================
  428. 4280 [143]                vergleichen
  429. 4290 [143] ==========================
  430. 4300 h$[178]"(NULL)ergleichen":[141]1030
  431. 4310 [153]c4$"str$atei im (NULL)peicher : ";da$
  432. 4320 [153]:[133]"(NULL)u vergleichende str$atei";dv$
  433. 4330 [139][195](dv$)[177]14[167]4300
  434. 4340 [153]c4$"atnusgabe auf str$rucker ? (mid$/(NULL))"
  435. 4350 [161]d$:[139]d$[179][177]"j"[175]d$[179][177]"n"[167]4350
  436. 4360 [139]d$[178]"j"[167][159]4,4,7
  437. 4370 [153]c4$"str$atensaetze von str$atei "dv$
  438. 4380 [153]"welche in str$atei "da$
  439. 4390 [153]"nicht enthalten sind :"q2$
  440. 4400 [153]q2$"str$isk-(NULL)ame........ascile-(NULL)ame........asc.(NULL)g.."
  441. 4410 [139]d$[178]"n"[167]4460
  442. 4420 [152]4,"str$atensaetze von str$atei "dv$
  443. 4430 [152]4,"welche in str$atei "da$
  444. 4440 [152]4,"nicht enthalten sind :":[152]4
  445. 4450 [152]4,"ascile-(NULL)ame........asc.(NULL)g..str$isk-(NULL)ame........right$str$.str$atum":[152]4
  446. 4460 [159]2,8,2,dv$[170]",s,r":[141]1110
  447. 4470 [132]2,a$:b$[178][200](a$,39)
  448. 4480 [129]a[178]1[164]nd:[139][200](fi$(a),39)[178]b$[167]4520
  449. 4490 [130]a
  450. 4500 [141]4580
  451. 4510 [139]d$[178]"j"[167][141]4610
  452. 4520 [139]st[178]0[167]4470
  453. 4530 [160]2:[141]1110:[160]4
  454. 4540 [153]q2$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  455. 4550 [161]a$:[139]a$[179][177][199](13)[167]4550
  456. 4560 [142]
  457. 4570 [153]q2$"str$isk-(NULL)ame........ascile-(NULL)ame........asc.(NULL)g.."
  458. 4580 [153][202](a$,21,16);" ";[202](a$,3,16);" ";[202](a$,20,1);" ";
  459. 4590 [153][202](a$,37,3)
  460. 4600 [142]
  461. 4610 [152]4,[202](a$,3,16);" ";[202](a$,20,1);" ";[202](a$,37,3);" ";
  462. 4620 [152]4,[202](a$,21,16);" ";[202](a$,1,2);" ";[202](a$,40,6)
  463. 4630 [142]
  464. 4640 [143] ==========================
  465. 4650 [143]                       ende
  466. 4660 [143] ==========================
  467. 4670 h$[178]"atnbspeichern der str$atensaetze":[141]1030:[153]q2$
  468. 4680 [139]ae[178]0[167][160]1:[128]
  469. 4690 [153]q2$"atnbspeichern der str$atensaetze unter dem   "
  470. 4700 [153]"(NULL)amen ";da$;" ? (mid$/(NULL))"
  471. 4710 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]4710
  472. 4720 [139]a$[178]"n"[167][153]c4$:[133]"(NULL)euer str$ateiname :";da$:[139][195](da$)[177]14[167]4640
  473. 4730 [152]1,"i"
  474. 4740 [159]2,8,2,"@:"[170]da$[170]".s,s,w":[141]1110
  475. 4750 [152]2,au$:[152]2,nd
  476. 4760 [152]2,nc:[152]2,dr$
  477. 4770 [160]2:[141]1110:[152]1,"i"
  478. 4780 [159]2,8,2,"@:"[170]da$[170]",s,w":[141]1110:[153]
  479. 4790 [129]a[178]1[164]nd:[152]2,fi$(a):[153]c4$"str$atensatz :";a:[130]
  480. 4800 [160]2:[141]1110:[139]x1[178]0[167]4850
  481. 4810 [153]q3$"peekitte schadhafte str$iskette auswechseln"
  482. 4820 [153]q3$rn$"(NULL)val(NULL)(NULL)(NULL)(NULL)"rf$
  483. 4830 [161]a$:[139]a$[179][177][199](13)[167]4830
  484. 4840 [137]4670
  485. 4850 [160]1:[128]
  486. 4860 [143] gesamt-directory =======64
  487. 4870 [143] 38911 bytes memory    ====
  488. 4880 [143] 13682 bytes program   ====
  489. 4890 [143] 00511 bytes variables ====
  490. 4900 [143] 03010 bytes arrays    ====
  491. 4910 [143] 00848 bytes strings   ====
  492. 4920 [143] 20860 bytes free      ====
  493.