home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh11b.d64 / ligabase (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  22KB  |  1,150 lines
  1. 500 IFPEEK(253)THEN1000
  2. 510 POKE253,1:LOAD"DIR",8,8
  3. 1000 POKE53280,0:POKE53281,0:POKE646,15
  4. 1001 CLR:PRINTCHR$(147)CHR$(14)CHR$(8)
  5. 1007 HR=1:H=1:S=1:DR=1:DU=1:T=1
  6. 1008 I$="                 "
  7. 1009 DIMA$(20),MA$(20)
  8. 1010 DIMPA(20),PH(20)
  9. 1011 DIMAN(20),GW(20)
  10. 1012 DIMTA(20),TH(20)
  11. 1013 DIMUS(20),VL(20)
  12. 1014 DIMPD(20),TD(20)
  13. 1015 :
  14. 1016 REM * PRINT AT *
  15. 1017 :
  16. 1020 FORI=828TO828+19
  17. 1025 READQ:POKEI,Q:NEXT
  18. 1030 DATA 032,253,174,032,158,183,138
  19. 1040 DATA 072,032,253,174,032,158,183
  20. 1050 DATA 104,168,024,076,240,255
  21. 1055 CU=828
  22. 1059 :
  23. 1060 REM * BILDAUFBAU *
  24. 1061 :
  25. 1065 GOSUB1210:GOSUB20560
  26. 1070 SYSCU,3,3:PRINT"[204][201][199][193][194][193][211][197] [214]1.0   BY [205]ARTIN [194]OEDDING"
  27. 1071 R$(1)="[193]LTE [204]IGA BEARBEITEN"
  28. 1072 R$(2)="[206]EUE [204]IGA EINRICHTEN"
  29. 1075 C=1:Y=8:RA=2:GOSUB20010
  30. 1076 IFDP=1THENDP=0:GOTO1070
  31. 1080 ONCGOTO1275,4510
  32. 1199 :
  33. 1200 REM * MENUE KOPF *
  34. 1201 :
  35. 1210 SYSCU,0,0:PRINT"                                        [146]"
  36. 1215 SYSCU,0,1:PRINT"                                        [146]"
  37. 1220 SYSCU,3,2:PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  38. 1225 SYSCU,3,3:PRINT" [166][166][166] [146]                         [166][166][166] [146]"
  39. 1230 SYSCU,3,4:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  40. 1235 RETURN
  41. 1269 :
  42. 1270 REM * HAUPTMENUE *
  43. 1271 :
  44. 1275 GOSUB20560:GOSUB1210
  45. 1276 GOSUB1515
  46. 1278 GOSUB2010
  47. 1279 IFDP=2THENDP=0:GOSUB20560:GOTO1275
  48. 1280 GOSUB20560
  49. 1290 SYSCU,8,3:PRINT"       [200][193][213][208][212][205][197][206][213][197]       "
  50. 1295 R$(1)="[211]PIELTAGE"
  51. 1300 R$(2)="[212]ABELLE"
  52. 1310 R$(3)="[196]RUCKEN"
  53. 1320 R$(4)="[196]IENSTMENUE"
  54. 1330 RA=4:Y=8:C=H:GOSUB20010
  55. 1335 H=C:IFDP=1THENDP=0:GOSUB20560:GOTO1275
  56. 1340 ONCGOTO2080,10010,5010,6000
  57. 1499 :
  58. 1500 REM * LIGANAME *
  59. 1505 :
  60. 1510 GOSUB20560
  61. 1515 SYSCU,8,3:PRINT"        [204][201][199][193][206][193][205][197]        "
  62. 1520 SYSCU,0,0:PRINT"                     "
  63. 1525 SYSCU,12,7:PRINT"[194]ITTE GEBEN [211]IE"
  64. 1530 SYSCU,11,9:PRINT"DEN [204]IGANAMEN EIN"
  65. 1535 SYSCU,12,11:PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  66. 1540 SYSCU,11,12:PRINT"[170]               [180]"
  67. 1545 SYSCU,12,13:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  68. 1550 AA$=LN$
  69. 1560 X=13:Y=12:Z=13:GOSUB20210
  70. 1570 IFDP=1THENDP=0:GOTO1060
  71. 1580 IFAA$=""THEN1550
  72. 1590 LN$=AA$
  73. 1600 LN$=AA$+LEFT$(I$,13-LEN(AA$))
  74. 1620 SYSCU,0,0:PRINT"[204]IGA: ";LN$
  75. 1640 RETURN
  76. 1998 :
  77. 2000 REM * LIGA LADEN *
  78. 2001 :
  79. 2010 SYSCU,8,3:PRINT"       [204][201][199][193] [204][193][196][197][206]       "
  80. 2012 GOSUB9510
  81. 2015 IFDP=1THENDP=0:GOTO2010
  82. 2025 IFDP=2THENDP=0:GOTO1275
  83. 2030 RETURN
  84. 2074 :
  85. 2075 REM * SPIELTAGE *
  86. 2076 :
  87. 2080 GOSUB20560:AZ=0
  88. 2085 SYSCU,8,3:PRINT"       [211][208][201][197][204][212][193][199][197]        "
  89. 2086 SYSCU,26,0:PRINT"             "
  90. 2090 R$(1)="[211]PIELTAGE ERSTELLEN"
  91. 2095 R$(2)="[197]RGEBNISSE ERFASSEN/AENDERN"
  92. 2100 R$(3)="[211]PIELTAGE ANZEIGEN"
  93. 2110 Y=8:RA=3:C=S:GOSUB20010
  94. 2120 S=C:IFDP=1THENDP=0:GOTO1280
  95. 2130 ONCGOTO2200,4005,4010
  96. 2189 :
  97. 2190 REM * SPIELTAGE ERSTELLEN *
  98. 2195 :
  99. 2200 SYSCU,8,3:PRINT"  [211][208][201][197][204][212][193][199][197] [197][210][211][212][197][204][204][197][206]   "
  100. 2201 :
  101. 2202 SE=1:GOSUB21160:IFDP=1THENDP=0:GOTO2080
  102. 2203 IFSG>MA-1THEN2201
  103. 2205 GOSUB20560
  104. 2210 SYSCU,15,6:PRINT"[208]AARUNGEN:"
  105. 2215 SYSCU,0,21:PRINT"[205]ANNSCHAFT:"
  106. 2216 FORX=1TOMA
  107. 2217 A$(X)=MA$(X)
  108. 2218 NEXTX
  109. 2220 FORX=8TO8+(MA/2)-1
  110. 2225 SYSCU,20,X:PRINT"-"
  111. 2230 NEXTX
  112. 2240 X=0:Y=8:I=1:Z=1
  113. 2250 :
  114. 2255 SYSCU,X,Y:PRINT"";I$
  115. 2265 SYSCU,14,21:PRINT""I$+"  "
  116. 2270 SYSCU,14,21:PRINT" ";A$(Z);" "
  117. 2280 GOSUB20410
  118. 2290 GETQ$:Q=ASC(Q$)
  119. 2300 IFQ= 17THENZ=Z+1:GOTO2345
  120. 2310 IFQ= 29THENZ=Z-1:GOTO2345
  121. 2320 IFQ= 13THENGOTO2400
  122. 2330 IFQ= 94THEN2500
  123. 2340 GOTO2280
  124. 2345 IFZ>MATHENZ=1
  125. 2350 IFZ<1THENZ=MA
  126. 2355 IFA$(Z)=""ANDQ=17THENZ=Z+1:GOTO2345
  127. 2360 IFA$(Z)=""ANDQ= 29THENZ=Z-1:GOTO2345
  128. 2365 GOTO2255
  129. 2389 :
  130. 2390 :
  131. 2391 :
  132. 2400 IFX=22THEN2450
  133. 2405 HE$(I)=A$(Z):A$(Z)=""
  134. 2410 SYSCU,X,Y:PRINTI$
  135. 2420 SYSCU,X,Y:PRINTHE$(I)
  136. 2430 X=22
  137. 2440 Z=Z+1:Q=17:GOTO2345
  138. 2450 GA$(I)=A$(Z):A$(Z)=""
  139. 2460 SYSCU,X,Y:PRINTI$
  140. 2470 SYSCU,X,Y:PRINTGA$(I)
  141. 2480 X=0:Y=Y+1
  142. 2485 I=I+1:IFI>MA/2THEN2705
  143. 2490 Z=Z+1:Q=17:GOTO2345
  144. 2499 :
  145. 2500 REM * RUECKWAERTS *
  146. 2502 :
  147. 2505 IFX=22THEN2545
  148. 2510 Z=1:I=I-1:IFI<1THEN2200
  149. 2520 IFA$(Z)=""THENA$(Z)=GA$(I):GA$(I)="":GOTO2530
  150. 2525 Z=Z+1:GOTO2520
  151. 2530 SYSCU,X,Y:PRINTI$
  152. 2540 Y=Y-1:X=22:SYSCU,X,Y:PRINT"";I$
  153. 2542 GOTO2345
  154. 2545 Z=1
  155. 2550 IFA$(Z)=""THENA$(Z)=HE$(I):HE$(I)="":GOTO2560
  156. 2555 Z=Z+1:GOTO2550
  157. 2560 SYSCU,X,Y:PRINTI$
  158. 2570 X=0:SYSCU,X,Y:PRINT"";I$
  159. 2580 GOTO2345
  160. 2600 GOTO2080
  161. 2699 :
  162. 2700 REM * SPIELTAG SAVEN *
  163. 2701 :
  164. 2705 SYSCU,0,21:PRINT"      [[210]ETURN] = [211]PIELTAG SPEICHERN"
  165. 2710 SYSCU,11,23:PRINT"[^] = ZURUECK"
  166. 2715 GOSUB20410
  167. 2720 GETQ$:Q=ASC(Q$)
  168. 2725 IFQ=13THEN2775
  169. 2730 IFQ=94THEN2740
  170. 2735 GOTO2715
  171. 2740 FORX=21TO23:POKE781,X:SYS59903:NEXT
  172. 2745 SYSCU,0,21:PRINT"[205]ANNSCHAFT:"
  173. 2750 GOTO2505
  174. 2755 :
  175. 2775 GOSUB9160
  176. 2780 IFDP=1THENDP=0:GOTO2775
  177. 2785 IFDP=2THENDP=0:GOTO2200
  178. 3005 GOTO2080
  179. 3999 :
  180. 4000 REM * SPIELTAGE ANZEIGEN/AENDERN *
  181. 4001 :
  182. 4005 SYSCU,8,3:PRINT"   [197][210][199][197][194][206][201][211][211][197] [197][210][198][193][211][211][197][206]  ":AZ=1:GOTO4016
  183. 4010 SYSCU,8,3:PRINT"   [211][208][201][197][204][212][193][199][197] [193][206][218][197][201][199][197][206]   "
  184. 4016 GOSUB21160:IFDP=1THENDP=0:GOTO2080
  185. 4018 GOSUB9010
  186. 4020 IFDP=1THENDP=0:GOTO4018
  187. 4022 IFDP=2THENDP=0:GOTO4016
  188. 4025 IFEN=62THENGOSUB21745:DP=0:GOTO4018
  189. 4026 GOSUB9310
  190. 4030 IFDP=1THENDP=0:GOTO4018
  191. 4035 IFEN=62THENDP=0:GOTO4037
  192. 4036 GOTO4050
  193. 4037 FORX=1TOMA/2
  194. 4038 H$(X)=" A":G$(X)=" A"
  195. 4039 NEXT
  196. 4050 GOSUB20560
  197. 4060 SYSCU,12,5:PRINT"[196]ATUM:";DA$
  198. 4070 SYSCU,14,7:PRINT"[194]EGEGNUNGEN:"
  199. 4075 IFAZ=1THENSYSCU,9,22:PRINT" [198]1 [146] = [197]RGEBNIS SAVEN"
  200. 4076 IFAZ=1THENSYSCU,5,20:PRINT" [195][212][210][204]-[196] [146] = [196]ATUM AENDERN"
  201. 4080 FORX=1TOMA/2
  202. 4090 SYSCU,0,X+8:PRINTHE$(X)
  203. 4100 SYSCU,16,X+8:PRINT"-"
  204. 4110 SYSCU,17,X+8:PRINTGA$(X)
  205. 4115 H$(X)=RIGHT$(" "+H$(X),2)
  206. 4120 SYSCU,34,X+8:PRINTH$(X)
  207. 4130 SYSCU,36,X+8:PRINT":"
  208. 4135 G$(X)=RIGHT$(" "+G$(X),2)
  209. 4140 SYSCU,37,X+8:PRINTG$(X)
  210. 4150 IFH$(X)=" A"THENSYSCU,33,X+8:PRINT"AUSGEF."
  211. 4155 NEXTX
  212. 4160 IFAZ=0THENGOSUB20410:GOTO2080
  213. 4165 FORI=1TO9:C$(I)="":NEXT
  214. 4190 C=1
  215. 4192 GOSUB4240
  216. 4195 C$(C)=""
  217. 4200 GOSUB4240
  218. 4202 GOSUB20410
  219. 4205 GETQ$:Q=ASC(Q$)
  220. 4207 IFQ=17THENGOTO4225
  221. 4210 IFQ=29THENGOTO4230
  222. 4212 IFQ=13THEN4300
  223. 4215 IFQ=94THEN2080
  224. 4216 IFQ=133THEN4430
  225. 4217 IFQ=4THEN4400
  226. 4220 GOTO4202
  227. 4225 C$(C)="":GOSUB4240:C=C+1:GOTO4235
  228. 4230 C$(C)="":GOSUB4240:C=C-1
  229. 4235 IFC>MA/2THENC=1
  230. 4236 IFC<1THENC=MA/2
  231. 4237 GOTO4195
  232. 4240 FORI=1TOMA/2
  233. 4242 IFH$(I)=" A"THENSYSCU,33,I+8:PRINTC$(I)"AUSGEF.":GOTO4250
  234. 4245 SYSCU,34,I+8:PRINTC$(I)H$(I)":"G$(I)
  235. 4250 NEXT:RETURN
  236. 4300 SYSCU,33,C+8:PRINT"   :   "
  237. 4305 AA$="":Y=C+8:X=34:Z=2:GOSUB20205
  238. 4310 IFDP=1THENDP=0:GOTO4195
  239. 4315 IFAA$=""THENH$(C)=" A":GOTO4195
  240. 4320 H$(C)=RIGHT$(" "+AA$,2)
  241. 4325 AA$="":X=37:Z=2:GOSUB20205
  242. 4330 IFDP=1THENDP=0:GOTO4300
  243. 4340 IFAA$=""THENGOTO4325
  244. 4345 G$(C)=RIGHT$(" "+AA$,2)
  245. 4350 SYSCU,33,C+8:PRINT"   :   ":GOTO4195
  246. 4400 C$(C)="":GOSUB4240
  247. 4401 AA$=DA$:X=18:Y=5:Z=10:GOSUB20210
  248. 4402 IFAA$=""THENAA$="          "
  249. 4405 DA$=AA$:DP=0
  250. 4410 SYSCU,18,5:PRINT""DA$
  251. 4415 GOTO4195
  252. 4430 GOSUB9410
  253. 4435 IFDP=1THENDP=0:GOTO4430
  254. 4440 IFDP=2THENDP=0:GOTO4050
  255. 4455 GOTO2080
  256. 4470 :
  257. 4500 REM * NEUE LIGA EINRICHTEN *
  258. 4501 :
  259. 4510 GOSUB1210:GOSUB20560
  260. 4511 SYSCU,8,3:PRINT"       [206][197][213][197] [204][201][199][193]        "
  261. 4515 GOSUB20560:GOSUB1520
  262. 4520 GOSUB20560
  263. 4530 SYSCU,8,11:PRINT"[215]IEVIELE [205]ANNSCHAFTEN ?"
  264. 4531 SYSCU,18,13:PRINT"[175][175][175][175]"
  265. 4532 SYSCU,17,14:PRINT"[170]    [180]"
  266. 4533 SYSCU,18,15:PRINT"[183][183][183][183]"
  267. 4535 AA$=RIGHT$(STR$(MA),2)
  268. 4540 X=19:Y=14:Z=2:GOSUB20210
  269. 4545 IFDP=1THENDP=0:GOTO4515
  270. 4550 IFAA$=""THEN4540
  271. 4560 MA=VAL(AA$)
  272. 4570 FORX=2TO20STEP2
  273. 4580 IFMA=XTHEN4600
  274. 4590 NEXTX
  275. 4595 GOTO4540
  276. 4600 GOSUB20560:E=1
  277. 4610 SYSCU,12,7:PRINT"[194]ITTE GEBEN [211]IE"
  278. 4620 SYSCU,9,9:PRINT"DIE [205]ANNSCHAFTEN EIN."
  279. 4625 SYSCU,16,11:PRINT".[205]ANNSCHAFT"
  280. 4630 SYSCU,11,13:PRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  281. 4635 SYSCU,10,14:PRINT"[170]                  [180]"
  282. 4640 SYSCU,11,15:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  283. 4650 :
  284. 4651 IFE<1THEN4520
  285. 4655 SYSCU,13,11:PRINTRIGHT$(" "+STR$(E),2)
  286. 4660 AA$=MA$(E)
  287. 4665 X=12:Y=14:Z=16:GOSUB20210
  288. 4675 IFDP=1THENDP=0:E=E-1:GOTO4650
  289. 4680 IFAA$=""THEN4665
  290. 4684 MA$(E)=LEFT$(AA$+I$,16)
  291. 4685 E=E+1:IFE>MATHEN4720
  292. 4686 GOTO4650
  293. 4720 GOSUB20560
  294. 4730 SYSCU,10,9:PRINT"[205]USS DIE [196]ATENDISKETTE"
  295. 4740 SYSCU,9,11:PRINT"ERST FORMATIERT WERDEN ?"
  296. 4745 C=1
  297. 4750 R$(1)="[206]EIN"
  298. 4755 R$(2)=" [202]A "
  299. 4760 RA=2:Y=13:GOSUB20010
  300. 4770 IFDP=1THENDP=0:GOTO4600
  301. 4780 ONCGOTO4800,4785
  302. 4785 GOSUB20560
  303. 4786 DE$="[204]EERDISKETTE":GOSUB20615
  304. 4787 IFDP=2THENDP=0:GOTO4720
  305. 4788 GOSUB20710:IFDP=1THENDP=0:GOTO4786
  306. 4790 OPEN1,8,15,"N:LB-DATA,LB":CLOSE1
  307. 4795 OPEN15,8,15:GOSUB20960
  308. 4796 IFDP=1THENDP=0:GOTO4785
  309. 4800 GOSUB20560
  310. 4810 GOSUB9610
  311. 4820 IFDP=1THENDP=0:GOTO4810
  312. 4830 IFDP=2THENDP=0:GOTO4720
  313. 4840 GOTO1280
  314. 4999 :
  315. 5000 REM * DRUCKEN *
  316. 5001 :
  317. 5010 GOSUB20560
  318. 5015 SYSCU,8,3:PRINT"         [196][210][213][195][203][197][206]        "
  319. 5016 SYSCU,25,0:PRINT"                "
  320. 5020 R$(1)="[211]PIELTAGE DRUCKEN"
  321. 5030 R$(2)="[211]PIELPLAN DRUCKEN"
  322. 5040 R$(3)="[212]ABELLE DRUCKEN"
  323. 5050 C=DR:Y=8:RA=3:GOSUB20010
  324. 5055 DR=C
  325. 5060 IFDP=1THENDP=0:GOTO1280
  326. 5070 ONCGOTO5105,5310,5710
  327. 5099 :
  328. 5100 REM * SPIELTAG DRUCKEN *
  329. 5101 :
  330. 5105 SYSCU,8,3:PRINT"    [211][208][201][197][204][212][193][199] [196][210][213][195][203][197][206]    "
  331. 5110 GOSUB21160
  332. 5115 IFDP=1THENDP=0:GOTO5010
  333. 5120 GOSUB9010
  334. 5124 IFDP=1THENDP=0:GOTO5120
  335. 5125 IFDP=2THENDP=0:GOTO5010
  336. 5126 IFEN=62THENGOSUB21745:DP=0:GOTO5120
  337. 5127 GOSUB9310
  338. 5128 IFDP=1THENDP=0:GOTO5120
  339. 5129 IFEN=62THENGOSUB21745:DP=0:GOTO5120
  340. 5130 GOSUB21210
  341. 5140 IFDP=1THENDP=0:GOTO5130
  342. 5200 OPEN4,4,7
  343. 5235 IFW=1THENW=0:DA$=""
  344. 5236 PRINT#4,SG$".[211]PIELTAG     [196]ATUM:"DA$:PRINT#4
  345. 5240 FORX=1TOMA/2
  346. 5250 PRINT#4,HE$(X)"-"GA$(X)" ";
  347. 5255 IFRIGHT$(H$(X),1)="A"THENPRINT#4,"AUSGEF.":GOTO5260
  348. 5256 PRINT#4,RIGHT$(" "+H$(X),2)":"RIGHT$(" "+G$(X),2)
  349. 5260 NEXTX:PRINT#4
  350. 5265 CLOSE4
  351. 5270 GOTO5010
  352. 5299 :
  353. 5300 REM * SPIELPLAN DRUCKEN *
  354. 5301 :
  355. 5310 SYSCU,10,3:PRINT" [211][208][201][197][204][208][204][193][206] [196][210][213][195][203][197][206] "
  356. 5315 SYSCU,25,0:PRINT"                "
  357. 5316 GOSUB20560
  358. 5320 R$(1)="[200]INRUNDE"
  359. 5325 R$(2)="[210]UECKRUNDE"
  360. 5330 C=HR:Y=8:RA=2:GOSUB20010
  361. 5335 HR=C:IFDP=1THENDP=0:GOTO5010
  362. 5340 GOSUB20560:HR=C
  363. 5345 SYSCU,28,0:PRINT""R$(C)
  364. 5350 GOSUB21210
  365. 5352 IFDP=1THENDP=0:GOTO5345
  366. 5353 OPEN4,4,7
  367. 5354 PRINT#4,CHR$(14)"      [211]PIELPLAN FUER "LN$
  368. 5355 PRINT#4:PRINT#4,CHR$(14)"               ";R$(C)CHR$(15):PRINT#4
  369. 5356 I=1:IFHR=2THENI=MA
  370. 5358 SP=I:GOSUB21185
  371. 5359 GOSUB9014:S1$=SG$
  372. 5360 IFDP=1THENDP=0:CLOSE4:GOTO5315
  373. 5365 IFEN=62THENGOSUB21745:DP=0:GOTO5356
  374. 5366 IFHR=2THEND1$="":GOTO5370
  375. 5370 FORX=1TOMA/2
  376. 5375 G1$(X)=GA$(X):H1$(X)=HE$(X)
  377. 5380 NEXT
  378. 5385 I=I+1:IFI=(MA-1)*HR+1THENDP=1:GOTO5480
  379. 5390 SP=I:GOSUB21185
  380. 5392 GOSUB9014:S2$=SG$
  381. 5393 IFDP=1THEN5480
  382. 5395 IFEN=62THENGOSUB21745:DP=0:GOTO5356
  383. 5400 FORX=1TOMA/2
  384. 5405 G2$(X)=GA$(X):H2$(X)=HE$(X)
  385. 5410 NEXT
  386. 5480 PRINT#4
  387. 5485 PRINT#4
  388. 5490 PRINT#4,"  "S1$".[211]PIELTAG      [196]ATUM:"LEFT$(I$,16);
  389. 5492 IFDP=1THENPRINT#4:PRINT#4:GOTO5500
  390. 5495 PRINT#4,"   "S2$".[211]PIELTAG      [196]ATUM:":PRINT#4
  391. 5500 FORX=1TOMA/2
  392. 5505 PRINT#4,H1$(X)"-"G1$(X);
  393. 5510 PRINT#4," [164][164]:[164][164]  ";
  394. 5511 IFDP=1THENPRINT#4:GOTO5525
  395. 5515 PRINT#4,H2$(X)"-"G2$(X);
  396. 5520 PRINT#4," [164][164]:[164][164]";
  397. 5525 NEXT
  398. 5530 DP=0:PRINT#4:CLOSE2
  399. 5533 IFI>(MA-1)*HRTHEN5540
  400. 5534 :
  401. 5537 I=I+1:GOTO5358
  402. 5540 CLOSE4:GOTO5010
  403. 5699 :
  404. 5700 REM * TABELLE DRUCKEN *
  405. 5701 :
  406. 5710 GOSUB20560
  407. 5720 SYSCU,10,3:PRINT"   [212][193][194][197][204][204][197] [196][210][213][195][203][197][206]   "
  408. 5730 GOSUB13010
  409. 5731 IFDP=1THENDP=0:GOTO5730
  410. 5732 IFDP=2THENDP=0:GOTO5010
  411. 5733 GOSUB21210
  412. 5734 IFDP=1THENDP=0:GOTO5010
  413. 5740 OPEN4,4,7
  414. 5745 PRINT#4,CHR$(14)"       [212]ABELLE FUER ";LN$:PRINT#4
  415. 5750 PRINT#4,CHR$(14)"         BIS ZUM ";SP-1;".[211]PIELTAG."CHR$(15):PRINT#4
  416. 5760 PRINT#4,"[208]L. [205]ANNSCHAFT           [211]P.   GEW.  U.  VERL.   [208]UNKTE  [196]IFF.";
  417. 5765 PRINT#4,"    [212]ORE     [196]IFF."
  418. 5766 PRINT#4,"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  419. 5767 PRINT#4,"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  420. 5770 FORX=1TOMA
  421. 5780 PRINT#4,RIGHT$(" "+STR$(X),2)". "MA$(X)SPC(6);
  422. 5781 PRINT#4,RIGHT$(" "+STR$(AN(X)),2)SPC(4);
  423. 5782 PRINT#4,RIGHT$(" "+STR$(GW(X)),2)SPC(3);
  424. 5783 PRINT#4,RIGHT$(" "+STR$(US(X)),2)SPC(4);
  425. 5784 PRINT#4,RIGHT$(" "+STR$(VL(X)),2)SPC(5);
  426. 5785 PRINT#4,RIGHT$(" "+STR$(PH(X)),2)":";
  427. 5786 PRINT#4,RIGHT$(" "+STR$(PA(X)),2)SPC(3);
  428. 5787 PRINT#4,RIGHT$(" "+STR$(PD(X)),3)SPC(4)
  429. 5788 PRINT#4,RIGHT$(" "+STR$(TH(X)),3)":";
  430. 5789 PRINT#4,RIGHT$(" "+STR$(TA(X)),3)SPC(5);
  431. 5790 PRINT#4,RIGHT$(" "+STR$(TD(X)),3)
  432. 5791 NEXT
  433. 5792 CLOSE4:GOTO5010
  434. 5999 :
  435. 6000 REM * DIENSTMENUE *
  436. 6001 :
  437. 6010 GOSUB20560
  438. 6020 SYSCU,10,3:PRINT"    [196][201][197][206][211][212][205][197][206][213][197]    "
  439. 6030 R$(1)="[196]ISK-[194]EFEHL SENDEN"
  440. 6035 R$(2)="[196]IRECTORY"
  441. 6040 R$(3)="[208]ROGRAMMENDE"
  442. 6045 RA=3:Y=8:C=DU:GOSUB20010
  443. 6050 DU=C:IFDP=1THENDP=0:GOTO1280
  444. 6055 ONCGOTO6060,6610,6700
  445. 6057 :
  446. 6058 REM * DISKBEFEHL SENDEN *
  447. 6059 :
  448. 6060 GOSUB20560:DB$=""
  449. 6065 SYSCU,10,3:PRINT" [196][201][211][203]-[194][197][198][197][200][204] [211][197][206][196][197][206]   "
  450. 6067 M$(1)="[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  451. 6068 M$(2)="[170]                  [180]"
  452. 6069 M$(3)="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  453. 6070 R$(1)="[198]ILE LOESCHEN"
  454. 6071 R$(2)="[198]ILE UMBENENNEN"
  455. 6072 R$(3)="[196]ISK VALIDIEREN"
  456. 6073 R$(4)=" [196]ISK FORMATIEREN"
  457. 6075 C=1:RA=4:Y=8:GOSUB20010
  458. 6076 IFDP=1THENDP=0:GOTO6010
  459. 6077 ONCGOTO6105,6150,6235,6310
  460. 6080 :
  461. 6100 REM * FILE LOESCHEN *
  462. 6101 :
  463. 6105 SYSCU,10,3:PRINT"   [198][201][204][197] [204][207][197][211][195][200][197][206]   "
  464. 6110 GOSUB20560
  465. 6115 SYSCU,15,6:PRINT"[198]ILENAME:"
  466. 6116 SYSCU,11,8:PRINTM$(1)
  467. 6117 SYSCU,10,9:PRINTM$(2)               "
  468. 6118 [158]CU,11,10:[153]M$(3)
  469. 6120 AA$[178]"":X[178]12:Y[178]9:Z[178]16:[141]20210
  470. 6125 [139]DP[178]1[167]DP[178]0:[137]6060
  471. 6126 [139]AA$[178]""[167]6120
  472. 6132 DB$[178]"S:"[170]AA$
  473. 6133 [141]6440
  474. 6135 [139]DP[178]1[167]DP[178]0:[137]6120
  475. 6140 [137]6060
  476. 6147 :
  477. 6148 [143] * FILE UMBENENNEN *
  478. 6149 :
  479. 6150 [141]20560
  480. 6151 [158]CU,10,3:[153]"  ASCRIGHT$(null)VAL (null)(null)PEEKVAL(null)VAL(null)(null)VAL(null)  "
  481. 6152 [158]CU,11,8:[153]M$(1)
  482. 6153 [158]CU,10,9:[153]M$(2)
  483. 6154 [158]CU,11,10:[153]M$(3)
  484. 6155 [158]CU,12,6:[153]"ATNLTER ASCILENAME:"
  485. 6160 AA$[178]R1$:X[178]12:Y[178]9:Z[178]16:[141]20210
  486. 6165 [139]DP[178]1[167]DP[178]0:[137]6060
  487. 6170 [139]AA$[178]""[167]6160
  488. 6175 R1$[178]AA$
  489. 6180 [158]CU,11,14:[153]M$(1)
  490. 6185 [158]CU,10,15:[153]M$(2)
  491. 6190 [158]CU,11,16:[153]M$(3)
  492. 6195 [158]CU,12,12:[153]"(null)EUER ASCILENAME:"
  493. 6200 AA$[178]R2$:X[178]12:Y[178]15:Z[178]16:[141]20210
  494. 6205 [139]DP[178]1[167]DP[178]0:[137]6160
  495. 6210 [139]AA$[178]""[167]6200
  496. 6220 R2$[178]AA$
  497. 6221 DB$[178]"R:"[170]R2$[170]"="[170]R1$
  498. 6222 [141]6440
  499. 6223 [139]DP[178]1[167]DP[178]0:[137]6200
  500. 6225 [137]6060
  501. 6229 :
  502. 6230 [143] * DISK VALIDIEREN *
  503. 6231 :
  504. 6235 [141]20560
  505. 6260 [158]CU,10,3:[153]"  STR$RIGHT$(null)(null) (null)ATN(null)RIGHT$STR$RIGHT$VAL(null)VAL(null)  "
  506. 6261 [158]CU,7,8:[153]"STR$ISKETTE WIRD VALIDIERT..."
  507. 6265 DB$[178]"V"
  508. 6270 [141]6440
  509. 6275 [139]DP[178]1[167]DP[178]0
  510. 6280 [137]6060
  511. 6299 :
  512. 6300 [143] * DISK FORMATIEREN *
  513. 6310 [141]20560
  514. 6320 [158]CU,10,3:[153]"  STR$RIGHT$(null)(null) ASC(null)(null)(null)ATN(null)RIGHT$VAL(null)VAL(null) "
  515. 6325 [158]CU,8,8:[153]M$(1)"   ANDAND"
  516. 6326 [158]CU,7,9:[153]M$(2)" +  SGN"
  517. 6327 [158]CU,8,10:[153]M$(3)"   USRUSR"
  518. 6330 [158]CU,8,7:[153]"STR$ISKNAME:            RIGHT$STR$:"
  519. 6340 AA$[178]"":X[178]9:Y[178]9:Z[178]16:[141]20210
  520. 6345 [139]DP[178]1[167]DP[178]0:[137]6060
  521. 6350 [139]AA$[178]""[167]6340
  522. 6355 N$[178]AA$
  523. 6360 AA$[178]"":X[178]29:Y[178]9:Z[178]2:[141]20210
  524. 6365 [139]DP[178]1[167]DP[178]0:[137]6340
  525. 6370 [139]AA$[178]""[167]6360
  526. 6371 [139][195](AA$)[178]1[167]AA$[178]AA$[170]" "
  527. 6375 ID$[178]AA$
  528. 6380 [141]20710
  529. 6385 [139]DP[178]1[167]DP[178]0:[137]6340
  530. 6390 [159]1,8,15,"N:"[170]N$[170]","[170]ID$:[160]1
  531. 6395 [159]15,8,15:[141]20960
  532. 6400 [139]DP[178]1[167]DP[178]0:[137]6340
  533. 6410 [137]6060
  534. 6420 :
  535. 6430 [143] * DISK BEFEHL AUSFUEHREN *
  536. 6440 [141]20710
  537. 6450 [139]DP[178]1[167][142]
  538. 6460 [159]12,8,15,DB$
  539. 6470 [159]15,8,15:[141]20960
  540. 6475 [160]12
  541. 6490 [142]
  542. 6500 :
  543. 6510 [143] * DIRECTORY *
  544. 6600 :
  545. 6610 [141]20710
  546. 6615 [139]DP[178]1[167]DP[178]0:[137]6060
  547. 6620 [153][199](147)
  548. 6625 [158]50176
  549. 6630 [159]15,8,15:[141]20960
  550. 6635 [139]DP[178]1[167]DP[178]0:[137]6060
  551. 6636 [141]20410
  552. 6640 [153]"LOAD":[141]1210:[158]CU,0,0:[153]"(null)IGA: ";LN$
  553. 6650 [137]6010
  554. 6680 :
  555. 6690 [143] * PRG ENDE *
  556. 6695 :
  557. 6700 [141]20560
  558. 6710 [158]CU,10,3:[153]"    (null)(null)(null)CHR$(null)ATN(null)(null)VAL(null)STR$VAL   "
  559. 6715 [158]CU,12,8:[153]"(null)IND (null)IE SICHER ?"
  560. 6720 R$(1)[178]"(null)EIN"
  561. 6725 R$(2)[178]"MID$A"
  562. 6730 C[178]1:RA[178]2:Y[178]10:[141]20010
  563. 6735 [139]DP[178]1[167]DP[178]0:[137]6010
  564. 6740 [145]C[137]6010,6750
  565. 6750 [158]64738
  566. 8903 [143] >>>>>>FLOPPY - ROUTINEN<<<<<<<
  567. 8999 :
  568. 9000 [143] * SPIELTAGE LADEN *
  569. 9001 :
  570. 9010 [141]20610:[139]DP[178]2[167][142]
  571. 9014 [141]20710:[139]DP[178]1[167][142]
  572. 9015 [141]20800:[139]DP[178]1[167][142]
  573. 9036 [159]15,8,15
  574. 9037 UE$[178]SG$[170]".(null)PIELTAG"
  575. 9038 [159]2,8,8,[200](LN$,3)[170]"/"[170]SP$[170]".SPIELTAG,S,R"
  576. 9039 DE[178]62:[141]20960:[139]EN[178]62[167][160]2:[142]
  577. 9040 [139]DP[178]1[167]9122
  578. 9050 [129]X[178]1[164]MA[173]2
  579. 9055 [139]W[178]1[167]9100
  580. 9060 [132]2,HE$(X)
  581. 9070 [132]2,GA$(X)
  582. 9080 [130]X:[137]9122
  583. 9100 [132]2,GA$(X)
  584. 9110 [132]2,HE$(X)
  585. 9120 [130]X
  586. 9122 [160]2
  587. 9125 [141]20960
  588. 9130 W[178]0:[142]
  589. 9149 :
  590. 9150 [143] * SPIELTAGE-SAVEN *
  591. 9151 :
  592. 9160 [141]20610:[139]DP[178]2[167][142]
  593. 9162 [141]20710:[139]DP[178]1[167][142]
  594. 9163 [141]20800:[139]DP[178]1[167][142]
  595. 9167 [159]15,8,15
  596. 9168 UE$[178]SG$[170]".(null)PIELTAG"
  597. 9169 [159]2,8,8,WR$[170][200](LN$,3)[170]"/"[170]SP$[170]".SPIELTAG,S,W"
  598. 9170 [141]21510:[139]DP[178]1[167]9232
  599. 9175 [139]WR[178]1[167]WR[178]0:[160]2:[137]9162
  600. 9190 [129]X[178]1[164]MA[173]2
  601. 9200 [152]2,HE$(X)
  602. 9220 [152]2,GA$(X)
  603. 9230 [130]X
  604. 9232 [160]2
  605. 9235 [141]20960
  606. 9240 [160]15:[142]
  607. 9299 :
  608. 9300 [143] * ERGEBNIS-LADEN *
  609. 9310 :
  610. 9314 [141]20710:[139]DP[178]1[167][142]
  611. 9315 [141]20800:[139]DP[178]1[167][142]
  612. 9316 [159]15,8,15
  613. 9317 UE$[178]SG$[170]".VALRGEBNIS"
  614. 9319 [159]2,8,8,[200](LN$,3)[170]"/"[170]SG$[170]".ERGEBNIS,S,R"
  615. 9320 DE[178]62:[141]20960:[139]EN[178]62[167][160]2:[142]
  616. 9325 [139]DP[178]1[167]9382
  617. 9330 [132]2,DA$:[139]DA$[178]"K"[167]DA$[178]""
  618. 9335 [141]20960:[139]DP[178]1[167]9382
  619. 9350 [129]X[178]1[164]MA[173]2
  620. 9360 [132]2,H$(X)
  621. 9370 [132]2,G$(X)
  622. 9380 [130]X
  623. 9382 [160]2
  624. 9385 [141]20960
  625. 9390 [160]15
  626. 9395 [142]
  627. 9399 :
  628. 9400 [143] * ERGEBNIS-SAVEN *
  629. 9401 :
  630. 9410 [141]20610:[139]DP[178]2[167][142]
  631. 9412 [141]20710:[139]DP[178]1[167][142]
  632. 9415 [141]20800:[139]DP[178]1[167][142]
  633. 9416 [159]15,8,15
  634. 9417 UE$[178]SG$[170]".VALRGEBNIS"
  635. 9419 [159]2,8,8,WR$[170][200](LN$,3)[170]"/"[170]SG$[170]".ERGEBNIS,S,W"
  636. 9420 [141]21510:[139]DP[178]1[167]9462
  637. 9425 [139]WR[178]1[167]WR[178]0:[160]2:[137]9412
  638. 9426 [139][197](DA$)[178]0[167]DA$[178]"K"
  639. 9427 [152]2,DA$
  640. 9430 [129]X[178]1[164]MA[173]2
  641. 9440 [152]2,H$(X)
  642. 9450 [152]2,G$(X)
  643. 9460 [130]X
  644. 9462 [160]2
  645. 9465 [141]20960
  646. 9470 [160]15:[142]
  647. 9499 :
  648. 9500 [143] * LIGA LADEN *
  649. 9501 :
  650. 9510 [141]20610:[139]DP[178]2[167][142]
  651. 9514 [141]20710:[139]DP[178]1[167][142]
  652. 9516 [141]20800:[139]DP[178]1[167][142]
  653. 9517 [159]15,8,15
  654. 9518 UE$[178]"(null)IGA"
  655. 9519 [159]2,8,3,LN$[170]" /L,S,R"
  656. 9520 [141]21710:[139]DP[178]1[167]9562
  657. 9530 [132]2,MA
  658. 9540 [129]X[178]1[164]MA
  659. 9550 [132]2,MA$(X)
  660. 9560 [130]
  661. 9562 [160]2
  662. 9565 [141]20960
  663. 9570 [160]15:[142]
  664. 9599 :
  665. 9600 [143] * LIGA SAVEN *
  666. 9601 :
  667. 9610 [141]20610:[139]DP[178]2[167][142]
  668. 9611 [141]20710:[139]DP[178]1[167][142]
  669. 9612 [141]20800:[139]DP[178]1[167][142]
  670. 9613 [159]15,8,15
  671. 9614 UE$[178]"(null)IGA"
  672. 9615 [159]2,8,3,WR$[170]LN$[170]" /L,S,W"
  673. 9620 [141]21510:[139]DP[178]1[167]9662
  674. 9625 [139]WR[178]1[167]WR[178]0:[160]2:[137]9611
  675. 9630 [152]2,MA
  676. 9635 [141]20960:[139]DP[178]1[167]9662
  677. 9640 [129]X[178]1[164]MA
  678. 9650 [152]2,MA$(X)
  679. 9660 [130]
  680. 9662 [160]2
  681. 9665 [141]20960
  682. 9670 [142]
  683. 10000 :
  684. 10002 [143] * TABELLE *
  685. 10003 :
  686. 10010 [141]20560:SP[178]1
  687. 10020 [158]CU,8,3:[153]"        (null)ATNPEEKVAL(null)(null)VAL         "
  688. 10030 R$(1)[178]"(null)EUE (null)ABELLE ERRECHNEN"
  689. 10040 R$(2)[178]"ATNLTE (null)ABELLE ERGAENZEN"
  690. 10045 R$(3)[178]"(null)ABELLE ANZEIGEN "
  691. 10050 C[178]T:RA[178]3:Y[178]8:[141]20010:T[178]C
  692. 10060 [139]DP[178]1[167]DP[178]0:[137]1280
  693. 10070 [145]C[137]10105,11800,11610
  694. 10090 :
  695. 10100 [143] * NEUE TABELLE ERRECHNEN *
  696. 10102 :
  697. 10105 [141]10222
  698. 10106 [158]CU,8,3:[153]" (null)VAL(null)VAL (null)ATNPEEKVAL(null)(null)VAL VAL(null)(null)VALLENLEFT$(null)VAL(null) ":P[178]1
  699. 10110 [141]20560
  700. 10120 [158]CU,6,5:[153]"PEEKITTE STR$ATENDISKETTEWAIT EINLEGEN"
  701. 10121 [158]CU,8,6:[153]"UND IN DER ASCLOPPY LASSEN."
  702. 10125 [158]CU,7,8:[153]"PEEKITTE DRUECKEN (null)IE [(null)ETURN]"
  703. 10131 [141]20410
  704. 10132 [161]Q$:Q[178][198](Q$)
  705. 10133 [139]Q[178]13[167]10136
  706. 10134 [139]Q[178]94[167]10010
  707. 10135 [137]10131
  708. 10136 SP[178]P
  709. 10137 [158]CU,7,8:[153]" (null)ABELLE WIRD ERRECHNET... "
  710. 10150 [141]21185
  711. 10160 [141]9014:[139]DP[178]1[167]DP[178]0:[137]10110
  712. 10170 [139]EN[178]62[167]10600
  713. 10180 [141]9310:[139]DP[178]1[167]DP[178]0:[137]10110
  714. 10190 [139]EN[178]62[167]10600
  715. 10193 [158]CU,0,10:[153]"ATNUSGEF. (null)PIELE DES";SP;"CMD.(null)PIELTAGES:"
  716. 10194 AS[178]12:[141]10250
  717. 10195 [137]10320
  718. 10199 :
  719. 10200 [143] * AUSGEF. SPIELE *
  720. 10201 :
  721. 10205 [158]CU,3,AS:[153]HE$(I)"-"GA$(I)
  722. 10210 AS[178]AS[170]1:[142]
  723. 10219 :
  724. 10220 [143] * VARIABLEN LOESCHEN *
  725. 10221 :
  726. 10222 [129]X[178]1[164]MA
  727. 10230 AN(X)[178]0:GW(X)[178]0:US(X)[178]0:VL(X)[178]0
  728. 10231 PH(X)[178]0:PA(X)[178]0:TA(X)[178]0:TH(X)[178]0
  729. 10232 TD(X)[178]0:PD(X)[178]0
  730. 10235 [130]:[142]
  731. 10239 :
  732. 10240 [143] * LOESCHEN *
  733. 10242 :
  734. 10250 [129]X[178]12[164]22
  735. 10260 [151]781,X:[158]59903
  736. 10270 [130]:[142]
  737. 10309 :
  738. 10310 [143] * SPIELTAG AUSWERTEN *
  739. 10311 :
  740. 10320 [129]I[178]1[164]MA[173]2
  741. 10335 [129]X[178]1[164]MA
  742. 10340 [139]HE$(I)[178]MA$(X)[167]10350
  743. 10342 [130]X
  744. 10350 [129]Y[178]1[164]MA
  745. 10355 [139]GA$(I)[178]MA$(Y)[167]10360
  746. 10356 [130]Y
  747. 10360 [139]H$(I)[178]"A"[167][141]10205:[130]I:[137]10575
  748. 10370 H(I)[178][197](H$(I)):G(I)[178][197](G$(I))
  749. 10375 [139]H(I)[177]G(I)[167]10400
  750. 10380 [139]H(I)[178]G(I)[167]10450
  751. 10390 [139]H(I)[179]G(I)[167]10500
  752. 10395 [137]10370
  753. 10400 PH(X)[178]PH(X)[170]2:GW(X)[178]GW(X)[170]1
  754. 10405 PA(Y)[178]PA(Y)[170]2:VL(Y)[178]VL(Y)[170]1
  755. 10420 [137]10550
  756. 10450 PH(X)[178]PH(X)[170]1:US(X)[178]US(X)[170]1
  757. 10460 PA(X)[178]PA(X)[170]1:US(Y)[178]US(Y)[170]1
  758. 10470 PA(Y)[178]PA(Y)[170]1:PH(Y)[178]PH(Y)[170]1
  759. 10490 [137]10550
  760. 10500 PA(X)[178]PA(X)[170]2:VL(X)[178]VL(X)[170]1
  761. 10510 PH(Y)[178]PH(Y)[170]2:GW(Y)[178]GW(Y)[170]1
  762. 10520 [137]10550
  763. 10550 TH(X)[178]TH(X)[170]H(I)
  764. 10555 TA(X)[178]TA(X)[170]G(I)
  765. 10560 TA(Y)[178]TA(Y)[170]H(I)
  766. 10565 TH(Y)[178]TH(Y)[170]G(I)
  767. 10566 AN(Y)[178]AN(Y)[170]1
  768. 10567 AN(X)[178]AN(X)[170]1
  769. 10568 PD(X)[178]PH(X)[171]PA(X):PD(Y)[178]PH(Y)[171]PA(Y)
  770. 10569 TD(X)[178]TH(X)[171]TA(X):TD(Y)[178]TH(Y)[171]TA(Y)
  771. 10570 [130]I
  772. 10575 [139]P[177](MA[171]1)[172]2[167]10600
  773. 10576 [139]AS[177]12[167][129]X[178]1[164]2000:[130]
  774. 10580 P[178]P[170]1:[137]10136
  775. 10600 [141]10710
  776. 10610 [141]11010
  777. 10615 [139]DP[178]1[167]DP[178]0:[137]10105
  778. 10620 [158]CU,8,3:[153]"   (null)ATNPEEKVAL(null)(null)VAL ATNPEEK(null)(null)VALRIGHT$LENLEFT$VAL(null)(null)  "
  779. 10630 [141]12010
  780. 10635 [139]DP[178]1[167]DP[178]0:[137]10630
  781. 10640 [139]DP[178]2[167]DP[178]0:[137]10610
  782. 10645 [137]10010
  783. 10699 :
  784. 10700 [143] * TABELLE SORTIEREN *
  785. 10701 :
  786. 10710 [141]20560
  787. 10711 [158]CU,8,7:[153]"(null)ABELLE WIRD SORTIERT..."
  788. 10713 [158]CU,25,0:[153]"               "
  789. 10715 V[178]0
  790. 10720 [129]I[178]1[164]MA[171]1
  791. 10730 [139]PH(I)[177]PH(I[170]1)[167]10774
  792. 10735 [139]PH(I)[178]PH(I[170]1)[167]10790
  793. 10750 P$[178]MA$(I):MA$(I)[178]MA$(I[170]1):MA$(I[170]1)[178]P$
  794. 10755 P[178]GW(I):GW(I)[178]GW(I[170]1):GW(I[170]1)[178]P
  795. 10756 P[178]VL(I):VL(I)[178]VL(I[170]1):VL(I[170]1)[178]P
  796. 10757 P[178]US(I):US(I)[178]US(I[170]1):US(I[170]1)[178]P
  797. 10760 P[178]AN(I):AN(I)[178]AN(I[170]1):AN(I[170]1)[178]P
  798. 10761 P[178]PH(I):PH(I)[178]PH(I[170]1):PH(I[170]1)[178]P
  799. 10762 P[178]PA(I):PA(I)[178]PA(I[170]1):PA(I[170]1)[178]P
  800. 10763 P[178]TA(I):TA(I)[178]TA(I[170]1):TA(I[170]1)[178]P
  801. 10764 P[178]TH(I):TH(I)[178]TH(I[170]1):TH(I[170]1)[178]P
  802. 10765 P[178]PD(I):PD(I)[178]PD(I[170]1):PD(I[170]1)[178]P
  803. 10766 P[178]TD(I):TD(I)[178]TD(I[170]1):TD(I[170]1)[178]P
  804. 10773 V[178]1
  805. 10774 [130]I
  806. 10775 [139]V[178]1[167]10715
  807. 10780 [142]
  808. 10790 [139]PA(I)[179]PA(I[170]1)[167]10774
  809. 10795 [139]PA(I)[178]PA(I[170]1)[167]10830
  810. 10800 [137]10750
  811. 10830 [139]TD(I)[177]TD(I[170]1)[167]10774
  812. 10835 [139]TD(I)[178]TD(I[170]1)[167]10840
  813. 10836 [137]10750
  814. 10840 [139]TH(I)[178][177]TH(I[170]1)[167]10774
  815. 10850 [137]10750
  816. 10998 [143]
  817. 10999 :
  818. 11000 [143] * TABELLE ANZEIGEN *
  819. 11005 :
  820. 11010 [153]"LOAD"
  821. 11015 [158]CU,6,0:[153]"(null)ABELLE BIS ZUM ";SP[171]1;"CMD.(null)PIELTAG"
  822. 11020 [158]CU,0,2:[153]"(null)L. (null)ANNSCHAFT      (null)P.  (null)UNKTE    (null)ORE   "
  823. 11030 [158]CU,0,3:[153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN"
  824. 11040 [129]X[178]1[164]MA
  825. 11045 [158]CU,0,X[170]3:[153][201](" "[170][196](X),2)"."MA$(X);
  826. 11050 [153]" "[201]("  "[170][196](AN(X)),2);
  827. 11055 [153]"   "[201]("  "[170][196](PH(X)),2);
  828. 11060 [153]":"[201]("  "[170][196](PA(X)),2);
  829. 11065 [153]"   "[201]("  "[170][196](TH(X)),3);
  830. 11070 [153]":"[201]("  "[170][196](TA(X)),3);
  831. 11075 [130]
  832. 11080 [141]20410
  833. 11081 [161]Q$:Q[178][198](Q$)
  834. 11082 [153]"LOAD":[141]1210:[158]CU,0,0:[153]"(null)IGA: ";LN$
  835. 11085 [139]Q[178]94[167]DP[178]1:[142]
  836. 11086 [142]
  837. 11599 :
  838. 11600 [143] *  TABELLE ANZEIGEN   *
  839. 11602 :
  840. 11610 [141]20560
  841. 11615 [158]CU,8,3:[153]"    (null)ATNPEEKVAL(null)(null)VAL ATN(null)(null)VALRIGHT$CHR$VAL(null)    "
  842. 11619 [141]13010
  843. 11620 [139]DP[178]1[167]DP[178]0:[137]11619
  844. 11625 [139]DP[178]2[167]DP[178]0:[137]10010
  845. 11630 [141]11000
  846. 11635 [139]DP[178]1[167]DP[178]0:[137]11610
  847. 11640 [137]10010
  848. 11799 :
  849. 11800 [143] *  TABELLE ERGAENZEN  *
  850. 11801 :
  851. 11810 [141]20560
  852. 11815 [158]CU,8,3:[153]" ATN(null)(null)VAL (null)ATNPEEKVAL(null)(null)VAL VAL(null)CHR$ATNVAL(null)(null)VAL(null) "
  853. 11819 [141]13010
  854. 11820 [139]DP[178]1[167]DP[178]0:[137]11819
  855. 11825 [139]DP[178]2[167]DP[178]0:[137]10010
  856. 11830 [141]11000
  857. 11835 [139]DP[178]1[167]DP[178]0:[137]11810
  858. 11839 [158]CU,8,3:[153]" ATN(null)(null)VAL (null)ATNPEEKVAL(null)(null)VAL VAL(null)CHR$ATNVAL(null)(null)VAL(null) "
  859. 11840 P[178]SP:[137]10110
  860. 11999 :
  861. 12000 [143] * TABELLE SAVEN *
  862. 12001 :
  863. 12010 [141]21800:[139]DP[178]2[167][142]
  864. 12015 [141]20610:[139]DP[178]2[167]DP[178]0:[137]12010
  865. 12020 [141]20710:[139]DP[178]1[167][142]
  866. 12025 [141]20800:[139]DP[178]1[167][142]
  867. 12026 [159]15,8,15
  868. 12030 UE$[178]"(null)ABELLE"
  869. 12035 [159]2,8,2,WR$[170]TN$[170]",S,W"
  870. 12040 [141]21510:[139]DP[178]1[167][160]2:[137]12010
  871. 12041 [139]WR[178]1[167]WR[178]0:[160]2:[137]12020
  872. 12050 [152]2,SP:[139]DP[178]1[167]12100
  873. 12060 [129]X[178]1[164]MA
  874. 12070 [152]2,MA$(X)[199](13)AN(X)
  875. 12074 [152]2,GW(X)[199](13)US(X)
  876. 12078 [152]2,VL(X)[199](13)PH(X)
  877. 12082 [152]2,PA(X)[199](13)TH(X)
  878. 12086 [152]2,TA(X)[199](13)TD(X)
  879. 12090 [152]2,PD(X)
  880. 12092 [130]
  881. 12100 [160]2
  882. 12101 [141]20960
  883. 12102 [160]15:[142]
  884. 12999 :
  885. 13000 [143] * TABELLE LADEN *
  886. 13001 :
  887. 13010 [141]21810:[139]DP[178]2[167][142]
  888. 13015 [141]20610:[139]DP[178]2[167]DP[178]0:[137]13010
  889. 13020 [141]20710:[139]DP[178]1[167][142]
  890. 13025 [141]20800:[139]DP[178]1[167][142]
  891. 13030 UE$[178]"(null)ABELLE"
  892. 13032 [159]15,8,15
  893. 13035 [159]2,8,2,TN$[170]"S,R"
  894. 13040 [141]21710:[139]DP[178]1[167]13100
  895. 13050 [132]2,SP
  896. 13055 [141]20960:[139]DP[178]1[167]13100
  897. 13060 [129]X[178]1[164]MA
  898. 13070 [132]2,MA$(X),AN(X),GW(X),US(X)
  899. 13072 [132]2,VL(X),PH(X),PA(X),TH(X)
  900. 13074 [132]2,TA(X),TD(X),PD(X)
  901. 13092 [130]
  902. 13100 [160]2
  903. 13110 [141]20960
  904. 13120 [142]
  905. 19999 :
  906. 20000 [143] * REVERS-MENUE *
  907. 20005 :
  908. 20010 [129]X[178]1[164]9
  909. 20011 C$(X)[178]""
  910. 20015 [130]
  911. 20019 [141]20100
  912. 20020 C$(C)[178]""
  913. 20025 [141]20100
  914. 20030 [141]20410
  915. 20035 [161]Q$:Q[178][198](Q$)
  916. 20040 [139]Q[178]17[167]20070
  917. 20045 [139]Q[178]29[167]20075
  918. 20050 [139]Q[178]13[167]20130
  919. 20055 [139]Q[178]94[167]DP[178]1:[142]
  920. 20060 [137]20030
  921. 20070 C$(C)[178]"":[141]20100:C[178]C[170]1:[137]20080
  922. 20075 C$(C)[178]"":[141]20100:C[178]C[171]1:[137]20080
  923. 20080 [139]C[177]RA[167]C[178]1
  924. 20090 [139]C[179]1[167]C[178]RA
  925. 20095 [137]20020
  926. 20100 J[178]0:[129]I[178]1[164]RA
  927. 20110 RL[178][195](R$(I)):X[178][181]((39[171]RL)[173]2)
  928. 20120 [158]CU,X,Y[170]J:[153]C$(I)" "R$(I)" "
  929. 20125 J[178]J[170]2:[130]
  930. 20130 [142]
  931. 20199 :
  932. 20200 [143] * GET ROUTINE *
  933. 20201 :
  934. 20205 KK[178]47:GK[178]58:KG[178]KK:GG[178]GK:[137]20215
  935. 20210 KK[178]31:GK[178]96:KG[178]192:GG[178]219
  936. 20215 Z[178]Z[171]1:G[178]X[170]Z:SA[178]0
  937. 20220 :
  938. 20225 :
  939. 20230 :
  940. 20231 [158]CU,X,Y:[153]AA$
  941. 20235 [139]X[177]G[167]X[178]G
  942. 20240 [139]X[179]G[171]Z[167]X[178]G[171]Z
  943. 20245 ZS[178]1024[170]X[170]40[172]Y
  944. 20250 ZI[178][194](ZS)
  945. 20255 [151]ZS,ZI[170]128
  946. 20260 [151]198,0:[146]198,1
  947. 20265 [161]Q$:Q[178][198](Q$)
  948. 20270 [139]Q[178] 29[167]20330
  949. 20275 [139]Q[178]157[167]20335
  950. 20280 [139]Q[178] 20[167]20310
  951. 20285 [139]Q[178]148[167]20350
  952. 20290 [139]Q[178] 13[167]20370
  953. 20291 [139]Q[178] 94[167]DP[178]1:[151]ZS,ZI:[142]
  954. 20295 [139]Q[177]KK[175]Q[179]GK[167]20340
  955. 20300 [139]Q[177]KG[175]Q[179]GG[167]20340
  956. 20305 [137]20260
  957. 20310 [139]X[178]G[171]Z[167]20260
  958. 20315 [141]20342
  959. 20320 [158]CU,X[171]1,Y:[153]AA$;" "
  960. 20325 X[178]X[171]1:[137]20235
  961. 20330 [151]ZS,ZI:X[178]X[170]1:[137]20235
  962. 20335 [151]ZS,ZI:X[178]X[171]1:[137]20235
  963. 20340 [158]CU,X,Y:[153]Q$
  964. 20341 X[178]X[170]1:[137]20235
  965. 20342 AA$[178]"":[159]1,3
  966. 20343 [129]I[178]X[164]G
  967. 20345 [158]CU,I,Y:[161]#1,A$
  968. 20346 AA$[178]AA$[170]A$
  969. 20347 [130]:[160]1:[142]
  970. 20350 [141]20342
  971. 20355 [139][201](AA$,1)[179][177]" "[167]20260
  972. 20360 [158]CU,X,Y:[153]" "[200](AA$,[195](AA$)[171]1)
  973. 20365 [137]20235
  974. 20370 SA[178]0:AA$[178]"":[159]1,3
  975. 20371 [129]I[178]G[164]G[171]Z[169][171]1
  976. 20375 [158]CU,I,Y:[161]#1,A$
  977. 20376 [139]SA[178]1[167]20385
  978. 20380 [139]A$[178]" "[167]20390
  979. 20382 SA[178]1
  980. 20385 AA$[178]A$[170]AA$
  981. 20390 [130]:[160]1:[151]ZS,ZI
  982. 20395 [142]
  983. 20399 :
  984. 20400 [143] * TASTENDRUCK *
  985. 20405 :
  986. 20410 [151]198,0:[146]198,1
  987. 20420 [142]
  988. 20449 :
  989. 20450 [143] * FEHLER *
  990. 20455 :
  991. 20460 SI[178]54272
  992. 20465 [151]SI[170]24,15
  993. 20470 [151]SI[170]5,15
  994. 20475 [151]SI[170]6,0
  995. 20480 [151]SI[170]2,0
  996. 20485 [151]SI[170]3,8
  997. 20490 [151]SI,1
  998. 20495 [151]SI[170]1,10
  999. 20500 [151]SI[170]4,33
  1000. 20505 [129]X[178]1[164]300:[130]X
  1001. 20510 [151]SI[170]4,0
  1002. 20520 [141]20410
  1003. 20530 [142]
  1004. 20549 :
  1005. 20550 [143] * BILDSCHIRM-LOESCHEN *
  1006. 20555 :
  1007. 20560 [129]X[178]5[164]23
  1008. 20570 [151]781,X:[158]59903
  1009. 20580 [130]X
  1010. 20590 [142]
  1011. 20599 :
  1012. 20600 [143] * DISK EINLEGEN *
  1013. 20605 :
  1014. 20610 DE$[178]"STR$ATENDISKETTE"
  1015. 20615 [141]20560
  1016. 20616 [158]CU,11,12:[153]"PEEKITTE LEGEN (null)IE DIE"
  1017. 20620 [158]CU,9,14:[153]" ";DE$;" WAIT EIN UND"
  1018. 20630 [158]CU,12,16:[153]"DRUECKEN [(null)VAL(null)(null)(null)(null)]."
  1019. 20640 [141]20410
  1020. 20650 [161]Q$:Q[178][198](Q$)
  1021. 20660 [139]Q[178]94[167]DP[178]2:[142]
  1022. 20670 [139]Q[178]13[167][142]
  1023. 20680 [137]20640
  1024. 20699 :
  1025. 20700 [143] * FLOPPY DEVICE *
  1026. 20701 :
  1027. 20710 [151]768,185
  1028. 20720 [159]15,8,15,"I":[160]15
  1029. 20730 [151]768,139
  1030. 20740 [139]ST[179][177][171]128[167]20775
  1031. 20750 [158]CU,9,1:[153]"PEEKITTE ASCLOPPY ANSTELLEN.WAIT"
  1032. 20760 [141]20460
  1033. 20770 [141]21010
  1034. 20771 DP[178]1:[142]
  1035. 20775 [159]15,8,15
  1036. 20776 [141]20960:[139]DP[178]1[167][142]
  1037. 20780 [160]15:[142]
  1038. 20789 :
  1039. 20790 [143] * DATENDISKETTE PRUEFEN *
  1040. 20791 :
  1041. 20800 D$[178]"":[159]20,8,15
  1042. 20810 [159]21,8,2,"#"
  1043. 20820 [152]20,"U1 2 0 18 0"
  1044. 20830 [152]20,"B-P 2 144"
  1045. 20836 [129]X[178]1[164]16
  1046. 20837 [161]#21,A$
  1047. 20840 [139]A$[178][199](160)[167]20870
  1048. 20850 D$[178]D$[170]A$
  1049. 20860 [130]
  1050. 20870 [160]21:[160]20
  1051. 20905 [139]D$[178]"LB-DATA"[167][142]
  1052. 20910 [158]CU,6,1:[153]"STR$IES IST KEINE STR$ATENDISKETTE.WAIT"
  1053. 20920 [141]20460
  1054. 20930 [141]21010
  1055. 20940 DP[178]1:[142]
  1056. 20949 :
  1057. 20950 [143] * DISK FEHLER *
  1058. 20955 :
  1059. 20960 [132]15,EN,EM$,ET,ES
  1060. 20962 [139]EN[178]0[167]DE[178]0:[142]
  1061. 20963 [139]EN[178]1[167]EN[178]0
  1062. 20964 [139]EN[178]DE[167]DE[178]0:[142]
  1063. 20965 :
  1064. 20970 [158]CU,1,1:[153]"STR$ISK-ASCEHLER: ";EM$
  1065. 20975 [141]20460
  1066. 20980 [141]21010
  1067. 20985 DE[178]0:DP[178]1:[142]
  1068. 20999 :
  1069. 21000 [143] * FEHLER-LOESCHEN *
  1070. 21005 :
  1071. 21010 [158]CU,0,1:[153]"                                        WAIT"
  1072. 21020 [142]
  1073. 21149 :
  1074. 21150 [143] * SPIELTAG *
  1075. 21155 :
  1076. 21160 [141]20560
  1077. 21161 [158]CU,26,0:[153]"                    "
  1078. 21162 [158]CU,16,7:[153]"(null)PIELTAG:"
  1079. 21163 [158]CU,18,8:[153]"ANDANDANDAND"
  1080. 21164 [158]CU,17,9:[153]"+    SGN"
  1081. 21165 [158]CU,18,10:[153]"USRUSRUSRUSR"
  1082. 21170 AA$[178]"":X[178]19:Y[178]9:Z[178]2:[141]20205
  1083. 21174 [139]DP[178]1[167]SE[178]0:[142]
  1084. 21175 SP[178][197](AA$)
  1085. 21176 [139]SE[178]1[175]SP[177]MA[171]1[167]21161
  1086. 21180 [139]SP[179]1[176]SP[177](MA[171]1)[172]2[167]21161
  1087. 21185 [158]CU,26,0:[153]"(null)PIELTAG:   CMDCMDCMD";SP
  1088. 21186 SG[178]SP
  1089. 21187 [139]SP[177]MA[171]1[167]SP[178]SP[171](MA[171]1):W[178]1
  1090. 21188 SP$[178][201](" "[170][196](SP),2)
  1091. 21189 SG$[178][201](" "[170][196](SG),2)
  1092. 21190 SE[178]0:[142]
  1093. 21199 :
  1094. 21200 [143] * DRUCKER DEVICE *
  1095. 21201 :
  1096. 21210 [159]4,4
  1097. 21220 [151]768,185
  1098. 21230 [152]4:[160]4
  1099. 21240 [151]768,139
  1100. 21250 [139]ST[179][177][171]128[167][142]
  1101. 21260 [158]CU,9,1:[153]"PEEKITTE STR$RUCKER ANSTELLEN.WAIT"
  1102. 21270 [141]20460
  1103. 21275 [141]21010
  1104. 21280 [141]20410
  1105. 21290 [161]Q$:Q[178][198](Q$)
  1106. 21295 [139]Q[178]13[167]DP[178]1:[142]
  1107. 21300 [139]Q[178]94[167]5010
  1108. 21310 [137]21280
  1109. 21499 :
  1110. 21500 [143] * UEBERSCHREIBEN ? *
  1111. 21501 :
  1112. 21510 WR$[178]"":WR[178]0
  1113. 21515 DE[178]63:[141]20960
  1114. 21520 [139]EN[178]63[167]21545
  1115. 21530 [139]DP[178]1[167][142]
  1116. 21540 [142]
  1117. 21545 UE$[178]UE$[170]" UEBERSCHREIBEN ?"
  1118. 21546 [158]CU,(39[171][195](UE$))[173]2,1:[153]""UE$
  1119. 21550 [141]20460
  1120. 21570 [161]Q$:Q[178][198](Q$)
  1121. 21580 [139]Q[178]13[167]WR$[178]"@:":[141]21010:WR[178]1:[142]
  1122. 21590 [139]Q[178]94[167]DP[178]1:[141]21010:[142]
  1123. 21600 [137]21550
  1124. 21699 :
  1125. 21700 [143] * EXISTIERT NICHT *
  1126. 21701 :
  1127. 21710 DE[178]62:[141]20960
  1128. 21720 [139]EN[178]62[167]21745
  1129. 21730 [139]DP[178]1[167][142]
  1130. 21740 [142]
  1131. 21745 UE$[178]UE$[170]" EXISTIERT NICHT."
  1132. 21746 [158]CU,(39[171][195](UE$))[173]2,1:[153]""UE$
  1133. 21750 [141]20460
  1134. 21765 [141]21010
  1135. 21770 DP[178]1:[142]
  1136. 21799 :
  1137. 21800 [143] * TABELLENNAME *
  1138. 21801 :
  1139. 21810 [141]20560
  1140. 21820 [158]CU,12,7:[153]"(null)AME DER (null)ABELLE:"
  1141. 21830 [158]CU,13,9:[153]"ANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND"
  1142. 21831 [158]CU,12,10:[153]"+               SGN"
  1143. 21832 [158]CU,13,11:[153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  1144. 21835 AA$[178]T$:X[178]14:Y[178]10:Z[178]13:[141]20210
  1145. 21840 [139]DP[178]1[167]DP[178]2:[142]
  1146. 21850 AA$[178][200](AA$[170][200](I$,13),13)
  1147. 21855 T$[178]AA$
  1148. 21860 TN$[178]T$[170]" /T"
  1149. 21880 [142]
  1150.