home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / ausgaben (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  5.3 KB  |  174 lines
  1. 1 ifpeek(49153)<>225thenload"uhrzeit",8,8
  2. 2 pm=7:dimna$(400),be(400),ar(400),da$(400),ar$(pm),bi(pm),ku$(pm):close2
  3. 3 k$=""+chr$(255)+chr$(193)+chr$(193)+chr$(193)+chr$(193)+chr$(255)+chr$(128)
  4. 4 vn=8:k$=k$+"
  5. 5 k5$[178]k$[170]k$[170]k$[170]k$[170]k$:[141]2700
  6. 6 [158]49152,1:uh[178][194](2):xt[178]1
  7. 10 [153]"loadausgaben-verwaltung version"vn"
  8. 11 ifuhthenprint"mit";:goto13
  9. 12 print"ohne";
  10. 13 print" echtzeituhr ";:gosub2600
  11. 14 ja$=gj$:ifuhthensys49155,255,a$:ja$=right$(a$,2)
  12. 15 print""ja$"[145]":input"jahr ? 19[157][157][157][157]";ks$
  13. 20 open1,8,15,"u9
  14. 30 [159]2,8,2,"ad"[170]ks$[170]",s,r
  15. 40 input#1,a:ifa=.then100
  16. 50 ifa<>62thenprint"diskerror nr."a:end
  17. 60 close2:close1:open2,8,2,"ad"+ks$+",s,w
  18. 70 [152]2,0:[160]2:[137]20
  19. 100 [132]2,az
  20. 102 [139]az[178].[167]110
  21. 104 [129]i[178]1[164]az:[132]2,na$(i),be(i),ar(i),da$(i):[130]
  22. 110 [160]2
  23. 112 [129]i[178]1[164]pm:[135]ar$(i):[130]
  24. 114 [131]buerobedarf,fachliteratur,fahrtkosten,computerzubehoer,elektronik,post
  25. 115 [131]sonderausgaben
  26. 116 [129]i[178]1[164]pm:[135]ku$(i):[130]
  27. 118 [131]buerb,fachl,fahrt,compz,elekt,bpost,sonda
  28. 120 [153]"menue:
  29. 122 print"  (1) neue ausgaben
  30. 124 [153]"  (2) kurzaufstellung drucken
  31. 126 print"  (3) genaue liste drucken
  32. 128 [153]"  (4) datei aktualisieren und ende
  33. 129 print"  (5) korrektur":print"  (6) einzelpostenliste
  34. 130 [153]"  (7) kurzaufstellung mit prozent
  35. 132 print"[157]"az"ausgaben registriert; jahr: "ks$:print
  36. 140 poke198,.
  37. 141 ifuhthensys49155,0,a$:printa$"[145]
  38. 142 [161]a$:[139]a$[179]"1"[176]a$[177]"7"[167]141
  39. 144 [153]"":[145][197](a$)[141]1000,2950,3999,4000,5000,3900,2900:[137]120
  40. 1000 az[178]az[170]1:[153]"die"az"cmd. ausgabe:
  41. 1002 input"buchungstext ";na$(az)
  42. 1004 input"betrag [dm]  ";be(az)
  43. 1006 print:x=18:gosub2500:input"datum  [ttmmjj] ";da$(az)
  44. 1008 print:fori=1topm:print"  ("chr$(48+i)") "ar$(i):next
  45. 1010 input"gruppe [1-7]      ";ar(az)
  46. 1011 ifar(az)<1orar(az)>pmthenprint"[145][145][145][145][145][145][145][145][145][145][145]":goto1008
  47. 1012 input"richtig [jn]      ";a$:ifa$<>"j"anda$<>"n"thenprint"[145][145][145]":goto1012
  48. 1013 print"= ausgabe registriert =
  49. 1014 [139]a$[178]"n"[167]az[178]az[171]1:[153]"on= ausgabe storniert =   "
  50. 1015 [142]
  51. 2000 [129]i[178]1[164]pm:ac(i)[178].:bi(i)[178].:[130]:nh[178].
  52. 2002 [129]i[178]1[164]az:ac(ar(i))[178]ac(ar(i))[170]1:bi(ar(i))[178]bi(ar(i))[170]be(i):nh[178]nh[170]be(i):[130]
  53. 2004 [153]"kurzaufst.: drucker oder schirm ? [d/s]
  54. 2006 geta$:ifa$="d"thenopen4,4:goto2010
  55. 2008 ifa$<>"s"then2006
  56. 2009 open4,3
  57. 2010 print#4:print#4:print#4:print#4,"   ausgaben - kurzaufstellung
  58. 2011 [152]4,"           jahr: "ks$"   v"vn
  59. 2012 [152]4:[152]4:[152]4," rubrik                  summe";
  60. 2013 [141]2910
  61. 2015 [141]2920
  62. 2016 [129]i[178]1[164]pm:a$[178]ar$(i)
  63. 2018 [139][195](a$)[179]17[167]a$[178]a$[170]" ":[137]2018
  64. 2020 [152]4," "a$;
  65. 2021 a$[178][196](bi(i))
  66. 2022 [129]u[178]1[164][195](a$):[139][202](a$,u,1)[178]"."[167]2026
  67. 2024 [130]u:a$[178]a$[170]".
  68. 2026 iflen(a$)=uthena$=a$+"00":goto2028
  69. 2027 iflen(a$)-u=1thena$=a$+"0
  70. 2028 [139][195](a$)[179]8[167]a$[178]" "[170]a$:[137]2028
  71. 2029 [139]yy[178]1[167]yy[178].:[142]
  72. 2030 [152]4,"  dm"a$;:[141]2930:[130]i
  73. 2031 [141]2920
  74. 2032 [152]4," gesamtsumme        dm";
  75. 2033 yy[178]1:a$[178][196](nh):[141]2022:[152]4,a$;:[139]sr%[167][152]4,[166]13)az;
  76. 2034 [152]4:[152]4," =============================";:[141]2925
  77. 2035 [152]4:[152]4:[160]4:[142]
  78. 2500 [139]uh[178].[167][153][163]x)"...."[201](ks$,2)"on":[142]
  79. 2502 [158]49155,255,a$:[153][163]x)a$"on":[142]
  80. 2600 [139]uh[178].[167][153]:[142]
  81. 2602 [158]49155,0,a$:[153]a$:[142]
  82. 2700 [139][194](53200)[178]90[167]gj$[178][199]([194](53201))[170][199]([194](53202)):[142]
  83. 2704 [159]2,8,2,"gj,s,r
  84. 2706 input#2,gj$:close2
  85. 2708 poke53201,asc(gj$):poke53202,asc(mid$(gj$,2)):poke53200,90:return
  86. 2900 sr%=1:goto2000
  87. 2910 ifsr%thenprint#4," <-------   posten <-------";
  88. 2912 print#4:return
  89. 2920 print#4," -----------------------------";
  90. 2922 ifsr%thenprint#4,"---------------------------";
  91. 2924 print#4:return
  92. 2925 ifsr%thenprint#4,"===========================";
  93. 2926 print#4:return
  94. 2930 ifsr%=.thenprint#4:return
  95. 2932 vv=bi(i)/nh:gosub2960:print#4,a$"%";:yy=1:a$=str$(ac(i)):gosub2022
  96. 2933 print#4,"  "left$(a$,len(a$)-3);:vv=ac(i)/az:gosub2960:print#4,"  "a$"%
  97. 2939 [142]
  98. 2950 sr%[178].:[137]2000
  99. 2960 yy[178]1:vv[178][181](vv[172]10000[170].5)[173]100:a$[178][196](vv):[137]2022
  100. 3000 [153]:x[178]27:[141]2500:[133]"heutiges datum  [ttmmjj] ";a$
  101. 3001 da$[178][200](a$,2)[170]"."[170][202](a$,3,2)[170]"."[170][201](a$,2):kh$[178]k5$
  102. 3002 [141]3850:[153]"drucker oder schirm ? [d/s]
  103. 3006 geta$:ifa$="d"thenopen4,4:goto3010
  104. 3008 ifa$<>"s"then3006
  105. 3009 open4,3:kh$=""
  106. 3010 gosub3800
  107. 3011 print#4," jahr: "ks$"   stand: "da$"   v"vn
  108. 3012 print#4:print#4:nh=.:sp=.
  109. 3013 print#4," nr. datum     buchungstext                 betrag  gruppe
  110. 3014 [152]4," ---------------------------------------------------------
  111. 3015 fori=xttoaz:a$=str$(i):ifra>.andra<>ar(i)then3027
  112. 3016 iflen(a$)<4thena$=" "+a$:goto3016
  113. 3017 sp=sp+1
  114. 3018 print#4,a$" ";left$(da$(i),2)"."mid$(da$(i),3,2)"."right$(da$(i),2)"  ";
  115. 3020 a$=na$(i):gosub3860
  116. 3022 iflen(a$)<27thena$=a$+" ":goto3022
  117. 3024 print#4,a$;:a$=str$(be(i)):yy=1:gosub2022:print#4,a$;
  118. 3026 print#4,"  "ku$(ar(i)):nh=nh+be(i)
  119. 3027 next
  120. 3028 print#4," ---------------------------------------------------------
  121. 3030 [152]4,"     "da$"  gesamtsumme              dm";:yy[178]1:a$[178][196](nh)
  122. 3032 [141]2022:[152]4,a$"  "kh$
  123. 3034 [141]3100
  124. 3035 [139]ra[167]3039
  125. 3037 [152]4:[152]4:[152]4,"    legende:
  126. 3038 print#4:fori=1topm:print#4," ("chr$(48+i)") "ku$(i)" = "ar$(i):next
  127. 3039 print#4:print#4:print#4:print#4:close4:return
  128. 3100 print#4," =========================================================
  129. 3102 [152]4:[152]4,"anzahl posten:"sp:[142]
  130. 3800 [141]3803:[141]3801:[137]3820
  131. 3801 [152]4:[152]4:[152]4:[139]ra[167]3810
  132. 3802 [152]4," gesamte ausgaben - genaue liste":[142]
  133. 3803 [153]"liste fuer das finanzamt ? [j/n]
  134. 3804 getfu$:iffu$<>"n"andfu$<>"j"then3804
  135. 3805 return
  136. 3810 print#4," einzelaufstellung fuer "ar$(ra):return
  137. 3820 ifxt>1thenprint#4," ab posten nr."xt
  138. 3822 iffu$="j"thenprint#4," fuer das finanzamt
  139. 3824 [142]
  140. 3850 [153]"  "xt"cmd    "
  141. 3852 [133]"onab posten nr. ";xt
  142. 3854 [139]xt[179]1[176]xt[177]az[167][153]"ononon":[137]3850
  143. 3856 [142]
  144. 3860 [139]fu$[178]"n"[167][142]
  145. 3862 [139]ar(i)[178]2[167]a$[178]"fachbuch
  146. 3864 ifar(i)=4thena$="comp-bedarf
  147. 3866 [139]ar(i)[178]5[167]a$[178]"diverse computerbauteile
  148. 3868 return
  149. 3900 print"einzelposten-liste
  150. 3902 [153]:[129]i[178]1[164]pm:[153]"  ("[199](48[170]i)") "ar$(i):[130]
  151. 3904 [133]"gruppe [1-7]      ";ra
  152. 3906 [139]ra[177]pm[167][153]"ononon":[137]3904
  153. 3908 [137]3000
  154. 3999 [153]"genaue liste, alle posten":ra[178].:[137]3000
  155. 4000 [152]1,"s:ad"[170]ks$
  156. 4002 [159]2,8,2,"ad"[170]ks$[170]",s,w
  157. 4004 print#2,az
  158. 4006 ifaz=.then4010
  159. 4008 fori=1toaz:print#2,na$(i):print#2,be(i):print#2,ar(i):print#2,da$(i):next
  160. 4010 close2:close1:print"":end
  161. 5000 print"korrektur
  162. 5002 [133]"buchungsnr. ";bn:[139]bn[178].[167][142]
  163. 5004 [139]bn[179]1[176]bn[177]az[167]5002
  164. 5008 [153]""[163]15)na$(bn):[133]"onbuchungstext ";na$(bn)
  165. 5010 [153]""[163]14)be(bn):[133]"onbetrag [dm]  ";be(bn)
  166. 5012 [153]""[163]18)da$(bn):[133]"ondatum  [ttmmjj] ";da$(bn)
  167. 5014 [153]:[129]i[178]1[164]pm:[153]"  ("[199](48[170]i)") "ar$(i):[130]
  168. 5016 [153][163]19)""ar(bn):[133]"ongruppe [1-7]      ";ar(bn)
  169. 5018 [139]ar(bn)[179]1[176]ar(bn)[177]pm[167][153]"ononononononononononon":[137]5014
  170. 5020 a$[178]"":[133]"richtig [jn]      ";a$:[139]a$[178]"n"[167]5008
  171. 5021 [139]a$[179][177]"j"[167][153]"ononon":[137]5020
  172. 5022 [153]"= ausgabe korrigiert =
  173. 5026 return
  174.