home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64 / -girokonto (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  414 lines
  1. 2 rem-------------------------------
  2. 4 rem abrechnung girokonto
  3. 6 rem-------------------------------
  4. 8 :
  5. 10 rem  bu$(x)  = eine kompl. buchung
  6. 12 rem bu$ = aktuelle buchung
  7. 14 rem ei= einname
  8. 16 rem au= ausgabe
  9. 18 rem su= summe
  10. 20 rem kz$= fusszeile
  11. 22 rem l1$,l2$ = striche
  12. 24 rem tr,tr$  = transfer
  13. 26 rem b1,b1$  = barabhebung
  14. 28 rem e1,e1$  = euroscheck
  15. 30 rem u1,u1$  = ueberweisung
  16. 32 rem d1,d1$  = dauerauftrag
  17. 34 :
  18. 36 rem az$= auszug nr.
  19. 38 rem da$= datum der buchung
  20. 40 rem be$= betrag der buchung
  21. 42 rem
  22. 44 rem k1$= kopfzeile
  23. 46 rem k2$= kopfzeile 2. zeile
  24. 48 rem kz$= menuezeile
  25. 50 rem zw$= zweck
  26. 90 :
  27. 92 :
  28. 100 rem-----------------------------
  29. 110 rem  initialisierung
  30. 120 rem-----------------------------
  31. 130 poke53281,0:poke53280,0
  32. 140 gosub 5000:rem init variable
  33. 150 gosub 11000:rem maske
  34. 160 gosub 530:rem vorgabe laden
  35. 170 goto 1000:rem hauptmenue
  36. 180 :
  37. 500 rem------------------------------
  38. 510 rem  laden der vorgabe datei
  39. 520 rem------------------------------
  40. 530 :
  41. 540 close2: open2,8,2,"vorgabe,s,r"
  42. 550 gosub10000:ifa1<>0thenprinta1;a2$:goto540
  43. 560 input#2,da$(1,0)
  44. 570 fori=1to val(da$(1,0)):input#2,da$(1,i):next
  45. 580 input#2,da$(2,0)
  46. 590 fori=1to val(da$(2,0)):input#2,da$(2,i):next
  47. 600 input#2,da$(3,0)
  48. 610 fori=1to val(da$(3,0)):input#2,da$(3,i):next
  49. 620 close2
  50. 630 return
  51. 640 :
  52. 650 rem------------------------------
  53. 660 rem  monat laden
  54. 670 :
  55. 680 close2: open2,8,2,mo$+",s,r"
  56. 690 gosub10000:ifa1=62then810
  57. 700 if a1<>0 and a1<>62 then 680
  58. 710 input#2,bu$(0)
  59. 720 fori=min to val(bu$(0)):input#2,bu$(i):next
  60. 730 input#2,ei$:ei=val(ei$)
  61. 740 input#2,au$:au=val(au$)
  62. 750 input#2,su$:su=val(su$)
  63. 760 input#2,tr$:tr=val(tr$)
  64. 770 input#2,b1$:b1=val(b1$)
  65. 780 input#2,e1$:e1=val(e1$)
  66. 790 input#2,u1$:u1=val(u1$)
  67. 800 input#2,d1$:d1=val(d1$)
  68. 810 close2
  69. 820 return
  70. 1000 rem--------------------------
  71. 1010 rem menue
  72. 1020 rem--------------------------
  73. 1030 :
  74. 1040 :
  75. 1050 (NULL)12,2,     "[208] o s t g i r o"
  76. 1060 (NULL) 5,5,"                             "
  77. 1070 (NULL)5,8,"1 = [197]ingabe
  78. 1080 [206]5,10,"2 = atnusgabe   "
  79. 1090 [206]5,12,"                 "
  80. 1100 [206]5,14,"0 = valnde      "
  81. 1110 [206] 5,22,"(NULL)ahl: ";
  82. 1120 [213]1,"120",w$
  83. 1130 [139]w$[178]"1"[167] [156]:[141]4710:[141]530:[141]8000:[141]670:[141] 2000:[141]7000
  84. 1140 [139]w$[178]"2"[167] [141]8000:[141]670:[141] 3500
  85. 1150 [139]w$[178]"3"[167] [141] 4000
  86. 1160 [139]w$[178]"0"[167] [128]
  87. 1170 [153]"load":[141]11000:[137]1040
  88. 1180 :
  89. 2000 [143]--------------------------
  90. 2010 [143] eingabe
  91. 2020 [143]--------------------------
  92. 2030 i1[178][197](bu$(0))
  93. 2040 az$[178][200](bu$(i1),3)
  94. 2050 [139]i1[179]2[167]i1[178]2
  95. 2060 [153]"load":i1[178]i1[170]1:[141]3030:i1[178]i1[171]1
  96. 2070 kz$[178]"    valingabe   atnendern   (NULL)uit":[141] 6000
  97. 2080 [213]0,"eaq",rr$
  98. 2090 [139]rr$[178]"q" [167]  [142]
  99. 2100 [139]rr$[178]"a"[175] i1[177][178] min  [167]  bu$[178]bu$(i1):[137] 2550
  100. 2110 [139]rr$[178]"a" [167] 2080
  101. 2120 [153]"load"
  102. 2130 i1[178]i1[170]1
  103. 2140 [141] 3030:[143] kopfzeile und letzte buchungen anzeigen
  104. 2150 [139]a2[178]1 [167] 2170
  105. 2160 az$[178][202]([196]([197](az$)[170]1),2)
  106. 2170 [206] 1,6,"";:[204] az$,". ",3,az$:[139]az$[178]""[167] az$[178]"..."
  107. 2180 [206] 6,6,"";:[204] da$,". ",8,da$:[139] da$[178]""[167] da$[178]"  .  .  "
  108. 2190 [141] 6000:[143] fusszeile
  109. 2200 [206]15,6,"";:[213]1,"beudpt",r$
  110. 2210 [141]6060:[143] fusszeile aus
  111. 2220 [139]r$[178]"d"[167] [141] 2720:[137] 2290: [143] dauer
  112. 2230 [139]r$[178]"p"[167] [141] 2730:[137]2290:  [143] einkommen
  113. 2240 [139]r$[178]"t"[167] [141] 2740:[137]2290:[143] transfer/sparen
  114. 2250 be$[178]""
  115. 2260 [139]r$[178]"b"[167] zw$[178]"peekar"
  116. 2270 [139]r$[178]"e"[167] zw$[178]"valuro":[141]2770
  117. 2280 [139]r$[178]"u"[167] zw$[178]"(NULL)ebrwsg":[141]2810
  118. 2290 [206]15,6,"" ;:[204] zw$," ",10,zw$
  119. 2300 [206]26,6,""; :[204] be$ ,". ",9,be$
  120. 2310 x$[178]be$ :[141] 4660:be[178]x:be$[178]x$ :[139]be[177]99999 [167]be$[178]" ":[137] 2300
  121. 2320 [139]r$[178]"p"[167] ei[178]ei[170]be:x[178]ei:[141]4650:ei[178]x:ei$[178]x$ :[137]2390
  122. 2330 [139]r$[178]"t"[167] tr[178]tr[170]be:[137] 2440
  123. 2340 [139]r$[178]"b"[167] b1[178]b1[170]be
  124. 2350 [139]r$[178]"d"[167] d1[178]d1[170]be
  125. 2360 [139]r$[178]"e"[167] e1[178]e1[170]be
  126. 2370 [139]r$[178]"u"[167] u1[178]u1[170]be
  127. 2380 ausgabe[178]au[170]be:x[178]au:[141]4650:au$[178]x$:au[178]x
  128. 2390 summe  [178]ei[171]au:x[178]su:[141]4650:su$[178]x$:su[178]x
  129. 2400 [143]  k1$="    valinahmen    atnusgaben    (NULL)umme "
  130. 2410 k2$[178]"      "[170]ei$ [170]"  "[170]au$[170]"  "[170]su$:[141]6110
  131. 2420 :
  132. 2430 :
  133. 2440 bu$[178][200](az$[170]l3$,5)[170][200](da$[170]l3$,9)[170][200](zw$[170]l3$,11)[170][201](l3$[170]be$,9)
  134. 2450 [139]r$[178]"p"[167] bu$[178]bu$[170]"+"
  135. 2460 [139]r$[178]"t"[167] bu$[178]bu$[170]">                    "[170]ew$
  136. 2470 [139]r$[178]"e"[167] bu$[178]bu$[170]"  vallen "[170]ec$[170]" "[170]ez$[170]" "[170]ew$
  137. 2480 [139]r$[178]"u"[167] bu$[178]bu$[170]"  (NULL)val     "[170]ez$[170]" "[170]ew$
  138. 2490 [139]r$[178]"b"[167] bu$[178]bu$[170]"  (NULL)"
  139. 2500 [139]r$[178]"d"[167] bu$[178]bu$[170]"  str$atn     "[170]l3$[170]ew$
  140. 2510 [139] a2[178]1 [167] [142]:[143] wenn aendern
  141. 2520 kz$[178]" valingabe  (NULL)uit  (NULL)ochmal  atnendern   ":[141]6000
  142. 2530 [213]0,"eqna",rr$
  143. 2540 [139]rr$[178]"e"[167] bu$(i1)[178]bu$:[137]2120
  144. 2550 [139]rr$[178]"a" [175] i1[177][178]min [167] [141]4000:[137]2520:  [143] aendern
  145. 2560 [139]rr$[178]"q"[167] 2660
  146. 2570 az$[178][196]([197](az$)[171]1)
  147. 2580 [139] r$[178]"t" [167] tr[178]tr[171]be:[137]2610
  148. 2590 [139] r$[178]"p" [167] su[178]su[171]be:ei[178]ei[171]be:[137]2610
  149. 2600 su[178]su[170]be:au[178]au[171]be
  150. 2602 [139] r$[178]"d" [167] d1[178]d1[171]be
  151. 2604 [139] r$[178]"e" [167] e1[178]e1[171]be
  152. 2605 [139] r$[178]"u" [167] u1[178]u1[171]be
  153. 2606 [139] r$[178]"b" [167] b1[178]b1[171]be
  154. 2610 [141]4550:[143] zahlen formatieren
  155. 2620 :
  156. 2630 i1[178]i1[171]1
  157. 2640 [137]2120
  158. 2650 [143]-----------------------------
  159. 2660 bu$(i1)[178]bu$
  160. 2670 bu$(0)[178][196](i1)
  161. 2680 [142]
  162. 2690 :
  163. 2700 [143]-------------------------------
  164. 2710 :
  165. 2720 d[178]1:za[178]7:zl[178]6:ba[178]28:bl[178]9:[141]2900:[143] dauerauftrag
  166. 2725 ew$[178][202](da$(d,zw[170]1),15,11):[142]
  167. 2730 d[178]2:za[178]1:zl[178]8:ba[178]28:bl[178]9:[141]2900:[142]::[143] einkommen
  168. 2740 d[178]3:za[178]27:zl[178]8:ba[178]1 :bl[178]0:[141]2900:[143] transfer/sparen
  169. 2750 ew$[178][202](da$(d,zw[170]1),1,25)
  170. 2760 [142]
  171. 2770 [143]-------  euroscheck + ueberweisg--
  172. 2780 [207]0,10,39,22,32,0
  173. 2790 [206]10,10,zw$
  174. 2800 [206]2,12,"vallen-(NULL)r. = ";:[204]"..."," ",3,ec$
  175. 2810 [206]2,13,"(NULL)weck  = ";:[204]""," ",15,ez$
  176. 2820 ez$[178][200](ez$[170]l3$,15)
  177. 2830 [206]2,14,"an wen : ";:[204]""," ",15,ew$
  178. 2840 ew$[178][200](ew$[170]l3$,15)
  179. 2850 [142]
  180. 2860 :
  181. 2870 :
  182. 2880 [143]-- vorgabedaten anzeigen ------
  183. 2890 :
  184. 2900 [129]i[178]2[164] [197](da$(d,0)):[206]0,10[170]i,""i[171]1"wait";da$(d,i):[130]
  185. 2910 [206]3,10 ,da$(d,1)
  186. 2920 [206]15,6,"";:[213]1,"",zw
  187. 2930 [139]zw[177][178][197](da$(d,0))[176]zw[178]0 [167]2920
  188. 2940 zw$[178][202](da$(d,zw[170]1),za,zl)
  189. 2950 be$[178][202](da$(d,zw[170]1),ba,bl)
  190. 2960 [207]0,10,39,22,32,0
  191. 2970 [206]15,6,zw$;
  192. 2980 [206]26,6,be$;
  193. 2990 [142]
  194. 3000 [143]*******************************
  195. 3010 [143]  letzte buchungen anzeigen
  196. 3020 [143]*******************************
  197. 3030 :
  198. 3040 k1$[178]"    valinahmen    atnusgaben    (NULL)umme "
  199. 3050 k2$[178]"      "[170]ei$ [170]"  "[170]au$[170]"  "[170]su$:[141]6110
  200. 3060 kz$[178]"peekar valuro (NULL)wsg str$auer (NULL)lus (NULL)rans"
  201. 3070 [206] 1,4,"atnszg str$atum    (NULL)weck      peeketrag"
  202. 3080 [206] 1,5,l1$
  203. 3090 [206] 1,9,l2$
  204. 3100 [206] 1,7,[200](bu$(i1[171]1),36)
  205. 3110 [206] 1,8,[200](bu$(i1[171]2),36)
  206. 3120 [142]
  207. 3130 :
  208. 3500 [143]*******************************
  209. 3510 [143]    ausgabe
  210. 3520 [143]*******************************
  211. 3530 l4$[178]"": [129]i[178]1[164]10:l4$[178]l4$[170]"--------":[130]
  212. 3540 [153] :[153]
  213. 3550 kz$[178]"  str$rucken atnnzeigen ":[141]6000
  214. 3560 [213]1,"da",r$
  215. 3570 ga[178]3: [139]r$[178]"d"[167] ga[178]4
  216. 3580 [159]1,ga,7:[139] ga[178]3[167] l4$[178][200](l4$,39)
  217. 3590 [152]1,"load" [166]20)"atn peek (NULL) valcloselencloseleft$close(NULL)close(NULL)close(NULL)closechr$  close" mo$:[152]1:[152]1,l4$
  218. 3600 [152]1,"(NULL)r.  str$atum    atnrt           peeketrag";:[139]ga[178]3[167] [152]1
  219. 3605 [139]ga[178]4 [167]  [152]1,"  vallen-(NULL)r. (NULL)as"[166]13)"valmpfaenger"
  220. 3610 [152]1 : [152]1,l4$
  221. 3620 [139]ga[178]4[167] [129]i[178]min [164] [197](bu$(0)):[152]1,bu$(i):[130]:[137]3660
  222. 3630 [129]i[178]min [164] [197](bu$(0)):[152]1,[200](bu$(i),36)
  223. 3640 :  [139](i[173]15)[171]([181](i[173]15))[178]0 [167]:[153]:[153]"(NULL)aste ";:[213]1," ",r$:[153]
  224. 3650 [130]
  225. 3660 [152]1,l4$
  226. 3670 [141]4550
  227. 3680 [139] ga[178]3[167][153]" (NULL)aste wait";:[151]198,0:[146]198,1:[153]"load"
  228. 3685 [206]10,2,"val r g e b n i s s e ":[153]l1$:[152]1
  229. 3690 [152]1,[166]13)  "valinnahmen = "ei$
  230. 3700 [152]1,[166]13)  "atnusgaben  = "au$
  231. 3710 [152]1,:[152]1,[166]13) "(NULL)aldo     = "su$
  232. 3720 [152]1:[152]1:[152]1
  233. 3725 [152]1," atnusgaben im str$etail:"
  234. 3727 [152]1,"--------------------":[152]1
  235. 3730 [152]1,[166]5 ) "(NULL)ransfer     = "tr$
  236. 3740 [152]1,[166]5 ) "peekar          = "b1$
  237. 3750 [152]1,[166]5 ) "valuroscheck   = "e1$
  238. 3760 [152]1,[166]5 ) "(NULL)eberweisung = "u1$
  239. 3770 [152]1,[166]5 ) "str$auerauftrag = "d1$
  240. 3780 [152]1:[152]1:[160]1
  241. 3790 [153]l1$:[153]
  242. 3800 [139] ga[178]3 [167] [151]198,0:[146]198,1
  243. 3810 [142]
  244. 4000 [143]******************************
  245. 4010 [143] aendern buchung
  246. 4020 [143]******************************
  247. 4030 :
  248. 4040 bu$(i1)[178]bu$
  249. 4050 a2[178]1:[143] flag fuer aendern setzen
  250. 4060 i2[178]i1:[143] index i1 retten
  251. 4070 b2$[178]bu$:[143] letzte buchung retten
  252. 4080 [153]"load":[151]53281,9
  253. 4090 k1$[178]"          atnendern peekuchung"
  254. 4100 [141] 6110:[143]  kopfzeile
  255. 4110 kz$[178]"   (crsr-down/up)  atnendern    valnde":[141]6000
  256. 4120 [206]0,16,"waittantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  257. 4130 [206]0,18,"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan"
  258. 4140 [139]i1[179]min [167] i1[178]min
  259. 4150 [139]i1[177]i2[167] i1[178]i2
  260. 4160 [208] 0,17,39,32,3,[200](bu$(i1),39)
  261. 4170 :
  262. 4180 [213]0,"onae",r1$
  263. 4190 [139] r1$[178]"on" [175] i1[177]min [167] i1[178]i1[171]1:[143] crsd up
  264. 4200 [139] r1$[178]"" [175] i1[179]i2 [167] i1[178]i1[170]1:[143] crsd down
  265. 4210 [139] r1$[178]"e" [167] 4420:[143] quit
  266. 4220 [139] r1$[179][177]"a" [167] 4140
  267. 4230 [143] aendern
  268. 4240 :
  269. 4250 az$[178][200](bu$(i1),3):[143] auszug
  270. 4260 da$[178][202](bu$(i1),6,8):[143] datum
  271. 4270 zw$[178][202](bu$(i1),15,10):[143] zweck
  272. 4280 be$[178][202](bu$(i1),26, 9):[143] betrag
  273. 4290 be[178][197](be$)
  274. 4300 [139] [202](bu$(i1),35,1)[178]">" [167] tr[178]tr[171]be:[137]4370:[143] transfer
  275. 4310 [139] [202](bu$(i1),35,1)[178]"+"[167]su[178]su[171]be:ei[178]ei[171]be:[137]4370:[143] summe+einnahme
  276. 4320 [139] [202](bu$(i1),37,2)[178]"vallen"[167] e1[178]e1[171]be
  277. 4330 [139] [202](bu$(i1),37,2)[178]"(NULL)val"[167] u1[178]u1[171]be
  278. 4340 [139] [202](bu$(i1),37,2)[178]"(NULL) "[167] b1[178]b1[171]be
  279. 4350 [139] [202](bu$(i1),37,2)[178]"str$atn"[167]d1[178]d1[171]be
  280. 4360 su[178]su[170]be:au[178]au[171]be:[143] summe+ausgabe
  281. 4370 [141]4550:[143] formatieren
  282. 4380 [141] 2140:[143] eingabe
  283. 4390 bu$(i1)[178]bu$
  284. 4400 [137] 4080
  285. 4410 [143]-----------------------------
  286. 4420 [151]53281,0
  287. 4430 [139]i1[179][177]i2[167]bu$[178]b2$:[143] letzte buchung holen
  288. 4440 a2[178]0:[143] flag fuer aendern loeschen
  289. 4450 i1[178]i2:[143] index i1 zurueckholen
  290. 4460 k1$[178]"    valinahmen    atnusgaben    (NULL)umme ":[141] 6110
  291. 4470 i1[178]i1[170]1:[141] 3030:i1[178]i1[171]1: [143] anz.letzte buch.
  292. 4480 [207]0,10,39,18,32,0
  293. 4490 [142]
  294. 4500 :
  295. 4510 [143]*****************************
  296. 4520 [143]  zahl formatieren          -
  297. 4530 [143]*****************************
  298. 4540 :
  299. 4550 x[178]su:[141]4650:su$[178]x$:su[178]x
  300. 4560 x[178]au:[141]4650:au$[178]x$:au[178]x
  301. 4570 x[178]ei:[141]4650:ei$[178]x$:ei[178]x
  302. 4580 x[178]tr:[141]4650:tr$[178]x$:tr[178]x
  303. 4590 x[178]b1:[141]4650:b1$[178]x$:b1[178]x
  304. 4600 x[178]e1:[141]4650:e1$[178]x$:e1[178]x
  305. 4610 x[178]u1:[141]4650:u1$[178]x$:u1[178]x
  306. 4620 x[178]d1:[141]4650:d1$[178]x$:d1[178]x
  307. 4630 [142]
  308. 4640 :
  309. 4650 x$[178][196](x)
  310. 4660 x [178][181]([197](x$)[172]100[170].5)[173]100:x$[178][196](x)
  311. 4670 [139]x [171][181](x)[178]0 [167] x$[178] x$[170]".00":[137]4690
  312. 4680 [139]x[172]10[171][181](x[172]10[170].5)[178] 00  [167] x$[178]x$[170]"0"
  313. 4690 x$[178][201](l3$[170]x$,9)
  314. 4700 [142]
  315. 4710 :
  316. 5000 [143]*****************************
  317. 5010 [143] init variable
  318. 5020 [143]*****************************
  319. 5030 :
  320. 5040 [159]15,8,15
  321. 5050 ei$[178]"0.00":au$[178]"0.00":su$[178]"0.00"
  322. 5060 [134] da$(3,15),bu$(60)
  323. 5070 l1$[178]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  324. 5080 l2$[178]"tototototototototototototototototototototototototototototototototototototo"
  325. 5090 l3$[178]"                "
  326. 5100 [218]"i"
  327. 5110 min[178]3
  328. 5120 [141] 4500
  329. 5130 [142]
  330. 5140 :
  331. 6000 [143]****************************
  332. 6010 [143] kontrollzeile fuss
  333. 6020 [143]****************************
  334. 6030 :
  335. 6040 [208]0,24,40,160,5,"";kz$;:[153]"open";
  336. 6050 [142]
  337. 6060 [143]----fuss aus ---------------
  338. 6070 :
  339. 6080 [208]0,24,40,32 ,0," ";
  340. 6090 [153]"openwait";
  341. 6100 [142]
  342. 6110 [143]----------------------------
  343. 6120 [143] kopfzeile an
  344. 6130 [143]----------------------------
  345. 6140 :
  346. 6150 [208]0,0 ,40,160,5,""k1$;:[153]"waitopen";
  347. 6160 [208]0,1 ,40,160,5,""k2$;:[153]"waitopen";
  348. 6170 [142]
  349. 6180 [143]----kopfzeile aus ----------
  350. 6190 :
  351. 6200 [208]0, 0,40,32 ,0," ";
  352. 6210 [208]0, 1,40,32 ,0," ";
  353. 6220 [153]"openwait";
  354. 6230 [142]
  355. 7000 [143]****************************
  356. 7010 [143]   speichern
  357. 7020 [143]****************************
  358. 7030 :
  359. 7040 [160]2:[159]2,8,2,"@0:"[170]mo$[170]",s,w"
  360. 7050 [141]10000
  361. 7060 [143]   bu$(0)=str$(val(bu$(0))-1)
  362. 7070 [129]i[178]0[164] [197](bu$(0)):[152]2,bu$(i):[130]
  363. 7080 [141] 4550:[143] formatieren
  364. 7090 [152]2,ei$
  365. 7100 [152]2,au$
  366. 7110 [152]2,su$
  367. 7120 [152]2,tr$
  368. 7130 [152]2,b1$
  369. 7140 [152]2,e1$
  370. 7150 [152]2,u1$
  371. 7160 [152]2,d1$
  372. 7170 [160]2
  373. 7180 [142]
  374. 7190 :
  375. 8000 [143]****************************
  376. 8010 [143]   welcher monat
  377. 8020 [143]****************************
  378. 8030 [153]"load"
  379. 8040 [206] 5,3,"(NULL)onat/mid$ahr (mm/jj) = ":[153]
  380. 8050 [139]w$[178]"2"[167]:[212]0,"$:??/*",22
  381. 8060 [206] 27,3,"";
  382. 8070 [204] "  /  ","/",5,mo$
  383. 8080 [139] mo$[178]"  /"[167] 1170
  384. 8090 [160]2:[159]2,8,2,mo$[170]",s,r"
  385. 8100 [141]10000:[139]a1[179][177]0[175]a1[179][177]62   [167]kz$[178]a2$:[141]6000:[137]8040
  386. 8110 [139] a1[178]62 [175]w$[178]"2"[167]kz$[178]a2$:[141]6000:[137]8040
  387. 8120 [160]2
  388. 8130 [142]
  389. 10000 [143]****************************
  390. 10010 [143]   floppy fehler
  391. 10020 [143]****************************
  392. 10030 :
  393. 10040 [217] (a1,a2$)
  394. 10050 [139] a1[178]0 [167] [142]
  395. 10060 [139] a1[178]62 [167] [142]
  396. 10070 kz$[178]" ascehler "[170]a2$ :[141] 6000
  397. 10075 k2$[178]"    str$ruecke (NULL)aste ":[141] 6110
  398. 10080 [213]1," ",r$
  399. 10085 [141]6060:[141]6180
  400. 10090 [142]
  401. 11000 [143]****************************
  402. 11010 [143]  maske
  403. 11020 [143]****************************
  404. 11030 :
  405. 11040 [153]"load"
  406. 11050 [206]0,0,"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^"
  407. 11060 [129]i[178]1[164]23:[153]"(NULL)                                     (NULL)" :[130]
  408. 11070 [206]0,24,"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp";
  409. 11080 [206]0,3 ,"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  410. 11090 [206]0,20,"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<";
  411. 11111 [142]
  412. 12000 [143] *****************************
  413. 12010 [143] ende
  414.