home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 March
/
64er_Magazin_85-03_1985_Markt__Technik_de.d64
/
meisterschuetze
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
16KB
|
668 lines
10 rem #########################
11 rem # meister (schuetze) #
12 rem # geschr. am 24.11.1984 #
13 rem # von merk ernst #
14 rem # 7912 weissenhorn #
15 rem # kohlstattstrasse 3 #
16 rem #########################
40 goto100
50 close5:open5,4,1:print#5,chr$(27);chr$(69);:close5:open5,4,2:return
60 close5:open5,4,1:print#5,chr$(27);chr$(70);:close5:open5,4,2:return
100 printchr$(147)
140 :
150 :
160 gosub30000
170 close1:open1,8,2,fr$+",l,"+chr$(dl)
180 close3:open3,8,8,fi$+",s,r"
190 gosub10000:rem disk fehler
200 if a1<>0thenrun
210 input#3,in$:mx$=left$(in$,15)
220 mx=val(mx$)
230 :
240 in$(0)=in$
250 printchr$(147)
260 print:print:print
270 print" [201]nformation"
280 print:print
290 print" [194]isherige [196]ateigroesse: ";mx
300 print:print:
310 print" [194]itte [215]arten"
320 i=0
330 fori=1tomx
340 :input#3,in$(i),pl%(i),te$(i)
342 :
344 :
346 :print" "itab(7)mxtab(15);in$(i)
350 next:ii=0
351 close3:open3,8,8,"@:gruppen,s,r"
352 fr$="gruppen":fi$=fr$+"index":gosub10000:fr$="sch.rel":fi$=fr$+"index"
353 iffs=1then359
354 ii=ii+1:ifii>15then359
356 input#3,gr$(ii):print" "gr$(ii)
358 ifst<>64then354: close3
359 close3:open3,8,8,fi$+",s,r"
360 gosub10000
365 print:print
370 print" [196]ruecken [211]ie eine [212]aste"
380 poke198,0:wait198,1
390 rem ----------------
1000 rem meneu
1010 rem ---------------
1020 :
1030 printchr$(147)" *** [211]chuetzen - [196]atei *** [146]"
1050 print" [200]aupt - [205]enue : "
1055 print" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
1060 print
1080 print" [216] = [208]rogramm-[197]nde"
1085 print
1087 print" [194] = [198]reier [211]peicherplatz"
1090 print
1100 print" [199] = [193]nzeigen ges. [196]atei"
1110 print
1120 print" [211] = [211]uchen"
1122 print
1125 print" [196] = [199]ruppen definieren"
1130 print
1140 print" [206] = [206]eue [206]amen eingeben"
1142 print
1145 print" [197] = [197]rgebnisse eingeben"
1146 print
1147 print" [193] = [193]usdruck d.[197]rgeb."
1150 print
1160 print" ! = [206]eue [196]atei anlegen"
1170 print:print
1180 print"[215]aehlen [211]ie ";
1190 poke198,0
1200 get r$:ifr$=""then1200
1210 ifr$="x"thenclose1:gosub15000:close15:printchr$(147)chr$(142):end
1220 ifr$="g"then3500
1225 ifr$="d"then17000
1230 ifr$="s"then3000
1240 ifr$="n"then1800
1245 ifr$="e"then16000
1247 ifr$="a"then20000
1250 ifr$="!"then11000
1260 ifr$="b"thenprintchr$(147)"[198]reier [211]peicher :[146]"fre(o)" [194]yte":forii=0to3500:next
1270 goto390
1800 rem -----------------------
1810 rem eingabe
1820 rem -----------------------
1821 nn$="":rc$=""
1822 fori=1to5:rc$=rc$+" ... ... ... ... ... ... ... ... ... ...":next
1827 printchr$(147)" [206]ame u. [214]orname eingeben : [146]"
1828 bl$=" "
1830 inputnn$:ifnn$=""then390
1832 printchr$(147)" [199]ruppe auswaehlen < [206][210]. 1-15 > : [146]";
1833 print" [193]lle anderen [206]ummern = << [210][197][212][213][210][206] >> !!![146]"
1834 printchr$(19)"****************************************"
1836 forii=1to15:printii,gr$(ii):next:nn$=left$(nn$,25)
1838 printchr$(19)"[206]ame : "nn$:print
1840 input"[199]ruppe :";r$:
1842 te=val(r$):ifte<1orte>15then1000
1844 printchr$(145),gr$(te)
1846 nn$=nn$+left$(bl$,25-len(nn$)):
1850 rc$=nn$+rc$
1860 rem bestimmung satz nr.
1870 lz$=" ":lz=4
1880 i=0
1890 i=i+1:ifi>mxthen1980
1900 :
1910 if in$(i)<>"*"then1890
1920 i$=str$(i):te$(i)=str$(te)
1930 i$=mid$(i$,2)+left$(lz$,lz-len(i$)+1)
1940 in$(i)=i$+nn$
1950 rn$=str$(i)
1960 gosub14000
1970 gosub8000:
1980 if i>=mxthenprintchr$(147);"[196]atei voll !":goto11500
1990 goto1000
2000 rem -------------------
2010 rem ausgabe 1.datensatz
2020 rem -------------------
2030 printchr$(19)" "
2040 printchr$(19);chr$(17)"****************************************";
2045 print" [193]nzeige [196]atensatz";rn
2050 print:print
2060 print" [206]achname :"nn$
2065 te=val(te$(rn)):te=abs(te)
2070 print" [199]ruppe :"gr$(te)
2080 print" [197]rgebnisse :":print:printsr$:print
2100 print" [211]umme der 10 h. [197]rgeb.: [157][157][157][157][157][157][157][157]"pl%(i)
2130 return
2500 rem -------------
2510 rem drucken
2520 rem -------------
2530 printchr$(19);"*************** [200]ardcopy ***************";
2532 foru=1to4:print" ";:next
2540 printchr$(18)"[201]st [196]rucker eingeschaltet [212]aste druecken";chr$(146);chr$(145);
2550 getr$:ifr$=""then2550
2560 print" ";
2630 close5:open5,4,0
2640 fory=1024to1984step40
2650 bz$=""
2660 forx=0to39
2670 z%=peek(y+x)
2680 ifz%<32thenz%=z%+64
2690 bz$=bz$+chr$(z%)
2700 next
2710 print#5,bz$
2720 next
2730 close5:printchr$(19);:goto3180
3000 rem -------------
3010 rem suchen
3015 rem -------------
3020 n$=""
3030 printchr$(147);
3040 print" --- [211]uchen --- "
3050 print:print
3060 input" [206]achname";n$
3070 n=len(n$)
3080 s1=1
3090 fori=s1tomx
3100 :ifin$(i)="*"then3120
3110 :ifmid$(in$(i),5,n)=n$then3180
3120 next
3130 ifs1>1thenprint:printchr$(147)" [211]uche beendet !![146]":print:goto 3150
3140 print:printn$" nicht gefunden":print
3150 print"[196]ruecke [212]aste"
3160 get r$:ifr$=""then3160
3170 goto 1000
3180 rn$=left$(in$(i),4):printchr$(147)
3185 iflen(rn$)=0then3230
3190 gosub14000 :rem satznr aufteilen
3200 gosub 9000 :rem lesen / aufteilen
3220 gosub 2000 :rem anzeigen
3225 print
3230 printchr$(19)" --- [196]atensatz --- [146]"
3240 w$=" [215]aehle :[146] "
3250 print"([215])eitersuchen ([218])urueck"
3260 print"([193])endern ([204])oeschen"
3270 print"([196])rucken"
3280 printw$
3290 get r$:ifr$=""then3290
3300 w$=" [215]arten ![146] "
3310 printchr$(145);w$;chr$(17)
3320 if r$="z"then3170
3330 if r$="w"thens1=i+1:goto3090
3340 if r$="a"then6000
3350 if r$="l"thenprintchr$(147);:goto4000
3360 if r$="d"thengoto2500
3370 goto3230
3500 rem ---------------------
3510 rem lesen ges. datei
3520 rem ---------------------
3530 printchr$(147):rn=0
3540 rn=rn+1:i=rn
3550 :hb=int(rn/256)
3560 :lb=rn-hb*256
3570 :gosub9000 :rem lesen
3580 :if er=50 thenprintchr$(147);"[196]atei-[197]nde !!!":print:print:print:goto3620
3590 :if f=2thenprintchr$(19)" [206]icht belegt: [196]atensatz-[206]r. ";rn;"[146] ":goto3540
3610 :gosub 2000:rem anzeigen
3620 :print"[196]ruecke [212]aste"
3630 :get r$:ifr$=""then3630
3640 :r$=""
3650 if er<>50 then3540
3660 goto1000
4000 rem ---------------------
4010 rem loeschen datensatz
4020 rem ---------------------
4030 :
4040 in$(i)="*":pl%(i)=0
4050 rc$="[255]"
4060 gosub8000:rem speichern
4070 nn$=".":nv$=".":ot$=".":sr$="."
4080 :
4100 goto3220
5000 rem ------------------------------
5010 rem aufteilen datensatz in feldern
5020 rem ------------------------------
5030 :
5050 nn$=mid$(rc$,1,25)
5070 sr$=mid$(rc$,26,200)
5110 return
6000 rem ----------------------
6010 rem - eingabe neue daten
6020 rem ----------------------
6030 :
6040 printchr$(147);:nv$="":ifj=0thenj=1
6045 gosub2000
6050 print" [197]ingabe - [211]chiessergebnisse : [146]";
6060 print" ";
6070 print" [198]7=[218]urueck / [195]ursor ^_ =[211]chiesstag !!! ";
6080 print" ";
6090 print" [211]chiesstag : [146] [157][157][157]"j,"[197]rgebniss : [146] [157][157][157][157]"nv$
6100 getr$
6110 ifr$="[145]"thenj=j-1:ifj<1thenj=1
6120 ifr$=""thenj=j+1:ifj>50thenj=50
6130 ifr$="[136]"then6300
6140 ifr$=>"0"andr$<="9"thennv$=nv$+r$:iflen(nv$)>3thennv$=left$(nv$,3)
6150 ifr$=chr$(20)andlen(nv$)>0thennv$=left$(nv$,(len(nv$)-1))
6160 ifr$=chr$(13)then6200
6180 goto6050
6200 rem ergebnis einsortieren
6210 nv$=left$(bl$,4-len(nv$))+nv$
6215 ifnv$=" "thennv$=" ..."
6220 ii=(j-1)*4:ifii<1then6240
6230 sr$=mid$(sr$,1,ii)+nv$+mid$(sr$,ii+5):goto6260
6240 sr$=nv$+mid$(sr$,j+4)
6260 gosub2000:rc$=nn$+sr$
6270 nv$="":goto6050
6300 printchr$(147)
6301 print" [194]itte haben [211]ie etwas [199]eduld ! [146]":print:print
6303 goto18000:rem 10 h. ergeb.
6305 gosub14000
6310 gosub8000
6990 goto16213
8000 rem ---------------------------
8010 rem daten speicher auf disk
8020 rem ---------------------------
8030 :
8080 print#15,"p"+chr$(2)+chr$(lb)+chr$(hb)+chr$(1)
8100 print#1,rc$
8110 fs=1:rem flag speichern
8170 return
8180 :
9000 rem ---------------------
9010 rem lesen von disk
9020 rem ---------------------
9030 f=0
9040 print#15,"p"+chr$(2)+chr$(lb)+chr$(hb)+chr$(1)
9050 input#15,er
9060 if er =50then9110
9070 input* 1,226,rc$
9080 ifleft$(rc$,1)="[255]"thenf=2:goto9110
9090 f=1:
9100 :
9110 goto5000
9999 close15:open15,8,15
10000 rem ------------------
10010 rem disketten-fehler
10020 rem ------------------
10030 printchr$(147)
10040 input#15,a1,a2$,a3,a4
10050 ifa1=0then10180
10055 ifa1=62andfr$="gruppen"thenfs=1:goto 10180
10060 ifa1=62thengosub10200:goto10180
10070 print
10080 printa1,a2$,a3,a4
10090 print:print
10100 print" [196]isketten-[198]ehler"
10110 print:print
10120 print" [194]eheben [211]ie den [198]ehler"
10130 print" und druecken [211]ie"
10140 print" << [198] >>"
10160 getr$:ifr$=""then10160
10170 printchr$(147)
10180 return
10190 :
10200 printchr$(147)
10210 print:print:print:print
10220 print" [196]ie [196]atei "fr$
10230 print
10240 print" oder "fi$
10250 print
10260 print" [197]xistieren nicht !"
10270 print:print
10280 print" [204] = [196]atendisk einlegen"
10290 print
10300 print" [206] = [196]atei neu anlegen"
10310 getr$:ifr$=""then10310
10320 ifr$="l"thenreturn
10330 ifr$="n"thengoto11000
10340 goto10310
11000 rem ------------------
11010 rem neue datei anlegen
11020 rem ------------------
11030 :
11040 printchr$(147):print
11050 ifa1=0then11070
11060 print" "
11070 print" [193]chtung,die gesamte [196]isk wird "
11080 print" geloescht !!!"
11090 print:print
11100 print" [206] = neue [196]atei [216] = [197]nde"
11110 getr$:ifr$=""then11110
11120 ifr$="x"then close1:gosub15000:close15:printchr$(147):end
11130 ifr$<>"n"then11110
11140 print:print" [194]itte [215]arten !":
11150 print#15,"s:sch.rel"
11160 clr:gosub30000
11170 close1:open1,8,2,fr$+",l,"+chr$(dl)
11180 print"[215]ieviele [196]atensaetze soll die [196]atei"
11190 print"verwalten ";
11200 inputrn$:rn=abs(int(val(rn$)))
11210 ifrn<=mxthen11180
11220 hb=int(rn/256)
11230 lb=rn-hb*256
11240 print" [194]itte [215]arten !"
11250 print#15,"p"+chr$(2)+chr$(lb)+chr$(hb)+chr$(1)
11260 print#1,chr$(255)
11270 mx=rn
11280 mx$=str$(rn)
11290 close1
11300 :
11310 print" "
11320 fori=am+1tomx
11330 :in$(i)="*"
11340 print" "mx;i,in$(i)
11350 next
11360 in$(0)=mx$:am=1
11380 gosub15040:rem seq datei speichern
11420 run
11430 :
11500 rem ------------------
11510 rem datei erweitern
11520 rem ------------------
11530 am=mx
11540 mx=mx+25
11550 print:print" [197]rweitern der [196]atei"
11560 print:print" [194]isherige [199]roesse = "am
11570 print:print" [206]eue [199]roesse = "mx
11580 rn=mx
11590 goto 11220
14000 rem --------------------------
14010 rem auteilen datensatznummer
14020 rem --------------------------
14030 :
14040 rn=abs(int(val(rn$)))
14100 hb=int(rn/256)
14110 lb=rn-hb*256
14130 return
14150 :
15000 rem -----------------------
15010 rem speichern seq datei
15020 rem -----------------------
15030 if fs<>1then15120
15040 close3:open3,8,8,"@:"+fi$+",s,w"
15050 gosub10000:rem fehlerkanal
15060 ifa1<>0then15040
15065 print#3,str$(mx)
15070 fori=1tomx
15080 :print#3,in$(i)","pl%(i)","te$(i)
15085 printchr$(147)i,"n:"in$(i),"s:"pl%(i),"gr:"te$(i)
15090 next
15092 close3:open3,8,8,"@:gruppen,s,w"
15094 fr$="gruppen":fi$="gruppen":gosub10000:fr$="sch.rel":fi$=fr$+"index"
15100 fori=1to15:print#3,gr$(i):next
15110 close3
15120 return
15130 :
15500 rem ---------------------
15510 rem lesen seq datei
15520 rem ---------------------
15530 close3:open3,8,8,"@:"+fi$+",s,r"
15540 gosub10000:rem fehlerkanal
15550 ifa1<>0then15530
15560 fori=1tomx
15570 print#3,in$(i),pl%(i),te$(i)
15580 :print" "i;mx;in$(i)
15590 next
15592 close3:open3,8,8,"gruppen,s,r"
15594 fr$="gruppen:fi$="gruppen":go[211]10000:fr$="sch.rel":fi$=fr$+"index"
15595 [129]i[178]1[164]15:[132]3,gr$(i):[153]gr$(i):[130]
15600 [160]3
15610 [142]
15620 :
16000 [143] -------------------
16010 [143] ergebnisse eingeben
16020 [143] -------------------
16022 [153][199](147)
16030 [137]16250
16100 [161]r$
16110 [139]r$[178]"input"[167]i[178]i[170]1:[137]16201
16120 [139]r$[178]"goto"[167]i[178]i[171]1:[137]16206
16130 [139]r$[178]"let"[175]i[177]0[175]i[179][178]mx[175][200](in$(i),1)[179][177]"*"[167]6000
16140 [139]r$[178]"restore"[167]1000
16200 [137]16100
16201 [139]i[177]mx[167]i[178]i[171]1:[137]16100
16203 [139]in$(i)[179][177]"*"[167]16213
16205 i[178]i[170]1:[137]16201
16206 [139]i[179]1[167]i[178]i[170]1:[137]16100
16208 [139]in$(i)[179][177]"*"[167]16213
16210 i[178]i[171]1:[137] 16206
16213 [153][199](147):[139]i[179]0[176]i[177]mx[167]16100
16214 rn$[178][196](i):
16215 [141]14000:[143] satznr.auft
16220 [141]9000:[143] lesen / aufteilen
16240 [141]2000:[143] anzeigen
16250 [153][199](19);
16255 [153]" --- valingabe - (NULL)eneu --- wait";
16260 [153]" asc1 = (NULL)aechster str$atensatz"
16270 [153]" asc2 = (NULL)etzter str$atensatz"
16280 [153]" asc7 = str$atensatz aendern"
16285 [153]" asc8 = (NULL)urueck left$auptmenue"
16290 [153]" (NULL)aehle :wait"
16300 [137]16100
17000 [143]--------------------
17010 [143] gruppen definieren
17020 [143]--------------------
17030 [153][199](147);:fs[178]1
17040 [153]" chr$ruppen definieren : wait":[153]"";
17045 [153]"****************************************"
17050 [129]ii[178]1[164]15
17060 [153]ii,gr$(ii)
17070 [130]
17080 [153][199](19)" asc1 = valingabe "
17090 [153]" asc7 = (NULL)urueck left$aupt-(NULL)enue"
17095 [153]" asc2 = chr$ruppe loeschen "
17098 [153]" (NULL)aehle:wait"
17100 [161]r$:[139]r$[178]""[167]17100
17110 [139]r$[178]"let"[167]1000
17120 [139]r$[178]"goto"[167]17500
17130 [139]r$[179][177]"input"[167]17100
17140 [129]ii[178]1[164]15:[139]gr$(ii)[178]"."[167]17160
17150 [130]:[153][199](147)" atnlle chr$ruppen belegt !wait":[137]17080
17160 [153][199](147)" (NULL)elcher (NULL)ame :":[153]
17170 [133]gr$(ii):[137]17030
17500 [153][199](19);:[129]ii[178]1[164]6:[153]" ";:[130]
17510 [153][199](19):[153]" (NULL)elche chr$ruppe soll geloescht werden :"
17520 [133]" (NULL)(NULL).: wait";r$:ii[178][197](r$):[139]ii[177]15[176]ii[179]1[167]17030
17530 gr$(ii)[178]".":[137]17030
18000 [143]-------------------------
18010 [143] erm. 10 hoechsten serien
18020 [143]-------------------------
18022 h%[178]0:pl%[178]0:
18025 [129]ii[178]1[164]200[169]4
18030 [139]ii[178]1[167]sr$[178]" "[170][202](sr$,ii[170]1):[137]18038
18031 sr$[178][200](sr$,ii[171]1)[170]" "[170][202](sr$,ii[170]1)
18038 [130]
18040 [129]i1[178]1[164]10
18050 [129]ii[178]1[164]200[169]4
18060 r%[178][197]([202](sr$,ii,4))
18070 [139]r%[177]h%[167]h%[178]r%:hh%[178]ii
18080 [130]:[139]hh%[178]0[167]18125
18090 pl%[178]pl%[170]h%
18092 h$[178][196](h%)
18093 h$[178][200](bl$,4[171][195](h$))[170]h$
18094 h$[178]"-"[170][202](h$,2,3)
18100 [139]hh%[178]1[167]sr$[178]h$[170][202](sr$,5):[137]18120
18110 sr$[178][200](sr$,hh%[171]1)[170]h$[170][202](sr$,hh%[170]4)
18120 h%[178]0:h$[178]"":hh%[178]0
18125 [130]
18130 pl%(i)[178]pl%:rc$[178]nn$[170]sr$:
18140 [137]6305
20000 [143]---------
20010 [143] ausdruck
20020 [143]---------
20030 [160]1:[141]15000
20035 [160]1:[159]1,8,2,fr$[170]",l,"[170][199](dl)
20040 [153][199](147)" ### str$rucker-atnusgabe ### wait"
20050 [153]:[153]:[153]" peekitte (NULL)arten !!! wait";
20100 [153][199](145)" peekitte waehlen (NULL)ie : ":[153]:[153]
20110 [153]" asc7 = (NULL)urueck left$auptmene":[153]
20120 [153]" 1 = chr$esammt atnusdruck":[153]
20130 [153]" 2 = atnusdruck chr$ruppe von / bis":[153]
20135 [153]:[153]" peekitte str$rucker einschalten !!! wait":[153]
20140 [161]r$:[139]r$[178]""[167]20140
20145 [160]5:[159]5,8,1:[152]5,[199](27);[199](64);:[160]5
20150 [139]r$[178]"let"[167]1000
20160 [139]r$[178]"1"[167]20260
20170 [139]r$[179][177]"2"[167]20140
20200 [153][199](147)" atnusdruck : wait"
20210 [129]ii[178]1[164]15:[153]ii,gr$(ii):[130]:[153]:[153]
20220 [133]"(NULL)r.-(NULL)on :";r$:v%[178][182]([181]([197](r$)))
20230 [133]"(NULL)r.-peekis :";r$:b%[178][182]([181]([197](r$)))
20240 [139]v%[179]1[176]v%[177]15[176]b%[179]1[176]b%[177]15[176]v%[177]b%[167]20200
20250 [137]20300
20260 v%[178]1:b%[178]15:rr$[178]"vm":[143] ges. ausdruck
20300 [160]5:[141]50
20310 [152]5,"########################################";
20320 [152]5,"########################################";
20330 [152]5,"# (NULL)chuetzenverein (NULL)be";
20340 [152]5,"rreichenbach e.(NULL). #";
20350 [152]5,"########################################";
20360 [152]5,"########################################"
20370 [141]60:[152]5,[199](10):[153]:r$[178]""
20380 [133]"str$atum :";r$
20390 [152]5,"(NULL)chiesssaison bis : ";r$;:[141]50:[152]5,[199](10):[152]5,,,
20400 [139]rr$[178]"vm"[167][152]5,"******* (NULL)val(NULL)valright$(NULL)(NULL)-(NULL)valright$(NULL)(NULL)val(NULL) : *******"
20410 [139]rr$[178]"vm"[167][141]50:[152]5,,;:[160]5:z%[178]0:[141]22000:[141]60:[160]5
20500 [129]i1[178]v%[164]b%
20510 [139]gr$(i1)[178]"."[167]20600
20520 [160]5:[159]5,4,7
20530 [141]50:[152]5:[152]5,gr$(i1);" :":[141]60:[160]5:[159]5,4,7
20535 h[178][195](gr$(i1))[170]2
20540 [129]ii[178]1[164]h:[152]5,"fre";:[130]:
20550 [152]5:[160]5:z%[178]i1
20560 [141]22000
20600 [130]:
20610 [141]50:[152]5,
20620 [129]ii[178]1[164]80:[152]5,"+";:[130]
20630 [152]5,"+ len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val - len(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL) - (NULL)otfware von (NULL)";
20640 [152]5,"val(NULL)(NULL) val(NULL)(NULL)(NULL)(NULL) / geschrieben am 24.11.1984 +";
20650 [129]ii[178]1[164]80:[152]5,"+";:[130]:[152]5,[199](10):[160]5
20660 [137]29999
22000 [143] -----------
22010 [143] platzierung
22020 [143] -----------
22030 f%[178]1:
22040 h%[178]0:hh%[178]0:iz[178]0:hf[178]0:w[178]0:
22050 [129]i[178]1[164]mx
22060 tc%[178][197](te$(i))
22070 [139]z%[178]0[167]tc%[178]0
22080 [139]pl%(i)[177]h%[175]tc%[178]z%[167]h%[178]pl%(i):iz[178]i
22085 [130]:
22090 [139]h%[178]0[167][142]
22095 tt(0,0)[178]iz:tt(0,11)[178]pl%(iz):pl%(iz)[178]0:hh%[178]hh%[170]1
22110 [129]w[178]1[164]mx
22120 tc%[178][197](te$(w))
22130 [139]z%[178]0[167]tc%[178]0
22140 [139]pl%(w)[178]h%[175]tc%[178]z%[167][137]22145
22141 [137]22150
22145 i[178]w:[141]31000:hh%[178]hh%[170]1:[139]hh%[177]9[167]22200
22150 [130]
22200 [139]hh%[178]1[167]i[178]tt(0,0):pl%(i)[178]tt(0,11):[141]50000:[137]22210
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
22208 [137]23000
22210 [139]z%[178]0[167]29998
22220 f%[178]f%[170]1
22230 [139]f%[177]mx[167]29998
22240 [137]22040
23000 [143] ---- weitere sortierstufe
23020 [129]y[178]0[164]hh%
23030 [129]x[178]1[164]8
23040 [129]u[178]x[170]1[164]9
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%
23060 [130]:[130]:[130]
23100 [129]y[178]0[164]hh%
23110 h%[178]0
23120 [129]x[178]9[164]1[169][171]1
23130 s(y)[178]s(y)[170](2[174]h%[172]tt(y,x))
23140 h%[178]h%[170]1
23150 [130]:[130]
23200 hf[178]0
23210 [129]y[178]0[164]hh%
23220 [139]s(y)[177]hf[167]hf[178]s(y):iz[178]y
23230 [130]:u[178]0
23240 i[178]tt(iz,0):pl%(i)[178]tt(iz,11):s(iz)[178]0
23250 [141]50000
23300 [129]y[178]0[164]hh%
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
23320 [130]
23400 [129]y[178]0[164]hh%
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
23420 [139]s(y)[177]0[175]z%[177]0[167]f%[178]f%[170]1:[137]23200
23430 [130]
23500 [129]y[178]0[164]10
23510 [129]x[178]0[164]10
23520 tt(y,x)[178]0
23530 [130]:[130]
23540 f%[178]f%[170]1:f%[178]f%[170]u
23550 [139]z%[179][177]0[167]22040
29998 [142]
29999 [160]1:[160]15:[153][199](147)[199](142):[128]
30000 [143] ----------------
30010 [143] initialisierung
30020 [143] ----------------
30040 dl[178]226:[143] datensatzlaenge
30050 rn[178]1
30070 bl$[178]" "
30080 bl[178][195](bl$)
30090 [153]""[199](14):[151]53281,10:[151]53280,10
30100 fr$[178]"sch.rel"
30110 fi$[178]fr$[170]"index"
30120 [134]in$(400),te$(400),pl%(400),gr$(16),tt(10,12)
30125 [129]i[178]1[164]15:gr$(i)[178]".":[130]
30130 [129]i[178]828[164]922
30140 [135] x:[151]i,x:s[178]s[170]x:[130]
30150 [131]169,71,160,3,141,8,3,140,9,3,96,32
30160 [131]115,0,201,133,240,6,32,121,0,76,231,167
30170 [131]32,115,0,201,172,240,6,32,191,171,76,174
30180 [131]167,32,155,183,32,30,225,32,253,174,32,158
30190 [131]183,138,72,32,253,174,32,139,176,133,73,132
30200 [131]74,32,163,182,104,32,117,180,160,2,185,97
30210 [131]0,145,73,136,16,248,200,32,18,225,145,98
30220 [131]200,196,97,208,246,32,204,255,76,174,167
30230 [139]s[179][177]11096[167][153]"fehler in datas !!":[128]
30240 [158] 828
30250 [160]15:[159]15,8,15
30330 [142]
31000 [143] -----------
31010 [143] 10 h.ergebnisse von schuetze
31020 [143] -----------
31050 tt(hh%,0)[178]i:tt(hh%,11)[178]pl%(i):j%[178]1:pl%(i)[178]0
31060 rn$[178][200](in$(i),4)
31065 [160]1:[159]1,8,2,fr$[170]",l,"[170][199](dl)
31070 [141]14000:[141]9000:[141]5000
31080 [129]ii[178]1[164]200[169]4
31090 [139][202](sr$,ii,1)[179][177]"-"[167]31120
31100 tt(hh%,j%)[178][197]([202](sr$,ii[170]1,3))
31110 j%[178]j%[170]1
31120 [130]
31130 [142]
50000 [143] ---------------
50010 [143] ausdruck/papier
50020 [143] ---------------
50025 ds%[178]0:d1%[178]0:d2%[178]0:lz[178]0
50030 rn$[178][200](in$(i),4)
50040 [141]14000
50050 [141]9000
50100 [159]5,4,2
50110 [152]5,[199](10)
50120 [139]z%[179][177]0[167][141]50:[152]5,f%;" (NULL)latz : ";
50130 [152]5,,nn$;:[141]60:[152]5,[199](10)
50240 [129]w[178]1[164]200[169]4
50250 [139]w[178]81[176]w[178]161[167][152]5,[199](10);
50260 w$[178][202](sr$,w,4)
50270 [139][200](w$,1)[178]"-"[167][141]50:[152]5," ";[201](w$,3);:[141]60
52280 [139][200](w$,1)[178]"-"[167]d1%[178]d1%[170]1:[137]52360
52290 [139][201](w$,3)[178]"..."[167][152]5," ";[201](w$,3);:[137]52360
52300 fs[178][197]([201](w$,3))
52305 [139]fs[178]0[167]lz[178]lz[170]1
52310 [139]fs[177]0[167]ds%[178]ds%[170]fs:d2%[178]d2%[170]1
52320 [152]5," ";[201](w$,3);
52360 [130]
52370 ds%[178]ds%[170]pl%(i):ii[178][181](pl%(i)[173]d1%[172]100[170].5)[173]100
52380 h[178][181](ds%[173](d1%[170]d2%)[172]100[170].5)[173]100
52400 [152]5,[199](10)
52410 [152]5,"(NULL)umme aus den hoechsten 10 (NULL)erien :";pl%(i);[199](10);
52420 [152]5,"str$urchschnitt der hoechsten 10 (NULL)erien :";ii;[199](10);
52430 [152]5,"str$urchschnitt aller (NULL)erien :";h;[199](10);
52440 [152]5,"atnnzahl der (NULL)chiess-atnbende :";(d1%[170]d2%[170]lz);[199](10);
52450 [152]5,[199](10);
52460 [160]5:[153][199](147);
52470 [141]2000
52480 pl%(i)[178]0
52490 [142]