home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_B.d64 / ligabase (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.