home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 19 / Commodore_Disc_19_19xx_-_de.d64 / diskmaster (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  449 lines
  1. 10 poke53280,0:poke53281,0:poke686,1:poke53272,21:g%=peek(186):poke808,225
  2. 20 gosub1640:gosub1570
  3. 30 ifpeek(828)=174andpeek(49160)=133then100
  4. 40 gosub4800
  5. 100 dima$(147),s(20),t(20):a$(2)="========================="
  6. 110 print"[199][146] eraetenummer der [198]loppy aendern"
  7. 120 print"[206][146] ew=formatieren"
  8. 130 print"[195][146] heck [196]isk"
  9. 140 print"[193][146] endern  [200]eader/[201][196]"
  10. 150 print"[198][146] ormatkennzeichen  aendern"
  11. 160 print"[211][146] chreibschutzbits  aendern"
  12. 170 print"@[146] [198]ehlerkanal auslesen"
  13. 180 print"[196][146] [201][210][197][195][212][207][210][217] mit [211]croll"
  14. 190 print"[197][146] rweitertes [196][201][210][197][195][212][207][210][217]"
  15. 200 print"[207][146] rdnen [196][201][210][197][195][212][207][210][217] (alphabetisch)"
  16. 210 print"[201][146] nitialisieren"
  17. 220 print"[214][146] alidieren"
  18. 230 print"[203][146] opieren"
  19. 240 print"[213][146] mbenennen"
  20. 250 print"[204][146] oeschen"
  21. 260 print"[208][146] rg-[194]lockcheck = [203]ettung pruefen"
  22. 270 print"[218][146] urueckholen  geloeschter [198]iles"
  23. 280 print"[209][146] [197]nde";
  24. 290 getx$:ifx$=""then290
  25. 300 ifx$="@"thenx$="[198]ehlerkanal :":goto510
  26. 310 ifx$="g"then540
  27. 320 ifx$="c"then1260
  28. 330 ifx$="a"then850
  29. 340 ifx$="i"thenx$="[201]nitialisieren :":goto510
  30. 350 ifx$="n"then670
  31. 360 ifx$="v"then1050
  32. 370 ifx$="d"then3410
  33. 380 ifx$="o"then3200
  34. 390 ifx$="k"then1090
  35. 400 ifx$="u"then1170
  36. 410 ifx$="l"then1200
  37. 420 ifx$="f"then1670
  38. 430 ifx$="p"then1860
  39. 440 ifx$="s"then2420
  40. 450 ifx$="z"then2590
  41. 460 ifx$="q"thenprintchr$(9):poke808,237:end
  42. 470 ifx$="e"then4160
  43. 480 goto290
  44. 510 gosub1640:printx$:gosub3050:gosub3150:goto3750
  45. 540 gosub1640:print"[199]eraetenummer [198]loppy aendern"
  46. 550 print"[194]itte alle [198]loppys bis auf die, deren":print"[206]r. geaendert werden sol
  47. 560 [153]" ausschalten !"
  48. 570 [133]"chr$eraeteadr. alt:  rndcmdcmdcmd";x$:g%[178][197](x$)
  49. 580 [133]"chr$eraeteadr. neu:  rndcmdcmdcmd";x$:y[178][197](x$)
  50. 590 [139]g%[179]8[176]g%[177]15[176]y[179]8[176]y[177]15[167][153]"(NULL)nzulaessige chr$eraeteadresse !":[137]3750
  51. 600 [141]3070
  52. 610 [159]1,g%,15
  53. 620 [152]1,"m-w"[199](119)[199](0)[199](2)[199](y[170]32)[199](y[170]64):[160]1
  54. 630 g%[178]y:[151]186,y
  55. 640 [153]"< chr$eraeteadresse in #"y"geaendert >":[141]3060:[137]3750
  56. 670 [141]1640:[153]"ascormatieren :"
  57. 680 z[178]1:[141]3050:[153]"peek l a n k e  str$iskette einlegen!!!"
  58. 690 [153]"(NULL)urueck ins (NULL)enue mit '(NULL)'"
  59. 700 [133]"mit/ohne right$str$(m/o/z)  mcmdcmdcmd";z$
  60. 710 [139]z$[179][177]"m"[175]z$[179][177]"o"[175]z$[179][177]"z"[167]700
  61. 720 [139]z$[178]"z"[167][138]
  62. 730 [133]"left$eader   :  rndcmdcmdcmd";x$
  63. 740 [139][195](x$)[177]16[167][153]"max. 16 (NULL)eichen!":[137]730
  64. 750 [139]z$[179][177]"m"[167]780
  65. 760 [133]"      right$str$ :  rndcmdcmdcmd";y$
  66. 770 [139][195](y$)[177]5[167][153]"max. 5 (NULL)eichen!":[137]760
  67. 780 [139]x$[178]"rnd"[176]y$[178]"rnd"[167][138]
  68. 790 x$[178]"n:"[170]x$
  69. 800 [139]z$[179][177]"m"[167]1060
  70. 810 [153]"< peekitte ca. 80 (NULL)ek. warten! >"
  71. 820 [159]1,g%,15:[152]1,x$[170]","[170]y$:[137]3740
  72. 850 [141]1640:[153]"atnendern von str$isk-left$eader/right$str$":[141]3050:f[178]0
  73. 860 [159]1,g%,15:[159]2,g%,2,"#":[141]3830
  74. 870 x[178]144:[141]3580:x$[178]"":[129]u[178]1[164]16:[161]#2,y$:x$[178]x$[170]y$:[130]
  75. 880 [153]"atnlter str$isk-header=   "x$
  76. 890 [153]"(NULL)euer str$isk-header=   "x$"on"
  77. 900 [153][166]17);:[133]y$
  78. 910 [139]x$[178]y$[167]940
  79. 920 [139][195](y$)[177]16[167][153]"max. 16 (NULL)eichen!":[137]890
  80. 925 y$[178][200](y$[170]"closeclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclosecloseclose",16)
  81. 930 x[178]144:[141]3580:[152]2,y$;:f[178]1
  82. 940 x[178]162:[141]3580:x$[178]"":[129]u[178]1[164]5:[161]#2,y$:x$[178]x$[170]y$:[130]
  83. 950 [153]"atnlte str$isk-right$str$=   "x$
  84. 960 [153]"(NULL)eue str$isk-right$str$=   "x$
  85. 970 [153]"on"[166]14);:[133]y$
  86. 980 [139]y$[178]x$[167]1010
  87. 990 [139][195](y$)[177]5[167][153]"max. 5 (NULL)eichen!":[137]960
  88. 1000 x[178]162:[141]3580:[152]2,y$;:f[178]1
  89. 1010 [139]f[178]1[167][152]1,"u2 2 0 18 0"
  90. 1020 [137]3740
  91. 1050 [141]1640:[153]"(NULL)alidieren :":[141]3050:x$[178]"v"
  92. 1060 [159]1,g%,15,x$:[137]3740
  93. 1090 [141]1640:[153]"(NULL)opieren :":[141]3050:t$[178]"c:"
  94. 1100 [133]"(NULL)ame alt:  rndcmdcmdcmd";x$
  95. 1110 [133]"(NULL)ame neu:  rndcmdcmdcmd";y$
  96. 1120 [139]x$[178]"rnd"[176]y$[178]"rnd"[167][138]
  97. 1130 [139][195](x$)[177]16[176][195](y$)[177]16[167]1100
  98. 1140 x$[178]t$[170]y$[170]"="[170]x$:[137]1060
  99. 1170 [141]1640:[153]"(NULL)mbenennen ((NULL)ename) :":[141]3050:t$[178]"r:":[137]1100
  100. 1200 [141]1640:[153]"(NULL)oeschenwait-valnde mit <return>":[141]3050
  101. 1210 [133]"(NULL)rogrammname=   rndcmdcmdcmd";x$:[139][195](x$)[177]16[167]1210
  102. 1220 [139]x$[178]"rnd"[167][138]
  103. 1230 x$[178]"s:"[170]x$:[137]1060
  104. 1260 [141]1640:[153]"lenleft$vallen(NULL) str$right$(NULL)(NULL)wait =(NULL)eberpruefen aller peekloecke":[141]3050
  105. 1270 [153]"(NULL)waitesen aller peekloecke (ca 5 min)"
  106. 1280 [153]"  asciles werden nichtwait zerstoert !"
  107. 1290 [153]"peekwaiteschreiben und verifizieren (ca 10 min)";
  108. 1300 [153]"  str$iskette  wird geloeschtwait !!!"
  109. 1310 [153]"(NULL)waitum (NULL)enue zurueck !"
  110. 1320 [153]"chr$eben sie (NULL)wait/peekwait oder (NULL)wait ein !  ";
  111. 1330 [161]z$:[139]z$[179][177]"l"[175]z$[179][177]"b"[175]z$[179][177]"z"[167]1330
  112. 1340 [153]""z$"wait":[139]z$[178]"z"[167][138]
  113. 1350 [153]"vals wird geprueft: (NULL)pur  (NULL)ektor"
  114. 1360 [159]1,8,15:[159]2,8,2,"#"
  115. 1370 f[178]0:y[178]0:a$(0)[178]"17":a$(1)[178]"20":a$(2)[178]"24":a$(3)[178]"18":a$(4)[178]"30":a$(5)[178]"17"
  116. 1380 a$(6)[178]"35":a$(7)[178]"16":[139]z$[178]"b"[167][141]1480
  117. 1390 [129]z[178]0[164]7[169]2:x[178]y[170]1:y[178][197](a$(z)):w[178][197](a$(z[170]1))
  118. 1400 [129]t[178]x[164]y:[129]s[178]0[164]w:[139]z$[178]"b"[167][152]1,"u2 2 0";t;s:[137]1420
  119. 1410 [141]3840
  120. 1420 [141]1500:[130]:[130]:[130]:[160]1
  121. 1430 [139]f[178]0[167][153]"< str$isk ok. atnlle peekloecke lesbar >":[137]1460
  122. 1440 [153]"ascolgende peekloecke sind defekt:"
  123. 1450 [129]u[178]1[164]f:[153]"  "[201](" "[170][196](t(u)),2)","[201](" "[170][196](s(u)),2)" ";:[130]
  124. 1460 [139]z$[178]"b"[167]x$[178]"n:lenheck disk":y$[178]"99":[137]810
  125. 1470 x$[178]"i":[137]1060
  126. 1480 y$[178]"":[129]x[178]1[164]51:y$[178]y$[170][199]([187](162)[172]255):[130]
  127. 1490 [152]2,y$y$y$y$y$;:[142]
  128. 1500 [153][166]19)"on        on":[153][166]19);t" "s
  129. 1510 [141]3170:[139]x[178]0[167][142]
  130. 1520 f[178]f[170]1:t(f)[178]t:s(f)[178]f:[139]f[179]20[167][142]
  131. 1530 [160]2:[160]1:[153]"(NULL)ehr als 20 peekloecke defekt !!":[137]3780
  132. 1540 [153]"(NULL)estabbruch !":[137]3760
  133. 1570 [153]"onortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  134. 1580 [153]"(NULL) (atn(NULL)=64)    atnndre (NULL)chluch            (NULL)"
  135. 1590 [153]"(NULL) ortan^        (NULL)oenigswintererstr.274 c (NULL)"
  136. 1600 [153]"(NULL) /atn^        5330 (NULL)oenigswinter 41    (NULL)"
  137. 1610 [153]"(NULL) /tanexp        (c) len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val str$right$(NULL)len       (NULL)"
  138. 1620 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  139. 1630 [142]
  140. 1640 [153]"loadcontstr$right$(NULL)(NULL)-(NULL)atn(NULL)(NULL)val(NULL) 64 von (atn(NULL)=64)              ":[142]
  141. 1670 [141]1640:[153]"ascormatkennzeichen aendern":[141]3050
  142. 1680 [153]"(NULL)chreibschutz setzen durch atnenderung"
  143. 1690 [153]"des ascormatkennzeichens in der peekatn(NULL) !!!"
  144. 1700 [153]"atnb sofort koennen keine (NULL)chreibvorgaenge";
  145. 1710 [153]"ausser (NULL)euformatieren durchgefuehrt":[153]"werden !"
  146. 1720 [153]"(NULL)wait=(NULL)chreibschutz setzen"
  147. 1730 [153]"(NULL)wait=(NULL)chreibschutz loeschen"
  148. 1740 [153]"chr$eben (NULL)ie (NULL)wait oder (NULL)wait ein !"
  149. 1750 [161]x$:[139]x$[179][177]"s"[175]x$[179][177]"l"[167]1750
  150. 1760 [159]1,g%,15:[159]2,g%,2,"#"
  151. 1770 [141]3830:x[178]2:[141]3580
  152. 1780 [139]x$[178]"s"[167][152]2,"x";:x$[178]" gesetzt>":[137]1820
  153. 1790 x$[178]" geloescht>"
  154. 1800 [152]1,"m-w"[199](1)[199](1)[199](1)[199](65)
  155. 1810 [152]2,"a";
  156. 1820 [153]"<(NULL)chreibschutz"x$:[152]1,"u2 2 0 18 0"
  157. 1830 [152]1,"i":[137]3740
  158. 1860 [141]1640:[153]"(NULL)rogramm-peeklockcheckwait=ascilekettung pruefen":[141]3050
  159. 1880 [141]4650
  160. 1890 [153]"valwait inzelnes asciles darstellen"
  161. 1900 [153]"peekwait lock suchen in ascile"
  162. 1910 [153]"atnwait lle asciles darstellen"
  163. 1920 [153]"(NULL)wait urueck ins (NULL)enue"
  164. 1930 [153]"chr$eben (NULL)ie valwait/peekwait/atnwait oder (NULL)wait ein !";
  165. 1940 [161]x$:[139]x$[179][177]"e"[175]x$[179][177]"b"[175]x$[179][177]"a"[175]x$[179][177]"z"[167]1940
  166. 1950 [153]" "x$:s(20)[178][198](x$):[139]x$[178]"z"[167][138]
  167. 1960 [139]x$[178]"b"[167]2000
  168. 1970 [139]x$[178]"a"[167]2020
  169. 1980 [133]"ascilename:   rndcmdcmdcmd";z$:[139]z$[178]"rnd"[167][138]
  170. 1990 [137]2020
  171. 2000 [133]"  (NULL)purwait  0cmdcmdcmd";t(19)
  172. 2010 [133]"(NULL)ektorwait  0cmdcmdcmd";s(19)
  173. 2020 [153]"<str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL) einlesen>"
  174. 2030 [141]3870:u[178]t(19):v[178]s(19)
  175. 2040 [139]z[178]2[167]3780
  176. 2050 [139]s(20)[179][177]69[167]2100
  177. 2060 u[178][195](z$)
  178. 2070 [129]f[178]3[164]z:[139][200](a$(f),u)[178]z$[167]s(20)[178]3:[137]2110
  179. 2080 [130]
  180. 2090 [153]"ascehler: "[199](34)z$[199](34)" nicht gefunden !":[137]3780
  181. 2100 [129]f[178]3[164]z[171]1
  182. 2110 [153]""[200](a$(f),26)
  183. 2120 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr":w[178]0
  184. 2130 [139]d[178]1[167][152]5,[200](a$(f),26):[152]5,"-------------------------"
  185. 2140 t[178][198]([202](a$(f),28)):s[178][198]([202](a$(f),29))
  186. 2150 [139]t[178]u[175]s[178]v[167][137]2290
  187. 2160 x$[178][201]([196](t),2):y$[178][201]([196](s),2)
  188. 2170 [141]2390:w[178]w[170]1
  189. 2180 [161]z$:[139]z$[179][177]""[167]3780
  190. 2190 [141]3840
  191. 2200 [161]#2,x$:[161]#2,y$:t[178][198](x$[170][199](0)):s[178][198](y$[170][199](0))
  192. 2210 x$[178][201]([196](t),2):y$[178][201]([196](s),2)
  193. 2220 [139]t[178]u[175]s[178]v[167][137]2290
  194. 2230 [139]t[179][177]0[167]2260
  195. 2240 [153]:[139]s(20)[178]3[167]2330
  196. 2250 [130]:[137]2330
  197. 2260 w[178]w[170]1:[139]w[178]5[167]w[178]0:[141]2360:[137]2180
  198. 2270 [141]2390
  199. 2280 [137]2180
  200. 2290 [153]x$","y$
  201. 2300 [153]"enthaelt gesuchten peeklock !on"
  202. 2310 [139]d[178]1[167][152]5,x$","y$:[152]5,"enthaelt gesuchten peeklock !"
  203. 2320 [137]3780
  204. 2330 [139]d[178]1[167][152]5
  205. 2340 [137]3780
  206. 2360 [153]x$","y$
  207. 2370 [139]d[178]1[167][152]5,x$","y$
  208. 2380 [142]
  209. 2390 [153]x$","y$"   ";
  210. 2400 [139]d[178]1[167][152]5,x$","y$"     ";
  211. 2410 [142]
  212. 2420 [141]1640:[153]"(NULL)chreibschutzbits aendern":[141]3050
  213. 2430 t(20)[178]3:[141]3870
  214. 2440 [153]"(NULL)oeschschutz-peekit aendern: j/nwait"
  215. 2450 t(0)[178]t:s(0)[178]s
  216. 2460 t(20)[178]2:s(20)[178]2:[141]3960
  217. 2470 [153]"<valnde str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL)>"
  218. 2480 [137]3740
  219. 2490 [161]x$:[139]x$[179][177]"j"[175]x$[179][177]"n"[167]2490
  220. 2500 [153][166]30)"on"x$
  221. 2510 [139]x$[178]"n"[167]4110
  222. 2520 [139]v[175]64[167]v[178]v[171]64:y$[178]" ":[137]2540
  223. 2530 v[178]v[176]64:y$[178]"<"
  224. 2540 [153]"on"[166]25)y$
  225. 2550 [141]3580:[152]2,[199](v);:[152]1,"u2 2 0"t(f[171]1);s(f[171]1)
  226. 2560 [137]4110
  227. 2590 [141]1640:[153]"(NULL)urueckholen geloeschter asciles."
  228. 2610 [153]"valrmoeglicht das (NULL)iederherstellen"
  229. 2620 [153]"von versehentlich geloeschten asciles"
  230. 2630 [153]"(natuerlich nur dann, wenn diese nicht"
  231. 2640 [153]"schon ueberschrieben worden sind)."
  232. 2660 [153]"peekeim (NULL)uchen werden nur die geloeschten  str$ateien abgefragt"
  233. 2670 [141]3050:[141]1640
  234. 2680 [153]"<peekeginn der (NULL)uche>"
  235. 2690 t(20)[178]1:[141]3870:[153]"<valnde str$right$(NULL)vallen(NULL)(NULL)(NULL)(NULL)>"
  236. 2700 [153]"(NULL)eine weiteren geloeschten asciles!":[137]3740
  237. 2710 :
  238. 2720 [153][200](x$,21)
  239. 2730 [141]2740:[137]4120
  240. 2740 [153],"(NULL)urueckholen mid$/(NULL)?"
  241. 2750 [161]t$:[139]t$[179][177]"j"[175]t$[179][177]"n"[167]2750
  242. 2760 [139]t$[178]"n"[167][142]
  243. 2770 [153]"(NULL)ar es ein (NULL)waitrogramm-     (NULL)waiteqentielles-"
  244. 2780 [153]"           (NULL)waitelatives-    (NULL)waitser-asc i l e ?"
  245. 2790 [161]t$:[139]t$[179][177]"p"[175]t$[179][177]"s"[175]t$[179][177]"r"[175]t$[179][177]"u"[167]2790
  246. 2800 [139]t$[178]"p"[167]z[178]130
  247. 2810 [139]t$[178]"s"[167]z[178]129
  248. 2820 [139]t$[178]"r"[167]z[178]132
  249. 2830 [139]t$[178]"u"[167]z[178]131
  250. 2840 [159]3,g%,3,"#":[153]"<ascile wiederherstellen...>":[153]"(NULL)pur (NULL)ektor"
  251. 2850 t[178][198]([202](x$,28)):s[178][198]([202](x$,29))
  252. 2860 [153]"       on":[153]t;s"on"
  253. 2870 [152]1,"b-a 0"t;s:[141]3170
  254. 2880 [139]x[179][177]0[167]2980
  255. 2890 [152]1,"u1 3 0"t;s
  256. 2900 [161]#3,z$:[161]#3,y$
  257. 2910 t[178][198](z$[170][199](0)):s[178][198](y$[170][199](0))
  258. 2920 [139]t[179][177]0[167]2860
  259. 2930 x[178]2[170]w[172]32:[141]3580
  260. 2940 [152]2,[199](z);
  261. 2950 [152]1,"u2 2 0"t(f[171]1);s(f[171]1)
  262. 2960 [153]"ascile wiederhergestellt!"
  263. 2970 [137]3740
  264. 2980 [139]x[179][177]65[167]3150
  265. 2990 [153]"ascile wurde bereits ueberschrieben!!"
  266. 3000 [153]"(NULL)iederherstellung  nicht  moeglich!!"
  267. 3010 [153]"<(NULL)alidieren>":[152]1,"v"
  268. 3020 [137]3780
  269. 3050 [153]"ascloppy-chr$eraeteadresse: "g%"cmdcmdcmdcmd"[199]([181](g%[173]10)[172]157);:[133]g%
  270. 3060 [139]g%[179]8[176]g%[177]15[167][153]"(NULL)nzulaessige chr$eraeteadresse !":[137]3750
  271. 3070 v[178]768:x[178][194](v):[151]v,185:[139]z[178]1[167][159]1,g%,15:[160]1:[137]3090
  272. 3080 [159]1,g%,15,"i"
  273. 3090 [151]v,x:[139][194](144)[179][177]128[167]3110
  274. 3100 [153]"ascehler: ascloppy#"g% nicht eingeschaltet!";:close1:goto3750
  275. 3110 ifz=1thenreturn
  276. 3120 gosub3170:close1
  277. 3130 ifx<>0then3150
  278. 3140 return
  279. 3150 print"[198]ehlerkanal:":printx" "x$" "u" "v""
  280. 3160 goto3750
  281. 3170 input#1,x,x$,u,v:return
  282. 3200 gosub1640:print"[207]rdnen [196][201][210][197][195][212][207][210][217] (alphabetisch)"
  283. 3210 gosub3050
  284. 3220 print"<[196][201][210][197][195][212][207][210][217] einlesen>"
  285. 3230 t(20)=4:gosub3870
  286. 3240 print"<[196][201][210][197][195][212][207][210][217] wird sortiert>"
  287. 3250 sys49205:ift(0)=18ands(0)=1then3260
  288. 3255 print"[198]olgeblock von t18,0 =";t(0)","s(0);"# 18,1  !":goto3780
  289. 3260 print"<[196][201][210][197][195][212][207][210][217] zurueckschreiben>":f=0
  290. 3270 print#1,"u1 2 0"t(f);s(f)
  291. 3280 forw=0to7:x=2+w*32:gosub3580
  292. 3290 ifasc(mid$(a$(u),28))=0thena$(u)=right$(a$(u),32)
  293. 3300 print#2,mid$(a$(u),27,3);left$(a$(u),16);mid$(a$(u),30,3);
  294. 3310 x=x+28:gosub3580
  295. 3320 y=val(mid$(a$(u),17,3)):x=int(y/256):y=y-x*256
  296. 3330 print#2,chr$(y);chr$(x);
  297. 3340 u=u+1:ifu>z-1then3360
  298. 3350 next
  299. 3360 print#1,"u2 2 0"t(f);s(f)
  300. 3370 f=f+1:ift(f)<>0thengoto3270
  301. 3380 goto3740
  302. 3410 gosub1640:print" [196][201][210][197][195][212][207][210][217] [146] [211]croll:[195]ursor auf/ab":printspc(13)"[197]nde  :[210][197][212][213][210][206]"
  303. 3420 gosub3050:gosub4590:gosub4650
  304. 3430 ifa<>1thent(20)=2
  305. 3440 gosub3870:ifa<>1then3510
  306. 3450 a$(0)=" ":a$(1)="  "+a$(1):a$(2)=" "+a$(2)
  307. 3460 sys49205
  308. 3470 fori=3toz-1:printleft$(a$(i),26)
  309. 3480 ifd=1thenprint#5,left$(a$(i),26)
  310. 3490 next
  311. 3500 a$(1)=right$(a$(1),25):a$(2)=right$(a$(2),25)
  312. 3510 print#1,"m-r"chr$(250)chr$(2):get#1,x$
  313. 3520 print#1,"m-r"chr$(252)chr$(2):get#1,y$
  314. 3530 f=asc(x$+chr$(0))+asc(y$+chr$(0))*256
  315. 3540 a$(z)="belegt"+str$(664-f)+",frei"+str$(f)+" v.664[145]"
  316. 3541 printa$(2):printa$(z)
  317. 3550 ifd=1thenprint#5,a$(2):print#5,a$(z):close5
  318. 3560 close2:close1:z=z-1:u=z:goto3600
  319. 3580 print#1,"b-p";2;x:return
  320. 3600 getx$:ifx$=""then3600
  321. 3610 ifx$="[145]"then3670
  322. 3620 ifx$=""then3650
  323. 3630 ifx$=chr$(13)thenrun
  324. 3640 goto3600
  325. 3650 ifu>zthen3600
  326. 3660 u=u+1:print:printleft$(a$(u+1),26);:goto3600
  327. 3670 ifu-24<0then3600
  328. 3680 sys49152
  329. 3690 print""left$(a$(u-24),26)""
  330. 3700 u=u-1:goto3600
  331. 3710 stop
  332. 3740 close2:close3:gosub3120:gosub3150
  333. 3750 foru=1to500:getx$:ifx$<>""thenu=5000
  334. 3760 next:run
  335. 3770 :
  336. 3780 close5:close2:close1:print:printspc(10)"<< taste >>"
  337. 3790 getx$:ifx$=""then3790
  338. 3800 run
  339. 3830 t=18:s=0
  340. 3840 print#1,"u1 2 0"t;s:return
  341. 3870 open1,g%,15:print#1,"i":open2,g%,2,"#":z=3
  342. 3880 gosub3830:get#2,x$:get#2,y$:t=asc(x$+chr$(0)):s=asc(y$+chr$(0))
  343. 3890 t(0)=t:s(0)=s
  344. 3900 x=144:gosub3580:x$="":y$=""
  345. 3910 forv=1to23:get#2,x$:y$=y$+x$:next:a$(1)=left$(y$,16)+"  "+right$(y$,7)
  346. 3920 print""a$(1):printa$(2)
  347. 3930 ifd>0thenprint#5:print#5,a$(1):print#5,a$(2)
  348. 3940 ift(20)=3thenreturn
  349. 3950 ift(20)=4thenz=0
  350. 3960 gosub3840:get#2,x$:get#2,y$:t=asc(x$+chr$(0)):s=asc(y$+chr$(0))
  351. 3970 f=f+1:t(f)=t:s(f)=s
  352. 3980 forw=0to7:x=2+w*32:gosub3580
  353. 3990 sys820,2,x$
  354. 4000 v=asc(mid$(x$,27)):y=asc(mid$(x$,28))
  355. 4010 ifv=0andy<>0andt(20)=1then2720
  356. 4020 ifv=0andt(20)=4andy<>0thenx$=chr$(255)+x$:goto4040
  357. 4030 ifv=0then4120
  358. 4040 a$(z)=x$
  359. 4050 ift(20)<>2then4090
  360. 4060 printleft$(a$(z),26)
  361. 4070 ifd=1thenprint#5,left$(a$(z),26)
  362. 4080 ifd=2thenprint#5,left$(a$(z),26);
  363. 4090 ifs(20)=2then2490
  364. 4100 ifs(20)=3then4230
  365. 4110 z=z+1
  366. 4120 next:ift=0then4130
  367. 4122 ift=18ands<21then3960
  368. 4124 print"[213]nzulaessiger [198]olgeblock [146]"t","s:goto3780
  369. 4130 return
  370. 4160 gosub1640:print"[197]rweitertes [196][201][210][197][195][212][207][210][217]"
  371. 4161 print"=[193]nzeige saemtlicher [198]ileparameter":print"([193]bbruch mit <[210][197][212][213][210][206]>)"
  372. 4170 gosub3050
  373. 4190 gosub4650:ifd=1thend=2
  374. 4200 print"<[196][201][210][197][195][212][207][210][217] einlesen>"
  375. 4210 t(20)=2:s(20)=3:s(19)=664:gosub3870:goto4510
  376. 4230 open4,g%,4,"#"
  377. 4240 v=vand15:s(19)=s(19)-val(mid$(a$(z),18,3))
  378. 4280 ifv=4then4405:rem rel
  379. 4290 x=asc(mid$(a$(z),28)):y=asc(mid$(a$(z),29))
  380. 4300 print#1,"u1 4 0"x;y
  381. 4310 get#4,x$:get#4,x$:get#4,x$:get#4,y$:close4
  382. 4320 x=asc(x$+chr$(0))+asc(y$+chr$(0))*256
  383. 4330 y=asc(mid$(a$(z),28)):u=asc(mid$(a$(z),29))
  384. 4350 x$=right$("   "+str$(x),5)
  385. 4351 ifv=1thenx$="     "
  386. 4360 y$=right$(str$(y),2):z$=right$(str$(u),2)
  387. 4380 ifx<>2049andv<>1thenprint"";:ifd=2thenprint#5,"";
  388. 4381 print"[145]";tab(26);x$"[146] "y$","z$
  389. 4390 ifd=2thenprint#5," "x$"[146] "y$","z$
  390. 4400 goto4480
  391. 4405 x=asc(right$(a$(z),1)):y$=mid$(a$(z),17,3):y=val(y$)
  392. 4420 u=y/121:ifu<>int(u)thenu=int(u+1)
  393. 4430 v=int(((y-u)*254)/x)
  394. 4450 print"[145]";tab(26);y-u;tab(30);"d";asc(mid$(a$(z),28));"[157],"asc(mid$(a$(z),29))
  395. 4460 printtab(26);u;tab(30);"s";asc(mid$(a$(z),30));"[157],"asc(mid$(a$(z),31))
  396. 4461 printtab(26);v;tab(30);"r.je";x
  397. 4471 ifd<>2then4480
  398. 4472 print#5,y-u;"d";
  399. 4473 print#5,asc(mid$(a$(z),28));"[157],";asc(mid$(a$(z),29))
  400. 4474 print#5,tab(26);u;" s";asc(mid$(a$(z),30));"[157],";asc(mid$(a$(z),31))
  401. 4476 print#5,tab(26);v;"r.je";x
  402. 4480 forv=1to100:getx$:ifx$<>""then3780
  403. 4500 next:close4:goto4110
  404. 4510 print#1,"m-r"chr$(250)chr$(2):get#1,x$
  405. 4520 print#1,"m-r"chr$(252)chr$(2):get#1,y$
  406. 4530 f=asc(x$+chr$(0))+asc(y$+chr$(0))*256
  407. 4540 printa$(2):print"von 664 [194]loecken":print"belegt";664-f;" frei";f;
  408. 4541 print" nach [194][193][205]-[194]elegung"
  409. 4542 ifd<>2then4550
  410. 4545 print#5,a$(2):print#5,"von 664 [194]loecken":print#5,"belegt";664-f;
  411. 4546 print#5," frei";f;" nach [194][193][205]-[194]elegung"
  412. 4550 print"      ";664-s(19);"     ";s(19);" nach [198]ilesummen"
  413. 4555 ifd=2thenprint#5,"      ";664-s(19);"     ";s(19);" nach [198]ilesummen"
  414. 4556 iff<>s(19)thenprint"[149] [193] b w e i c h u n g , p r u e f e n !!!":poke646,1
  415. 4557 ifd=2andf<>s(19)thenprint#5," [193] b w e i c h u n g , p r u e f e n !!!"
  416. 4560 goto3780
  417. 4590 print"[193]lphabetisch geordnet [202]/[206]   n[157][157][157]";
  418. 4600 inputx$:ifx$<>"n"andx$<>"j"then4590
  419. 4610 ifx$="j"thena=1
  420. 4620 return
  421. 4650 print"[193]usgabe auf  [196]rucker  [202]/[206]   n[157][157][157]";
  422. 4660 inputx$:ifx$<>"n"andx$<>"j"then4650
  423. 4670 ifx$="j"thend=1:open5,4
  424. 4680 return
  425. 4800 fori=820to1023:readx:pokei,x:next
  426. 4801 fori=49152to49355:readx:pokei,x:next:return
  427. 4802 data32,155,183,32,30,225,32,253,174,32,139,176,133,73,132,74,32,163,182
  428. 4803 data169,32,32,117,180,160,2,185,97,0,145,73,136,16,248,165,98,133,73
  429. 4804 data165,99,133,74,160,26,32,244,3,160,0,32,18,225,145,73,200,192,16,208
  430. 4805 data246,132,139,160,29,32,244,3,164,139,162,7,32,18,225,202,208,250,133
  431. 4806 data99,32,18,225,133,98,32,204,255,132,139,162,144,56,32,73,188,32,223
  432. 4807 data189,164,139,162,0,189,255,0,201,0,240,6,145,73,200,232,208,243,169
  433. 4808 data32,145,73,200,232,224,5,208,248,160,26,177,73,136,72,10,16,4,169
  434. 4809 data60,208,2,169,32,145,73,136,104,41,15,170,189,238,3,145,73,136,189
  435. 4810 data233,3,145,73,136,189,228,3,145,73,136,176,4,169,42,208,2,169,32,145
  436. 4811 data73,96,0,68,83,80,85,82,69,69,82,83,69,76,81,71,82,76,0,162,3,32,18
  437. 4812 data225,145,73,200,202,208,247,96
  438. 4813 data169,191,133,98,133,100,169,219,133,101,169,7,133,99,162,0,160,40
  439. 4814 data161,98,145,98,161,100,145,100,198,100,169,255,215,98,208,240,198
  440. 4815 data99,198,101,165,99,201,3,208,230,169,32,145,98,136,208,251,96,0,160
  441. 4816 data0,177,47,48,13,200,177,47,16,8,160,4,177,47,201,1,240,1,96,24,165
  442. 4817 data47,105,7,133,110,165,48,105,0,133,111,160,0,177,110,240,236,133,34
  443. 4818 data200,177,110,153,34,0,192,2,208,246,165,110,133,113,165,111,133,114
  444. 4819 data24,165,113,105,3,133,113,144,2,230,114,160,0,177,113,240,61,133,77
  445. 4820 data197,34,144,2,165,34,133,85,200,177,113,153,77,0,192,2,208,246,160
  446. 4821 data0,177,35,209,78,240,4,176,11,144,207,200,196,85,208,241,196,34,176
  447. 4822 data198,160,2,177,110,170,177,113,145,110,153,34,0,138,145,113,136,16
  448. 4823 data240,48,178,24,165,110,105,3,133,110,144,143,230,111,208,139,0
  449.