home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 June
/
64er_Magazin_91-06_1991_Markt__Technik_de.d64
/
automanager
(
.txt
)
next >
Wrap
Commodore BASIC
|
2022-10-26
|
26KB
|
625 lines
10 rem-autofinanzen-by h.-peter diegel,2878 wildeshausen,deekenstr.31-04431/4567
20 printchr$(14):poke657,128:goto5900
30 q=-1:poke53281,1:poke53280,6:poke53272,23:fa$=" ":poke788,52
40 po=1:ac=10:ab=100:kr=12:ok=7500:dimak$(ab,kr),vd(17):ifz$="5"thenreturn
50 gosub5250:x=.:e1=10:a=.:b$="":c$=b$:ww=.:i1=.:printue$:e=6:goto90
60 printtab(ac)"[173][192][189]":ifz1=1thenz1=.:return
70 printtab(ac)"[176][192][174]":return
90 close15:open15,8,15:iftd$=""thenq=-1:fz$=""
100 ac=13:printtab(ac)"[145]-->"fz$"<--":ac=ac-6:gosub70:printtab(ac)"[221]1[221] [212]anken":gosub60
110 printtab(ac)"[221]2[221] [197]inlesen/[211]peichern":gosub60:printtab(ac)"[221]3[221] [213]ebersichten":gosub60
120 printtab(ac)"[221]4[221] [203]orrektur":gosub60:printtab(ac)"[221]5[221] [198]ahrzeugdaten":gosub60
130 printtab(ac)"[221]6[221] [196]irectory":z1=1:gosub60:print:printfa$fa$;
140 gosub160:onpogoto2260,380,1320,3510,650,610
150 goto130
160 poke198,0
170 ifpo<1orpo>ethenpo=1
180 print""b$spc(ac+1);:fory=1topo:print""c$;:next:x=x+1:xx=28:ifx=2thenxx=158
190 ifx=3thenxx=144
200 ifx=4thenxx=30
210 ifx=5thenxx=31
220 printchr$(xx)""mid$(str$(po),2)"[146][144][157]";:ifx=>5thenx=.
230 getz$:ifz$=""orz$="[145]"orz$=""thenprint"";:goto290
240 ifb$<>""thenifz$="_"thenpo=e:return
250 ifval(z$)>.thenifval(z$)=<ethenprint"";:goto350
260 ifz$=chr$(13)goto320
270 fory=1to200:next:printchr$(xx)mid$(str$(po),2)"[144]";:getz$
280 ifb$<>""thenifz$="_"thenpo=e:return
290 ifz$=""thenifpo<>ethenprint"[157]"mid$(str$(po),2):po=po+1:goto170
300 ifz$=""thenifpo=ethenprint"[157]"mid$(str$(po),2):po=1
310 ifz$="[145]"orz$=""thenifpo<>1thenprint"[157]"mid$(str$(po),2):po=po-1:goto170
320 ifz$=chr$(13)thenz$=str$(po):return
330 ifz$="[145]"orz$=""thenifpo=1thenprint"[157]"mid$(str$(po),2):po=e:goto170
340 ifz$<"1"orval(z$)>egoto170
350 print"[157]"mid$(str$(po),2):po=val(z$):goto170
360 ifq=>.thenreturn
370 goto430
380 printue$"":ac=9:gosub70:printtab(ac)"[221]1[221] [197] i n l e s e n":z1=1:gosub60:print
390 gosub70:printtab(ac)"[221]2[221] [211] p e i c h e r n":c$="":e=3:z1=1:gosub60:print
400 gosub70:printtab(ac)"[221]3[221] zurueck zum [205]enue":z1=1:gosub60:b$="":po=1:gosub160
410 ifpo=egoto50
420 z$="2"
430 d=.:a$="e":gosub5310:ifpo=2thena$="s":d=1:gosub5320
440 printue$" [215]ie ist das [203]ennzeichen ?
450 [139]q[178][177].[167][153]" @@@ = (NULL)eustart wait
460 ac=11:qq=16:i1=1:gosub5410:ifsu$="_"thenifq<.thenfz$=""
470 ifsu$="_"goto50
480 ifsu$="@@@"thenclr:goto20
490 fz$=su$:ifq<.ora$="e"thend=.:td$="":q=-1:goto550
500 ifa$="s"goto520
510 gosub5320
520 gosub5820:gosub5380:close2:open1,8,15,"s:"+fz$:close1:open2,8,2,fz$+",s,w"
530 h=q:q$=str$(q):print#2,k1$:print#2,kt$:print#2,kp$:print#2,td$:print#2,fz$:print#2,q$
540 foru=.toq:form=.tokr:print#2,ak$(u,m)chr$(13);:nextm:nextu:goto590
550 gosub5310:gosub5820:gosub5380:close2:open2,8,2,fz$+",s,r"
560 input#2,k1$,kt$,kp$,td$,fz$,q$:q=val(q$)
570 foru=.toq:form=.tokr:input#2,ak$(u,m):nextm:nextu:h=q:ifh=.thenh=1
580 iftd$=""thenq=-1:fz$=""
590 gosub5860:close2:ifval(z$)=1ord=.thenifval(z$)<>2thenreturn
600 goto50
610 gosub5820:gosub5330:sys65511:open1,8,0,"$":get#1,a$,a$
620 printue$:sys49152,4,22,7:ifst=64thensys65484:close1:print:gosub5110:goto50
630 print:gosub5110:ifb$="_"thensys65484:close1:goto50
640 goto620
650 ac=ac+3:gosub5300:printue$tab(ac-5)"[215]ollen [211]ie wirklich einen neuen
660 [153][163]ac[171]5)"ascahrzeugdatensatz einrichten ?
670 printtab(ac+4)"[202][146]a / [206][146]ein":gosub4990:ifa>1goto50
680 gosub5380:clr:z$="5":open15,8,15:gosub30:q=.
690 gosub5300:printue$" [194]itte geben [211]ie das [203]ennzeichen ein:":i1=1
700 ac=10:qq=16:ww=-1:gosub5410:ifsu$=""goto690
710 fz$=su$:ifas=95thenclr:goto20
720 print" [194]itte geben [211]ie den [212]ag ein, an dem der [215]agen gekauft wurde !
730 ac[178]13:qq[178]10:ww[178][171]1:[141]5410:kt$[178]f$:[139]f$[178]"_"[137]690
740 x$[178]f$:[141]5740:f$[178]x$:[139]f$[178]""[167][153]"onononononononononon":[137]720
750 [153]ue$" peekitte geben (NULL)ie den (NULL)aufpreis ein :":ac[178]12:qq[178]12:ww[178][171]1:[141]5410
760 [139]as[178]95[137]690
770 k$[178]su$:[141]5470:kp$[178]k$:[139][197](k$)[178][179].[167]kp$[178]"-"
780 [153]" str$ie valintragungen gelten ab:":ac[178]13:qq[178]10:ww[178].:[141]5410:[139]f$[178]"_"[137]750
785 x$[178]f$:[141]5740:f$[178]x$
790 pp[178].:f1$[178]x$:f2$[178]kt$:[141]4620:[139]f$[178]""[176]y$[179]z$[167][153]"ononononononononon":[137]780
800 z$[178]"5":[153]ue$" (NULL)ann war der letzte (NULL)anktag ?":ac[178]13:qq[178]10:ww[178][171]1:[141]5410
810 [139]f$[178]"_"[137]750
820 td$[178]f$:x$[178]f$:[141]5740:f$[178]x$:f1$[178]kt$:f2$[178]td$:[141]4620:[139]y$[177]z$[176]f$[178]""[137]800
830 z$[178]"5":[153]" str$atum der letzten right$nspektion ?":qq[178]10:ww[178]7:[141]5410
840 [139]f$[178]"_"[137]800
850 [139]f$[178]"00.00.0000"[167]ak$(q,7)[178]"-":[137]870
860 x$[178]f$:[141]5740:f$[178]x$:[139]f$[178]""[167][153]"ononononononononon":[137]830
870 [153]ue$" (NULL)raftstoff ltr. ab "ak$(0,0):[153]:ac[178]12:qq[178]ac:ww[178]2:[141]5410
880 [139]as[178]95[137]800
890 [153]" (NULL)raftstoff str$(NULL) ab "ak$(0,0):[153]:qq[178]ac:ww[178]3:[141]5410:[139]as[178]95[137]870
895 [139][197](ak$(0,2))[178].[167][139][197](ak$(0,3))[177].[137]870
896 [139][197](ak$(0,2))[177].[167][139][197](ak$(0,3))[178].[137]870
900 [153]ue$" (NULL)etzter (NULL)erbrauch auf 100 km":qq[178]ac:ww[178]11:[141]5410:[139]as[178]95[137]870
910 [153]" chr$esamtverbrauch auf 100 km:":qq[178]ac:ww[178]12:[141]5410:[139]as[178]95[137]900
920 [153]ue$" (NULL)ilometerstand vom: "ak$(0,0)"":qq[178]ac:ww[178][171]1:[141]5410:[139]as[178]95[137]900
930 k1$[178]su$:[139][197](k1$)[178].[167]k1$[178]"-"
940 [153]" (NULL)ilometerstand vom: "td$
950 [153]" (letzter (NULL)anktag)":qq[178]ac:ww[178]1:[141]5410
955 [139]as[178]95[176][197](ak$(0,1))[179][197](k1$)[137]920
960 [153]ue$" (NULL)ieviel ltr.close(NULL)el ab "ak$(0,0):[153]:qq[178]ac:ww[178]4:[141]5410:[139]as[178]95[137]920
970 [153]" (NULL)ieviel str$(NULL) (NULL)el ab "ak$(0,0):[153]:qq[178]ac:ww[178]5:[141]5410:[139]as[178]95[137]960
975 [139][197](ak$(0,4))[178].[167][139][197](ak$(0,5))[177].[137]960
976 [139][197](ak$(0,4))[177].[167][139][197](ak$(0,5))[178].[137]960
980 [153]ue$" (NULL)eparaturkosten ab "ak$(0,0):[153]:qq[178]ac:ww[178]6:[141]5410:[139]as[178]95[137]960
990 [153]" str$(NULL) fuer (NULL)ersicherung ab "ak$(0,0):[153]:qq[178]ac:ww[178]8:[141]5410:[139]as[178]95[137]980
1000 [153]ue$" str$(NULL) fuer (NULL)teuern ab "ak$(0,0):[153]:qq[178]ac:ww[178]9:[141]5410:[139]as[178]95[137]980
1010 [153]" str$(NULL) sonstige (NULL)osten ab "ak$(0,0):[153]:qq[178]ac:ww[178]10:[141]5410:[139]as[178]95[137]1000
1020 [141]5530:a[178]2:[141]2790:d[178]1:[137]520
1030 [153]ue$"on":ac[178]3:ad[178]3:[137]1060
1040 [139]ff$[178]"d"[167][153][163]ac)"chr$ e s aclosemcloset u e b ecloser s i c h t"
1050 [139]ff$[178]"d"[167][153][163]ac)"===============================":[153]:e1[178]12:[137]1070
1060 k$[178]fz$:e1[178]12:[141]5030:[153][163]ac)"atnmtl. (NULL)ennzeichen...: "k$:[137]1080
1070 k$[178]fz$:[141]5030:[153][163]ac)"atnmtl. (NULL)ennzeichen...: "k$
1080 e1[178]10:k$[178]kt$:[141]5030:[153]:[153][163]ac)"(NULL)auftag.............:"[166]ad)k$
1090 k$[178]kp$:[141]5030:[153][163]ac)"(NULL)aufpreis str$(NULL)........:"[166]ad)k$
1100 k$[178]ak$(q,1):[141]5030:[153][163]ac)"(NULL)ilometerstand......:"[166]ad)k$
1110 [129]x[178]h[164].[169][171]1:[139][197](ak$(x,11))[177].[167]y[178]x:x[178].:[137]1130
1120 [130]:y[178].
1130 k$[178]ak$(y,11):[141]5030:[153]:[153][163]ac)"(NULL)etzter (NULL)erbrauch...:"[166]ad)k$
1140 k$[178]d2$:[141]5030:[153][163]ac)"chr$esamtverbrauch.....:"[166]ad)k$
1150 z[178]9:[141]5550:[153]:[153][163]ac)"(NULL)teuern str$(NULL)..........:"[166]ad)k$:ko[178][197](k$)
1160 z[178]6:[141]5550:[153][163]ac)"(NULL)eparatur str$(NULL)........:"[166]ad)k$:ko[178]ko[170][197](k$)
1170 z[178]8:[141]5550:[153][163]ac)"(NULL)ersicherung str$(NULL).....:"[166]ad)k$:ko[178]ko[170][197](k$)
1180 z[178]10:[141]5550:[153][163]ac)"(NULL)onstige (NULL)osten str$(NULL)..:"[166]ad)k$:ko[178]ko[170][197](k$)
1190 [141]4960:[141]5030:[153][163]ac)"(NULL)osten je km in str$(NULL)..:"[166]ad)k$
1200 [129]x[178]h[164].[169][171]1:[139]ak$(x,0)[179][177]""[167]k$[178]ak$(x,0):x[178].
1210 [130]:[139]q[178].[167]k$[178]td$
1220 [141]5030:[153]:[153][163]ac)"(NULL)etzter (NULL)anktag.....:"[166]ad)k$
1230 [129]x[178]h[164].[169][171]1:[139][197](ak$(x,7))[177].[167]y[178]x:x[178].:[137]1250
1240 [130]:y[178].
1250 k$[178]ak$(y,7):[141]5030:[153][163]ac)"(NULL)etzte right$nspektion...:"[166]ad)k$
1260 [153][163]ac)"valrste valintragung am.:"[166]ad)ak$(0,0):[139]ff$[178]"d"[167]ff$[178]"":[142]
1270 [153]" atnusdruck dieser (NULL)ebersicht ? (j/n) waiton":[141]4990:[139]a[177]1[167][142]
1280 [153]ue$" str$ r u c k e r bereit ? wait":e1[178]10:[129]r[178].[164]400:[130]
1290 [153]" und (NULL) a p i e r eingelegt (j/n) ? wait":[141]4990:[139]a[177]1[167][142]
1300 [141]5380:[139]pp[178]1[167][142]
1310 [141]5840:[159]1,4,7:[157]1:ff$[178]"d":ac[178]6:[141]1040:[152]1:[160]1:[142]
1320 [141]360:[139]q[179].[137]1320
1330 po[178]1:[141]5280:[129]x[178]h[164].[169][171]1:[139][197](ak$(x,12))[177].[167]d2$[178]ak$(x,12):x[178].:[137]1350
1340 [130]:d2$[178]"-"
1350 k$[178]"":p[178].:m[178].:pp[178].:hh[178].:[153]ue$:ac[178]5:e[178]8:i1[178].:a$[178]""
1360 [141]70:[153][199](14)[163]ac)"(NULL)1(NULL) chr$esamtuebersicht":be$[178]" -":[151]657,128
1370 [141]1440:[153][163]ac)"(NULL)2(NULL) str$aten der (NULL)anktage":[141]1440:[153][163]ac)"(NULL)3(NULL) (NULL)erbrauchswerte
1380 gosub1440:printtab(ac)"[221]4[221] [193]ndere [193]usgaben":gosub1440:printtab(ac)"[221]5[221] [201]nspektionen
1390 [141]1440:[153][163]ac)"(NULL)6(NULL) (NULL)aeulendiagramm":[141]1440:[153][163]ac)"(NULL)7(NULL) peekerechnungen/(NULL)us";
1400 [153]"ammenfassung":[141]1440:[153][163]ac)"(NULL)8(NULL) str$atensaetze/str$ruck":z1[178]1:[141]60:c$[178]"on"
1410 b$[178]"":[141]160:b$[178]"":[139]z$[178]"_"[167][141]5570:[137]50
1420 e[178]19:[145]po[141]1030,1640,1570,1710,1490,3080,3910,4820
1430 [137]1350
1440 [153][163]ac)"(NULL) (NULL)":[142]
1450 k9$[178][202](ak$(x,0),1,6)[170][201](ak$(x,0),2):[139]x[178].[167]k9$[178][202](td$,1,6)[170][201](td$,2)
1460 [142]
1470 aa[178].:[139]p[173]e[178][181](p[173]e)[167]aa[178]2:[141]5110
1480 [142]
1490 e[178]9:[141]5170:[129]x[178].[164]q:[139]ak$(x,7)[178]"-"[137]1540
1500 [139]da$[179][177]""[167][141]5240:[139]x$[179]da$[137]1540
1510 k$[178]ak$(x,1):[141]5030:p[178]p[170]1:p$[178][196](p):[139]p[177]e[167]p$[178][201](p$,2)
1520 [139]p[178]1[176]aa[178]2[167][153]ue$"on(NULL)r. - right$nspektionsdatum - (NULL)ilometerstand "fb$;
1530 [153]" "p$". "ak$(x,7)" -->"k$:[153]:[141]1470:[139]b$[178]"_"[167]x[178]q:[142]
1540 [130]:[139]p[178].[137]1560
1550 [137]5060
1560 [153]ue$" --> (NULL)eine str$aten im peekestand <--":[141]5110:[142]
1570 [141]5170:[129]x[178].[164]q:[139][197](ak$(x,11))[178].[176][197](ak$(x,3))[178].[137]1620
1580 [139]da$[179][177]""[167][141]5240:[139]x$[179]da$[137]1620
1590 p[178]p[170]1:[139]p[178]1[176]aa[178]2[167][153]ue$"onstr$atum (NULL)erbrauch ltr. - (NULL)reis je ltr."fb$;
1600 k$[178][196]([197](ak$(x,3))[173][197](ak$(x,2))):[141]5030:k2$[178]k$:k$[178]ak$(x,11):[141]5030
1610 [141]1450:[153]k9$" "k$" "k2$:[141]1470:[139]b$[178]"_"[167]x[178]q:[142]
1620 [130]:[139]p[178].[137]1560
1630 [137]5060
1640 [141]5170:[129]x[178].[164]q:[139][197](ak$(x,2))[178].[167][139][197](ak$(x,4))[178].[137]1690
1650 [139]da$[179][177]""[167][141]5240:[139]x$[179]da$[137]1690
1660 p[178]p[170]1:[139]p[178]1[176]aa[178]2[167][153]ue$"onstr$atum - peekenzin ltr.- (NULL)el ltr.- (NULL)(NULL) (NULL)tand"fb$;
1670 k$[178]ak$(x,1):[141]5030:k2$[178]k$:e1[178]8:k$[178]ak$(x,2):[141]5030:k3$[178]k$:k$[178]ak$(x,4)
1680 [141]5030:e1[178]10:[141]1450:[153]k9$" "k3$" "k$" "k2$:[141]1470:[139]b$[178]"_"[167]x[178]q:[142]
1690 [130]:[139]p[178].[137]1560
1700 [137]5060
1710 [141]5170:[129]x[178].[164]q:te[178].:[139]da$[179][177]""[167][141]5240:[139]x$[179]da$[137]1840
1720 [139]ak$(x,6)[179][177]"-"[176]ak$(x,7)[179][177]"-"[167]te[178]1
1730 [139]ak$(x,8)[179][177]"-"[176]ak$(x,9)[179][177]"-"[176]ak$(x,10)[179][177]"-"[167]te[178]1
1740 [139]te[178].[137]1840
1750 p[178]p[170]1:[139]p[178]1[176]aa[178]2[167][153]ue$"onstr$atum -right$n/(NULL)epara./(NULL)ersich./(NULL)osten/(NULL)teuer"fb$;
1760 k4$[178][201]((fa$[170]ak$(x,6)),7):[139][197](k4$)[178].[167]k4$[178]be$
1770 [139][197](ak$(x,7))[177].[167]k4$[178]"iwait"[170]k4$
1780 [139][197](ak$(x,7))[178].[167]k4$[178]" "[170]k4$
1790 k5$[178][201]((fa$[170]ak$(x,8)),7):[139][197](k5$)[178].[167]k5$[178]be$
1800 k6$[178][201]((fa$[170]ak$(x,9)),7):[139][197](k6$)[178].[167]k6$[178]be$
1810 k7$[178][201]((fa$[170]ak$(x,10)),6):[139][197](k7$)[178].[167]k7$[178][201](be$,6)
1820 [141]1450:k$[178][201](k9$,2):k0$[178][200](k9$,6):k8$[178]k0$[170]k$
1830 [153]k8$k4$" "k5$" "k7$" "k6$;:[141]1470:[139]b$[178]"_"[167]x[178]q:[142]
1840 [130]:[139]p[178].[137]1560
1850 [137]5060
1860 i[178].:[139][197](su$)[178].[175]su$[179][177]"0"[167]i[178]2
1870 [142]
1880 [153][166]ac[170]16)"->";:[141]1940:[141]1860:[139]su$[178]"_"[137]3520
1890 [142]
1900 [153]""[166]ac[170]20)"- cmdcmdcmdcmdcmdcmdcmdcmdcmd";
1910 [141]1940:[139]z$[179][177]"5"[167][142]
1920 [139]ww[179][177][171]1[167]ak$(0,ww)[178]su$
1930 [142]
1940 qq[178]16:za[178].:su$[178]"":[151]198,0
1950 [161]y$:[139]y$[178]""[137]1950
1960 as[178][198](y$):[139]as[178]20[176]as[178]44[176]as[178]46[176]as[177]47[167][139]as[179]58[137]2020
1970 [139]as[178]95[167]su$[178]"_":i1[178].:[142]
1980 [139]as[178]13[167][153]:i1[178].:[142]
1990 [139]i1[178].[137]1950
2000 [139]as[178]20[176]as[177]31[167][139]as[179]97[176]as[177]191[167][139]as[179]219[137]2020
2010 [137]1950
2020 [139]i1[178]1[167][139]as[177]64[167][139]as[179]91[167]y$[178][199](as[170]128)
2030 [139]as[178]20[167][139]za[178].[137]1950
2040 [139]as[178]20[167]y$[178]"cmd cmd":za[178]za[171]1:su$[178][202](su$,1,za):[137]2060
2050 za[178]za[170]1:[139]za[177]qq[167]za[178]qq:[137]1950
2060 [153]y$;:[139]y$[178]","[167]y$[178]"."
2070 [139]as[179][177]20[167]su$[178]su$[170]y$
2080 [137]1950
2090 [153]"toto.toto.totototocmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[141]2120:[139]z$[179][177]"5"[167][142]
2100 [139]ww[179][177][171]1[167]ak$(0,ww)[178]f$
2110 [142]
2120 za[178].:su$[178]"":[151]198,0
2130 [139]za[178]2[176]za[178]5[167]y$[178]".":[137]2220
2140 [161]y$:[139]y$[178]""[137]2140
2150 as[178][198](y$):[139]as[178]13[167][139]za[178].[167][139][197](z$)[178]4[167][142]
2160 [139]as[179]48[176]as[177]57[167][139]as[179][177]95[167][139]as[179][177]20[137]2140
2170 [139]as[178]95[167]f$[178]y$:[142]
2180 [139]as[179][177]20[137]2220
2190 [139]za[178].[137]2140
2200 y$[178]"cmd cmd":za[178]za[171]1:[139]za[178]2[176]za[178]5[167]za[178]za[171]1:y$[178]"cmdcmd .cmdcmd"
2210 su$[178][202](su$,1,za):[137]2230
2220 za[178]za[170]1:su$[178]su$[170]y$
2230 [153]y$;
2240 [139][195](su$)[179]10[137]2130
2250 [153]:f$[178]su$:[142]
2260 z$[178]"1":[141]360:[139]q[179].[137]2260
2270 q[178]q[170]1:c[178].:[139]q[178][179]ab[137]2300
2280 [153]ue$" atnchtung nicht hoch genug dimensioniert!"
2290 [153]ue$" (NULL)ariable 'atnpeek' in (NULL)eile 50 aendern !":[141]5110:q[178]q[171]1:[137]50
2300 [141]5260
2310 ac[178]11:[153]ue$:[153][163]ac)"(NULL)osten eingeben:":[153][163]ac)"tantantantantantantantantantantantantantantantan
2320 ac=ac-6:printtab(ac)"[196] a t u m .......:
2330 ac[178]ac[170]20:[153]""[163]ac)"sys"ak$(q[171]1,1):ac[178]ac[171]20:[153][163]ac)"stopon(NULL)ilometerstand...:
2340 printtab(ac)"[144][203]raftstoff ltr...:":printtab(ac)"[203]raftstoff [196][205]....:
2350 [153][163]ac)"(NULL)el ((NULL)iter)......:":[153][163]ac)"(NULL)el (str$(NULL)).........:
2360 printtab(ac)"[211]onstiges (j/n).:
2370 [153]""[163]ac[170]20);:[141]2090:[139]f$[178]"_"[167]q[178]q[171]1:[137]50
2380 x$[178]f$:[141]5740:f$[178]x$:[139]f$[178]""[137]2310
2390 ak$(q,0)[178]f$:[153]""[166]ac[170]18)"->";:[141]1940:[153]"on"[166]23)" "
2400 [139]su$[178]"_"[176][197](su$)[179][197](ak$(q[171]1,1))[137]2310
2410 ak$(q,1)[178]su$
2420 [141]1900:[139]su$[178]"_"[167][153]"onononon":[137]2310
2440 ak$(q,2)[178]su$
2450 [141]1900:[139]su$[178]"_"[167][153]"onononon":[137]2420
2460 [139][197](ak$(q,2))[177].[167][139][197](su$)[178].[167][153]"ononon":[137]2450
2465 [139][197](ak$(q,2))[178].[167][139][197](su$)[177].[167][153]"ononononon":[137]2420
2470 ak$(q,3)[178]su$
2480 [141]1900:[139]su$[178]"_"[167][153]"onononon":[137]2450
2500 ak$(q,4)[178]su$
2510 [141]1900:[139]su$[178]"_"[167][153]"onononon":[137]2480
2520 [139][197](ak$(q,4))[177].[167][139][197](su$)[178].[167][153]"ononon":[137]2510
2525 [139][197](ak$(q,4))[178].[167][139][197](su$)[177].[167][153]"ononononon":[137]2480
2530 ak$(q,5)[178]su$:[153]""[166]ac[170]20)"?waitcmd";:[141]4990:[139]a[178]2[137]2760
2540 [139]a[177]2[167][153]"cmd ":[153]"ononononon":[137]2510
2550 ac[178]7:[153]ue$:[141]70:[153][163]ac)"(NULL)1(NULL) (NULL)eparaturkosten":[141]60
2555 [153][163]ac)"(NULL)2(NULL) right$nspektionsdatum":[141]60:[153][163]ac)"(NULL)3(NULL) (NULL)teuern - valingabe":[141]60
2560 [153][163]ac)"(NULL)4(NULL) (NULL)ersicherungsbeitraege":[141]60:[153][163]ac)"(NULL)5(NULL) (NULL)onstige (NULL)osten str$(NULL)
2570 gosub60:printtab(ac)"[221]6[221] zurueck zur [197]ingabe":z1=1:gosub60:print" "fa$;
2600 b$="[145]":c$="":e=6:gosub160:ac=5:onpogoto2620,2720,2630,2640,2650
2610 goto2760
2620 x=6:su$="[210]eparaturen":goto2660
2630 x=9:su$="[203][198][218]-[211]teuern":goto2660
2640 x=8:su$="[214]ersicherung":goto2660
2650 x=10:su$="[211]onstige [203]osten"
2660 printue$tab(9)"[196][205] fuer "su$" ?":qq=16:ac=11:gosub5410
2670 ifsu$="_"orval(su$)=.goto2550
2690 ak$(q,x)=su$:ifx<>6goto2550
2700 printue$" [201]st eine [201]nspektion gemacht worden ? (j/n)
2710 [141]4990:[139]a[177]1[137]2550
2720 [153]ue$" chr$eben (NULL)ie bitte das str$atum ein:"
2730 ac[178]13:qq[178]10:[141]5410:[139]f$[178]"_"[167]ak$(q,7)[178]"-":[137]2550
2740 x$[178]f$:[141]5740:f$[178]x$:[139]f$[178]""[137]2720
2750 ak$(q,7)[178]f$:[137]2550
2760 [153]ue$" atnlles richtig (j/n) ? ":[141]4990
2770 [139]a[177]1[167][129]s[178]6[164]10:ak$(q,s)[178]"-":[130]:[137]2310
2780 [141]5380:[141]5530:a[178].
2790 [129]x[178]2[164]10:[139]x[178]7[167]x[178]8
2800 [139]ak$(q,x)[179][177]"-"[167]k$[178]ak$(q,x):[141]5460:ak$(q,x)[178]k$
2810 [130]:[139]a[178]2[167][142]
2820 [139]q[178]1[167]km[178][197](ak$(q,1))[171][197](ak$(0,1)):[137]2850
2830 [129]x[178]q[171]1[164].[169][171]1:[139][197](ak$(x,2))[177].[167]lk[178][197](ak$(x,1)):x[178].
2840 [130]:km[178][197](ak$(q,1))[171]lk
2850 [139]km[178].[167]km[178]1
2860 [139]ak$(q,1)[178]ak$(q[171]1,1)[176][197](ak$(q,2))[178].[167]c[178]3:[137]2960
2870 ak$(q,11)[178][196]([197](ak$(q,2))[172]100[173]km):[139]q[178]1[137]2910
2880 [129]x[178]q[171]1[164].[169][171]1:[139][197](ak$(x,11))[177].[167]lv[178][197](ak$(x,11)):x[178].:[137]2900
2890 [130]:[139][197](ak$(q[171]1,11))[178].[137]2910
2900 s[178]([197](ak$(q,11))[172]100[173]lv)[171]100:s[178][181]((s[170].005)[172]100)[173]100:[139]s[177].[167]tt$[178]"+"
2910 k[178][197](ak$(q,1))[171][197](k1$):[139]k[178].[167]k[178]1
2920 z[178]2:[141]5550:ak$(q,12)[178][196]([197](y$)[172]100[173]k):[139]q[178]1[137]2960
2930 [129]x[178]q[171]1[164].[169][171]1:[139][197](ak$(x,12))[177].[167]ld[178][197](ak$(x,12)):x[178].:[137]2950
2940 [130]:[139][197](ak$(q[171]1),12)[178][179].[137]2960
2950 sz[178]([197](ak$(q,12))[172]100[173]ld)[171]100:sz[178][181]((sz[170].005)[172]100)[173]100:[139]sz[177].[167]t$[178]"+"
2960 [139]c[178]3[167][153]ue$" (NULL)eine (NULL)erbrauchswerte !":[137]3030
2970 [153]ue$" valrgibt einen str$urchschnitt auf 100 km"
2980 [153]" von "ak$(q,11)" ltr. !wait"
2990 [153]" =closevalin plus bzw. minus von "tt$s"%.":tt$[178]""
3000 [153]" chr$esamtdurchschnitt ab: "ak$(0,0)
3010 [153]" "ak$(q,12)" ltr.wait auf 100 km !"
3020 [153]" right$nsgesamt ein plus bzw. minus von "t$sz" %."
3030 t$[178]"":[153]"":[141]5080:[139]b$[178]"w"[137]2270
3040 z$[178]"1":d[178]1:[141]520:[141]5570:[139]b$[178]"d"[137]610
3050 [139]b$[178]"k"[137]3520
3060 [139]b$[178]"u"[137]1320
3070 [137]50
3080 d[178][181]([197](d2$)[172]10000[170].5)[173]10000:d$[178][196](d):d$[178][200](d$,6):a$[178]"7":[141]5170
3090 [139][197](d2$)[178].[137]1560
3100 n[178].:u[178].:a[178][171]1:x[178]a:[151]53272,21:[153]"load saeulendiagramm - schnitt:"d$
3110 [129]s[178]13[164]3[169][171].5:s$[178][196](s):[139]s[177]9.5[167]s$[178][202](s$,2,2)
3120 [139][197](s$)[178][181](s)[167]s$[178]s$[170]".0"
3130 [153]s$"fn":[130]:[139][197](d$)[179]3[137]3260
3140 [139][197](d$)[177]13[167]d$[178]"13"
3150 z[178]([181]([197](d$)[172]2))[171]6:t[178]1870:v[178][197](d$)[171][181]([197](d$)):[139]v[179][178].5[137]3170
3160 v[178]v[171].5
3170 [139]v[178].5[167]z[178]z[171]1
3180 [139]v[179][178].5[167]r[178]119
3190 [139]v[179][178].4285[167]r[178]69
3200 [139]v[179][178].3571[167]r[178]68
3210 [139]v[179][178].2857[167]r[178]67
3220 [139]v[179][178].2142[167]r[178]70
3230 [139]v[179][178].1428[167]r[178]82
3240 [139]v[179][178].0071[167]r[178]111
3250 [129]x[178].[164]33:[151]t[171](z[172]40)[170]x,r:[151]54272,1:[130]:[139]m[178]1[167][142]
3260 g[178].:[129]y[178]1[164]q:[139]da$[179][177]""[167]x[178]y:[141]5240:[139]x$[179]da$[137]3290
3270 [139][197](ak$(y,11))[177].[167]n[178]n[170]1:g[178]g[170]1:vd(n)[178][197](ak$(y,11)):[141]3320
3280 [139]b$[178]"_"[167]y[178]q:[142]
3290 [130]:[139]n[178]17[167][142]
3300 [153]"stop bitte taste druecken !on"
3310 [141]5120:[142]
3320 a[178]a[170]1:[139]vd(n)[179]3.5[137]3450
3330 [139]vd(n)[177][178]3.5[167][139]vd(n)[179]4[167]p[178]1910[170]a[172]2:[137]3360
3340 [139]vd(n)[177]14[167]vd(n)[178]14
3350 qq[178][181](vd(n))[172]2:[129]x[178].[164]qq[171]7:p[178]1870[171]x[172]40[170]a[172]2:[151]p,160:[151]p[170]54272,0:[130]
3360 i[178]vd(n)[171][181](vd(n)):[139]i[177][178].5[167]p[178]p[171]40:[151]p,160:[151]p[170]54272,0:i[178]i[171].5
3370 [139]i[179].0625[137]3450
3380 p[178]p[171]40:[139]i[177][178].4375[167][151]p,99[170]128:[151]p[170]54272,0:[137]3450
3390 [139]i[177][178].375[167][151]p,119[170]128:[151]p[170]54272,0:[137]3450
3400 [139]i[177][178].3125[167][151]p,120[170]128:[151]p[170]54272,0:[137]3450
3410 [139]i[177][178].25[167][151]p,98:[151]p[170]54272,0:[137]3450
3420 [139]i[177][178].1875[167][151]p,121:[151]p[170]54272,0:[137]3450
3430 [139]i[177][178].125[167][151]p,111:[151]p[170]54272,0:[137]3450
3440 [139]i[177][178].0625[167][151]p,100:[151]p[170]54272,0
3450 u[178]u[170]1:[139]u[178]1[167][153]"monat";
3460 [153][202](ak$(y,0),4,2)"";:[139][181](u[173]2)[178]u[173]2[167][153]"stop";
3470 [139]u[178]17[167][153]"stop bitte taste druecken! (_ = menue)waiton
3480 ifu=17thengosub5120:ifb$<>"_"thenm=1:gosub3100
3490 ifu=17thenifb$="_"thenreturn
3500 return
3510 gosub360:ifq<.goto2260
3520 ac=11:ww=.:gosub5270:printue$" [215]elchen [196]atensatz moechten
3530 [153][163]ac[171]3)"(NULL)ie aendern ? 0 -"q
3540 ac[178]ac[171]4:[153][163]ac)"(NULL)elche (NULL)r.: tocmd";:[141]1940:e$[178]su$:[139]su$[178]"_"[137]50
3550 [139][197](e$[170]"1")[178].[176][197](e$)[177]q[176][197](e$)[179].[137]3520
3560 b[178][197](e$):[153]ue$" (NULL)ichtiger left$inweis! - (NULL)ichtiger left$inweis!wait"
3570 [153]" peekei atnenderung des (NULL)(NULL)-(NULL)tandeswait oder bei
3580 print" [194]enzin ltr.[146] muss der letzte [214]erbrauch
3590 [153]" sowie der chr$esamtverbrauch und evtl.
3600 print" folgende [199]esamtverbrauchswerte mit-
3610 [153]" geaendert werden !!!"
3620 [153]" (NULL)ichtiger left$inweis!- ->(NULL)aste druecken!<-waiton":[141]5120:[139]b$[178]"_"[137]50
3630 [153]ue$" (NULL)eine (NULL)eraenderung = (NULL)val(NULL)(NULL)(NULL)(NULL)-(NULL)atn(NULL)(NULL)val"
3640 ac[178]9:[153][163]ac)" str$atensatz (NULL)r.: "b:ac[178]3:[153][163]ac)"atnmtl. (NULL)ennzeichen.: "fz$
3650 [153][163]ac)"(NULL)auftag des (NULL)(NULL)(NULL)...: "kt$:[153][163]ac)"(NULL)aufpreis des (NULL)(NULL)(NULL).: "kp$
3660 [153][163]ac)"valingabedatum......: "ak$(b,0):[153][163]ac)"(NULL)ilometerstand....: "ak$(b,1)
3670 [153][163]ac)"peekenzin ltr........: "ak$(b,2):[153][163]ac)"peekenzin str$(NULL).........: "ak$(b,3)
3680 [153][163]ac)"(NULL)el ltr...........: "ak$(b,4):[153][163]ac)"(NULL)el str$(NULL)............: "ak$(b,5)
3690 [153][163]ac)"(NULL)eparatur str$(NULL)......: "ak$(b,6):[153][163]ac)"right$nspektionsdatum..: "ak$(b,7)
3700 [153][163]ac)"(NULL)ersicherung str$(NULL)...: "ak$(b,8):[153][163]ac)"(NULL)teuern str$(NULL)........: "ak$(b,9)
3710 [153][163]ac)"(NULL)onstige (NULL)osten str$(NULL): "ak$(b,10):[153][163]3)"(NULL)etzter (NULL)erbrauch.: "ak$(b,11)
3720 [153][163]ac)"chr$esamtverbrauch...: "ak$(b,12):[153][163]ac)"str$atensatzanzahl...: "q
3730 ac[178]6:[153]"":i1[178]1:[141]1880:[139]as[179][177]13[176][195](su$)[177]1[167]fz$[178]su$
3740 [141]1880:[139]i[178].[167]kt$[178]su$
3750 [141]1880:[139]i[178].[167]k$[178]su$:j[178]1:[141]5460:j[178].:kp$[178]k$
3770 [141]1880:[139]i[178].[167]ak$(b,0)[178]su$
3780 [129]x[178]1[164]kr:[141]1880:[139]i[178]2[137]3810
3790 ak$(b,x)[178]su$:[139]x7[176]x[177]10[137]3810
3800 k$[178]su$:[141]5460:ak$(b,x)[178]k$
3810 [130]:[141]1880:[139]i[178].[167]za[178][197](su$):[139]za[177]q[176]za[177]ab[167]za[178]q
3816 [139]i[178].[167][139]za[179].[167]za[178]q
3817 [139]i[178]2[167]za[178]q
3820 [153][163]ac[171]2)" left$inweis beruecksichtigt ?! wait"
3830 [153]" atnlles richtig ? (j/n/w) - _ = (NULL)enue wait";
3840 [161]d$:[139]d$[179][177]"j"[167][139]d$[179][177]"n"[167][139]d$[179][177]"_"[167][139]d$[179][177]"w"[137]3840
3870 [139]d$[178]"w"[137]3520
3880 [139]d$[178]"n"[167][156]:[137]20
3890 [139]d$[178]"_"[137]50
3900 q[178]b:[141]5530:q[178]za:d[178]1:[137]520
3910 p[178].:i[178].:pp[178].:b[178].:[129]r[178].[164]8:a$(r)[178]"":[130]
3920 ac[178]9:[153]ue$:[153][163]ac)"ascuer welchen (NULL)eitraum ?
3930 printtab(ac)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
3940 [153][163]ac)"(NULL)on wann ";:[141]2090:[139]f$[178]"_"[167][142]
3950 x$[178]f$:[141]5740:f1$[178]x$:[139]f1$[178]""[137]3920
3960 [153][163]ac)"bis wann ";:[141]2090:[139]f$[178]"_"[137]3920
3970 x$[178]f$:[141]5740:f2$[178]x$:[139]f2$[178]""[167][153]"onononon":[137]3960
3980 [139][202](f1$,7,2)[179][177]"19"[176][202](f2$,7,2)[179][177]"19"[167]f2$[178]"":[137]3920
3990 [141]5380:y[178].:[129]z[178].[164]h:[141]4610:[139]x$[179]y$[176]x$[177]z$[137]4080
4000 [139]z[178].[167]y[178][197](k1$):p[178]1
4010 bb[178]z:[139]p[178].[167][139]z[177].[167]p[178]1:y[178][197](ak$(z[171]1,1))
4020 [139]p[178]1[167]zz[178][197](ak$(z,1))
4030 a$(0)[178][196]([197](a$(0))[170][197](ak$(z,9))):a$(1)[178][196]([197](a$(1))[170][197](ak$(z,6)))
4040 a$(3)[178][196]([197](a$(3))[170][197](ak$(z,10))):a$(4)[178][196]([197](a$(4))[170][197](ak$(z,3)))
4050 a$(5)[178][196]([197](a$(5))[170][197](ak$(z,2))):a$(2)[178][196]([197](a$(2))[170][197](ak$(z,8)))
4060 a$(6)[178][196]([197](a$(6))[170][197](ak$(z,5))):a$(7)[178][196]([197](a$(7))[170][197](ak$(z,4)))
4070 [139][197](ak$(z,7))[177].[167]i[178]i[170]1:d9$[178]ak$(z,7)
4080 [130]:gk[178][181]((zz[171]y[170].05)[172]10)[173]10:[139]gk[178][179].[167]gk[178].:[137]4110
4090 s[178].:x[178].:[129]x[178].[164]4:s[178]s[170][197](a$(x)):[130]:s[178](s[170][197](a$(6)))[173]gk
4100 [139][197](a$(5))[179][177].[167]k$[178][196]([197](a$(5))[172]100[173]gk):[141]4910:a$(8)[178]k$
4110 ac[178]5:ad[178]5:[153]ue$" (NULL)osten vom "f1$" bis "f2$"wait":[137]4180
4120 [139]a$[178]"9"[176]pp[178]1[167][153]ue$" --> str$ a t e n s a t z - (NULL)r. : "x"<--":[137]4160
4130 ac[178]4:ad[178]5:[153][163]ac)"str$ a t e n s a t z - (NULL)r. :"x"
4140 printtab(ac)"============================="
4150 print:printtab(ac)"[196]atum..........:"spc(ad)ak$(q,0)
4160 ifa$="9"thenifx>.thengk=val(ak$(x,1))-val(ak$(x-1,1))
4170 ifa$="9"thenifx=.thengk=val(ak$(x,1))-val(k1$):print"[145]"
4180 k$=str$(gk):gosub5030:ac=4:ad=5
4190 print:printtab(ac)"[199]efahrene [203][205]...:"spc(ad)k$:ifa$="9"thena$(8)=ak$(x,11)
4200 k$=a$(8):gosub5030:printtab(ac)"[214]erbrauch......:"spc(ad)k$:ifa$="9"thens=val(ak$(x,12))
4210 k$=str$(s):gosub5030
4220 ifa$<>"9"thenprinttab(ac)"[203]osten je [203][205]...:"spc(ad)k$
4230 ifa$="9"thenprinttab(ac)"[199]esamtverbrauch:"spc(ad)k$
4240 k$=ak$(x,2):gosub5030:ifa$<>"9"thend=5:gosub5160
4250 print:printtab(ac)"[203]raftstoff ltr.:"spc(ad)k$
4260 k$=ak$(x,3):gosub5030:ifa$<>"9"thend=4:gosub5160
4270 printtab(ac)"[203]raftstoff [196][205]..:"spc(ad)k$
4280 k$=ak$(x,4):gosub5030:ifa$<>"9"thend=7:gosub5160
4290 printtab(ac)"[207]el ltr........:"spc(ad)k$
4300 k$=ak$(x,5):gosub5030:ifa$<>"9"thend=6:gosub5160
4310 printtab(ac)"[207]el [196][205].........:"spc(ad)k$
4320 k$=ak$(x,9):gosub5030:ifa$<>"9"thend=.:gosub5160
4330 print:printtab(ac)"[211]teuern [196][205].....:"spc(ad)k$
4340 k$=ak$(x,6):gosub5030:ifa$<>"9"thend=1:gosub5160
4350 printtab(ac)"[210]eparaturen [196][205].:"spc(ad)k$
4360 k$=ak$(x,8):gosub5030:ifa$<>"9"thend=2:gosub5160
4370 printtab(ac)"[214]ersicherung [196][205]:"spc(ad)k$
4380 k$=ak$(x,10):gosub5030:ifa$<>"9"thend=3:gosub5160
4390 printtab(ac)"[211]onstige [203]osten:"spc(ad)k$
4400 ifa$="9"thenk$=ak$(x,7):gosub5030:print:printtab(ac)"[201]nspektion am..:"spc(ad)k$
4410 ifa$<>"9"thenk$=str$(i):gosub5030:print:printtab(ac)"[201]nspektionen...:"spc(ad)k$
4420 ifff$="d"thenifpp=1thenff$="":return
4430 printtab(ac)" [193]usdruck - (ja/nein) ? [146]"
4440 ifa$<>"9"thenprint" [196][193][212][197][206][218][213][211][193][205][205][197][206][198][193][211][211][213][206][199][160]? --> 'z' <--[146]";
4450 ifa$="9"thenprint" [215]eitere [196]atensaetze ansehen ? 'w' [146]";
4460 geti$:ifi$<>"j"thenifi$<>"n"thenifi$<>"w"thenifi$<>"z"thenifi$<>"_"goto4460
4470 ifi$="_"goto1350
4480 ifi$="n"ora$="9"thenreturn
4490 ifi$="z"thenifa$="9"goto4460
4500 ifi$="z"thenifa$<>"9"goto5640
4510 ifi$="w"thenifa$<>"9"goto4460
4520 ifi$="w"thenreturn
4530 z=.:pp=1:gosub1280:ifa>1thenreturn
4540 gosub5840:ac=109:open1,4,7:cmd1:print#1,chr$(27)chr$(15);
4550 print#1,"[196]atenausdruck des [203]fz -->"fz$" <-- fuer den [218]eitraum: "f1$" bis "f2$
4560 forx=.toac:print#1,"-";:next:print#1
4570 print#1,"[196] a t u m [203][205]-[211]tand ltr.[203]raftstoff [196][205] ltr. [207]el [196][205]";
4580 print#1," [214]ersicherung [211]teuer [210]eparatur [201]nspektion [214]erbrauch [211].[203]osten"
4590 forx=.toac:print#1,"-";:next:print#1:ifhh>1thenreturn
4600 hh=1:forz=.toq:ifhh/50=int(hh/50)thengosub4570
4610 x$=right$(ak$(z,0),4)+mid$(ak$(z,0),4,2)+left$(ak$(z,0),2):rem datumssatz
4620 y$=right$(f1$,4)+mid$(f1$,4,2)+left$(f1$,2):rem von wann
4630 z$=right$(f2$,4)+mid$(f2$,4,2)+left$(f2$,2):ifpp=.thenreturn
4640 ifx$<y$orx$>z$goto4740
4650 hh=hh+1:forx=2to10:ifx=7goto4670
4660 iflen(ak$(z,x))>8thenak$(z,x)=right$(ak$(z,x),8)
4670 next:print#1,ak$(z,0)spc(9-len(ak$(z,1)))ak$(z,1)spc(9-len(ak$(z,2)))ak$(z,2);
4680 print#1,spc(8-len(ak$(z,3)))ak$(z,3)spc(7-len(ak$(z,4)))ak$(z,4);
4690 print#1,spc(7-len(ak$(z,5)))ak$(z,5)spc(10-len(ak$(z,8)))ak$(z,8);
4700 print#1,spc(10-len(ak$(z,9)))ak$(z,9)spc(10-len(ak$(z,6)))ak$(z,6);
4710 print#1,spc(11-len(ak$(z,7)))ak$(z,7);:k$=ak$(z,11):gosub4910
4720 print#1,spc(10-len(k$))k$spc(9-len(ak$(z,10)))ak$(z,10)
4730 ifhh/50=int(hh/50)thenprintue$" [206]eues [194]latt einlegen !":gosub5110
4740 next:forx=.toac:print#1,"-";:next:forr=.to7:k$=a$(r):gosub5460:a$(r)=k$:next
4750 print#1,chr$(13)"[211]ummen -->"spc(9-len(str$(gk)))gkspc(8-len(a$(5)))a$(5);
4760 print#1,spc(8-len(a$(4)))a$(4)spc(7-len(a$(7)))a$(7);
4770 print#1,spc(7-len(a$(6)))a$(6)spc(10-len(a$(2)))a$(2);
4780 print#1,spc(10-len(a$(0)))a$(0)spc(10-len(a$(1)))a$(1);
4790 i$=str$(i):print#1,spc(11-len(i$))i$;
4800 print#1,spc(10-len(a$(8)))a$(8)spc(9-len(a$(3)))a$(3)
4810 forx=.toac:print#1,"=";:next:print#1,chr$(27)chr$(80):print#1:close1:return
4820 printue$" [215]elchen [196]atensatz moechten "
4830 print" [211]ie sehen ? 0 -"q
4840 print" [215]elche [206]r.: [164][157]";:gosub1940:x$=su$:x=val(x$)
4850 ifsu$="_"thenreturn
4860 ifx>qorx<.goto4820
4870 a$="9":gosub4120:ifi$="n"thenreturn
4880 ifi$="w"goto4820
4890 pp=1:e1=7:gosub1280:ifa>1thenreturn
4900 gosub5840:a$="9":ff$="d":open1,4,7:cmd1:gosub4130:print#1:close1:goto4820
4910 k$=str$(int(val(k$)*1000+.5)/1000):ifval(k$)=.thenk$=" -":return
4920 ifint(val(k$))=val(k$)thenk$=k$+"."
4930 k$=k$+"000":ifval(k$)=>10thenk$=mid$(k$,2,6)
4940 ifval(k$)<10thenk$=left$(k$,6)
4950 return
4960 k=val(ak$(q,1))-val(k1$):ifk=.thenk=1
4970 z=3:gosub5550:ko=ko+val(y$):z=5:gosub5550:ko=ko+val(y$):ifko=.thenk$="-":return
4980 k$=str$(ko/k):return
4990 geta$:ifa$<>"j"thenifa$<>"n"thenifa$<>"_"goto4990
5000 ifa$="j"thena=1:return
5010 ifa$="n"thena=2:return
5020 a=3:return
5030 iflen(k$)=e1thenreturn
5040 iflen(k$)>e1thenk$=left$(k$,e1):return
5050 k$=right$((fa$+k$),e1):return
5060 ifaa=2thenprintue$
5070 print" --> [203]eine weiteren [196]aten <--":goto5120
5080 print" w = weitere [197]ingabe/ d = [196]irectory [146]"
5090 print" u = -[213]ebersichten- / k = [203]orrektur [146][145]":goto5120
5100 print""
5110 print" [194]itte [212]aste ! [146] [145]";
5120 poke198,0
5130 b$="":getb$:ifb$=""goto5130
5140 poke198,0:ifb$="_"ora$="7"thenprint"[147]"
5150 return
5160 k$=a$(d):k$=str$(int(val(k$)*100+.5)/100):gosub5460:gosub5030:return
5170 printue$" [218]eitliche [197]inschraenkung ?"
5180 print" [202][146] a / [206][146] ein":gosub4990:da$="":ifa=2thenreturn
5190 ifa=3goto50
5200 printue$" [193]b welchem [196]atum ?":ac=13:qq=10:gosub5410:qq=16
5210 iff$="_"goto50
5220 x$=f$:gosub5740:da$=x$:ifx$=""goto5200
5230 da$=right$(da$,4)+mid$(da$,4,2)+left$(da$,2):return
5240 x$=right$(ak$(x,0),4)+mid$(ak$(x,0),4,2)+left$(ak$(x,0),2):return
5250 u$=" [193] u t o f i n a n z e n ":goto5340
5260 u$=" [212] a n k e n ":goto5340
5270 u$=" [203] o r r e k t u r ":goto5340
5280 fb$="[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
5290 u$=" [213] e b e r s i c h t ":goto5340
5300 u$="[198] a h r z e u g d a t e n":goto5340
5310 u$=" [197] i n l e s e n ":goto5340
5320 u$=" [211] p e i c h e r n ":goto5340
5330 u$=" [196] i r e c t o r y "
5340 ue$="[147][144] "
5350 ue$=ue$+" "+u$+" "
5360 ue$=ue$+" [146][144]"
5370 ue$=ue$+" _ = [211]chritt zurueck [146]":return
5380 printue$""tab(11)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]":printtab(11)"[221]"spc(16)"[221]"
5390 printtab(11)"[221] [194]itte warten ! [221]":printtab(11)"[221]"spc(16)"[221]
5400 [153][163]11)"/tantantantantantantantantantantantantantantantanexp":[153]""fa$fa$" ";:[142]
5410 [153][163]ac)"or";:[129]f[178]1[164]qq:[153]"tan";:[130]:[153]"^":[153][163]ac)"(NULL)";:[129]f[178]1[164]qq:[153]"to";:[130]:[153]"(NULL)
5420 printtab(ac)"[173]";:forf=1toqq:print"[192]";:next:print"[189][145][145]":printtab(ac+1);:ifqq=10thengosub2090:return
5430 ifz$="5"thensa=qq:gosub1910:ifval(su$)=>.thenreturn
5440 ifz$="5"thenifval(su$)<.thenprint"[145][145][145]":qq=sa:goto5410
5450 gosub1940:return
5460 ifj=1orj=2thengosub5520
5470 ifk$="-"thenreturn
5480 y=len(k$):r$=right$(k$,3):ifleft$(r$,1)="."thenreturn
5490 ifval(k$)=int(val(k$))thenk$=k$+".00":return
5500 ifmid$(k$,y-1,1)="."thenk$=k$+"0"
5510 return
5520 ifval(k$)=.thenk$="-":return
5530 forx=.to12:ifval(ak$(q,x))=.thenak$(q,x)="-"
5540 next:return
5550 y=.:forx=.toq:y=y+val(ak$(x,z)):next:y$=str$(int(y*100+.5)/100):ify=.theny$="-"
5560 k$=y$:gosub5460:y$=k$:gosub5030:return
5570 forx=qto.step-1:ifval(ak$(x,4))>.theno1=val(ak$(x,1)):x=.:goto5590
5580 next:k2=val(ak$(q,1))-val(k1$):goto5600
5590 k2=val(ak$(q,1))-o1
5600 ifk2<okthenreturn
5610 gosub5250:printue$" [194]itte [207]elstand kontrollieren ! [146]"
5620 print" [211]ie fahren bereits"k2" km ohne [207]el":print" nachgetankt oder gewechselt ";
5630 print"zu haben !":print" [194]itte [207]elstand kontrollieren ! [146]":poke198,0:wait198,1:return
5640 printue$" [199]eben [211]ie bitte das [203]ennzeichen"
5650 print" fuer die [193]bspeicherung ein !"
5660 print" (z.[194]. [202]ahrgang '89' anhaengen [146]":qq=16:i1=1:ac=11:gosub5410
5670 ifsu$=""goto5640
5680 ifsu$="_"thenreturn
5690 ak$(0,1)=ak$(bb,1):ak$(0,11)=ak$(bb,11):ak$(0,12)=ak$(bb,12):td$=ak$(bb,0)
5700 print" [194]itte warten ! [146] [145]":ak$(0,7)=d9$:fz$=su$
5705 k1$=str$(val(ak$(0,1))-gk):ifd9$=""thenak$(0,7)="-"
5710 d=5:gosub5160:ak$(0,2)=k$:d=4:gosub5160:ak$(0,3)=k$:d=7:gosub5160:ak$(0,4)=k$
5720 d=6:gosub5160:ak$(0,5)=k$:d=1:gosub5160:ak$(0,6)=k$:d=2:gosub5160:ak$(0,8)=k$
5730 d=.:gosub5160:ak$(0,9)=k$:d=3:gosub5160:ak$(0,10)=k$:q=.:h=.:d=1:gosub520:clr:goto20
5740 d4=val(mid$(x$,1,2)):d5=val(mid$(x$,4,2)):ifd4=.ord4>31ord5=.ord5>12thenx$="":return
5750 ifd5=4ord5=6ord5=9ord5=11goto5780
5760 ifd5=2goto5800
5770 return
5780 ifd4>30thenx$=""
5790 return
5800 ifd4>29thenx$=""
5810 return
5820 poke768,185:open1,8,15,"i":close1:poke768,139:ifst<>-128goto5860
5830 goto5850
5840 poke768,185:open1,4,7:print#1:close1:poke768,139:ifst<>-128thenreturn
5850 printue$" [199]eraet nicht bereit !":gosub5110:goto50
5860 input#15,sa,s$,y,y:ifsa=.thenreturn
5870 printue$" [198]ehlermeldung der [198]loppy"
5880 print" "sa" "s$"":gosub5110:ifq=-1thenrun
5890 goto50
5900 ifpeek(50944)=165thenifpeek(51382)=96goto5940
5910 poke53281,15:poke53280,15:print"[147][144]":gosub5380
5920 forx=49152to51383:reada:pokex,a:ifx=49238thenx=50943
5930 next:sys51356
5940 restore:clr:goto30
5950 data32,253,174,32,158,183,134,251,32,253,174,32,158,183,134,252,32,253,174
5960 data32,158,183,134,253,162,1,32,198,255,32,207,255,32,207,255,166,251
5970 data230,251,164,253,24,32,240,255,165,144,201,64,208,1,96,32,207,255,170
5980 data32,207,255,32,205,189,32,207,255,32,210,255,201,0,208,246
5990 data169,13,32,210,255,165,251,197,252,208,197,32,204,255,96
6000 data165,1,133,96,169,55,133,1,169,42,141,231,7,169,1,141,231,219,166,55,165
6010 data56,134,89,133,90,169,25,160,0,133,34,132,35,132,95,132,87,132,88,197
6020 data22,240,5,32,171,199,240,247,169,7,133,83,165,45,166,46,133,34,134,35
6030 data228,48,208,4,197,47,240,5,32,161,199,240,243,133,78,134,79,169,3,133
6040 data83,165,78,166,79,228,50,208,7,197,49,208,3,76,19,200,133,34,134,35,160
6050 data0,177,34,170,200,177,34,8,200,177,34,101,78,133,78,200,177,34,101,79
6060 data133,79,40,16,211,138,48,208,200,177,34,160,0,10,105,5,101,34,133,34,144
6070 data2,230,35,166,35,228,79,208,4,197,78,240,186,32,171,199,240,243,177,34
6080 data48,94,200,177,34,16,89,200,177,34,240,84,133,93,200,177,34,170,200,177
6090 data34,197,52,144,71,208,4,228,51,144,65,134,91,133,92,165,87,166,88,224
6100 data224,208,12,197,93,176,8,198,95,133,94,169,0,162,192,56,229,93,133,87,176
6110 data1,202,134,88,165,89,166,90,56,229,93,133,89,136,145,34,176,1,202,200
6120 data138,133,90,145,34,164,93,136,177,91,145,87,152,208,248,165,83,24,101,34
6130 data133,34,144,2,230,35,166,35,160,0,96,165,87,166,88,240,48,133,91,134,92
6140 data120,169,53,133,1,165,89,166,90,133,51,134,52,165,95,16,13,162,191,32
6150 data84,200,165,94,162,224,133,91,134,92,162,255,32,84,200,165,96,201,55,240
6160 data3,32,114,200,169,32,141,231,7,165,96,133,1,88,96,160,0,177,91,145,89
6170 data230,89,208,2,230,90,136,196,91,208,5,228,92,208,1,96,230,91,208,230,230
6180 data92,208,226,169,55,133,1,169,224,32,135,200,165,95,240,5,169,160,32,135
6190 data200,76,171,200,160,0,132,34,133,35,162,32,177,34,145,34,200,208,249,230
6200 data35,202,208,244,96,169,255,133,95,32,114,200,169,53,133,1,96,76,0,199,160
6210 data2,185,168,200,153,38,181,136,16,247,96,0