home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / gesamt (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.3 KB  |  69 lines
  1. 0 dima(8,12),m$(12),a$(8),e(4,12),e$(4),es(4),as(8)
  2. 1 open15,8,15,"i
  3. 2 [159]2,8,2,"gj,s,r":[132]2,gj$:[160]2
  4. 10 [153]"loadgesamtuebersicht nach jahren
  5. 12 print"einnahmen/ausgaben
  6. 13 [139]gj$[178]""[167]gj$[178]"91
  7. 14 fori=1to8:reada$(i):next:fori=1to12:readm$(i):next
  8. 16 fori=1to4:reade$(i):next:print""gj$"[145][145]
  9. 18 [133]"heutiges datum   tt.mm.cmdcmdcmdcmdcmdcmdcmdcmd";sd$
  10. 20 [133]"von jahr   1991cmdcmdcmdcmdcmdcmd";j1:[139]j1[179]1900[167][138]
  11. 22 [133]"bis jahr   1991cmdcmdcmdcmdcmdcmd";j2:[139]j2[179]j1[167][138]
  12. 30 [129]j[178]j1[164]j2
  13. 32 [129]k[178]1[164]12:[129]i[178]1[164]8:a(i,k)[178].:[130]i,k
  14. 33 [129]k[178]1[164]12:[129]i[178]1[164]4:e(i,k)[178].:[130]i,k
  15. 34 e$[178][201]([196](j),4):[159]2,8,2,"ad"[170]e$[170]",s,r
  16. 35 fori=1to4:es(i)=.:next:fori=1to8:as(i)=.:next
  17. 36 input#15,f1:iff1then50
  18. 38 input#2,a:fori=1toa:input#2,a$,b,c,d$:d=val(mid$(d$,3,2))
  19. 40 a(c,d)=a(c,d)+b:next:close2
  20. 42 fori=1to12:a(8,i)=a(1,i)+a(2,i)+a(3,i)+a(4,i)+a(5,i)+a(6,i)+a(7,i):next
  21. 50 close2:open2,8,2,"ed"+e$+",s,r":input#2,a:fori=1toa
  22. 52 input#2,a$,x$,x$,b$,x$,x$,c:b=val(mid$(b$,3,2)):a=1:ifa$="x"thena=3
  23. 53 ifa$="h"thena=2
  24. 54 e(a,b)=e(a,b)+c
  25. 55 next:close2:fori=1to12:e(4,i)=e(1,i)+e(2,i)+e(3,i):next
  26. 56 fori=1to4:fork=1to12:es(i)=es(i)+e(i,k):nextk,i
  27. 57 fori=1to8:fork=1to12:as(i)=as(i)+a(i,k):nextk,i
  28. 100 print"jahr "e$"[146] wird gedruckt.":print"bitte drucker bereitmachen (taste)
  29. 102 [151]198,.:[146]198,1
  30. 110 [159]4,4
  31. 112 [152]4:[152]4,"generalverwaltung einnahmen/ausgaben
  32. 114 print#4:print#4:print#4,"jahr:  "e$"    stand: "sd$"     rev. p1":print#4
  33. 116 forba=1to2:ba$="einnahmen":ifba=2thenba$="ausgaben
  34. 118 [152]4:[152]4:[152]4,"ueberblick ueber  "ba$":
  35. 120 forps=1to2:pa=(ps-1)*6+1:pb=ps*6
  36. 130 print#4:print#4:print#4,"monat   ! ";:formz=patopb:print#4,m$(mz)" ! ";:next
  37. 140 ifps=2thenprint#4,"summe   !";
  38. 145 print#4
  39. 150 print#4,"========!";:fori=1to6:print#4,"=========!";:next
  40. 152 ifps=2thenprint#4,"=========!";
  41. 154 print#4:forbt=1toba*4
  42. 156 ifba=1thenprint#4,e$(bt)"!";
  43. 158 ifba=2thenprint#4,a$(bt)"!";
  44. 160 formz=patopb:a=a(bt,mz):ifba=1thena=e(bt,mz)
  45. 162 sl=9:gosub800:print#4,a$"!";:next
  46. 170 ifps=1then180
  47. 172 a=as(bt):ifba=1thena=es(bt)
  48. 174 sl=9:gosub800:print#4,a$"!";
  49. 180 print#4:ifbt<>ba*4-1then190
  50. 182 print#4,"--------!";:fori=1to6:print#4,"---------!";:next
  51. 184 ifps=2thenprint#4,"---------!";
  52. 186 print#4
  53. 190 next:next:next:dr$="                              "
  54. 200 print#4:print#4:print#4:print#4,"alle betraege in dm";
  55. 202 ifj2<>jthenprint#4,dr$"         forts. naechste seite";
  56. 204 print#4:print#4:print#4:print#4:close4:next
  57. 206 print"ende !!":end
  58. 800 a$=str$(a):ifa=int(a)thena$=a$+".
  59. 802 [129]fi[178]1[164][195](a$):[139][202](a$,fi,1)[178]"."[167]806
  60. 804 [130]:a$[178]a$[170]".
  61. 806 iflen(a$)-fi<>2thena$=a$+"0":goto806
  62. 808 iflen(a$)<slthena$=" "+a$:goto808
  63. 810 return
  64. 900 databuerobed,fachlit.,fahrtks.,computer,elektro.,"post    ",sonstig.
  65. 902 data"summe   "
  66. 904 data"januar ",februar,"maerz  ","april  ","mai    ","juni   ","juli   "
  67. 906 data"august ",septbr.,oktober,novmbr.,dezmbr.
  68. 908 data"lohn/ek.","kapital.","sonstig.","summe   "
  69.