home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8507a.d64 / haushaltskasse (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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]"CHR$EHEN (null)IE EINE (null)ASSE (null)AFFEE TRINKEN"
  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 JEZT 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.