home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / einnahmen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  284 lines
  1. 1 ifpeek(49153)<>225thenload"uhrzeit",8,8
  2. 2 ei=1:mx=400:vr$="7
  3. 3 [134]bt$(mx),bn$(mx),rd$(mx),ke$(mx),co$(mx),nr%(mx),dm$(mx)
  4. 4 [141]200
  5. 6 [158]49152,1:uh[178][194](2):xt[178]1
  6. 7 [151]53280,.:[151]53281,.
  7. 10 [153]"loadeinnahmen-verwaltung version "vr$:[153]"(c) nh-311089-arr
  8. 11 ifuhthenprint"mit";:goto13
  9. 12 print"ohne";
  10. 13 print" echtzeituhr ";:gosub2600
  11. 14 ja$=" "+gj$:ifuhthensys49155,255,a$:ja$=str$(val(right$(a$,2)))
  12. 15 print""ja$"[145]":input"jahr ? 19[157][157][157][157]";ks$
  13. 16 k2$=right$(ks$,2):lo$=""+chr$(128)+chr$(128)+chr$(128)+"
  14. 17 kl$[178]""[170][200](ks$,1)[170]lo$[170][202](ks$,2,1)[170]lo$[170][202](ks$,3,1)[170]lo$
  15. 18 kl$[178]kl$[170][201](ks$,1)[170]"
  16. 20 close15:open15,8,15,"u9
  17. 22 [160]2:[159]2,8,2,"ed"[170]ks$[170]",s,r
  18. 24 input#15,a:ifa=.then40
  19. 26 ifa=62then30
  20. 27 print"*** diskfehler nr."a
  21. 28 print"programm beendet.":close2:close15:end
  22. 30 print"datei nicht vorhanden. neu anlegen ?
  23. 32 [161]a$:[139]a$[178]"n"[167][138]
  24. 34 [139]a$[179][177]"j"[167]32
  25. 36 [160]2:[159]2,8,2,"ed"[170]ks$[170]",s,w
  26. 38 gosub2800:print#2,0:close2:goto20
  27. 40 input#2,bz:print"anzahl buchungen:"bz:ifbz=.then50
  28. 42 fori=1tobz
  29. 44 input#2,bt$(i),bn$(i),rd$(i),ke$(i),co$(i),nr%(i),dm$(i):next
  30. 50 close2
  31. 100 print"[147]einnahmen-verwaltung version "vr$:print"(c) nh-311089-arr
  32. 102 [139]uh[167][158]49155,0,a$:[153]"zeit: "a$
  33. 103 [153]"geschaeftsjahr: "ks$
  34. 104 [153]"anzahl buchungen:"bz"  frei:"mx[171]bz"="[181](.5[170]100[172](mx[171]bz)[173]mx)"cmd%
  35. 110 print" (1) neue einnahme
  36. 112 [153]" (2) korrektur
  37. 114 print" (3) komplette liste drucken
  38. 116 [153]" (4) einzelpostenliste
  39. 118 print" (5) kurzuebersicht
  40. 120 [153]" (6) programm beenden, datei update
  41. 122 print" (7) legende drucken
  42. 124 [153]" (8) hinweis drucken
  43. 125 print" (9) einzel-info
  44. 128 [151]198,.:sl[178]13
  45. 130 [161]a$:[139]a$[179]"1"[176]a$[177]"9"[167]130
  46. 140 [145][197](a$)[141]1100,1200,1300,1400,1500,1600,1700,1800,1900:[137]100
  47. 200 [139][194](53200)[178]145[167]gj$[178][199]([194](53201))[170][199]([194](53202)):[142]
  48. 202 [159]2,8,2,"gj,s,r
  49. 204 input#2,gj$:close2
  50. 206 poke53201,asc(gj$):poke53202,asc(right$(gj$,1)):poke53200,145:return
  51. 1100 print"* neue einnahme *":ifbz=mxthenreturn
  52. 1102 bz=bz+1:print"nummer:"bz
  53. 1104 print"typ waehlen: (v) lohn/einkommen
  54. 1106 [153]"             (h) kapitalertraege
  55. 1108 print"             (x) andere
  56. 1110 [153]"             (_) abbruch
  57. 1112 getbt$:ifbt$="_"thenbz=bz-1:return
  58. 1114 ifbt$="v"orbt$="h"orbt$="x"then1119
  59. 1115 goto1112
  60. 1119 remifbt$="v"thena$="artikel ":gosub2400
  61. 1120 print"buchungstyp: "bt$
  62. 1122 print"buchungstext   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]
  63. 1123 [133]"on";bn$:[139]bn$[178]""[176][195](bn$)[177]21[167][153]"ononon":[137]1122
  64. 1124 [133]"betrag dm ";dm$:[139]dm$[178]""[176][197](dm$)[179].[167][153]"ononon":[137]1124
  65. 1125 [139][195](dm$)[177]7[167][153]"ononon":[137]1124
  66. 1126 [153]"eingang des geldes   tab(tab(tab(tab(tab(tab(cmdcmdon"k2$
  67. 1128 [133]"on";ke$:[139][195](ke$)[179][177]6[167][153]"ononon":[137]1126
  68. 1129 [139][201](ke$,2)[179][177][201](ks$,2)[167][153]"ononon":[137]1126
  69. 1130 [139]bt$[178]"v"[167]rd$[178]"":co$[178]"":[153]"":[137]1150
  70. 1132 [153]"rechnungsdatum   tab(tab(tab(tab(tab(tab(oncmdcmd"k2$
  71. 1134 [133]"on";rd$:[139][195](rd$)[179][177]6[167][153]"ononon":[137]1132
  72. 1136 [153]"code   tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(on
  73. 1138 input"[145]";co$:ifco$=""orlen(co$)>12thenprint"[145][145][145]":goto1136
  74. 1150 nr%=0:goto1160
  75. 1151 print"wenn nicht in schuldenliste enthalten:  '0' eingeben !
  76. 1152 [133]"schuldenlisten-nummer   0cmdcmdcmd";nr%
  77. 1160 [153]"eingaben in ordnung ? (j/n/_)
  78. 1161 mz$="[145]                             [145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]
  79. 1162 [161]a$:[139]a$[178]"n"[167][153]mz$:[137]1120
  80. 1164 [139]a$[178]"_"[167]bz[178]bz[171]1:[142]
  81. 1166 [139]a$[179][177]"j"[167]1162
  82. 1168 bt$(bz)[178]bt$:bn$(bz)[178]bn$:rd$(bz)[178]rd$:ke$(bz)[178]ke$:co$(bz)[178]co$:nr%(bz)[178]nr%
  83. 1170 dm$(bz)[178]dm$:[142]
  84. 1199 [142]
  85. 1200 [153]"* korrektur *":[139]bz[178].[167][142]
  86. 1202 [133]"buchungsnummer ";bn:[139]bn[179]1[176]bn[177]bz[167][142]
  87. 1204 [153]"buchungstyp   "bt$(bn)
  88. 1206 [133]"on";bt$(bn)
  89. 1208 [139]bt$(bn)[179][177]"x"[175]bt$(bn)[179][177]"v"[175]bt$(bn)[179][177]"h"[167]1206
  90. 1210 [153]"buchungstext   "bn$(bn)
  91. 1212 [133]"on";bn$(bn)
  92. 1214 [139]bn$(bn)[178]""[176][195](bn$(bn))[177]21[167]1212
  93. 1216 [153]"rechnungsdatum   "rd$(bn)
  94. 1218 [133]"on";rd$(bn)
  95. 1220 [139][195](rd$(bn))[177]6[167]1218
  96. 1222 [153]"geld eingang am   "ke$(bn)
  97. 1224 [133]"on";ke$(bn)
  98. 1226 [139][195](ke$(bn))[179][177]6[176][201](ke$(bn),2)[179][177][201](ks$,2)[167]1224
  99. 1228 [153]"codenummer   "co$(bn)
  100. 1230 [133]"on";co$(bn)
  101. 1232 [139][195](co$(bn))[177]12[167]1230
  102. 1234 [143]print"nummer schuldenliste  "nr%(bn)
  103. 1236 [143]input"on";nr%(bn)
  104. 1238 [153]"betrag dm   ";dm$(bn)
  105. 1240 [133]"on";dm$(bn)
  106. 1242 [139]dm$(bn)[178]""[176][195](dm$(bn))[177]7[176][197](dm$(bn))[179]0[167]1240
  107. 1244 [142]
  108. 1300 [153]"* komplette liste *":[139]bz[178].[167][142]
  109. 1302 un[178].:a$[178]"tt.mm."[170]gj$:[139]uh[167][158]49155,129,a$
  110. 1304 [153]""a$
  111. 1306 [133]"onheutiges datum ";da$
  112. 1310 [141]2000
  113. 1312 [152]4,"gesamtuebersicht ueber einnahmen":[152]4
  114. 1314 [152]4,"lfd closecloseclose  rechn.   zahlg.  code               betrag  buchung
  115. 1316 print#4,"nr. [160][160][160]  datum    datum   zeichen            [dm]    text
  116. 1318 [152]4,"----------------------------------------------------------------";
  117. 1319 [152]4,"----------
  118. 1320 e1=0:ea=0:fori=1tobz
  119. 1321 ifun=1andbt$<>bt$(i)then1336
  120. 1322 al=3:a=i:gosub2300:print#4,a$;:ifnr%(i)<1thenprint#4,"    ";:goto1326
  121. 1324 al=4:a=nr%(i):gosub2300:print#4,a$;
  122. 1326 print#4," ";:ifrd$(i)=""thenprint#4,"         ";:goto1330
  123. 1328 print#4,left$(rd$(i),2)"."mid$(rd$(i),3,2)"."right$(rd$(i),2)" ";
  124. 1330 print#4,left$(ke$(i),2)"."mid$(ke$(i),3,2)"."right$(ke$(i),2)" ";
  125. 1332 print#4,bt$(i)"/"co$(i)"42";:sl=9:a=val(dm$(i)):gosub2200:print#4,a$;
  126. 1334 print#4,"  "bn$(i):e1=e1+1:ea=ea+a
  127. 1336 next
  128. 1340 print#4,"----------------------------------------------------------------";
  129. 1342 print#4,"----------
  130. 1344 [152]4,"g e s a m t s u m m e     dm42";
  131. 1346 a[178]ea:[141]2200:[152]4,a$:sl[178]13
  132. 1348 [152]4:[152]4,"anzahl posten:"e1:[137]2050
  133. 1400 [153]"* einzelpostenliste *":[139]bz[178].[167][142]
  134. 1402 a$[178]"tt.mm."[170]gj$:[139]uh[167][158]49155,129,a$
  135. 1404 [153]""a$
  136. 1406 [133]"onheutiges datum ";da$
  137. 1410 [153]"typ waehlen: (v) lohn/einkommen
  138. 1412 print"             (h) kapitalertraege
  139. 1414 [153]"             (x) andere
  140. 1416 print"             (_) abbruch
  141. 1418 [161]bt$:[139]bt$[178]"_"[167][142]
  142. 1420 [139]bt$[178]"v"[176]bt$[178]"h"[176]bt$[178]"x"[167]1424
  143. 1422 [137]1418
  144. 1424 [141]2000
  145. 1426 [152]4,"einzelpostenliste: ";
  146. 1428 [139]bt$[178]"x"[167][152]4,"sonstige
  147. 1430 ifbt$="h"thenprint#4,"kapitalertraege
  148. 1432 [139]bt$[178]"v"[167][152]4,"lohn/einkommen
  149. 1434 print#4
  150. 1436 un=1:goto1314
  151. 1500 print"* kurzuebersicht *":ifbz=.thenreturn
  152. 1502 a$="tt.mm."+gj$:ifuhthensys49155,129,a$
  153. 1504 print""a$
  154. 1506 input"[145]heutiges datum ";da$
  155. 1510 gosub2000
  156. 1512 print#4,"kurzuebersicht ueber einnahmen
  157. 1513 [153]"** momentchen... **
  158. 1514 e1=0:e2=0:e3=0:ea=0:eb=0:ec=0:fori=1tobz
  159. 1516 ifbt$(i)="v"thene1=e1+1:ea=ea+val(dm$(i))
  160. 1518 ifbt$(i)="h"thene2=e2+1:eb=eb+val(dm$(i))
  161. 1520 ifbt$(i)="x"thene3=e3+1:ec=ec+val(dm$(i))
  162. 1522 next
  163. 1524 print#4:print#4,"geld-                               anz. der       betrag
  164. 1526 [152]4,"quelle                              buchungen      [dm]
  165. 1528 print#4,"---------------------------------------------------------
  166. 1530 [152]4,"lohn/einkommen                         ";
  167. 1532 a[178]e1:[141]2100:[152]4,a$;:a[178]ea:[141]2200:[152]4,a$
  168. 1534 [152]4,"kapitalertraege                        ";
  169. 1536 a[178]e2:[141]2100:[152]4,a$;:a[178]eb:[141]2200:[152]4,a$
  170. 1538 [152]4,"andere                                 ";
  171. 1539 a[178]e3:[141]2100:[152]4,a$;:a[178]ec:[141]2200:[152]4,a$
  172. 1540 [152]4,"---------------------------------------------------------
  173. 1542 print#4,"g e s a m t s u m m e                  ";
  174. 1544 a=e1+e2+e3:gosub2100:print#4,a$;:a=ea+eb+ec:gosub2200:print#4,a$
  175. 1546 goto2050
  176. 1600 print"* programmende *
  177. 1602 [152]15,"s:ed"[170]ks$:[141]2800
  178. 1604 [159]2,8,2,"ed"[170]ks$[170]",s,w
  179. 1606 print#2,bz:ifbz=.then1614
  180. 1608 fori=1tobz
  181. 1610 print#2,bt$(i)","bn$(i)","rd$(i)","ke$(i)","co$(i)","nr%(i)","dm$(i)
  182. 1612 next
  183. 1614 close2:gosub2800:goto28
  184. 1700 open4,4:print#4
  185. 1702 print#4,"legende:":print#4
  186. 1704 remprint#4,"sch-nr.      = interne schuldenverzeichnis-nummer
  187. 1706 [152]4,"code-zeichen = interne codenummer der rechnung (geschaeftszeichen)
  188. 1708 print#4,"lfd-nr.      = laufende nummer in der einnahmenliste
  189. 1709 [152]4,"rev          = versionsnummer des verwaltungsprogrammes
  190. 1710 print#4
  191. 1712 print#4,"das erste zeichen der codenummer (vor dem schraegstrich) gibt den
  192. 1714 [152]4,"typ der einnahme an:
  193. 1716 print#4," v = lohn/einkommen
  194. 1718 [152]4," h = kapitalertrag
  195. 1720 print#4," x = andere
  196. 1722 [152]4:[137]1732:[152]4,"buchungstext bei veroeffentlichungen:
  197. 1724 print#4,"verzeichnis der betreffenden zeitschriften:
  198. 1726 [152]4,"  64/xx/yy = 64'er, ausgabe xx, jahr yy
  199. 1728 print#4,"  s6/xx    = 64'er sonderheft, ausgabe xx
  200. 1730 [152]4,"  hc/xx/yy = happy computer, ausgabe xx, jahr yy
  201. 1732 print#4:close4:return
  202. 1800 open4,4:print#4
  203. 1802 print#4,"hinweis:":print#4
  204. 1804 print#4,"in die liste der einnahmen werden nur bezahlte und erledigte rech-
  205. 1806 [152]4,"nungen bzw. honorarforderungen aufgenommen.
  206. 1808 print#4,"unter 'betrag' wird die summe angegeben, die tatsaechlich gezahlt
  207. 1810 [152]4,"wurde.
  208. 1812 print#4,"bedingung, dass eine zahlung in diese liste aufgenommen wird, ist,
  209. 1814 [152]4,"dass die zahlung in dem geschaeftsjahr erfolgte, das ueber der liste
  210. 1816 print#4,"angegeben ist. das rechnungsdatum ist hier nicht von bedeutung.
  211. 1818 [152]4,"bei zahlung durch verrechnungsscheck ist das eingangsdatum des
  212. 1820 print#4,"schecks das zahlungsdatum, bei zahlung durch ueberweisung ist das
  213. 1822 [152]4,"datum der wertstellung das zahlungsdatum.
  214. 1824 print#4:close4:return
  215. 1900 sl=9:print"[147]einzel - info
  216. 1902 [153]"buchungs-nummer:"ei
  217. 1904 [153]:[143]"schulden-nummer:"nr%(ei)
  218. 1905 [153]"code-zeichen   : "co$(ei)
  219. 1906 [153]"buchungs-text  : "bn$(ei)
  220. 1908 [153]"buchungs-typ   : "bt$(ei);
  221. 1910 [139]bt$(ei)[178]"x"[167][153]" = sonstiges";
  222. 1912 [139]bt$(ei)[178]"v"[167][153]" = lohn/einkommen";
  223. 1914 [139]bt$(ei)[178]"h"[167][153]" = kapital";
  224. 1916 [153]:[153]"betrag         : dm";:a[178][197](dm$(ei)):[141]2200:[153]a$
  225. 1918 [153]"rechungsdatum  : ";:dt$[178]rd$(ei):[141]2500
  226. 1920 [153]"geldeingang am : ";:dt$[178]ke$(ei):[141]2500
  227. 1930 [153]"tototototototototototototototototototototototototototototototototototototototo
  228. 1932 print" (+)  -  vorwaerts blaettern
  229. 1933 [153]" (-)  -  rueckwaerts blaettern
  230. 1934 print" (n)  -  buchungs-nummer eingeben
  231. 1935 [143]print" (s)  -  schulden-nummer eingeben
  232. 1936 print" (c)  -  codezeichen eingeben
  233. 1937 [153]" (_)  -  hauptmenue
  234. 1938 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  235. 1940 [151]198,.
  236. 1942 [161]a$:[139]a$[178]"_"[167][142]
  237. 1944 [139]a$[178]"+"[167]ei[178]ei[170]1:[139]ei[177]bz[167]ei[178]1
  238. 1945 [139]a$[178]"-"[167]ei[178]ei[171]1:[139]ei[179]1[167]ei[178]bz
  239. 1946 [139]a$[178]"+"[176]a$[178]"-"[167]1900
  240. 1948 [139]a$[178]"n"[167]1960
  241. 1950 [143]ifa$="s"then1970
  242. 1952 [139]a$[178]"c"[167]1980
  243. 1954 [137]1942
  244. 1960 [153]"on"ei
  245. 1962 [133]"onbuchungsnummer ";ei:[139]ei[179]1[176]ei[177]bz[167]1962
  246. 1964 [137]1900
  247. 1970 [153]"on"nr%(ei)
  248. 1972 [133]"onschuldennummer ";nr
  249. 1974 [129]ss[178]1[164]bz:[139]nr%(ss)[178]nr[167]ei[178]ss:[137]1900
  250. 1976 [130]:[137]1970
  251. 1980 [153]"on"co$(ei)
  252. 1982 [133]"oncodezeichen ";co$
  253. 1984 [129]ss[178]1[164]bz:[139]co$(ss)[178]co$[167]ei[178]ss:[137]1900
  254. 1986 [130]:[137]1980
  255. 2000 [160]4:[159]4,4:[152]4:[152]4:[152]4,"einnahmen - verwaltung";
  256. 2001 [152]4,"   rev"vr$
  257. 2002 [152]4:[152]4,"geschaeftsjahr: "kl$"37stand: "da$:[152]4,"tab(tab(tab(tab(tab(tab(tab(37";
  258. 2003 [152]4,"tab(tab(tab(":[152]4:[142]
  259. 2050 [152]4:[160]4:[142]
  260. 2100 a$[178][196](a)
  261. 2102 [139][195](a$)[179]5[167]a$[178]" "[170]a$:[137]2102
  262. 2104 [142]
  263. 2200 a$[178][196](a)
  264. 2202 [139]a[178][181](a)[167]a$[178]a$[170]".
  265. 2204 forii=1tolen(a$):ifmid$(a$,ii,1)="."then2206
  266. 2205 next:stop
  267. 2206 ifii=len(a$)-2then2208
  268. 2207 a$=a$+"0":goto2206
  269. 2208 iflen(a$)<slthena$=" "+a$:goto2208
  270. 2209 return
  271. 2300 a$=str$(a):a$=right$(a$,len(a$)-1)
  272. 2302 iflen(a$)<althena$=" "+a$:goto2302
  273. 2304 return
  274. 2400 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1:return
  275. 2500 iflen(dt$)<>6andlen(dt$)<>8thenprint"?":return
  276. 2502 iflen(dt$)=8thenprintdt$:return
  277. 2504 printleft$(dt$,2)"."mid$(dt$,3,2)"."right$(dt$,2):return
  278. 2600 ifuh=.thenprint:return
  279. 2602 sys49155,0,a$:printa$:return
  280. 2800 input#15,a:ifa>1then27
  281. 2802 return
  282. 9000 open2,8,2,"ed1988,s,r
  283. 9002 [161]#2,a$:[153]a$;:[137]9002
  284.