home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 March / 64er_Magazin_85-03_1985_Markt__Technik_de.d64 / meisterschuetze (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  15.7 KB  |  668 lines
  1. 10 rem #########################
  2. 11 rem #   meister (schuetze)  #
  3. 12 rem # geschr. am 24.11.1984 #
  4. 13 rem # von   merk  ernst     #
  5. 14 rem # 7912  weissenhorn     #
  6. 15 rem # kohlstattstrasse 3    #
  7. 16 rem #########################
  8. 40 goto100
  9. 50 close5:open5,4,1:print#5,chr$(27);chr$(69);:close5:open5,4,2:return
  10. 60 close5:open5,4,1:print#5,chr$(27);chr$(70);:close5:open5,4,2:return
  11. 100 printchr$(147)
  12. 140 :
  13. 150 :
  14. 160 gosub30000
  15. 170 close1:open1,8,2,fr$+",l,"+chr$(dl)
  16. 180 close3:open3,8,8,fi$+",s,r"
  17. 190 gosub10000:rem disk fehler
  18. 200 if a1<>0thenrun
  19. 210 input#3,in$:mx$=left$(in$,15)
  20. 220 mx=val(mx$)
  21. 230 :
  22. 240 in$(0)=in$
  23. 250 printchr$(147)
  24. 260 print:print:print
  25. 270 print"         [201]nformation"
  26. 280 print:print
  27. 290 print"  [194]isherige [196]ateigroesse: ";mx
  28. 300 print:print:
  29. 310 print"       [194]itte [215]arten"
  30. 320 i=0
  31. 330 fori=1tomx
  32. 340 :input#3,in$(i),pl%(i),te$(i)
  33. 342 :
  34. 344 :
  35. 346 :print" "itab(7)mxtab(15);in$(i)
  36. 350 next:ii=0
  37. 351 close3:open3,8,8,"@:gruppen,s,r"
  38. 352 fr$="gruppen":fi$=fr$+"index":gosub10000:fr$="sch.rel":fi$=fr$+"index"
  39. 353 iffs=1then359
  40. 354 ii=ii+1:ifii>15then359
  41. 356 input#3,gr$(ii):print"     "gr$(ii)
  42. 358 ifst<>64then354:  close3
  43. 359 close3:open3,8,8,fi$+",s,r"
  44. 360 gosub10000
  45. 365 print:print
  46. 370 print" [196]ruecken [211]ie eine [212]aste"
  47. 380 poke198,0:wait198,1
  48. 390 rem ----------------
  49. 1000 rem  meneu
  50. 1010 rem ---------------
  51. 1020 :
  52. 1030 printchr$(147)"      ***   [211]chuetzen - [196]atei   ***     [146]"
  53. 1050 print"   [200]aupt - [205]enue :   "
  54. 1055 print"  [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  55. 1060 print
  56. 1080 print"   [216] = [208]rogramm-[197]nde"
  57. 1085 print
  58. 1087 print"   [194] = [198]reier [211]peicherplatz"
  59. 1090 print
  60. 1100 print"   [199] = [193]nzeigen ges. [196]atei"
  61. 1110 print
  62. 1120 print"   [211] = [211]uchen"
  63. 1122 print
  64. 1125 print"   [196] = [199]ruppen definieren"
  65. 1130 print
  66. 1140 print"   [206] = [206]eue [206]amen eingeben"
  67. 1142 print
  68. 1145 print"   [197] = [197]rgebnisse eingeben"
  69. 1146 print
  70. 1147 print"   [193] = [193]usdruck d.[197]rgeb."
  71. 1150 print
  72. 1160 print"   ! = [206]eue [196]atei anlegen"
  73. 1170 print:print
  74. 1180 print"[215]aehlen [211]ie ";
  75. 1190 poke198,0
  76. 1200 get r$:ifr$=""then1200
  77. 1210 ifr$="x"thenclose1:gosub15000:close15:printchr$(147)chr$(142):end
  78. 1220 ifr$="g"then3500
  79. 1225 ifr$="d"then17000
  80. 1230 ifr$="s"then3000
  81. 1240 ifr$="n"then1800
  82. 1245 ifr$="e"then16000
  83. 1247 ifr$="a"then20000
  84. 1250 ifr$="!"then11000
  85. 1260 ifr$="b"thenprintchr$(147)"[198]reier [211]peicher :[146]"fre(o)" [194]yte":forii=0to3500:next
  86. 1270 goto390
  87. 1800 rem -----------------------
  88. 1810 rem eingabe
  89. 1820 rem -----------------------
  90. 1821 nn$="":rc$=""
  91. 1822 fori=1to5:rc$=rc$+" ... ... ... ... ... ... ... ... ... ...":next
  92. 1827 printchr$(147)"     [206]ame u. [214]orname eingeben :         [146]"
  93. 1828 bl$="                           "
  94. 1830 inputnn$:ifnn$=""then390
  95. 1832 printchr$(147)" [199]ruppe  auswaehlen < [206][210]. 1-15 > :      [146]";
  96. 1833 print" [193]lle anderen [206]ummern = << [210][197][212][213][210][206] >> !!![146]"
  97. 1834 printchr$(19)"****************************************"
  98. 1836 forii=1to15:printii,gr$(ii):next:nn$=left$(nn$,25)
  99. 1838 printchr$(19)"[206]ame   :  "nn$:print
  100. 1840 input"[199]ruppe :";r$:
  101. 1842 te=val(r$):ifte<1orte>15then1000
  102. 1844 printchr$(145),gr$(te)
  103. 1846 nn$=nn$+left$(bl$,25-len(nn$)):
  104. 1850 rc$=nn$+rc$
  105. 1860 rem bestimmung satz nr.
  106. 1870 lz$="    ":lz=4
  107. 1880 i=0
  108. 1890 i=i+1:ifi>mxthen1980
  109. 1900 :
  110. 1910 if in$(i)<>"*"then1890
  111. 1920 i$=str$(i):te$(i)=str$(te)
  112. 1930 i$=mid$(i$,2)+left$(lz$,lz-len(i$)+1)
  113. 1940 in$(i)=i$+nn$
  114. 1950 rn$=str$(i)
  115. 1960 gosub14000
  116. 1970 gosub8000:
  117. 1980 if i>=mxthenprintchr$(147);"[196]atei voll !":goto11500
  118. 1990 goto1000
  119. 2000 rem -------------------
  120. 2010 rem ausgabe 1.datensatz
  121. 2020 rem -------------------
  122. 2030 printchr$(19)"                                                "
  123. 2040 printchr$(19);chr$(17)"****************************************";
  124. 2045 print"    [193]nzeige [196]atensatz";rn
  125. 2050 print:print
  126. 2060 print" [206]achname   :"nn$
  127. 2065 te=val(te$(rn)):te=abs(te)
  128. 2070 print" [199]ruppe     :"gr$(te)
  129. 2080 print" [197]rgebnisse :":print:printsr$:print
  130. 2100 print" [211]umme der 10 h. [197]rgeb.:        [157][157][157][157][157][157][157][157]"pl%(i)
  131. 2130 return
  132. 2500 rem -------------
  133. 2510 rem drucken
  134. 2520 rem -------------
  135. 2530 printchr$(19);"*************** [200]ardcopy ***************";
  136. 2532 foru=1to4:print"                                        ";:next
  137. 2540 printchr$(18)"[201]st [196]rucker eingeschaltet [212]aste druecken";chr$(146);chr$(145);
  138. 2550 getr$:ifr$=""then2550
  139. 2560 print"                                        ";
  140. 2630 close5:open5,4,0
  141. 2640 fory=1024to1984step40
  142. 2650 bz$=""
  143. 2660 forx=0to39
  144. 2670 z%=peek(y+x)
  145. 2680 ifz%<32thenz%=z%+64
  146. 2690 bz$=bz$+chr$(z%)
  147. 2700 next
  148. 2710 print#5,bz$
  149. 2720 next
  150. 2730 close5:printchr$(19);:goto3180
  151. 3000 rem -------------
  152. 3010 rem suchen
  153. 3015 rem -------------
  154. 3020 n$=""
  155. 3030 printchr$(147);
  156. 3040 print"            ---   [211]uchen  ---           "
  157. 3050 print:print
  158. 3060 input" [206]achname";n$
  159. 3070 n=len(n$)
  160. 3080 s1=1
  161. 3090 fori=s1tomx
  162. 3100 :ifin$(i)="*"then3120
  163. 3110 :ifmid$(in$(i),5,n)=n$then3180
  164. 3120 next
  165. 3130 ifs1>1thenprint:printchr$(147)" [211]uche beendet !![146]":print:goto 3150
  166. 3140 print:printn$" nicht gefunden":print
  167. 3150 print"[196]ruecke [212]aste"
  168. 3160 get r$:ifr$=""then3160
  169. 3170 goto 1000
  170. 3180 rn$=left$(in$(i),4):printchr$(147)
  171. 3185 iflen(rn$)=0then3230
  172. 3190 gosub14000 :rem satznr aufteilen
  173. 3200 gosub 9000 :rem lesen / aufteilen
  174. 3220 gosub 2000 :rem anzeigen
  175. 3225 print
  176. 3230 printchr$(19)"         ---   [196]atensatz   ---          [146]"
  177. 3240 w$="                    [215]aehle :[146] "
  178. 3250 print"([215])eitersuchen  ([218])urueck"
  179. 3260 print"([193])endern       ([204])oeschen"
  180. 3270 print"([196])rucken"
  181. 3280 printw$
  182. 3290 get r$:ifr$=""then3290
  183. 3300 w$="                    [215]arten ![146] "
  184. 3310 printchr$(145);w$;chr$(17)
  185. 3320 if r$="z"then3170
  186. 3330 if r$="w"thens1=i+1:goto3090
  187. 3340 if r$="a"then6000
  188. 3350 if r$="l"thenprintchr$(147);:goto4000
  189. 3360 if r$="d"thengoto2500
  190. 3370 goto3230
  191. 3500 rem ---------------------
  192. 3510 rem lesen ges. datei
  193. 3520 rem ---------------------
  194. 3530 printchr$(147):rn=0
  195. 3540 rn=rn+1:i=rn
  196. 3550 :hb=int(rn/256)
  197. 3560 :lb=rn-hb*256
  198. 3570 :gosub9000 :rem lesen
  199. 3580 :if er=50 thenprintchr$(147);"[196]atei-[197]nde !!!":print:print:print:goto3620
  200. 3590 :if f=2thenprintchr$(19)" [206]icht belegt: [196]atensatz-[206]r. ";rn;"[146] ":goto3540
  201. 3610 :gosub 2000:rem anzeigen
  202. 3620 :print"[196]ruecke [212]aste"
  203. 3630 :get r$:ifr$=""then3630
  204. 3640 :r$=""
  205. 3650 if er<>50 then3540
  206. 3660 goto1000
  207. 4000 rem ---------------------
  208. 4010 rem loeschen datensatz
  209. 4020 rem ---------------------
  210. 4030 :
  211. 4040 in$(i)="*":pl%(i)=0
  212. 4050 rc$="[255]"
  213. 4060 gosub8000:rem speichern
  214. 4070 nn$=".":nv$=".":ot$=".":sr$="."
  215. 4080 :
  216. 4100 goto3220
  217. 5000 rem ------------------------------
  218. 5010 rem aufteilen datensatz in feldern
  219. 5020 rem ------------------------------
  220. 5030 :
  221. 5050 nn$=mid$(rc$,1,25)
  222. 5070 sr$=mid$(rc$,26,200)
  223. 5110 return
  224. 6000 rem ----------------------
  225. 6010 rem - eingabe neue daten
  226. 6020 rem ----------------------
  227. 6030 :
  228. 6040 printchr$(147);:nv$="":ifj=0thenj=1
  229. 6045 gosub2000
  230. 6050 print"     [197]ingabe - [211]chiessergebnisse :      [146]";
  231. 6060 print"                                        ";
  232. 6070 print" [198]7=[218]urueck / [195]ursor ^_ =[211]chiesstag !!! ";
  233. 6080 print"                                        ";
  234. 6090 print" [211]chiesstag : [146]   [157][157][157]"j,"[197]rgebniss : [146]     [157][157][157][157]"nv$
  235. 6100 getr$
  236. 6110 ifr$="[145]"thenj=j-1:ifj<1thenj=1
  237. 6120 ifr$=""thenj=j+1:ifj>50thenj=50
  238. 6130 ifr$="[136]"then6300
  239. 6140 ifr$=>"0"andr$<="9"thennv$=nv$+r$:iflen(nv$)>3thennv$=left$(nv$,3)
  240. 6150 ifr$=chr$(20)andlen(nv$)>0thennv$=left$(nv$,(len(nv$)-1))
  241. 6160 ifr$=chr$(13)then6200
  242. 6180 goto6050
  243. 6200 rem ergebnis einsortieren
  244. 6210 nv$=left$(bl$,4-len(nv$))+nv$
  245. 6215 ifnv$="    "thennv$=" ..."
  246. 6220 ii=(j-1)*4:ifii<1then6240
  247. 6230 sr$=mid$(sr$,1,ii)+nv$+mid$(sr$,ii+5):goto6260
  248. 6240 sr$=nv$+mid$(sr$,j+4)
  249. 6260 gosub2000:rc$=nn$+sr$
  250. 6270 nv$="":goto6050
  251. 6300 printchr$(147)
  252. 6301 print"      [194]itte haben [211]ie etwas [199]eduld !    [146]":print:print
  253. 6303 goto18000:rem 10 h. ergeb.
  254. 6305 gosub14000
  255. 6310 gosub8000
  256. 6990 goto16213
  257. 8000 rem ---------------------------
  258. 8010 rem daten speicher auf disk
  259. 8020 rem ---------------------------
  260. 8030 :
  261. 8080 print#15,"p"+chr$(2)+chr$(lb)+chr$(hb)+chr$(1)
  262. 8100 print#1,rc$
  263. 8110 fs=1:rem flag speichern
  264. 8170 return
  265. 8180 :
  266. 9000 rem ---------------------
  267. 9010 rem lesen von disk
  268. 9020 rem ---------------------
  269. 9030 f=0
  270. 9040 print#15,"p"+chr$(2)+chr$(lb)+chr$(hb)+chr$(1)
  271. 9050 input#15,er
  272. 9060 if er =50then9110
  273. 9070 input* 1,226,rc$
  274. 9080 ifleft$(rc$,1)="[255]"thenf=2:goto9110
  275. 9090 f=1:
  276. 9100 :
  277. 9110 goto5000
  278. 9999 close15:open15,8,15
  279. 10000 rem ------------------
  280. 10010 rem disketten-fehler
  281. 10020 rem ------------------
  282. 10030 printchr$(147)
  283. 10040 input#15,a1,a2$,a3,a4
  284. 10050 ifa1=0then10180
  285. 10055 ifa1=62andfr$="gruppen"thenfs=1:goto 10180
  286. 10060 ifa1=62thengosub10200:goto10180
  287. 10070 print
  288. 10080 printa1,a2$,a3,a4
  289. 10090 print:print
  290. 10100 print"        [196]isketten-[198]ehler"
  291. 10110 print:print
  292. 10120 print"    [194]eheben [211]ie den [198]ehler"
  293. 10130 print"    und druecken [211]ie"
  294. 10140 print"          << [198] >>"
  295. 10160 getr$:ifr$=""then10160
  296. 10170 printchr$(147)
  297. 10180 return
  298. 10190 :
  299. 10200 printchr$(147)
  300. 10210 print:print:print:print
  301. 10220 print" [196]ie [196]atei        "fr$
  302. 10230 print
  303. 10240 print" oder             "fi$
  304. 10250 print
  305. 10260 print" [197]xistieren nicht !"
  306. 10270 print:print
  307. 10280 print"  [204] = [196]atendisk einlegen"
  308. 10290 print
  309. 10300 print"  [206] = [196]atei neu anlegen"
  310. 10310 getr$:ifr$=""then10310
  311. 10320 ifr$="l"thenreturn
  312. 10330 ifr$="n"thengoto11000
  313. 10340 goto10310
  314. 11000 rem ------------------
  315. 11010 rem neue datei anlegen
  316. 11020 rem ------------------
  317. 11030 :
  318. 11040 printchr$(147):print
  319. 11050 ifa1=0then11070
  320. 11060 print" "
  321. 11070 print" [193]chtung,die gesamte [196]isk wird "
  322. 11080 print" geloescht !!!"
  323. 11090 print:print
  324. 11100 print" [206] = neue [196]atei     [216] = [197]nde"
  325. 11110 getr$:ifr$=""then11110
  326. 11120 ifr$="x"then close1:gosub15000:close15:printchr$(147):end
  327. 11130 ifr$<>"n"then11110
  328. 11140 print:print"      [194]itte [215]arten !":
  329. 11150 print#15,"s:sch.rel"
  330. 11160 clr:gosub30000
  331. 11170 close1:open1,8,2,fr$+",l,"+chr$(dl)
  332. 11180 print"[215]ieviele [196]atensaetze soll die [196]atei"
  333. 11190 print"verwalten ";
  334. 11200 inputrn$:rn=abs(int(val(rn$)))
  335. 11210 ifrn<=mxthen11180
  336. 11220 hb=int(rn/256)
  337. 11230 lb=rn-hb*256
  338. 11240 print" [194]itte [215]arten !"
  339. 11250 print#15,"p"+chr$(2)+chr$(lb)+chr$(hb)+chr$(1)
  340. 11260 print#1,chr$(255)
  341. 11270 mx=rn
  342. 11280 mx$=str$(rn)
  343. 11290 close1
  344. 11300 :
  345. 11310 print"                                       "
  346. 11320 fori=am+1tomx
  347. 11330 :in$(i)="*"
  348. 11340 print"     "mx;i,in$(i)
  349. 11350 next
  350. 11360 in$(0)=mx$:am=1
  351. 11380 gosub15040:rem seq datei speichern
  352. 11420 run
  353. 11430 :
  354. 11500 rem ------------------
  355. 11510 rem datei erweitern
  356. 11520 rem ------------------
  357. 11530 am=mx
  358. 11540 mx=mx+25
  359. 11550 print:print" [197]rweitern der [196]atei"
  360. 11560 print:print" [194]isherige [199]roesse = "am
  361. 11570 print:print" [206]eue [199]roesse      = "mx
  362. 11580 rn=mx
  363. 11590 goto 11220
  364. 14000 rem --------------------------
  365. 14010 rem auteilen datensatznummer
  366. 14020 rem --------------------------
  367. 14030 :
  368. 14040 rn=abs(int(val(rn$)))
  369. 14100 hb=int(rn/256)
  370. 14110 lb=rn-hb*256
  371. 14130 return
  372. 14150 :
  373. 15000 rem -----------------------
  374. 15010 rem speichern seq datei
  375. 15020 rem -----------------------
  376. 15030 if fs<>1then15120
  377. 15040 close3:open3,8,8,"@:"+fi$+",s,w"
  378. 15050 gosub10000:rem fehlerkanal
  379. 15060 ifa1<>0then15040
  380. 15065 print#3,str$(mx)
  381. 15070 fori=1tomx
  382. 15080 :print#3,in$(i)","pl%(i)","te$(i)
  383. 15085 printchr$(147)i,"n:"in$(i),"s:"pl%(i),"gr:"te$(i)
  384. 15090 next
  385. 15092 close3:open3,8,8,"@:gruppen,s,w"
  386. 15094 fr$="gruppen":fi$="gruppen":gosub10000:fr$="sch.rel":fi$=fr$+"index"
  387. 15100 fori=1to15:print#3,gr$(i):next
  388. 15110 close3
  389. 15120 return
  390. 15130 :
  391. 15500 rem ---------------------
  392. 15510 rem lesen seq datei
  393. 15520 rem ---------------------
  394. 15530 close3:open3,8,8,"@:"+fi$+",s,r"
  395. 15540 gosub10000:rem fehlerkanal
  396. 15550 ifa1<>0then15530
  397. 15560 fori=1tomx
  398. 15570 print#3,in$(i),pl%(i),te$(i)
  399. 15580 :print" "i;mx;in$(i)
  400. 15590 next
  401. 15592 close3:open3,8,8,"gruppen,s,r"
  402. 15594 fr$="gruppen:fi$="gruppen":go[211]10000:fr$="sch.rel":fi$=fr$+"index"
  403. 15595 [129]i[178]1[164]15:[132]3,gr$(i):[153]gr$(i):[130]
  404. 15600 [160]3
  405. 15610 [142]
  406. 15620 :
  407. 16000 [143] -------------------
  408. 16010 [143] ergebnisse eingeben
  409. 16020 [143] -------------------
  410. 16022 [153][199](147)
  411. 16030 [137]16250
  412. 16100 [161]r$
  413. 16110 [139]r$[178]"input"[167]i[178]i[170]1:[137]16201
  414. 16120 [139]r$[178]"goto"[167]i[178]i[171]1:[137]16206
  415. 16130 [139]r$[178]"let"[175]i[177]0[175]i[179][178]mx[175][200](in$(i),1)[179][177]"*"[167]6000
  416. 16140 [139]r$[178]"restore"[167]1000
  417. 16200 [137]16100
  418. 16201 [139]i[177]mx[167]i[178]i[171]1:[137]16100
  419. 16203 [139]in$(i)[179][177]"*"[167]16213
  420. 16205 i[178]i[170]1:[137]16201
  421. 16206 [139]i[179]1[167]i[178]i[170]1:[137]16100
  422. 16208 [139]in$(i)[179][177]"*"[167]16213
  423. 16210 i[178]i[171]1:[137] 16206
  424. 16213 [153][199](147):[139]i[179]0[176]i[177]mx[167]16100
  425. 16214 rn$[178][196](i):
  426. 16215 [141]14000:[143] satznr.auft
  427. 16220 [141]9000:[143] lesen / aufteilen
  428. 16240 [141]2000:[143] anzeigen
  429. 16250 [153][199](19);
  430. 16255 [153]"        ---   valingabe - (NULL)eneu  ---      wait";
  431. 16260 [153]" asc1 = (NULL)aechster str$atensatz"
  432. 16270 [153]" asc2 = (NULL)etzter   str$atensatz"
  433. 16280 [153]" asc7 = str$atensatz aendern"
  434. 16285 [153]" asc8 = (NULL)urueck left$auptmenue"
  435. 16290 [153]" (NULL)aehle :wait"
  436. 16300 [137]16100
  437. 17000 [143]--------------------
  438. 17010 [143] gruppen definieren
  439. 17020 [143]--------------------
  440. 17030 [153][199](147);:fs[178]1
  441. 17040 [153]"           chr$ruppen definieren :         wait":[153]"";
  442. 17045 [153]"****************************************"
  443. 17050 [129]ii[178]1[164]15
  444. 17060 [153]ii,gr$(ii)
  445. 17070 [130]
  446. 17080 [153][199](19)" asc1 = valingabe "
  447. 17090 [153]" asc7 = (NULL)urueck left$aupt-(NULL)enue"
  448. 17095 [153]" asc2 = chr$ruppe loeschen "
  449. 17098 [153]" (NULL)aehle:wait"
  450. 17100 [161]r$:[139]r$[178]""[167]17100
  451. 17110 [139]r$[178]"let"[167]1000
  452. 17120 [139]r$[178]"goto"[167]17500
  453. 17130 [139]r$[179][177]"input"[167]17100
  454. 17140 [129]ii[178]1[164]15:[139]gr$(ii)[178]"."[167]17160
  455. 17150 [130]:[153][199](147)" atnlle chr$ruppen belegt !wait":[137]17080
  456. 17160 [153][199](147)" (NULL)elcher (NULL)ame :":[153]
  457. 17170 [133]gr$(ii):[137]17030
  458. 17500 [153][199](19);:[129]ii[178]1[164]6:[153]"                                        ";:[130]
  459. 17510 [153][199](19):[153]" (NULL)elche chr$ruppe soll geloescht werden :"
  460. 17520 [133]" (NULL)(NULL).: wait";r$:ii[178][197](r$):[139]ii[177]15[176]ii[179]1[167]17030
  461. 17530 gr$(ii)[178]".":[137]17030
  462. 18000 [143]-------------------------
  463. 18010 [143] erm. 10 hoechsten serien
  464. 18020 [143]-------------------------
  465. 18022 h%[178]0:pl%[178]0:
  466. 18025 [129]ii[178]1[164]200[169]4
  467. 18030 [139]ii[178]1[167]sr$[178]" "[170][202](sr$,ii[170]1):[137]18038
  468. 18031 sr$[178][200](sr$,ii[171]1)[170]" "[170][202](sr$,ii[170]1)
  469. 18038 [130]
  470. 18040 [129]i1[178]1[164]10
  471. 18050 [129]ii[178]1[164]200[169]4
  472. 18060 r%[178][197]([202](sr$,ii,4))
  473. 18070 [139]r%[177]h%[167]h%[178]r%:hh%[178]ii
  474. 18080 [130]:[139]hh%[178]0[167]18125
  475. 18090 pl%[178]pl%[170]h%
  476. 18092 h$[178][196](h%)
  477. 18093 h$[178][200](bl$,4[171][195](h$))[170]h$
  478. 18094 h$[178]"-"[170][202](h$,2,3)
  479. 18100 [139]hh%[178]1[167]sr$[178]h$[170][202](sr$,5):[137]18120
  480. 18110 sr$[178][200](sr$,hh%[171]1)[170]h$[170][202](sr$,hh%[170]4)
  481. 18120 h%[178]0:h$[178]"":hh%[178]0
  482. 18125 [130]
  483. 18130 pl%(i)[178]pl%:rc$[178]nn$[170]sr$:
  484. 18140 [137]6305
  485. 20000 [143]---------
  486. 20010 [143] ausdruck
  487. 20020 [143]---------
  488. 20030 [160]1:[141]15000
  489. 20035 [160]1:[159]1,8,2,fr$[170]",l,"[170][199](dl)
  490. 20040 [153][199](147)"      ###   str$rucker-atnusgabe   ###       wait"
  491. 20050 [153]:[153]:[153]"        peekitte (NULL)arten !!!                wait";
  492. 20100 [153][199](145)" peekitte waehlen (NULL)ie :                    ":[153]:[153]
  493. 20110 [153]" asc7 = (NULL)urueck left$auptmene":[153]
  494. 20120 [153]" 1  = chr$esammt atnusdruck":[153]
  495. 20130 [153]" 2  = atnusdruck chr$ruppe von / bis":[153]
  496. 20135 [153]:[153]" peekitte str$rucker einschalten !!!        wait":[153]
  497. 20140 [161]r$:[139]r$[178]""[167]20140
  498. 20145 [160]5:[159]5,8,1:[152]5,[199](27);[199](64);:[160]5
  499. 20150 [139]r$[178]"let"[167]1000
  500. 20160 [139]r$[178]"1"[167]20260
  501. 20170 [139]r$[179][177]"2"[167]20140
  502. 20200 [153][199](147)"         atnusdruck :                     wait"
  503. 20210 [129]ii[178]1[164]15:[153]ii,gr$(ii):[130]:[153]:[153]
  504. 20220 [133]"(NULL)r.-(NULL)on :";r$:v%[178][182]([181]([197](r$)))
  505. 20230 [133]"(NULL)r.-peekis :";r$:b%[178][182]([181]([197](r$)))
  506. 20240 [139]v%[179]1[176]v%[177]15[176]b%[179]1[176]b%[177]15[176]v%[177]b%[167]20200
  507. 20250 [137]20300
  508. 20260 v%[178]1:b%[178]15:rr$[178]"vm":[143] ges. ausdruck
  509. 20300 [160]5:[141]50
  510. 20310 [152]5,"########################################";
  511. 20320 [152]5,"########################################";
  512. 20330 [152]5,"#                    (NULL)chuetzenverein (NULL)be";
  513. 20340 [152]5,"rreichenbach e.(NULL).                      #";
  514. 20350 [152]5,"########################################";
  515. 20360 [152]5,"########################################"
  516. 20370 [141]60:[152]5,[199](10):[153]:r$[178]""
  517. 20380 [133]"str$atum :";r$
  518. 20390 [152]5,"(NULL)chiesssaison bis : ";r$;:[141]50:[152]5,[199](10):[152]5,,,
  519. 20400 [139]rr$[178]"vm"[167][152]5,"******* (NULL)val(NULL)valright$(NULL)(NULL)-(NULL)valright$(NULL)(NULL)val(NULL) : *******"
  520. 20410 [139]rr$[178]"vm"[167][141]50:[152]5,,;:[160]5:z%[178]0:[141]22000:[141]60:[160]5
  521. 20500 [129]i1[178]v%[164]b%
  522. 20510 [139]gr$(i1)[178]"."[167]20600
  523. 20520 [160]5:[159]5,4,7
  524. 20530 [141]50:[152]5:[152]5,gr$(i1);" :":[141]60:[160]5:[159]5,4,7
  525. 20535 h[178][195](gr$(i1))[170]2
  526. 20540 [129]ii[178]1[164]h:[152]5,"fre";:[130]:
  527. 20550 [152]5:[160]5:z%[178]i1
  528. 20560 [141]22000
  529. 20600 [130]:
  530. 20610 [141]50:[152]5,
  531. 20620 [129]ii[178]1[164]80:[152]5,"+";:[130]
  532. 20630 [152]5,"+  len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val - len(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL) - (NULL)otfware von (NULL)";
  533. 20640 [152]5,"val(NULL)(NULL) val(NULL)(NULL)(NULL)(NULL) / geschrieben am 24.11.1984  +";
  534. 20650 [129]ii[178]1[164]80:[152]5,"+";:[130]:[152]5,[199](10):[160]5
  535. 20660 [137]29999
  536. 22000 [143] -----------
  537. 22010 [143] platzierung
  538. 22020 [143] -----------
  539. 22030 f%[178]1:
  540. 22040 h%[178]0:hh%[178]0:iz[178]0:hf[178]0:w[178]0:
  541. 22050 [129]i[178]1[164]mx
  542. 22060 tc%[178][197](te$(i))
  543. 22070 [139]z%[178]0[167]tc%[178]0
  544. 22080 [139]pl%(i)[177]h%[175]tc%[178]z%[167]h%[178]pl%(i):iz[178]i
  545. 22085 [130]:
  546. 22090 [139]h%[178]0[167][142]
  547. 22095 tt(0,0)[178]iz:tt(0,11)[178]pl%(iz):pl%(iz)[178]0:hh%[178]hh%[170]1
  548. 22110 [129]w[178]1[164]mx
  549. 22120 tc%[178][197](te$(w))
  550. 22130 [139]z%[178]0[167]tc%[178]0
  551. 22140 [139]pl%(w)[178]h%[175]tc%[178]z%[167][137]22145
  552. 22141 [137]22150
  553. 22145 i[178]w:[141]31000:hh%[178]hh%[170]1:[139]hh%[177]9[167]22200
  554. 22150 [130]
  555. 22200 [139]hh%[178]1[167]i[178]tt(0,0):pl%(i)[178]tt(0,11):[141]50000:[137]22210
  556. 22205 iz[178]hh%:i[178]tt(0,0):pl%(i)[178]tt(0,10):hh%[178]0:j%[178]1:[141]31060:hh%[178]iz
  557. 22208 [137]23000
  558. 22210 [139]z%[178]0[167]29998
  559. 22220 f%[178]f%[170]1
  560. 22230 [139]f%[177]mx[167]29998
  561. 22240 [137]22040
  562. 23000 [143] ---- weitere sortierstufe
  563. 23020 [129]y[178]0[164]hh%
  564. 23030 [129]x[178]1[164]8
  565. 23040 [129]u[178]x[170]1[164]9
  566. 23050 [139]tt(y,x)[179]tt(y,u)[167]h%[178]tt(y,x):tt(y,x)[178]tt(y,u):tt(y,u)[178]h%
  567. 23060 [130]:[130]:[130]
  568. 23100 [129]y[178]0[164]hh%
  569. 23110 h%[178]0
  570. 23120 [129]x[178]9[164]1[169][171]1
  571. 23130 s(y)[178]s(y)[170](2[174]h%[172]tt(y,x))
  572. 23140 h%[178]h%[170]1
  573. 23150 [130]:[130]
  574. 23200 hf[178]0
  575. 23210 [129]y[178]0[164]hh%
  576. 23220 [139]s(y)[177]hf[167]hf[178]s(y):iz[178]y
  577. 23230 [130]:u[178]0
  578. 23240 i[178]tt(iz,0):pl%(i)[178]tt(iz,11):s(iz)[178]0
  579. 23250 [141]50000
  580. 23300 [129]y[178]0[164]hh%
  581. 23310 [139]s(y)[178]hf[167]i[178]tt(y,0):pl%(i)[178]tt(y,11):s(y)[178]0:[141]50:[160]5:[141]50000:u[178]u[170]1
  582. 23320 [130]
  583. 23400 [129]y[178]0[164]hh%
  584. 23410 [139]s(y)[177]0[175]z%[178]0[167]i[178]tt(y,0):pl%(i)[178]tt(y,11):s(y)[178]0:[137]23430
  585. 23420 [139]s(y)[177]0[175]z%[177]0[167]f%[178]f%[170]1:[137]23200
  586. 23430 [130]
  587. 23500 [129]y[178]0[164]10
  588. 23510 [129]x[178]0[164]10
  589. 23520 tt(y,x)[178]0
  590. 23530 [130]:[130]
  591. 23540 f%[178]f%[170]1:f%[178]f%[170]u
  592. 23550 [139]z%[179][177]0[167]22040
  593. 29998 [142]
  594. 29999 [160]1:[160]15:[153][199](147)[199](142):[128]
  595. 30000 [143] ----------------
  596. 30010 [143] initialisierung
  597. 30020 [143] ----------------
  598. 30040 dl[178]226:[143] datensatzlaenge
  599. 30050 rn[178]1
  600. 30070 bl$[178]"                               "
  601. 30080 bl[178][195](bl$)
  602. 30090 [153]""[199](14):[151]53281,10:[151]53280,10
  603. 30100 fr$[178]"sch.rel"
  604. 30110 fi$[178]fr$[170]"index"
  605. 30120 [134]in$(400),te$(400),pl%(400),gr$(16),tt(10,12)
  606. 30125 [129]i[178]1[164]15:gr$(i)[178]".":[130]
  607. 30130 [129]i[178]828[164]922
  608. 30140 [135] x:[151]i,x:s[178]s[170]x:[130]
  609. 30150 [131]169,71,160,3,141,8,3,140,9,3,96,32
  610. 30160 [131]115,0,201,133,240,6,32,121,0,76,231,167
  611. 30170 [131]32,115,0,201,172,240,6,32,191,171,76,174
  612. 30180 [131]167,32,155,183,32,30,225,32,253,174,32,158
  613. 30190 [131]183,138,72,32,253,174,32,139,176,133,73,132
  614. 30200 [131]74,32,163,182,104,32,117,180,160,2,185,97
  615. 30210 [131]0,145,73,136,16,248,200,32,18,225,145,98
  616. 30220 [131]200,196,97,208,246,32,204,255,76,174,167
  617. 30230 [139]s[179][177]11096[167][153]"fehler in datas !!":[128]
  618. 30240 [158] 828
  619. 30250 [160]15:[159]15,8,15
  620. 30330 [142]
  621. 31000 [143] -----------
  622. 31010 [143] 10 h.ergebnisse von schuetze
  623. 31020 [143] -----------
  624. 31050 tt(hh%,0)[178]i:tt(hh%,11)[178]pl%(i):j%[178]1:pl%(i)[178]0
  625. 31060 rn$[178][200](in$(i),4)
  626. 31065 [160]1:[159]1,8,2,fr$[170]",l,"[170][199](dl)
  627. 31070 [141]14000:[141]9000:[141]5000
  628. 31080 [129]ii[178]1[164]200[169]4
  629. 31090 [139][202](sr$,ii,1)[179][177]"-"[167]31120
  630. 31100 tt(hh%,j%)[178][197]([202](sr$,ii[170]1,3))
  631. 31110 j%[178]j%[170]1
  632. 31120 [130]
  633. 31130 [142]
  634. 50000 [143] ---------------
  635. 50010 [143] ausdruck/papier
  636. 50020 [143] ---------------
  637. 50025 ds%[178]0:d1%[178]0:d2%[178]0:lz[178]0
  638. 50030 rn$[178][200](in$(i),4)
  639. 50040 [141]14000
  640. 50050 [141]9000
  641. 50100 [159]5,4,2
  642. 50110 [152]5,[199](10)
  643. 50120 [139]z%[179][177]0[167][141]50:[152]5,f%;" (NULL)latz :  ";
  644. 50130 [152]5,,nn$;:[141]60:[152]5,[199](10)
  645. 50240 [129]w[178]1[164]200[169]4
  646. 50250 [139]w[178]81[176]w[178]161[167][152]5,[199](10);
  647. 50260 w$[178][202](sr$,w,4)
  648. 50270 [139][200](w$,1)[178]"-"[167][141]50:[152]5," ";[201](w$,3);:[141]60
  649. 52280 [139][200](w$,1)[178]"-"[167]d1%[178]d1%[170]1:[137]52360
  650. 52290 [139][201](w$,3)[178]"..."[167][152]5," ";[201](w$,3);:[137]52360
  651. 52300 fs[178][197]([201](w$,3))
  652. 52305 [139]fs[178]0[167]lz[178]lz[170]1
  653. 52310 [139]fs[177]0[167]ds%[178]ds%[170]fs:d2%[178]d2%[170]1
  654. 52320 [152]5," ";[201](w$,3);
  655. 52360 [130]
  656. 52370 ds%[178]ds%[170]pl%(i):ii[178][181](pl%(i)[173]d1%[172]100[170].5)[173]100
  657. 52380 h[178][181](ds%[173](d1%[170]d2%)[172]100[170].5)[173]100
  658. 52400 [152]5,[199](10)
  659. 52410 [152]5,"(NULL)umme    aus den hoechsten 10 (NULL)erien :";pl%(i);[199](10);
  660. 52420 [152]5,"str$urchschnitt der hoechsten 10 (NULL)erien :";ii;[199](10);
  661. 52430 [152]5,"str$urchschnitt aller (NULL)erien            :";h;[199](10);
  662. 52440 [152]5,"atnnzahl der (NULL)chiess-atnbende            :";(d1%[170]d2%[170]lz);[199](10);
  663. 52450 [152]5,[199](10);
  664. 52460 [160]5:[153][199](147);
  665. 52470 [141]2000
  666. 52480 pl%(i)[178]0
  667. 52490 [142]
  668.