home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64 / basis-datei (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.7 KB  |  250 lines
  1. 100 rem*******************************
  2. 110 rem   basis datei fuer girokonto
  3. 120 rem*******************************
  4. 130 (NULL)0:poke53281,0:poke53280,0
  5. 140 print"[147]"
  6. 150 gosub 5000:rem init variable
  7. 160 close15: open15,8,15
  8. 170 open2,8,2,"vorgabe,s,r"
  9. 180 gosub10000:rem fehler?
  10. 190 if a1= 0 then 500
  11. 200 :
  12. 210 rem einrichten datei
  13. 220 close2:open2,8,2,"vorgabe,s,w"
  14. 230 gosub10000
  15. 240 ifa<>0 then 220
  16. 250 da$(0)="1"
  17. 260 da$(1)="[206]r.  [212]itel   [197]mpfaenger   [194]etrag"
  18. 300 ei$(0)="1"
  19. 310 ei$(1)="[212]yp       [193]uftraggeber    [194]etrag"
  20. 400 tr$(0)="1"
  21. 410 tr$(1)="[201]nstitut       [203]onto-[206]r.  [212]yp/[193]rt"
  22. 425 print#2,da$(0)
  23. 430 fori=1to2:print#2,da$(i):next
  24. 435 print#2,ei$(0)
  25. 440 fori=1to2:print#2,ei$(i):next
  26. 445 print#2,tr$(0)
  27. 450 fori=1to2:print#2,tr$(i):next
  28. 460 close2
  29. 480 goto1000
  30. 500 rem------------------------------
  31. 510 rem  laden der datei
  32. 520 rem------------------------------
  33. 530 :
  34. 540 close2: open2,8,2,"vorgabe,s,r"
  35. 550 gosub10000:ifa1<>0then540
  36. 560 input#2,da$(0)
  37. 570 fori=1to val(da$(0)):input#2,da$(i):next
  38. 600 input#2,ei$(0)
  39. 610 fori=1to val(ei$(0)):input#2,ei$(i):next
  40. 640 input#2,tr$(0)
  41. 650 fori=1to val(tr$(0)):input#2,tr$(i):next
  42. 680 close2
  43. 1000 rem--------------------------
  44. 1010 rem menue
  45. 1020 rem--------------------------
  46. 1230 :
  47. 1240 print"[147]"
  48. 1242 (NULL)12,3,     "[199] i r o k o n o"
  49. 1244 (NULL) 5,5,"[194]asis-[196]atei : [193]endern [197]ingabe"
  50. 1250 (NULL)5,8,"1 = [196]auerauftraege
  51. 1260 [206]5,10,"2 = valinkuenfte"
  52. 1270 [206]5,12,"3 = eigene (NULL)onten"
  53. 1275 [206]5,14,"0 = (NULL)uit      "
  54. 1280 [206] 5,20,"(NULL)ahl: ";
  55. 1290 [213]1,"1230",w$
  56. 1300 [139]w$[178]"1"[167] [141] 2000
  57. 1310 [139]w$[178]"2"[167] [141] 3000
  58. 1320 [139]w$[178]"3"[167] [141] 4000
  59. 1340 [139]w$[178]"0"[167] [141] 7000:[128]
  60. 1350 [137]1240
  61. 1360 :
  62. 2000 [143]----------------------------
  63. 2010 [143] aendern,anzeigen dauer.
  64. 2020 [143]----------------------------
  65. 2030 :
  66. 2050 [153]"loadopen"
  67. 2060 [206]12,3,"chr$ i r o k o n t o"
  68. 2074 [206]12,5,"str$auerauftraege"
  69. 2080 [206]1,8, da$(1)
  70. 2090 da[178][197](da$(0))
  71. 2092 [139]da[177] 9 [167] da[178] 9
  72. 2100 [129]i[178]2[164] da:[206]0,8[170]i,"open"da$(i):[130]
  73. 2110 kz$[178]"        valingabe atnendern (NULL)uit": [141]6000:[143] kontrollzeile
  74. 2120 [213]0,"eaq",r$
  75. 2125 [141]6200:[143] loeschen kontrolle
  76. 2130 [139]r$[178]"q"[167] [142]
  77. 2140 [139]r$[178]"a"[167] [141]2500
  78. 2150 [139]r$[178]"e"[175]da[179]14 [167] da[178]da[170]1:[141]2170:[141]2200 :da$(0)[178][196](da)
  79. 2160 [137]2092
  80. 2170 da$(da)[178]"..... ......  ............          ":[142]
  81. 2200 :
  82. 2210 [143] eingabe
  83. 2220 :
  84. 2230 [206]0,8[170]da,"waitopen";
  85. 2240 [204][200](da$(da),5)," ",5,d1$
  86. 2242 d1$[178][200](d1$[170]".....",5)
  87. 2250 [206]6,8[170]da,"";
  88. 2260 [204][202](da$(da),7,6)," ", 6,d2$
  89. 2262 d2$[178][200](d2$[170]"......",6)
  90. 2270 [206]14,8[170]da,"";
  91. 2280 [204][202](da$(da),15,11)," ",11,d3$
  92. 2282 d3$[178][200](d3$[170]"...........",11)
  93. 2290 [206]27,8[170]da,"";
  94. 2300 [204][202](da$(da),28,9) ,". ", 9,d4$
  95. 2302 d4$[178][201]("         "[170]d4$,9)
  96. 2310 da$(da)[178]d1$[170]" "[170]d2$[170]"  "[170]d3$[170]"  "[170]d4$
  97. 2330 [142]
  98. 2340 :
  99. 2500 [143]---- aendern ---------
  100. 2510 :
  101. 2515 kz$[178]" atnendern  len(NULL)(NULL)(NULL)down len(NULL)(NULL)(NULL)up (NULL)uit ":[141]6000
  102. 2520 da[178]2
  103. 2530 [208]0,8[170]da,5,160,5,""da$(da)"wait";
  104. 2540 [213]0,"onaq",r$
  105. 2550 [139]r$[178]""[175] da[179]  [197](da$(0))[167]   [141]2600:da[178]da[170]1
  106. 2560 [139]r$[178]"on"[175] da[177]  2  [167] [141]2600:da[178]da[171]1
  107. 2570 [139]r$[178]"q"[167] da[178][197](da$(0)):    [142]
  108. 2575 [139]r$[178]"a"[167] [141]2600:[141]  2230
  109. 2580 [137]2530
  110. 2600 [208]0,8[170]da,5,32 ,3,da$(da)
  111. 2610 [142]
  112. 3000 [143]----------------------------
  113. 3010 [143] aendern,anzeigen einkunft
  114. 3020 [143]----------------------------
  115. 3030 :
  116. 3050 [153]"loadopen"
  117. 3060 [206]12,3,"chr$ i r o k o n o"
  118. 3074 [206]12,5,"  valinkuenfte "
  119. 3080 [206]1,8, ei$(1)
  120. 3090 da[178][197](ei$(0))
  121. 3092 [139]da[177] 9 [167] da[178] 9
  122. 3100 [129]i[178]2[164] da:[206]0,8[170]i,"open"ei$(i):[130]
  123. 3110 kz$[178]"        valingabe atnendern (NULL)uit": [141]6000:[143] kontrollzeile
  124. 3120 [213]0,"eaq",r$
  125. 3125 [141]6200:[143] loeschen kontrolle
  126. 3130 [139]r$[178]"q"[167] [142]
  127. 3140 [139]r$[178]"a"[167] [141]3500
  128. 3150 [139]r$[178]"e"[175]da[179]14 [167] da[178]da[170]1: [141]3170:[141]3200 :ei$(0)[178][196](da)
  129. 3160 [137]3092
  130. 3170 ei$(da)[178]".......... ..............          "
  131. 3180 [142]
  132. 3200 :
  133. 3210 [143] eingabe einkuenfte
  134. 3220 :
  135. 3230 [206]0,8[170]da,"waitopen";
  136. 3240 [204][200](ei$(da),10)," ",10,d1$
  137. 3242 d1$[178][200](d1$[170]"..........",10)
  138. 3250 [206]11,8[170]da,"";
  139. 3260 [204][202](ei$(da),12,14)," ",14,d2$
  140. 3262 d2$[178][200](d2$[170]"..............",14)
  141. 3270 [206]27,8[170]da,"";
  142. 3280 [204][202](ei$(da),28, 9),". ",9,d3$
  143. 3282 d3$[178][201]("         "[170]d3$,9)
  144. 3310 ei$(da)[178]d1$[170]" "[170]d2$[170]"  "[170]d3$
  145. 3330 [142]
  146. 3340 :
  147. 3500 [143]---- aendern ---------
  148. 3510 :
  149. 3515 kz$[178]" atnendern  len(NULL)(NULL)(NULL)down len(NULL)(NULL)(NULL)up (NULL)uit ":[141]6000
  150. 3520 da[178]2
  151. 3530 [208]0,8[170]da,5,160,5,""ei$(da)"wait";
  152. 3540 [213]0,"onaq",r$
  153. 3550 [139]r$[178]""[175] da[179]  [197](ei$(0))[167]   [141]3600:da[178]da[170]1
  154. 3560 [139]r$[178]"on"[175] da[177]  2  [167] [141]3600:da[178]da[171]1
  155. 3570 [139]r$[178]"q"[167] da[178][197](ei$(0)): [142]
  156. 3575 [139]r$[178]"a"[167] [141]3600:[141]  3230
  157. 3580 [137]3530
  158. 3590 [143] zeile revers on
  159. 3600 [208]0,8[170]da,5,32 ,3,ei$(da)
  160. 3610 [142]
  161. 4000 [143]----------------------------
  162. 4010 [143] aendern,anzeigen transfer
  163. 4020 [143]----------------------------
  164. 4030 :
  165. 4050 [153]"loadopen"
  166. 4060 [206]12,3,"chr$ i r o k o n t o"
  167. 4074 [206]12,5," eigene (NULL)onten"
  168. 4080 [206]1,8, tr$(1)
  169. 4090 da[178][197](tr$(0))
  170. 4092 [139]da[177] 9 [167] da[178] 9
  171. 4100 [129]i[178]2[164] da:[206]0,8[170]i,"open"tr$(i):[130]
  172. 4110 kz$[178]"        valingabe atnendern (NULL)uit": [141]6000:[143] kontrollzeile
  173. 4120 [213]0,"eaq",r$
  174. 4125 [141]6200:[143] loeschen kontrolle
  175. 4130 [139]r$[178]"q"[167] [142]
  176. 4140 [139]r$[178]"a"[167] [141]4500
  177. 4150 [139]r$[178]"e"[175]da[179]14 [167] da[178]da[170]1: [141]4170:[141]4200 :tr$(0)[178][196](da)
  178. 4160 [137]4092
  179. 4170 tr$(da)[178]"............. .......... ............" :[142]
  180. 4200 :
  181. 4210 [143] eingabe transfer
  182. 4220 :
  183. 4230 [206]0,8[170]da,"waitopen";
  184. 4240 [204][200](tr$(da),13)," ",13,d1$
  185. 4242 d1$[178][200](d1$[170]".............",13)
  186. 4250 [206]14,8[170]da,"";
  187. 4260 [204][202](tr$(da),15,10)," ",10,d2$
  188. 4262 d2$[178][200](d2$[170]"..........",10)
  189. 4270 [206]26,8[170]da,"";
  190. 4280 [204][202](tr$(da),27,11)," ",11,d3$
  191. 4282 d3$[178][200](d3$[170]"...........",11)
  192. 4310 tr$(da)[178]d1$[170]" "[170]d2$[170]"  "[170]d3$
  193. 4330 [142]
  194. 4340 :
  195. 4500 [143]---- aendern ---------
  196. 4510 :
  197. 4515 kz$[178]" atnendern  len(NULL)(NULL)(NULL)down len(NULL)(NULL)(NULL)up (NULL)uit ":[141]6000
  198. 4520 da[178]2
  199. 4530 [208]0,8[170]da,5,160,5,""tr$(da)"wait";
  200. 4540 [213]0,"onaq",r$
  201. 4550 [139]r$[178]""[175] da[179]  [197](tr$(0))[167]   [141]4600:da[178]da[170]1
  202. 4560 [139]r$[178]"on"[175] da[177]  2  [167] [141]4600:da[178]da[171]1
  203. 4570 [139]r$[178]"q"[167] da[178][197](tr$(0)): [142]
  204. 4575 [139]r$[178]"a"[167] [141]4600:[141]  4230
  205. 4580 [137]4530
  206. 4590 [143] zeile revers on
  207. 4600 [208]0,8[170]da,5,32 ,3,tr$(da)
  208. 4610 [142]
  209. 5000 [143]-----------------------------
  210. 5010 [143] init variable
  211. 5020 [143]-----------------------------
  212. 5030 :
  213. 5040 [134] da$(20),ei$(20),tr$(20)
  214. 5050 :
  215. 5060 :
  216. 5070 [142]
  217. 5080 :
  218. 6000 [143]----------------------------
  219. 6010 [143] kontrollzeile
  220. 6020 [143]----------------------------
  221. 6030 :
  222. 6040 [208]0,24,40,160,5,kz$;:[153]"open";
  223. 6100 [142]
  224. 6200 [143]----------------------------
  225. 6230 :
  226. 6240 [208]0,24,40,32 ,0," ";
  227. 6245 [153]"openwait";
  228. 6250 [142]
  229. 7000 [143]---------------------------
  230. 7010 [143]   speichern
  231. 7020 [143]---------------------------
  232. 7030 :
  233. 7040 [160]2:[159]2,8,2,"@:vorgabe,s,w"
  234. 7050 [129]i[178]0[164] [197](da$(0)):[152]2,da$(i):[130]
  235. 7060 [129]i[178]0[164] [197](ei$(0)):[152]2,ei$(i):[130]
  236. 7070 [129]i[178]0[164] [197](tr$(0)):[152]2,tr$(i):[130]
  237. 7080 [160]2
  238. 7090 [142]
  239. 10000 [143]---------------------------
  240. 10010 [143]   floppy fehler
  241. 10020 [143]---------------------------
  242. 10030 :
  243. 10040 [132]15,a1,a2$
  244. 10050 [139] a1[178]0 [167] [142]
  245. 10060 [139] a1[178]62 [167] [142]
  246. 10070 [153]"fehler"a1,a2$
  247. 10075 [153]:[153] "str$ruecke (NULL)aste";
  248. 10080 [213]1,"",r$
  249. 10090 [142]
  250.