64'er Special 68/64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_A.d64/wotag

Commodore BASIC | 2022-10-26 | 3KB | 78 lines

5 vs$="1
6 [134]mi%(12),dw$(6),d(6),sa%(100),so%(100)
10 [153]"loadbuchhaltung: wochentagsauswertung  v"vs$
11 [153]"(c) nh-210890-arr
12 input"heutiges datum   tt.mm.91[157][157][157][157][157][157][157][157][157][157]";ht$:ifleft$(ht$,2)="tt"thenrun
20 fori=.to6:readdw$(i):next:fori=1to12:readmi%(i):next
22 data"samstag   ","sonntag   ","montag    ","dienstag  "
24 data"mittwoch  ","donnerstag","freitag   "
26 data1,4,4,,2,5,,3,6,1,4,6
30 print"auswertung fuer (e)innahmen oder
32 [153]"                (a)usgaben
34 getty$:ifty$<>"a"andty$<>"e"then34
40 goto100
50 yr=val(right$(d$,2)):ifyr<80then90
52 mo=val(mid$(d$,3,2)):ifmo<1ormo>12then90
54 da=val(left$(d$,2)):ifda<1orda>31then90
56 ifmo=2thenifda>29then90
57 x=0:ifmo<3thenifyr-int(yr/4)*4=0thenx=-1
58 ifmo=4ormo=6ormo=9ormo=11thenifda>30then90
59 ifmo=2thenifx=0thenifda>28then90
60 wo=yr/4+yr+mi%(mo)+da+x:dw=int(wo-int(wo/7)*7):ifdw<0ordw=>7thenstop
62 return
70 s$=str$(int(w*100+.5)/100)
72 forkk=1tolen(s$):ifmid$(s$,kk,1)="."then74
73 next:s$=s$+".
74 s[178][195](s$)[171]kk:s$[178]s$[170][200]("000",2[171]s)
75 [139]l[179][195](s$)[167]s$[178][200](s$,l):[142]
76 s$[178][200]("              ",l[171][195](s$))[170]s$:[142]
90 [153]"fehlerhaftes datum: "d$" gelesen!":[144]
100 [133]"geschaeftsjahr   91cmdcmdcmdcmd";ff$:[139]ff$[179]"80"[167]100
102 [153]"nach (w)ert oder (a)nzahl ?
104 gett2$:ift2$<>"w"andt2$<>"a"then104
105 gosub400
106 print"drucker bereitmachen - taste !":poke198,.:wait198,1
110 f$="ed19"+ff$:ifty$="a"thenf$="ad19"+ff$
112 open15,8,15,"i":open2,8,2,f$+",s,r
114 [132]15,a,a$:[139]a[167][153]"diskettenfehler nr."a:[153]a$:[128]
120 [132]2,az:[139]az[179]1[167][153]"diese datei ist leer!":[144]
122 [129]i[178]1[164]az
123 [139]ty$[178]"e"[167][132]2,a$,a$,a$,d$,a$,a$,b$
124 [139]ty$[178]"a"[167][132]2,a$,b$,c$,d$
126 [141]50:[139]t2$[178]"a"[167]d(dw)[178]d(dw)[170]1
127 [139]t2$[178]"w"[167]d(dw)[178]d(dw)[170][197](b$)
128 [139]dw[178]1[167]so%(s1)[178]i:s1[178]s1[170]1
129 [139]dw[178]0[167]sa%(s2)[178]i:s2[178]s2[170]1
130 [130]:[160]2:[160]15
200 [159]4,4:[152]4:[152]4,"generalverwaltung einnahmen/ausgaben
202 print#4:print#4,"jahr: 19"ff$"19stand: "ht$"39rev. "vs$
204 a1$="einnahmen":ifty$="a"thena1$="ausgaben
207 l[178]10:eh$[178]"dm":a2$[178]"wert":[139]t2$[178]"a"[167]a2$[178]"anzahl":l[178]13:eh$[178]"##
210 print#4:print#4,"uebersicht ueber "a1$" nach "a2$"
214 [152]4:[152]4,"wochentag  ! eh ! wert      ! relativ (graf.)   ";
216 [152]4,"! relativ  !
218 print#4,"-----------!----!-----------!";
220 fori=1to19:print#4,"-";:next:print#4,"!----------!
230 ds[178].:[129]i[178]0[164]6:ds[178]ds[170]d(i):[130]:[129]i[178].[164]6
232 [152]4,dw$(i)" ! "eh$" !";:w[178]d(i):[141]70:[152]4,[200](s$,10)" ! ";
233 w[178]100[172]w[173]ds:[139][181](w[170].5)[179]1[167]235
234 [152]4,""[199](w[170].5)[199](255)"";
235 [152]4,"48! ";:al[178]l:l[178]6:[141]70:l[178]al:[152]4,s$" % !
236 next:print#4,"-----------!----!-----------!";
238 fori=1to19:print#4,"-";:next:print#4,"!----------!
240 [152]4,"summe      ! "eh$" !";:w[178]ds:[141]70:[152]4,[200](s$,10)" ! ";
242 [152]4,""[199](100)[199](255)"48! 100.00 % !
244 print#4:gosub410:print#4:print#4:print#4:close4:end
400 print"buchungsnummern der samstage und sonn-
402 [153]"tage drucken ? [j/n]
404 getss$:ifss$<>"n"andss$<>"j"then404
406 return
410 ifss$="n"thenreturn
412 ifs2=0then420
414 print#4:print#4,"buchungsnummern der samstage:
416 [129]i[178].[164]s2[171]1:[152]4,sa%(i);:[130]:[152]4
420 [139]s1[178]0[167][142]
422 [152]4:[152]4,"buchungsnummern der sonntage:
424 fori=.tos1-1:print#4,so%(i);:next:print#4
426 return