home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64 / haushaltskasse (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  13KB  |  734 lines
  1. 1050 open15,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15)
  2. 1100 close15
  3. 1200 poke53280,15:poke53281,15
  4. 1300 ro$=chr$(28)
  5. 1350 bl$=chr$(31)
  6. 1400 pu$=chr$(156)
  7. 1450 in$=chr$(18)
  8. 1500 no$=chr$(146)
  9. 1550 ho$=chr$(147)
  10. 1600 cz$=chr$(145)
  11. 1650 y=15:x=200
  12. 1700 dima1%(12,1),a2%(12),a3%(y,12),a3$(y),a3(y,12),a4%(y,x)
  13. 1800 printchr$(14);
  14. 1850 goto2800
  15. 2100 getc$:ifc$=""then2100
  16. 2150 return
  17. 2400 printho$pu$;
  18. 2450 gosub2550
  19. 2500 printin$"       [200] [193] [213] [211] [200] [193] [204] [212] [211] [203] [193] [211] [211] [197]      ";
  20. 2550 printin$"                                        "no$;:return
  21. 2800 gosub2400
  22. 2850 printbl$
  23. 2900 print:print"  "in$" f1 "no$" = [194]uchen    "in$" [202] "no$" = [202]ournal
  24. 2950 [153]:[153]"  "in$" f3 "no$" = (NULL) o n a t s u e b e r s ."
  25. 3000 [153]:[153]"  "in$" f5 "no$" = mid$ a h r e s u e b e r s ."
  26. 3050 [153]:[153]"  "in$" f7 "no$" = val i n z e l n e s   (NULL) o n t o "
  27. 3100 [153]:[153]"  "in$" f2 "no$" = (NULL) e u b e g i n n "
  28. 3150 [153]:[153]"  "in$" f4 "no$" = (NULL) u s a t z k o n t o"
  29. 3200 [153]:[153]"  "in$" f6 "no$" = (NULL) o n a t s w e c h s e l"
  30. 3250 [153]:[153]"  "in$" f8 "no$" = val n d e"
  31. 3300 [141]2100
  32. 3350 [139][198](c$)[178]74[167]11300
  33. 3400 c[178][198](c$)[171]132:[139]c[179]1[176]c[177]8[167]3300
  34. 3450 [145]c[137]7150,13650,13650,15600,3700,20700,17550,10950
  35. 3700 [141]40300
  36. 3750 [139]f1[179][177]0[167]3300
  37. 3800 [141]2400
  38. 3850 [153]bl$:[153]
  39. 3900 a$[178]"(NULL)tartmonat als (NULL)ahl = "
  40. 3950 l[178]2
  41. 4000 [141]29500
  42. 4050 [153]cz$;
  43. 4100 [139][197](b$)[179]1[176][197](b$)[177]12[167]2800
  44. 4150 a1%(0,0)[178][197](b$)
  45. 4200 [153]:[153]
  46. 4250 a$[178]"mid$ahr = "
  47. 4300 l[178]4
  48. 4350 [141]29550
  49. 4400 a2%(0)[178][197](b$)
  50. 4450 z[178]0
  51. 4500 a1%(0,1)[178]a1%(0,0)
  52. 4550 [141]21550
  53. 4600 [141]23950
  54. 4650 [141]23250
  55. 4700 [141]27250
  56. 4750 [139][198](c$)[178]133[167]5350
  57. 4800 [139][198](c$)[178]13[167]4100
  58. 4850 [129]a[178]0[164]a2%(a1%(0,1))
  59. 4900 a3%(a,a1%(0,1))[178]0
  60. 4950 a3%(a,0)[178]0
  61. 5000 a3$(a)[178]""
  62. 5050 [130]a
  63. 5100 [137]3800
  64. 5350 [141]2400
  65. 5400 [153]bl$
  66. 5450 [153]:[153]"(NULL)ieviele peekuchungen erwarten (NULL)ie im"
  67. 5500 [153]
  68. 5550 a$[178]"(NULL)onat = "
  69. 5600 l[178]3
  70. 5650 [141]29550
  71. 5700 re[178][197](b$)
  72. 5750 [139]re[177]1[167]6050
  73. 5800 [153]:[153]"ungueltiger (NULL)ert"
  74. 5850 [129]a[178]1[164]4
  75. 5900 [153]cz$;
  76. 5950 [130]a
  77. 6000 [137]5550
  78. 6050 [153]:[153]"str$aten werden bearbeitet - bitte warten"
  79. 6100 n[178]a1%(0,1)
  80. 6150 [141]43850
  81. 6200 [141]40300
  82. 6250 [139]f1[179][177]0[167][141]28150:[141]2400:[137]6050
  83. 6300 [141]42250
  84. 6350 a$[178]a$[170]",l,"[170][199](28)
  85. 6400 [141]43200
  86. 6450 [139]f1[179][177]0[167][141]28150:[141]2400:[137]6300
  87. 6500 [141]42800
  88. 6550 [152]2,[199](255)
  89. 6600 [141]42400
  90. 6650 n[178]a1%(0,1)
  91. 6700 [141]34750
  92. 6750 a1%(a1%(0,1),0)[178]c
  93. 6800 [141]31050
  94. 6850 mm[178]1
  95. 6900 [137]2800
  96. 7150 [139]mm[179][177]0[167]7300
  97. 7200 [141]32200
  98. 7250 [139]f1[179][177]0[167]3300
  99. 7300 n[178]a1%(0,1)
  100. 7350 [141]43850
  101. 7400 [141]42250
  102. 7450 [139]mn[178]a1%(0,1)[167]7600
  103. 7500 [141]33700
  104. 7550 [139]f1[179][177]0[167][141]42400:[137]3300
  105. 7600 [141]43200
  106. 7650 [139]f1[179][177]0[167]3300
  107. 7700 [141]2400
  108. 7750 [153]bl$
  109. 7800 [153]"  ascuer peekuchungsende druecken (NULL)ie fuer ":[153]
  110. 7850 [153]"  str$atum nur die (NULL)aste >(NULL)val(NULL)(NULL)(NULL)(NULL)< ":[153]
  111. 7900 a$[178]" str$atum = "
  112. 7950 l[178]2
  113. 8000 [141]29550
  114. 8050 a%[178][197](b$)
  115. 8100 [139]a%[179][177]0[167]8350
  116. 8150 [141]42400
  117. 8200 [141]34750
  118. 8250 [141]31050
  119. 8300 [137]2800
  120. 8350 [139]a%[177]0[175]a%[179]32[167]8500
  121. 8400 [153]cz$cz$;
  122. 8450 [137]7900
  123. 8500 [153]
  124. 8550 a$[178]" (NULL)ext  = "
  125. 8600 [141]28450
  126. 8650 d$[178]b$
  127. 8700 g[178]a1%(0,1)
  128. 8750 [141]24400
  129. 8800 a$[178]" (NULL)onto (NULL)r. = "
  130. 8850 l[178]2
  131. 8900 [141]29550
  132. 8950 a[178][197](b$)
  133. 9000 [139]a[179][178]a2%(a1%(0,1))[167]9150
  134. 9050 [153]cz$cz$;
  135. 9100 [137]8800
  136. 9150 a1$[178]b$[170][201]("00"[170][196](a%),2)[170]d$
  137. 9200 [153]
  138. 9250 b$[178]"        "
  139. 9300 [153]" str$(NULL)-peeketrag = "b$
  140. 9350 [141]2100
  141. 9400 [139][198](c$)[178]13[167]9900
  142. 9450 [139][198](c$)[179][177]20[167]9700
  143. 9500 [139][195](b$)[178]0[167]9600
  144. 9550 b$[178]" "[170][201](b$,[195](b$)[171]1)
  145. 9600 [153]cz$;
  146. 9650 [137]9300
  147. 9700 [139][198](c$)[178]46[176][198](c$)[178]45[167]9800
  148. 9750 [139][198](c$)[179]48[176][198](c$)[177]57[167]9350
  149. 9800 b$[178][201](b$,7)[170]c$
  150. 9850 [137]9600
  151. 9900 b[178][181](([197](b$)[172]100)[170].5)[173]100
  152. 9950 a1$[178]a1$[170][201]("        "[170][196]([181](b[172]100)),8)
  153. 10000 a3(a,a1%(0,1))[178]a3(a,a1%(0,1))[170]b
  154. 10050 a3(a,0)[178]a3(a,0)[170]b
  155. 10100 [139]a1%(a1%(0,1),1)[179]a1%(a1%(0,1),0)[167]10350
  156. 10150 a1%(a1%(0,1),0)[178]a1%(a1%(0,1),0)[170]10
  157. 10200 re[178]a1%(a1%(0,1),0)
  158. 10250 [141]42800
  159. 10300 [152]2,[199](255)
  160. 10350 a1%(a1%(0,1),1)[178]a1%(a1%(0,1),1)[170]1
  161. 10400 re[178]a1%(a1%(0,1),1)
  162. 10450 [141]42800
  163. 10500 [152]2,a1$
  164. 10550 a4%(a,0)[178]a4%(a,0)[170]1
  165. 10600 a4%(a,a4%(a,0))[178]a1%(a1%(0,1),1)
  166. 10650 mm[178]2
  167. 10700 [137]7700
  168. 10950 [141]2400
  169. 11000 [141]42400
  170. 11050 [128]
  171. 11300 [141]25600
  172. 11350 f1[178]0:nn[178]n:[139]n[179][177]g[167]n[178]g:[141]33700
  173. 11400 [139]f1[179][177]0[167]n[178]nn:[141]42400:[141]28150:[137]2800
  174. 11450 [141]43850
  175. 11500 [141]42250
  176. 11550 [141]40300
  177. 11600 [139]f1[179][177]0[167][141]42400:[141]28150:[137]2800
  178. 11650 [141]43200
  179. 11700 [139]f1[179][177]0[167]2800
  180. 11750 [141]12950
  181. 11800 ze[178]0
  182. 11850 [129]re[178]1[164]a1%(n,1)
  183. 11900 [141]42800
  184. 11950 [132]2,a1$
  185. 12000 [139][195](a1$)[179]27[167]a1$[178]" "[170]a1$:[137]12000
  186. 12050 b[178][197]([200](a1$,2))
  187. 12100 c$[178][201]("   "[170][196](b),3)
  188. 12150 [139]b[178]0[167]c$[178]"  0"
  189. 12200 [153]c$"     "[202](a1$,3,2)".   ";
  190. 12250 [153][202](a1$,5,15);
  191. 12300 [139][197]([202](a1$,20,8))[179]0[167][153]ro$;
  192. 12350 [153][202](a1$,20,6)"."[201](a1$,2)bl$
  193. 12400 ze[178]ze[170]1
  194. 12450 [139]ze[179]15[167]12700
  195. 12500 [141]27500
  196. 12550 [139][198](c$)[178]134[167]re[178]a1%(n,1):[137]12700
  197. 12600 [141]12950
  198. 12650 ze[178]0
  199. 12700 [130]re
  200. 12750 [141]42400
  201. 12800 [139][198](c$)[178]134[167]2800
  202. 12850 [141]27500
  203. 12900 [137]2800
  204. 12950 [141]2400
  205. 13000 [153]bl$
  206. 13050 [153]"   mid$ournal  "[201]("  "[170][196](n),2)"/";
  207. 13100 c$[178][196](a2%(0))
  208. 13150 [153][201](c$,[195](c$)[171]1)
  209. 13200 [153]
  210. 13250 [153]" (NULL)to  str$atum   (NULL)ext            str$(NULL)-peeketrag"
  211. 13300 [153]
  212. 13350 [142]
  213. 13650 [139]mm[178]0[167][141]32200:[139]f1[179][177]0[167]3300
  214. 13700 [139]c[178]3[167]15050
  215. 13750 [141]2400
  216. 13800 [153]bl$
  217. 13850 [153]"  ^ = lfd. (NULL)onat":[153]
  218. 13900 [153]"  * = alle (NULL)onate":[153]
  219. 13950 [153]"  sonst (NULL)onat als (NULL)ahl":[153]:[153]
  220. 14000 b$[178]"  "
  221. 14050 [153]"       > "b$
  222. 14100 [141]2100
  223. 14150 a[178][198](c$)
  224. 14200 [139]a[178]13[167]14500
  225. 14250 [139]a[178]32[176]a[178]42[176]a[178]94[167]14350
  226. 14300 [139]a[179]48[176]a[177]57[167]14100
  227. 14350 b$[178][201](b$,1)[170]c$
  228. 14400 [153]cz$;
  229. 14450 [137]14050
  230. 14500 a[178][198]([201](b$,1))
  231. 14550 [139]a[178]94[167]g[178]a1%(0,1):[137]15100
  232. 14600 [139]a[178]42[167]14800
  233. 14650 a[178][197](b$)
  234. 14700 [139]a[179]a1%(0,0)[176]a[177]a1%(0,1)[167][153][199](145);:[137]14000
  235. 14750 g[178]a:[137]15100
  236. 14800 [129]g[178]a1%(0,0)[164]a1%(0,1)
  237. 14850 [141]15200
  238. 14900 [139][198](c$)[178]134[167]g[178]a1%(0,1)
  239. 14950 [130]g
  240. 15000 [139][198](c$)[178]134[167]2800
  241. 15050 g[178]0
  242. 15100 [141]15200
  243. 15150 [137]2800
  244. 15200 [141]23950
  245. 15250 [141]23250
  246. 15300 [141]27500
  247. 15350 [142]
  248. 15600 [141]25600
  249. 15650 [153]"   ---------------------------------"
  250. 15700 [153]
  251. 15750 [153]"   (NULL)ontonummer":[153]
  252. 15800 [153]"   * = alle (NULL)onten":[153]
  253. 15850 b$[178]"  "
  254. 15900 [153]"        > "b$
  255. 15950 [141]2100
  256. 16000 a[178][198](c$)
  257. 16050 [139]a[178]13[167]16350
  258. 16100 [139]a[178]32[176]a[178]42[167]16200
  259. 16150 [139]a[179]48[176]a[177]57[167]15950
  260. 16200 b$[178][201](b$,1)[170]c$
  261. 16250 [153]cz$;
  262. 16300 [137]15900
  263. 16350 a[178][198]([201](b$,1))
  264. 16400 [139]a[178]42[167]16550
  265. 16450 d[178][197](b$)
  266. 16500 [139]d[179]0[176]d[177]a2%(g)[167][153]cz$;:[137]15850
  267. 16550 f1[178]0:nn[178]n:[139]n[179][177]g[167]n[178]g:[141]33700
  268. 16600 [139]f1[179][177]0[167]n[178]nn:[141]42400:[141]28150:[137]2800
  269. 16650 [141]43850
  270. 16700 [141]42250
  271. 16750 [141]40300
  272. 16800 [139]f1[179][177]0[167][141]42400:[141]28150:[137]2800
  273. 16850 [159]2,8,2,"mid$ournal "[170]a$
  274. 16900 [141]40850
  275. 16950 [139]f1[179][177]0[167][141]42400:[141]28150:[137]2800
  276. 17000 [139][201](b$,1)[179][177]"*"[167][141]35600:[137]17250
  277. 17050 [129]d[178]0[164]a2%(g)
  278. 17100 [141]35600
  279. 17150 [139][198](c$)[178]134[167]d[178]a2%(g)
  280. 17200 [130]d
  281. 17250 [141]42400
  282. 17300 [137]2800
  283. 17550 [141]2400:[153]
  284. 17600 [153]bl$
  285. 17650 [153]"     (NULL)onatswechel? (mid$/(NULL))"
  286. 17700 [141]2100
  287. 17750 [139]c$[178]"n"[167]2800
  288. 17800 [139]c$[179][177]"j"[167]17700
  289. 17850 [139]mm[178]0[167][141]32200
  290. 17900 [139]a1%(0,1)[178]12[167][138]
  291. 17950 a1%(0,1)[178]a1%(0,1)[170]1
  292. 18000 [129]b[178]0[164]a2%(a1%(0,1)[171]1)
  293. 18050 [141]2400
  294. 18100 [153]bl$
  295. 18150 [153]"        (NULL) o n a t s w e c h s e l":[153]
  296. 18200 [153]b,[200](a3$(b),20)
  297. 18250 [153]
  298. 18300 [129]d[178]a1%(0,0)[164]a1%(0,1)[171]1
  299. 18350 [153]"(NULL)onat"[201]("   "[170][196](d),3);
  300. 18400 [153][201]("           "[170][196](a3%(b,d)),10);
  301. 18450 l[178]a3(b,d)
  302. 18500 [141]30500
  303. 18550 [153]a$;
  304. 18600 l[178]a3%(b,d)[171]a3(b,d)
  305. 18650 [141]30500
  306. 18700 [139]l[179]0[167][153]ro$;
  307. 18750 [153]a$bl$
  308. 18800 [130]d
  309. 18850 [153]
  310. 18900 a3%(b,a1%(0,1))[178]0
  311. 18950 a$[178]" (NULL)orgabe = "
  312. 19000 l[178]5
  313. 19050 [141]29550
  314. 19100 a3%(b,a1%(0,1))[178][197](b$)
  315. 19150 [130]b
  316. 19200 g[178]a1%(0,1)
  317. 19250 a2%(a1%(0,1))[178]a2%(a1%(0,1)[171]1)
  318. 19300 [141]23950
  319. 19350 [141]23250
  320. 19400 [141]27250
  321. 19450 [139][198](c$)[178]134[167]20250
  322. 19500 [129]a[178]0[164]a2%(a1%(0,1))
  323. 19550 a3%(a,0)[178]a3%(a,0)[170]a3%(a,a1%(0,1))
  324. 19600 [130]a
  325. 19650 [139]a1%(0,0)[178]a1%(0,1)[167]c[178]([181](a1%(a1%(0,0),1)[173]10)[170]1)[172]10:[137]6050
  326. 19700 c[178]0
  327. 19750 [129]a[178]a1%(0,0)[164]a1%(0,1)
  328. 19800 c[178]c[170]a1%(a,1)
  329. 19850 [130]a
  330. 19900 c[178]([181](c[173](a1%(0,1)[171]a1%(0,0))[173]10)[170]1)[172]10
  331. 19950 [129]a[178]0[164]y
  332. 20000 a4%(a,0)[178]0
  333. 20050 [130]a
  334. 20100 n[178]a1%(0,1)
  335. 20150 [141]34750
  336. 20200 [137]6050
  337. 20250 [129]a[178]0[164]a2%(a1%(0,1))
  338. 20300 a3%(a,a1%(0,1))[178]0
  339. 20350 [130]a
  340. 20400 a1%(0,1)[178]a1%(0,1)[171]1
  341. 20450 [137]17550
  342. 20700 [139]mm[178]0[167][141]32200
  343. 20750 [141]2400
  344. 20800 [153]:[153]bl$
  345. 20850 [153]"         (NULL) e u e   (NULL) o n t e n"
  346. 20900 [153]:[153]
  347. 20950 [139]a2%(a1%(0,1))[178]y[167]21200
  348. 21000 z[178]a2%(a1%(0,1))[170]1
  349. 21050 [141]21600
  350. 21100 [141]31050
  351. 21150 [137]2800
  352. 21200 [153]"vals sind keine (NULL)onten mehr frei"
  353. 21250 [141]27050
  354. 21300 [137]2800
  355. 21550 [153]
  356. 21600 [129]b[178]z[164]y
  357. 21650 a3$(b)[178]""
  358. 21700 a3%(b,a1%(0,1))[178]0
  359. 21750 [141]2400
  360. 21800 [153]:[153]bl$
  361. 21850 [153]"chr$eben (NULL)ie den (NULL)ontennamen und":[153]
  362. 21900 [153]"die (NULL)ollvorgabe (=(NULL)onatsbudget in":[153]
  363. 21950 [153]"vollen str$(NULL)) ein":[153]
  364. 22000 [153]"(NULL)enn (NULL)ie keine weiteren (NULL)onten anlegen":[153]
  365. 22050 [153]"wollen, druecken (NULL)ie nur die (NULL)aste ":[153]
  366. 22100 [153]" >(NULL)val(NULL)(NULL)(NULL)(NULL)<":[153]:[153]
  367. 22150 [153][201]("    "[170][196](b),4);
  368. 22200 [153]"  (NULL)ontoname"
  369. 22250 [153]
  370. 22300 a$[178]" > "
  371. 22350 [141]28450
  372. 22400 [139][198](b$)[178]32[167]b[178]y:[137]22850
  373. 22450 a3$(b)[178]b$
  374. 22500 [153]
  375. 22550 a2%(a1%(0,1))[178]b
  376. 22600 a$[178]" (NULL)orgabe =  "
  377. 22650 l[178]5
  378. 22700 [141]29550
  379. 22750 a3%(b,a1%(0,1))[178][197](b$)
  380. 22800 a3%(b,0)[178]a3%(b,0)[170]a3%(b,a1%(0,1))
  381. 22850 [130]b
  382. 22900 g[178]a1%(0,1)
  383. 22950 mm[178]2
  384. 23000 [142]
  385. 23250 [153]"   (NULL)umme";
  386. 23300 [153][201]("         "[170][196](c),10);
  387. 23350 l[178]f
  388. 23400 [141]30500
  389. 23450 [153][201](a$,10);
  390. 23500 l[178]c[171]f
  391. 23550 [141]30500
  392. 23600 [139]c[171]f[179]0[167][153]ro$;
  393. 23650 [153][201](a$,10)bl$
  394. 23700 [142]
  395. 23950 [141]2400
  396. 24000 [153]bl$
  397. 24050 [139]g[179][177]0[167]24300
  398. 24100 [153]"   (NULL) o n a t e   ";
  399. 24150 [153]a1%(0,0)"-"a1%(0,1);
  400. 24200 [153]"/"a2%(0)
  401. 24250 [137]24400
  402. 24300 [153]"   (NULL) o n a t  "g;
  403. 24350 [153]" / "a2%(0)
  404. 24400 [153]
  405. 24450 c[178]0
  406. 24500 f[178]0
  407. 24550 [129]a[178]0[164]a2%(a1%(0,1))
  408. 24600 [153][201]("  "[170][196](a),2);
  409. 24650 [153]" ";
  410. 24700 [153][200](a3$(a)[170]"         ",9)" ";
  411. 24750 a$[178][201]("    "[170][196](a3%(a,g)),5)
  412. 24800 [153][163]13)a$;
  413. 24850 l[178]a3(a,g)
  414. 24900 [141]30500
  415. 24950 [153][201](a$,10);
  416. 25000 l[178]a3%(a,g)[171]a3(a,g)
  417. 25050 [141]30500
  418. 25100 [139]l[179]0[167][153]ro$;
  419. 25150 [153][201](a$,10)bl$
  420. 25200 c[178]c[170]a3%(a,g)
  421. 25250 f[178]f[170]a3(a,g)
  422. 25300 [130]a
  423. 25350 [142]
  424. 25600 [139]mm[178]0[167][141]32200:[139]f1[179][177]0[167]3300
  425. 25650 [141]2400
  426. 25700 [153]bl$
  427. 25750 [153]"   ^ = lfd. (NULL)onat":[153]
  428. 25800 [153]"   sonst (NULL)onat als (NULL)ahl"
  429. 25850 [153]
  430. 25900 b$[178]"  "
  431. 25950 [153]"        > "b$
  432. 26000 [141]2100
  433. 26050 a[178][198](c$)
  434. 26100 [139]a[178]13[167]26400
  435. 26150 [139]a[178]32[176]a[178]94[167]26250
  436. 26200 [139]a[179]48[176]a[177]57[167]26000
  437. 26250 b$[178][201](b$,1)[170]c$
  438. 26300 [153]cz$;
  439. 26350 [137]25950
  440. 26400 a[178][198]([201](b$,1))
  441. 26450 [139]a[178]94[167]g[178]a1%(0,1):[137]26650
  442. 26500 a[178][197](b$)
  443. 26550 [139]a[179]a1%(0,0)[176]a[177]a1%(0,1)[167][153]cz$;:[137]25900
  444. 26600 g[178]a
  445. 26650 [142]
  446. 26900 [141]28100
  447. 26950 [153]" "in$"   str$rucker ist nicht eingeschaltet    ";
  448. 27000 [142]
  449. 27050 [141]28100
  450. 27100 [153]"      "in$"      (NULL)atn(NULL)(NULL)valclosestr$(NULL)(NULL)vallen(NULL)val(NULL)        ";
  451. 27150 [141]2100
  452. 27200 [142]
  453. 27250 [141]28100
  454. 27300 [153]"    "in$"   f1 = ok   f3 = (NULL)orekktur    ";
  455. 27350 [141]2100
  456. 27400 [139][198](c$)[179]133[176][198](c$)[177]134[167]27350
  457. 27450 [142]
  458. 27500 [141]28100
  459. 27550 [153]"   "in$"  f1=weiter   f3=(NULL)enue  f5=str$rucker  ";
  460. 27600 [141]2100
  461. 27650 [139][198](c$)[179]133[176][198](c$)[177]135[167]27600
  462. 27700 [139][198](c$)[178]133[167][142]
  463. 27750 [139][198](c$)[178]134[167][142]
  464. 27800 [139][198](c$)[178]135[167][141]37500
  465. 27850 [139]dr[178]0[167]27600
  466. 27900 [137]27500
  467. 27950 [141]28100
  468. 28000 [153]"      "in$"      taste druecken        ";
  469. 28050 [137]27150
  470. 28100 [151]214,24:[151]211,0:[158]58732:[142]
  471. 28150 [151]214,20:[151]211,0:[158]58732:[137]27100
  472. 28450 b$[178]""
  473. 28500 [153]a$;b$" "
  474. 28550 [141]2100
  475. 28600 [139][198](c$)[178]13[167]29250
  476. 28650 [139][198](c$)[179][177]20[167]28900
  477. 28700 [139][195](b$)[178]0[167]28800
  478. 28750 b$[178][200](b$,[195](b$)[171]1)
  479. 28800 [153]cz$;
  480. 28850 [137]28500
  481. 28900 a[178][198](c$)
  482. 28950 [139][198](c$)[178]58[176][198](c$)[178]44[167]28550
  483. 29000 [139][198](c$)[178]32[167]29100
  484. 29050 [139]((a[177]34[175]a[179]96)[176](a[177]192[175]a[179]219))[178]0[167]28550
  485. 29100 b$[178]b$[170]c$
  486. 29150 b$[178][200](b$,15)
  487. 29200 [137]28800
  488. 29250 b$[178][200](b$[170]"               ",15)
  489. 29300 [142]
  490. 29500 :
  491. 29550 [153]
  492. 29600 b$[178]"               "
  493. 29650 b$[178][200](b$,l)
  494. 29700 [153]a$b$" "
  495. 29750 [141]2100
  496. 29800 [139][198](c$)[178]13[167]30250
  497. 29850 [139][198](c$)[179][177]20[167]30050
  498. 29900 b$[178]" "[170][200](b$,l[171]1)
  499. 29950 [153]cz$;
  500. 30000 [137]29700
  501. 30050 [139][198](c$)[179]48[176][198](c$)[177]57[167]29750
  502. 30100 b$[178][201](b$,l[171]1)[170]c$
  503. 30150 [137]29950
  504. 30200 [139][197](b$)[179]1[176][197](b$)[177]32768[167]29750
  505. 30250 [142]
  506. 30500 l[178][181](l[172]100[170].5)
  507. 30550 a$[178][196](l)
  508. 30600 m[178][195](a$)
  509. 30650 [139]l[178]0[167]a$[178]"0.00":[137]30750
  510. 30700 a$[178][200](a$,m[171]2)[170]"."[170][201](a$,2)
  511. 30750 a$[178][201]("          "[170]a$,10)
  512. 30800 [142]
  513. 31050 [139]mm[178]1[167][142]
  514. 31100 [159]2,8,2,"@:(NULL)ont   left$aushalt,s,w"
  515. 31150 [152]2,a2%(0)
  516. 31200 [152]2,a1%(0,0)
  517. 31250 [152]2,a1%(0,1)
  518. 31300 [129]a[178]a1%(0,0)[164]a1%(0,1)
  519. 31350 [152]2,a1%(a,0)
  520. 31400 [152]2,a1%(a,1)
  521. 31450 [152]2,a2%(a)
  522. 31500 [129]b[178]0[164]a2%(a)
  523. 31550 [152]2,a3%(b,a)
  524. 31600 [152]2,a3(b,a)
  525. 31650 [130]b
  526. 31700 [130]a
  527. 31750 [129]b[178]0[164]a2%(a1%(0,1))
  528. 31800 [152]2,a3$(b)
  529. 31850 [130]b
  530. 31900 [160]2
  531. 31950 [142]
  532. 32200 [141]40300
  533. 32250 [139]f1[179][177]0[167][141]42400:[142]
  534. 32300 [141]42250
  535. 32350 [159]2,8,2,"(NULL)ont   left$aushalt"
  536. 32400 [141]40850
  537. 32450 [139]f1[179][177]0[167][141]42400:[142]
  538. 32500 [132]2,a2%(0),a1%(0,0),a1%(0,1)
  539. 32550 [129]a[178]a1%(0,0)[164]a1%(0,1)
  540. 32600 [132]2,a1%(a,0),a1%(a,1),a2%(a)
  541. 32650 [129]b[178]0[164]a2%(a)
  542. 32700 [132]2,a3%(b,a),a3(b,a)
  543. 32750 [130]b
  544. 32800 [130]a
  545. 32850 [129]b[178]0[164]a2%(a1%(0,1))
  546. 32900 [132]2,a3$(b)
  547. 32950 [130]b
  548. 33000 [129]a[178]0[164]a2%(a1%(0,1))
  549. 33050 a3%(a,0)[178]0:a3(a,0)[178]0
  550. 33100 [129]b[178]a1%(0,0)[164]a1%(0,1)
  551. 33150 a3%(a,0)[178]a3%(a,0)[170]a3%(a,b)
  552. 33200 a3(a,0)[178]a3(a,0)[170]a3(a,b)
  553. 33250 [130]b
  554. 33300 [130]a
  555. 33350 [160]2
  556. 33400 mm[178]1
  557. 33450 [142]
  558. 33700 [141]43850
  559. 33750 [141]42400
  560. 33800 [141]40300
  561. 33850 [139]f1[179][177]0[167][141]28150:[137]2800
  562. 33900 [159]3,8,3,"mid$ourn.right$ndex "[170]a$
  563. 33950 [141]40850
  564. 34000 [139]f1[179][177]0[167][142]
  565. 34050 [129]a[178]0[164]y
  566. 34100 [132]3,a4%(a,0)
  567. 34150 [139]a4%(a,0)[178]0[167]34350
  568. 34200 [129]b[178]1[164]a4%(a,0)
  569. 34250 [132]3,a4%(a,b)
  570. 34300 [130]b
  571. 34350 [130]a
  572. 34400 [160]3
  573. 34450 mn[178]n
  574. 34500 [142]
  575. 34750 [139]mm[178]1[167][142]
  576. 34800 [141]43850
  577. 34850 [159]3,8,3,"@:mid$ourn.right$ndex "[170]a$[170]",s,w"
  578. 34900 [129]a[178]0[164]y
  579. 34950 [152]3,a4%(a,0)
  580. 35000 [139]a4%(a,0)[178]0[167]35200
  581. 35050 [129]b[178]1[164]a4%(a,0)
  582. 35100 [152]3,a4%(a,b)
  583. 35150 [130]b
  584. 35200 [130]a
  585. 35250 [160]3
  586. 35300 mn[178]n
  587. 35350 [142]
  588. 35600 [141]36850
  589. 35650 ze[178]0
  590. 35700 [139]a4%(d,0)[178]0[167]36550
  591. 35750 [129]b[178]1[164]a4%(d,0)
  592. 35800 re[178]a4%(d,b)
  593. 35850 [141]42800
  594. 35900 [132]2,a1$
  595. 35950 [139][195](a1$)[179]27[167]a1$[178]" "[170]a1$:[137]35950
  596. 36000 [153][202](a1$,3,2)".  "[202](a1$,5,15);
  597. 36050 [139][197]([202](a1$,20,8))[179]0[167][153]ro$;
  598. 36100 [153][163]28)[202](a1$,20,6)"."[201](a1$,2)bl$
  599. 36150 ze[178]ze[170]1
  600. 36200 [139]ze[179]15[167]36450
  601. 36250 [141]27500
  602. 36300 [139][198](c$)[178]134[167]b[178]a4%(d,0):[137]36450
  603. 36350 [141]36850
  604. 36400 ze[178]0
  605. 36450 [130]b
  606. 36500 [139][198](c$)[178]134[167][142]
  607. 36550 f[178]a3(d,g)
  608. 36600 c[178]a3%(d,g)
  609. 36650 [153]
  610. 36700 [141]23250
  611. 36750 [141]27500
  612. 36800 [142]
  613. 36850 [141]2400
  614. 36900 [153]bl$
  615. 36950 [153]d[200](a3$(d),18)[163]23)a3%(d,g);
  616. 37000 b$[178][196](a2%(0))
  617. 37050 [153][163]30)[201]([196](n),2)"/"[201](b$,[195](b$)[171]1)
  618. 37100 [153]
  619. 37150 [153]"(NULL)ag  (NULL)ext                    str$(NULL)-peeketrag"
  620. 37200 [153]
  621. 37250 [142]
  622. 37500 [159]1,4
  623. 37550 dr[178]0
  624. 37600 [151]768,61
  625. 37650 [152]1
  626. 37700 [160]1
  627. 37750 [151]768,139
  628. 37800 [139]st[179][177][171]128[175]st[179][177][171]125[167]37950
  629. 37850 [137]26900
  630. 37950 [141]28100
  631. 38000 [153]no$"                                       ";
  632. 38050 b$[178]"                 "
  633. 38100 [141]28100
  634. 38150 [153]"  str$atum:  "b$;
  635. 38200 [141]2100
  636. 38250 a[178][198](c$)
  637. 38300 [139]a[178]13[167]38700
  638. 38350 [139]a[179][177]20[167]38450
  639. 38400 b$[178]" "[170][200](b$,16):[137]38100
  640. 38450 [139]a[178]32[167]38550
  641. 38500 [139]((a[177]34[175]a[179]96)[176](a[177]192[175]a[179]219))[178]0[167]38200
  642. 38550 b$[178][201](b$,16)[170]c$
  643. 38600 [137]38100
  644. 38700 [159]4,4,0
  645. 38750 [152]4,[199](27)[199](64)[199](27)[199](108)[199](15);
  646. 38800 [152]4,[199](27)[199](56)
  647. 38850 [160]4
  648. 39000 [159]4,4,7
  649. 39050 [129]h[178]1024[164]2023[169]40
  650. 39100 i[178]0
  651. 39150 dr$[178]""
  652. 39200 [129]j[178]0[164]39
  653. 39250 c[178][194](h[170]j)
  654. 39300 [139]c[178]96[176]c[178]224[167]c[178]c[171]64
  655. 39350 [139]c[177]127[175]i[178]0[167]dr$[178]dr$[170][199](18):i[178]1
  656. 39400 [139]c[177]127[175]i[178]1[167]c[178]c[171]128:[137]39500
  657. 39450 [139]i[178]1[167]i[178]0:dr$[178]dr$[170][199](146)
  658. 39500 [139]c[179]32[167]c[178]c[170]64:[137]39600
  659. 39550 [139]c[177]64[167]c[178]c[170]32
  660. 39600 dr$[178]dr$[170][199](c)
  661. 39650 [130]j
  662. 39700 [152]4,dr$
  663. 39750 [130]h
  664. 39800 [129]h[178]1[164]5
  665. 39850 [152]4
  666. 39900 [130]h
  667. 39950 [160]4
  668. 40000 dr[178]1
  669. 40050 [142]
  670. 40300 [151]768,61
  671. 40350 [159]1,8,0,"test"
  672. 40400 [160]1
  673. 40450 [151]768,139
  674. 40500 [139]st[179][177][171]128[175]st[179][177][171]125[167][141]42250:[141]40850:[142]
  675. 40550 f1[178]0
  676. 40600 [141]28100
  677. 40650 [153]" "in$"   peekitte ascloppy chr$er.(NULL)r. 8 einschalten   ";
  678. 40700 f1[178]1
  679. 40750 [160]15
  680. 40800 [142]
  681. 40850 [132]15,f1,f$,f2,f3
  682. 40900 [139]f1[178]0[167][142]
  683. 40950 [141]28100
  684. 41000 [139]f1[179][177]74[167]41100
  685. 41050 [153]"     "in$"    peekitte str$iskette einlegen   "no$"    ";:[142]
  686. 41100 [139](f1[178]62[176]f1[178]26)[178]0[167]41750
  687. 41150 [153]cz$"   "in$"   ascalsche str$iskette im (NULL)aufwerk  "no$"  "
  688. 41200 [160]3
  689. 41250 [159]3,8,3,"#"
  690. 41300 [152]15,"u1 3 0 18 0"
  691. 41350 [152]15,"b-p 3 144"
  692. 41400 b$[178]""
  693. 41450 [129]a[178]1[164]16
  694. 41500 [161]#3,d$
  695. 41550 [139]d$[178]""[167]d$[178][199](0)
  696. 41600 b$[178]b$[170]d$
  697. 41650 [130]a
  698. 41700 [153]"   "in$"  str$iskette =  "b$"   "no$"   ";:[142]
  699. 41750 [153]cz$"  "in$"   str$ i s k e t t e n f e h l e r     "
  700. 41800 [153]"  "in$;
  701. 41850 [153][201]("   "[170][196](f1),3);
  702. 41900 [153]"  ";
  703. 41950 [153][200](f$[170]"                  ",18);
  704. 42000 [153]"  "in$;
  705. 42050 [153][201]("     "[170][196](f2),5);
  706. 42100 [153][201]("     "[170][196](f3),5);
  707. 42150 [153]"  "no$;
  708. 42200 [142]
  709. 42250 [160]15
  710. 42300 [159]15,8,15,"i"
  711. 42350 [142]
  712. 42400 [160]2
  713. 42450 [160]3
  714. 42500 [160]15
  715. 42550 [142]
  716. 42800 hb[178][181](re[173]256)
  717. 42850 lb[178]re[171](hb[172]256)
  718. 42900 [152]15,"p"[170][199](2)[170][199](lb)[170][199](hb)[170][199](1)
  719. 42950 [142]
  720. 43200 a$[178]"mid$ournal "[170]a$
  721. 43250 [159]2,8,2,a$
  722. 43300 [141]40850
  723. 43350 [139]f1[179][177]0[167][141]42400
  724. 43400 [142]
  725. 43650 [131]"mid$an","asceb","(NULL)rz"
  726. 43700 [131]"atnpr","(NULL)ai","mid$un"
  727. 43750 [131]"mid$ul","atnug","(NULL)pt"
  728. 43800 [131]"(NULL)kt","(NULL)ov","str$ez"
  729. 43850 [140]
  730. 43900 [129]w[178]1[164]n
  731. 43950 [135]a$
  732. 44000 [130]w
  733. 44050 [142]
  734.