home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 85xx / 8503.d64 / meisterschuetze (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  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.