home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64 / g+v rechnung (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.9 KB  |  93 lines
  1. 10 print"[147]gewinn + verlust - rechnung = nh-02.91
  2. 11 rv$[178]"p
  3. 12 print"programmversion "rv$"
  4. 20 [151]781,4:[158]59903:[133]"onvon jahr   1991cmdcmdcmdcmdcmdcmd";a1:[139]a1[179]1900[167]20
  5. 22 [133]"onbis jahr   1991cmdcmdcmdcmdcmdcmd";a2:[139]a2[179]a1[167]20
  6. 23 [141]60
  7. 24 [159]15,8,15,"i0
  8. 30 fori=a1toa2:j$=right$(str$(i),4)
  9. 32 jn=jn+1
  10. 34 open2,8,2,"ad"+j$+",s,r
  11. 36 [132]15,e:[139]e[167]50
  12. 38 [132]2,a:[139]a[179]1[167]50
  13. 40 [129]j[178]1[164]a:[132]2,x$,a$,x$,x$:a(jn)[178]a(jn)[170][197](a$):[130]
  14. 50 [160]2:[159]2,8,2,"ed"[170]j$[170]",s,r
  15. 51 input#15,e:ifethen56
  16. 52 input#2,a:ifa<1then56
  17. 54 forj=1toa:input#2,x$,x$,x$,x$,x$,x$,e$:e(jn)=e(jn)+val(e$):next
  18. 56 close2:g(jn)=e(jn)-a(jn):ifg(jn)<.theng(jn)=.
  19. 58 next:goto100
  20. 60 print"drucker bereitmachen !
  21. 65 [153]"analyse ? [j/n]cmdcmdcmdcmdcmd";
  22. 66 [151]198,.
  23. 67 [161]an$:[139]an$[179][177]"j"[175]an$[179][177]"n"[167]67
  24. 68 [153]an$"    "
  25. 70 [133]"heutiges datum   tt.mm.91cmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";da$:[142]
  26. 100 [159]4,4:sl[178]10
  27. 102 [152]4,"generalverwaltung:  g + v rechnung
  28. 104 print#4:print#4,"jahre"a1"bis"a2"   rev"rv$"31stand: "da$
  29. 105 print#4,"31[163][163][163][163][163]":forku=0to1
  30. 106 print#4:ku$="tatsaechlich":ifkuthenku$="kumulativ
  31. 107 ag[178]0:eg[178]0:sg[178]0:[152]4,"jahrestabelle: "ku$"
  32. 109 print#4:print#4,"jahr  !  einnahmen  !  ausgaben   !  gewinn
  33. 110 [152]4,"------!-------------!-------------!-------------
  34. 112 jn=.:fori=a1toa2:jn=jn+1
  35. 114 print#4,right$(str$(i),4)"  ! ";
  36. 116 a=e(jn):eg=eg+a:ifkuthena=eg
  37. 117 gosub1000:print#4,a$"  ! ";
  38. 118 a=a(jn):ag=ag+a:ifkuthena=ag
  39. 119 gosub1000:print#4,a$"  ! ";
  40. 120 a=g(jn):sg=sg+a:ifkuthena=sg
  41. 121 gosub1000:print#4,a$
  42. 122 next
  43. 124 print#4,"------!-------------!-------------!-------------
  44. 126 [152]4,"summe ! ";
  45. 128 a[178]eg:[141]1000:[152]4,a$"  ! ";
  46. 130 a[178]ag:[141]1000:[152]4,a$"  ! ";
  47. 132 a[178]sg:[141]1000:[152]4,a$
  48. 133 [152]4:[130]
  49. 134 [139]an$[178]"n"[167]900
  50. 200 [152]4:[152]4:[152]4,"a n a l y s e31stand: "da$:jn[178].
  51. 205 [152]4,"31tab(tab(tab(tab(tab(
  52. 210 fori=a1toa2:jn=jn+1:print#4:print#4,"analyse fuer"i"
  53. 211 [152]4:[152]4,"durchschnitt pro monat:42stundenlohn
  54. 212 print#4,"   einnahmen:   dm";:a=e(jn)/12:gosub998:print#4,a$;:gosub700
  55. 213 print#4,"    ausgaben:   dm";:a=a(jn)/12:gosub998:print#4,a$;:gosub710
  56. 214 print#4,"      gewinn:   dm";:a=g(jn)/12:gosub998:print#4,a$:ife(jn)=.then228
  57. 215 print#4:print#4,"verteilung der einnahmen von dm";:a=e(jn):sl=9
  58. 216 gosub1000:print#4,a$":
  59. 220 [152]4,"      gewinn:   dm";:a[178]g(jn):sl[178]9:[141]1000:[152]4,a$" =  ";
  60. 222 a[178]100[172]a[173]e(jn):[141]999:[152]4,a$" %
  61. 224 print#4,"    ausgaben:   dm";:a=a(jn):sl=9:gosub1000:print#4,a$" =  ";
  62. 226 a=100*a/e(jn):gosub999:print#4,a$" %
  63. 228 [139]a1[178]i[167]299
  64. 230 [152]4:[152]4,"veraenderungen gegenueber dem vorjahr:
  65. 232 print#4,"   einnahmen: ";:d1=e(jn):d2=e(jn-1):gosub2000
  66. 234 print#4,"    ausgaben: ";:d1=a(jn):d2=a(jn-1):gosub2000
  67. 236 print#4,"      gewinn: ";:d1=g(jn):d2=g(jn-1):gosub2000
  68. 299 print#4:next:goto900
  69. 700 ifi<1990then705
  70. 702 print#4,"39(38.5 std. woche)":return
  71. 705 print#4,"40(39 std. woche)":return
  72. 710 ifi<1990then715
  73. 712 print#4,"43dm";:a=e(jn)/52/38.5:goto720
  74. 715 print#4,"43dm";:a=e(jn)/52/39
  75. 720 gosub999:print#4,a$:return
  76. 900 print#4:print#4,"alle betraege in dm
  77. 902 [152]4:[152]4,"negative betraege sind durch ein minuszeichen gekennzeichnet
  78. 905 print#4:print#4:print#4,"ende "da$
  79. 910 print#4:print#4:close4:end
  80. 998 sl=9:a=int(a*100+.5)/100:goto1000
  81. 999 sl=7:a=int(a*100+.5)/100
  82. 1000 a$=str$(a):ifa=int(a)thena$=a$+".
  83. 1002 [129]ii[178]1[164][195](a$):[139][202](a$,ii,1)[178]"."[167]1010
  84. 1004 [130]
  85. 1010 [139][195](a$)[171]ii[179]2[167]a$[178]a$[170]"0":[137]1010
  86. 1012 [139][195](a$)[179]sl[167]a$[178]" "[170]a$:[137]1012
  87. 1014 [142]
  88. 2000 d[178][181]((d1[171]d2)[172]100[170].5)[173]100:[139]d[178].[167][152]4,"keine aenderung":[142]
  89. 2002 vz$[178]"+":[139]d[179].[167]vz$[178]"-":d[178][171]d
  90. 2004 [152]4,vz$" dm";:sl[178]9:a[178]d:[141]1000:[152]4,a$;:[139]d2[178].[167][152]4:[142]
  91. 2005 [152]4," = "vz$;
  92. 2006 a[178]100[172]d[173]d2:[141]999:[152]4,a$" %":[142]
  93.