home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 June / 64er_Magazin_91-06_1991_Markt__Technik_de.d64 / automanager (.txt) next >
Commodore BASIC  |  2022-10-26  |  26KB  |  625 lines
  1. 10 rem-autofinanzen-by h.-peter diegel,2878 wildeshausen,deekenstr.31-04431/4567
  2. 20 printchr$(14):poke657,128:goto5900
  3. 30 q=-1:poke53281,1:poke53280,6:poke53272,23:fa$="                 ":poke788,52
  4. 40 po=1:ac=10:ab=100:kr=12:ok=7500:dimak$(ab,kr),vd(17):ifz$="5"thenreturn
  5. 50 gosub5250:x=.:e1=10:a=.:b$="":c$=b$:ww=.:i1=.:printue$:e=6:goto90
  6. 60 printtab(ac)"[173][192][189]":ifz1=1thenz1=.:return
  7. 70 printtab(ac)"[176][192][174]":return
  8. 90 close15:open15,8,15:iftd$=""thenq=-1:fz$=""
  9. 100 ac=13:printtab(ac)"[145]-->"fz$"<--":ac=ac-6:gosub70:printtab(ac)"[221]1[221]  [212]anken":gosub60
  10. 110 printtab(ac)"[221]2[221]  [197]inlesen/[211]peichern":gosub60:printtab(ac)"[221]3[221]  [213]ebersichten":gosub60
  11. 120 printtab(ac)"[221]4[221]  [203]orrektur":gosub60:printtab(ac)"[221]5[221]  [198]ahrzeugdaten":gosub60
  12. 130 printtab(ac)"[221]6[221]  [196]irectory":z1=1:gosub60:print:printfa$fa$;
  13. 140 gosub160:onpogoto2260,380,1320,3510,650,610
  14. 150 goto130
  15. 160 poke198,0
  16. 170 ifpo<1orpo>ethenpo=1
  17. 180 print""b$spc(ac+1);:fory=1topo:print""c$;:next:x=x+1:xx=28:ifx=2thenxx=158
  18. 190 ifx=3thenxx=144
  19. 200 ifx=4thenxx=30
  20. 210 ifx=5thenxx=31
  21. 220 printchr$(xx)""mid$(str$(po),2)"[146][144][157]";:ifx=>5thenx=.
  22. 230 getz$:ifz$=""orz$="[145]"orz$=""thenprint"";:goto290
  23. 240 ifb$<>""thenifz$="_"thenpo=e:return
  24. 250 ifval(z$)>.thenifval(z$)=<ethenprint"";:goto350
  25. 260 ifz$=chr$(13)goto320
  26. 270 fory=1to200:next:printchr$(xx)mid$(str$(po),2)"[144]";:getz$
  27. 280 ifb$<>""thenifz$="_"thenpo=e:return
  28. 290 ifz$=""thenifpo<>ethenprint"[157]"mid$(str$(po),2):po=po+1:goto170
  29. 300 ifz$=""thenifpo=ethenprint"[157]"mid$(str$(po),2):po=1
  30. 310 ifz$="[145]"orz$=""thenifpo<>1thenprint"[157]"mid$(str$(po),2):po=po-1:goto170
  31. 320 ifz$=chr$(13)thenz$=str$(po):return
  32. 330 ifz$="[145]"orz$=""thenifpo=1thenprint"[157]"mid$(str$(po),2):po=e:goto170
  33. 340 ifz$<"1"orval(z$)>egoto170
  34. 350 print"[157]"mid$(str$(po),2):po=val(z$):goto170
  35. 360 ifq=>.thenreturn
  36. 370 goto430
  37. 380 printue$"":ac=9:gosub70:printtab(ac)"[221]1[221]  [197] i n l e s e n":z1=1:gosub60:print
  38. 390 gosub70:printtab(ac)"[221]2[221]  [211] p e i c h e r n":c$="":e=3:z1=1:gosub60:print
  39. 400 gosub70:printtab(ac)"[221]3[221]  zurueck zum [205]enue":z1=1:gosub60:b$="":po=1:gosub160
  40. 410 ifpo=egoto50
  41. 420 z$="2"
  42. 430 d=.:a$="e":gosub5310:ifpo=2thena$="s":d=1:gosub5320
  43. 440 printue$"        [215]ie ist das [203]ennzeichen ?
  44. 450 [139]q[178][177].[167][153]"             @@@ = (NULL)eustart wait
  45. 460 ac=11:qq=16:i1=1:gosub5410:ifsu$="_"thenifq<.thenfz$=""
  46. 470 ifsu$="_"goto50
  47. 480 ifsu$="@@@"thenclr:goto20
  48. 490 fz$=su$:ifq<.ora$="e"thend=.:td$="":q=-1:goto550
  49. 500 ifa$="s"goto520
  50. 510 gosub5320
  51. 520 gosub5820:gosub5380:close2:open1,8,15,"s:"+fz$:close1:open2,8,2,fz$+",s,w"
  52. 530 h=q:q$=str$(q):print#2,k1$:print#2,kt$:print#2,kp$:print#2,td$:print#2,fz$:print#2,q$
  53. 540 foru=.toq:form=.tokr:print#2,ak$(u,m)chr$(13);:nextm:nextu:goto590
  54. 550 gosub5310:gosub5820:gosub5380:close2:open2,8,2,fz$+",s,r"
  55. 560 input#2,k1$,kt$,kp$,td$,fz$,q$:q=val(q$)
  56. 570 foru=.toq:form=.tokr:input#2,ak$(u,m):nextm:nextu:h=q:ifh=.thenh=1
  57. 580 iftd$=""thenq=-1:fz$=""
  58. 590 gosub5860:close2:ifval(z$)=1ord=.thenifval(z$)<>2thenreturn
  59. 600 goto50
  60. 610 gosub5820:gosub5330:sys65511:open1,8,0,"$":get#1,a$,a$
  61. 620 printue$:sys49152,4,22,7:ifst=64thensys65484:close1:print:gosub5110:goto50
  62. 630 print:gosub5110:ifb$="_"thensys65484:close1:goto50
  63. 640 goto620
  64. 650 ac=ac+3:gosub5300:printue$tab(ac-5)"[215]ollen [211]ie wirklich einen neuen
  65. 660 [153][163]ac[171]5)"ascahrzeugdatensatz einrichten ?
  66. 670 printtab(ac+4)"[202][146]a / [206][146]ein":gosub4990:ifa>1goto50
  67. 680 gosub5380:clr:z$="5":open15,8,15:gosub30:q=.
  68. 690 gosub5300:printue$"  [194]itte geben [211]ie das [203]ennzeichen ein:":i1=1
  69. 700 ac=10:qq=16:ww=-1:gosub5410:ifsu$=""goto690
  70. 710 fz$=su$:ifas=95thenclr:goto20
  71. 720 print"  [194]itte geben [211]ie den [212]ag ein, an dem     der [215]agen gekauft wurde !
  72. 730 ac[178]13:qq[178]10:ww[178][171]1:[141]5410:kt$[178]f$:[139]f$[178]"_"[137]690
  73. 740 x$[178]f$:[141]5740:f$[178]x$:[139]f$[178]""[167][153]"onononononononononon":[137]720
  74. 750 [153]ue$"  peekitte geben (NULL)ie den (NULL)aufpreis ein :":ac[178]12:qq[178]12:ww[178][171]1:[141]5410
  75. 760 [139]as[178]95[137]690
  76. 770 k$[178]su$:[141]5470:kp$[178]k$:[139][197](k$)[178][179].[167]kp$[178]"-"
  77. 780 [153]"  str$ie valintragungen gelten ab:":ac[178]13:qq[178]10:ww[178].:[141]5410:[139]f$[178]"_"[137]750
  78. 785 x$[178]f$:[141]5740:f$[178]x$
  79. 790 pp[178].:f1$[178]x$:f2$[178]kt$:[141]4620:[139]f$[178]""[176]y$[179]z$[167][153]"ononononononononon":[137]780
  80. 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
  81. 810 [139]f$[178]"_"[137]750
  82. 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
  83. 830 z$[178]"5":[153]"  str$atum der letzten right$nspektion ?":qq[178]10:ww[178]7:[141]5410
  84. 840 [139]f$[178]"_"[137]800
  85. 850 [139]f$[178]"00.00.0000"[167]ak$(q,7)[178]"-":[137]870
  86. 860 x$[178]f$:[141]5740:f$[178]x$:[139]f$[178]""[167][153]"ononononononononon":[137]830
  87. 870 [153]ue$"  (NULL)raftstoff ltr. ab "ak$(0,0):[153]:ac[178]12:qq[178]ac:ww[178]2:[141]5410
  88. 880 [139]as[178]95[137]800
  89. 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
  90. 895 [139][197](ak$(0,2))[178].[167][139][197](ak$(0,3))[177].[137]870
  91. 896 [139][197](ak$(0,2))[177].[167][139][197](ak$(0,3))[178].[137]870
  92. 900 [153]ue$"  (NULL)etzter (NULL)erbrauch auf 100 km":qq[178]ac:ww[178]11:[141]5410:[139]as[178]95[137]870
  93. 910 [153]"  chr$esamtverbrauch auf 100 km:":qq[178]ac:ww[178]12:[141]5410:[139]as[178]95[137]900
  94. 920 [153]ue$"  (NULL)ilometerstand vom: "ak$(0,0)"":qq[178]ac:ww[178][171]1:[141]5410:[139]as[178]95[137]900
  95. 930 k1$[178]su$:[139][197](k1$)[178].[167]k1$[178]"-"
  96. 940 [153]"  (NULL)ilometerstand vom: "td$
  97. 950 [153]"  (letzter (NULL)anktag)":qq[178]ac:ww[178]1:[141]5410
  98. 955 [139]as[178]95[176][197](ak$(0,1))[179][197](k1$)[137]920
  99. 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
  100. 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
  101. 975 [139][197](ak$(0,4))[178].[167][139][197](ak$(0,5))[177].[137]960
  102. 976 [139][197](ak$(0,4))[177].[167][139][197](ak$(0,5))[178].[137]960
  103. 980 [153]ue$"  (NULL)eparaturkosten ab "ak$(0,0):[153]:qq[178]ac:ww[178]6:[141]5410:[139]as[178]95[137]960
  104. 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
  105. 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
  106. 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
  107. 1020 [141]5530:a[178]2:[141]2790:d[178]1:[137]520
  108. 1030 [153]ue$"on":ac[178]3:ad[178]3:[137]1060
  109. 1040 [139]ff$[178]"d"[167][153][163]ac)"chr$ e s aclosemcloset u e b ecloser s i c h t"
  110. 1050 [139]ff$[178]"d"[167][153][163]ac)"===============================":[153]:e1[178]12:[137]1070
  111. 1060 k$[178]fz$:e1[178]12:[141]5030:[153][163]ac)"atnmtl. (NULL)ennzeichen...: "k$:[137]1080
  112. 1070 k$[178]fz$:[141]5030:[153][163]ac)"atnmtl. (NULL)ennzeichen...: "k$
  113. 1080 e1[178]10:k$[178]kt$:[141]5030:[153]:[153][163]ac)"(NULL)auftag.............:"[166]ad)k$
  114. 1090 k$[178]kp$:[141]5030:[153][163]ac)"(NULL)aufpreis str$(NULL)........:"[166]ad)k$
  115. 1100 k$[178]ak$(q,1):[141]5030:[153][163]ac)"(NULL)ilometerstand......:"[166]ad)k$
  116. 1110 [129]x[178]h[164].[169][171]1:[139][197](ak$(x,11))[177].[167]y[178]x:x[178].:[137]1130
  117. 1120 [130]:y[178].
  118. 1130 k$[178]ak$(y,11):[141]5030:[153]:[153][163]ac)"(NULL)etzter (NULL)erbrauch...:"[166]ad)k$
  119. 1140 k$[178]d2$:[141]5030:[153][163]ac)"chr$esamtverbrauch.....:"[166]ad)k$
  120. 1150 z[178]9:[141]5550:[153]:[153][163]ac)"(NULL)teuern str$(NULL)..........:"[166]ad)k$:ko[178][197](k$)
  121. 1160 z[178]6:[141]5550:[153][163]ac)"(NULL)eparatur str$(NULL)........:"[166]ad)k$:ko[178]ko[170][197](k$)
  122. 1170 z[178]8:[141]5550:[153][163]ac)"(NULL)ersicherung str$(NULL).....:"[166]ad)k$:ko[178]ko[170][197](k$)
  123. 1180 z[178]10:[141]5550:[153][163]ac)"(NULL)onstige (NULL)osten str$(NULL)..:"[166]ad)k$:ko[178]ko[170][197](k$)
  124. 1190 [141]4960:[141]5030:[153][163]ac)"(NULL)osten je km in str$(NULL)..:"[166]ad)k$
  125. 1200 [129]x[178]h[164].[169][171]1:[139]ak$(x,0)[179][177]""[167]k$[178]ak$(x,0):x[178].
  126. 1210 [130]:[139]q[178].[167]k$[178]td$
  127. 1220 [141]5030:[153]:[153][163]ac)"(NULL)etzter (NULL)anktag.....:"[166]ad)k$
  128. 1230 [129]x[178]h[164].[169][171]1:[139][197](ak$(x,7))[177].[167]y[178]x:x[178].:[137]1250
  129. 1240 [130]:y[178].
  130. 1250 k$[178]ak$(y,7):[141]5030:[153][163]ac)"(NULL)etzte right$nspektion...:"[166]ad)k$
  131. 1260 [153][163]ac)"valrste valintragung am.:"[166]ad)ak$(0,0):[139]ff$[178]"d"[167]ff$[178]"":[142]
  132. 1270 [153]"   atnusdruck dieser (NULL)ebersicht ? (j/n) waiton":[141]4990:[139]a[177]1[167][142]
  133. 1280 [153]ue$"       str$ r u c k e r   bereit ? wait":e1[178]10:[129]r[178].[164]400:[130]
  134. 1290 [153]"   und (NULL) a p i e r  eingelegt (j/n) ? wait":[141]4990:[139]a[177]1[167][142]
  135. 1300 [141]5380:[139]pp[178]1[167][142]
  136. 1310 [141]5840:[159]1,4,7:[157]1:ff$[178]"d":ac[178]6:[141]1040:[152]1:[160]1:[142]
  137. 1320 [141]360:[139]q[179].[137]1320
  138. 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
  139. 1340 [130]:d2$[178]"-"
  140. 1350 k$[178]"":p[178].:m[178].:pp[178].:hh[178].:[153]ue$:ac[178]5:e[178]8:i1[178].:a$[178]""
  141. 1360 [141]70:[153][199](14)[163]ac)"(NULL)1(NULL)  chr$esamtuebersicht":be$[178]"      -":[151]657,128
  142. 1370 [141]1440:[153][163]ac)"(NULL)2(NULL)  str$aten der (NULL)anktage":[141]1440:[153][163]ac)"(NULL)3(NULL)  (NULL)erbrauchswerte
  143. 1380 gosub1440:printtab(ac)"[221]4[221]  [193]ndere [193]usgaben":gosub1440:printtab(ac)"[221]5[221]  [201]nspektionen
  144. 1390 [141]1440:[153][163]ac)"(NULL)6(NULL)  (NULL)aeulendiagramm":[141]1440:[153][163]ac)"(NULL)7(NULL)  peekerechnungen/(NULL)us";
  145. 1400 [153]"ammenfassung":[141]1440:[153][163]ac)"(NULL)8(NULL)  str$atensaetze/str$ruck":z1[178]1:[141]60:c$[178]"on"
  146. 1410 b$[178]"":[141]160:b$[178]"":[139]z$[178]"_"[167][141]5570:[137]50
  147. 1420 e[178]19:[145]po[141]1030,1640,1570,1710,1490,3080,3910,4820
  148. 1430 [137]1350
  149. 1440 [153][163]ac)"(NULL) (NULL)":[142]
  150. 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)
  151. 1460 [142]
  152. 1470 aa[178].:[139]p[173]e[178][181](p[173]e)[167]aa[178]2:[141]5110
  153. 1480 [142]
  154. 1490 e[178]9:[141]5170:[129]x[178].[164]q:[139]ak$(x,7)[178]"-"[137]1540
  155. 1500 [139]da$[179][177]""[167][141]5240:[139]x$[179]da$[137]1540
  156. 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)
  157. 1520 [139]p[178]1[176]aa[178]2[167][153]ue$"on(NULL)r. - right$nspektionsdatum - (NULL)ilometerstand "fb$;
  158. 1530 [153]" "p$".     "ak$(x,7)"   -->"k$:[153]:[141]1470:[139]b$[178]"_"[167]x[178]q:[142]
  159. 1540 [130]:[139]p[178].[137]1560
  160. 1550 [137]5060
  161. 1560 [153]ue$"     --> (NULL)eine str$aten im peekestand <--":[141]5110:[142]
  162. 1570 [141]5170:[129]x[178].[164]q:[139][197](ak$(x,11))[178].[176][197](ak$(x,3))[178].[137]1620
  163. 1580 [139]da$[179][177]""[167][141]5240:[139]x$[179]da$[137]1620
  164. 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$;
  165. 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
  166. 1610 [141]1450:[153]k9$"    "k$"     "k2$:[141]1470:[139]b$[178]"_"[167]x[178]q:[142]
  167. 1620 [130]:[139]p[178].[137]1560
  168. 1630 [137]5060
  169. 1640 [141]5170:[129]x[178].[164]q:[139][197](ak$(x,2))[178].[167][139][197](ak$(x,4))[178].[137]1690
  170. 1650 [139]da$[179][177]""[167][141]5240:[139]x$[179]da$[137]1690
  171. 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$;
  172. 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)
  173. 1680 [141]5030:e1[178]10:[141]1450:[153]k9$" "k3$" "k$" "k2$:[141]1470:[139]b$[178]"_"[167]x[178]q:[142]
  174. 1690 [130]:[139]p[178].[137]1560
  175. 1700 [137]5060
  176. 1710 [141]5170:[129]x[178].[164]q:te[178].:[139]da$[179][177]""[167][141]5240:[139]x$[179]da$[137]1840
  177. 1720 [139]ak$(x,6)[179][177]"-"[176]ak$(x,7)[179][177]"-"[167]te[178]1
  178. 1730 [139]ak$(x,8)[179][177]"-"[176]ak$(x,9)[179][177]"-"[176]ak$(x,10)[179][177]"-"[167]te[178]1
  179. 1740 [139]te[178].[137]1840
  180. 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$;
  181. 1760 k4$[178][201]((fa$[170]ak$(x,6)),7):[139][197](k4$)[178].[167]k4$[178]be$
  182. 1770 [139][197](ak$(x,7))[177].[167]k4$[178]"iwait"[170]k4$
  183. 1780 [139][197](ak$(x,7))[178].[167]k4$[178]" "[170]k4$
  184. 1790 k5$[178][201]((fa$[170]ak$(x,8)),7):[139][197](k5$)[178].[167]k5$[178]be$
  185. 1800 k6$[178][201]((fa$[170]ak$(x,9)),7):[139][197](k6$)[178].[167]k6$[178]be$
  186. 1810 k7$[178][201]((fa$[170]ak$(x,10)),6):[139][197](k7$)[178].[167]k7$[178][201](be$,6)
  187. 1820 [141]1450:k$[178][201](k9$,2):k0$[178][200](k9$,6):k8$[178]k0$[170]k$
  188. 1830 [153]k8$k4$"  "k5$" "k7$" "k6$;:[141]1470:[139]b$[178]"_"[167]x[178]q:[142]
  189. 1840 [130]:[139]p[178].[137]1560
  190. 1850 [137]5060
  191. 1860 i[178].:[139][197](su$)[178].[175]su$[179][177]"0"[167]i[178]2
  192. 1870 [142]
  193. 1880 [153][166]ac[170]16)"->";:[141]1940:[141]1860:[139]su$[178]"_"[137]3520
  194. 1890 [142]
  195. 1900 [153]""[166]ac[170]20)"-        cmdcmdcmdcmdcmdcmdcmdcmdcmd";
  196. 1910 [141]1940:[139]z$[179][177]"5"[167][142]
  197. 1920 [139]ww[179][177][171]1[167]ak$(0,ww)[178]su$
  198. 1930 [142]
  199. 1940 qq[178]16:za[178].:su$[178]"":[151]198,0
  200. 1950 [161]y$:[139]y$[178]""[137]1950
  201. 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
  202. 1970 [139]as[178]95[167]su$[178]"_":i1[178].:[142]
  203. 1980 [139]as[178]13[167][153]:i1[178].:[142]
  204. 1990 [139]i1[178].[137]1950
  205. 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
  206. 2010 [137]1950
  207. 2020 [139]i1[178]1[167][139]as[177]64[167][139]as[179]91[167]y$[178][199](as[170]128)
  208. 2030 [139]as[178]20[167][139]za[178].[137]1950
  209. 2040 [139]as[178]20[167]y$[178]"cmd cmd":za[178]za[171]1:su$[178][202](su$,1,za):[137]2060
  210. 2050 za[178]za[170]1:[139]za[177]qq[167]za[178]qq:[137]1950
  211. 2060 [153]y$;:[139]y$[178]","[167]y$[178]"."
  212. 2070 [139]as[179][177]20[167]su$[178]su$[170]y$
  213. 2080 [137]1950
  214. 2090 [153]"toto.toto.totototocmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[141]2120:[139]z$[179][177]"5"[167][142]
  215. 2100 [139]ww[179][177][171]1[167]ak$(0,ww)[178]f$
  216. 2110 [142]
  217. 2120 za[178].:su$[178]"":[151]198,0
  218. 2130 [139]za[178]2[176]za[178]5[167]y$[178]".":[137]2220
  219. 2140 [161]y$:[139]y$[178]""[137]2140
  220. 2150 as[178][198](y$):[139]as[178]13[167][139]za[178].[167][139][197](z$)[178]4[167][142]
  221. 2160 [139]as[179]48[176]as[177]57[167][139]as[179][177]95[167][139]as[179][177]20[137]2140
  222. 2170 [139]as[178]95[167]f$[178]y$:[142]
  223. 2180 [139]as[179][177]20[137]2220
  224. 2190 [139]za[178].[137]2140
  225. 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"
  226. 2210 su$[178][202](su$,1,za):[137]2230
  227. 2220 za[178]za[170]1:su$[178]su$[170]y$
  228. 2230 [153]y$;
  229. 2240 [139][195](su$)[179]10[137]2130
  230. 2250 [153]:f$[178]su$:[142]
  231. 2260 z$[178]"1":[141]360:[139]q[179].[137]2260
  232. 2270 q[178]q[170]1:c[178].:[139]q[178][179]ab[137]2300
  233. 2280 [153]ue$" atnchtung nicht hoch genug dimensioniert!"
  234. 2290 [153]ue$"   (NULL)ariable 'atnpeek' in (NULL)eile 50 aendern !":[141]5110:q[178]q[171]1:[137]50
  235. 2300 [141]5260
  236. 2310 ac[178]11:[153]ue$:[153][163]ac)"(NULL)osten eingeben:":[153][163]ac)"tantantantantantantantantantantantantantantantan
  237. 2320 ac=ac-6:printtab(ac)"[196] a t u m .......:
  238. 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...:
  239. 2340 printtab(ac)"[144][203]raftstoff ltr...:":printtab(ac)"[203]raftstoff [196][205]....:
  240. 2350 [153][163]ac)"(NULL)el ((NULL)iter)......:":[153][163]ac)"(NULL)el (str$(NULL)).........:
  241. 2360 printtab(ac)"[211]onstiges  (j/n).:
  242. 2370 [153]""[163]ac[170]20);:[141]2090:[139]f$[178]"_"[167]q[178]q[171]1:[137]50
  243. 2380 x$[178]f$:[141]5740:f$[178]x$:[139]f$[178]""[137]2310
  244. 2390 ak$(q,0)[178]f$:[153]""[166]ac[170]18)"->";:[141]1940:[153]"on"[166]23)"  "
  245. 2400 [139]su$[178]"_"[176][197](su$)[179][197](ak$(q[171]1,1))[137]2310
  246. 2410 ak$(q,1)[178]su$
  247. 2420 [141]1900:[139]su$[178]"_"[167][153]"onononon":[137]2310
  248. 2440 ak$(q,2)[178]su$
  249. 2450 [141]1900:[139]su$[178]"_"[167][153]"onononon":[137]2420
  250. 2460 [139][197](ak$(q,2))[177].[167][139][197](su$)[178].[167][153]"ononon":[137]2450
  251. 2465 [139][197](ak$(q,2))[178].[167][139][197](su$)[177].[167][153]"ononononon":[137]2420
  252. 2470 ak$(q,3)[178]su$
  253. 2480 [141]1900:[139]su$[178]"_"[167][153]"onononon":[137]2450
  254. 2500 ak$(q,4)[178]su$
  255. 2510 [141]1900:[139]su$[178]"_"[167][153]"onononon":[137]2480
  256. 2520 [139][197](ak$(q,4))[177].[167][139][197](su$)[178].[167][153]"ononon":[137]2510
  257. 2525 [139][197](ak$(q,4))[178].[167][139][197](su$)[177].[167][153]"ononononon":[137]2480
  258. 2530 ak$(q,5)[178]su$:[153]""[166]ac[170]20)"?waitcmd";:[141]4990:[139]a[178]2[137]2760
  259. 2540 [139]a[177]2[167][153]"cmd  ":[153]"ononononon":[137]2510
  260. 2550 ac[178]7:[153]ue$:[141]70:[153][163]ac)"(NULL)1(NULL)  (NULL)eparaturkosten":[141]60
  261. 2555 [153][163]ac)"(NULL)2(NULL)  right$nspektionsdatum":[141]60:[153][163]ac)"(NULL)3(NULL)  (NULL)teuern - valingabe":[141]60
  262. 2560 [153][163]ac)"(NULL)4(NULL)  (NULL)ersicherungsbeitraege":[141]60:[153][163]ac)"(NULL)5(NULL)  (NULL)onstige (NULL)osten str$(NULL)
  263. 2570 gosub60:printtab(ac)"[221]6[221]  zurueck zur [197]ingabe":z1=1:gosub60:print"              "fa$;
  264. 2600 b$="[145]":c$="":e=6:gosub160:ac=5:onpogoto2620,2720,2630,2640,2650
  265. 2610 goto2760
  266. 2620 x=6:su$="[210]eparaturen":goto2660
  267. 2630 x=9:su$="[203][198][218]-[211]teuern":goto2660
  268. 2640 x=8:su$="[214]ersicherung":goto2660
  269. 2650 x=10:su$="[211]onstige [203]osten"
  270. 2660 printue$tab(9)"[196][205] fuer "su$" ?":qq=16:ac=11:gosub5410
  271. 2670 ifsu$="_"orval(su$)=.goto2550
  272. 2690 ak$(q,x)=su$:ifx<>6goto2550
  273. 2700 printue$"   [201]st eine [201]nspektion gemacht worden ?                (j/n)
  274. 2710 [141]4990:[139]a[177]1[137]2550
  275. 2720 [153]ue$"     chr$eben (NULL)ie bitte das str$atum ein:"
  276. 2730 ac[178]13:qq[178]10:[141]5410:[139]f$[178]"_"[167]ak$(q,7)[178]"-":[137]2550
  277. 2740 x$[178]f$:[141]5740:f$[178]x$:[139]f$[178]""[137]2720
  278. 2750 ak$(q,7)[178]f$:[137]2550
  279. 2760 [153]ue$"         atnlles richtig  (j/n) ? ":[141]4990
  280. 2770 [139]a[177]1[167][129]s[178]6[164]10:ak$(q,s)[178]"-":[130]:[137]2310
  281. 2780 [141]5380:[141]5530:a[178].
  282. 2790 [129]x[178]2[164]10:[139]x[178]7[167]x[178]8
  283. 2800 [139]ak$(q,x)[179][177]"-"[167]k$[178]ak$(q,x):[141]5460:ak$(q,x)[178]k$
  284. 2810 [130]:[139]a[178]2[167][142]
  285. 2820 [139]q[178]1[167]km[178][197](ak$(q,1))[171][197](ak$(0,1)):[137]2850
  286. 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].
  287. 2840 [130]:km[178][197](ak$(q,1))[171]lk
  288. 2850 [139]km[178].[167]km[178]1
  289. 2860 [139]ak$(q,1)[178]ak$(q[171]1,1)[176][197](ak$(q,2))[178].[167]c[178]3:[137]2960
  290. 2870 ak$(q,11)[178][196]([197](ak$(q,2))[172]100[173]km):[139]q[178]1[137]2910
  291. 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
  292. 2890 [130]:[139][197](ak$(q[171]1,11))[178].[137]2910
  293. 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]"+"
  294. 2910 k[178][197](ak$(q,1))[171][197](k1$):[139]k[178].[167]k[178]1
  295. 2920 z[178]2:[141]5550:ak$(q,12)[178][196]([197](y$)[172]100[173]k):[139]q[178]1[137]2960
  296. 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
  297. 2940 [130]:[139][197](ak$(q[171]1),12)[178][179].[137]2960
  298. 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]"+"
  299. 2960 [139]c[178]3[167][153]ue$"         (NULL)eine (NULL)erbrauchswerte !":[137]3030
  300. 2970 [153]ue$"  valrgibt einen str$urchschnitt auf 100 km"
  301. 2980 [153]"         von  "ak$(q,11)" ltr. !wait"
  302. 2990 [153]"   =closevalin plus bzw. minus von "tt$s"%.":tt$[178]""
  303. 3000 [153]"    chr$esamtdurchschnitt ab: "ak$(0,0)
  304. 3010 [153]"      "ak$(q,12)" ltr.wait auf 100 km !"
  305. 3020 [153]"    right$nsgesamt ein plus bzw. minus von                  "t$sz" %."
  306. 3030 t$[178]"":[153]"":[141]5080:[139]b$[178]"w"[137]2270
  307. 3040 z$[178]"1":d[178]1:[141]520:[141]5570:[139]b$[178]"d"[137]610
  308. 3050 [139]b$[178]"k"[137]3520
  309. 3060 [139]b$[178]"u"[137]1320
  310. 3070 [137]50
  311. 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
  312. 3090 [139][197](d2$)[178].[137]1560
  313. 3100 n[178].:u[178].:a[178][171]1:x[178]a:[151]53272,21:[153]"load      saeulendiagramm - schnitt:"d$
  314. 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)
  315. 3120 [139][197](s$)[178][181](s)[167]s$[178]s$[170]".0"
  316. 3130 [153]s$"fn":[130]:[139][197](d$)[179]3[137]3260
  317. 3140 [139][197](d$)[177]13[167]d$[178]"13"
  318. 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
  319. 3160 v[178]v[171].5
  320. 3170 [139]v[178].5[167]z[178]z[171]1
  321. 3180 [139]v[179][178].5[167]r[178]119
  322. 3190 [139]v[179][178].4285[167]r[178]69
  323. 3200 [139]v[179][178].3571[167]r[178]68
  324. 3210 [139]v[179][178].2857[167]r[178]67
  325. 3220 [139]v[179][178].2142[167]r[178]70
  326. 3230 [139]v[179][178].1428[167]r[178]82
  327. 3240 [139]v[179][178].0071[167]r[178]111
  328. 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]
  329. 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
  330. 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
  331. 3280 [139]b$[178]"_"[167]y[178]q:[142]
  332. 3290 [130]:[139]n[178]17[167][142]
  333. 3300 [153]"stop         bitte taste druecken !on"
  334. 3310 [141]5120:[142]
  335. 3320 a[178]a[170]1:[139]vd(n)[179]3.5[137]3450
  336. 3330 [139]vd(n)[177][178]3.5[167][139]vd(n)[179]4[167]p[178]1910[170]a[172]2:[137]3360
  337. 3340 [139]vd(n)[177]14[167]vd(n)[178]14
  338. 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]
  339. 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
  340. 3370 [139]i[179].0625[137]3450
  341. 3380 p[178]p[171]40:[139]i[177][178].4375[167][151]p,99[170]128:[151]p[170]54272,0:[137]3450
  342. 3390 [139]i[177][178].375[167][151]p,119[170]128:[151]p[170]54272,0:[137]3450
  343. 3400 [139]i[177][178].3125[167][151]p,120[170]128:[151]p[170]54272,0:[137]3450
  344. 3410 [139]i[177][178].25[167][151]p,98:[151]p[170]54272,0:[137]3450
  345. 3420 [139]i[177][178].1875[167][151]p,121:[151]p[170]54272,0:[137]3450
  346. 3430 [139]i[177][178].125[167][151]p,111:[151]p[170]54272,0:[137]3450
  347. 3440 [139]i[177][178].0625[167][151]p,100:[151]p[170]54272,0
  348. 3450 u[178]u[170]1:[139]u[178]1[167][153]"monat";
  349. 3460 [153][202](ak$(y,0),4,2)"";:[139][181](u[173]2)[178]u[173]2[167][153]"stop";
  350. 3470 [139]u[178]17[167][153]"stop    bitte taste druecken! (_ = menue)waiton
  351. 3480 ifu=17thengosub5120:ifb$<>"_"thenm=1:gosub3100
  352. 3490 ifu=17thenifb$="_"thenreturn
  353. 3500 return
  354. 3510 gosub360:ifq<.goto2260
  355. 3520 ac=11:ww=.:gosub5270:printue$"      [215]elchen [196]atensatz moechten
  356. 3530 [153][163]ac[171]3)"(NULL)ie aendern ? 0 -"q
  357. 3540 ac[178]ac[171]4:[153][163]ac)"(NULL)elche (NULL)r.:  tocmd";:[141]1940:e$[178]su$:[139]su$[178]"_"[137]50
  358. 3550 [139][197](e$[170]"1")[178].[176][197](e$)[177]q[176][197](e$)[179].[137]3520
  359. 3560 b[178][197](e$):[153]ue$" (NULL)ichtiger left$inweis! - (NULL)ichtiger left$inweis!wait"
  360. 3570 [153]"  peekei atnenderung des (NULL)(NULL)-(NULL)tandeswait oder bei
  361. 3580 print"  [194]enzin ltr.[146] muss der letzte [214]erbrauch
  362. 3590 [153]"   sowie der chr$esamtverbrauch und evtl.
  363. 3600 print"   folgende [199]esamtverbrauchswerte mit-
  364. 3610 [153]"           geaendert werden !!!"
  365. 3620 [153]" (NULL)ichtiger left$inweis!- ->(NULL)aste druecken!<-waiton":[141]5120:[139]b$[178]"_"[137]50
  366. 3630 [153]ue$"   (NULL)eine (NULL)eraenderung = (NULL)val(NULL)(NULL)(NULL)(NULL)-(NULL)atn(NULL)(NULL)val"
  367. 3640 ac[178]9:[153][163]ac)"  str$atensatz (NULL)r.: "b:ac[178]3:[153][163]ac)"atnmtl. (NULL)ennzeichen.:  "fz$
  368. 3650 [153][163]ac)"(NULL)auftag des (NULL)(NULL)(NULL)...:  "kt$:[153][163]ac)"(NULL)aufpreis des (NULL)(NULL)(NULL).:  "kp$
  369. 3660 [153][163]ac)"valingabedatum......:  "ak$(b,0):[153][163]ac)"(NULL)ilometerstand....:  "ak$(b,1)
  370. 3670 [153][163]ac)"peekenzin ltr........:  "ak$(b,2):[153][163]ac)"peekenzin str$(NULL).........:  "ak$(b,3)
  371. 3680 [153][163]ac)"(NULL)el ltr...........:  "ak$(b,4):[153][163]ac)"(NULL)el str$(NULL)............:  "ak$(b,5)
  372. 3690 [153][163]ac)"(NULL)eparatur str$(NULL)......:  "ak$(b,6):[153][163]ac)"right$nspektionsdatum..:  "ak$(b,7)
  373. 3700 [153][163]ac)"(NULL)ersicherung str$(NULL)...:  "ak$(b,8):[153][163]ac)"(NULL)teuern str$(NULL)........:  "ak$(b,9)
  374. 3710 [153][163]ac)"(NULL)onstige (NULL)osten str$(NULL):  "ak$(b,10):[153][163]3)"(NULL)etzter (NULL)erbrauch.:  "ak$(b,11)
  375. 3720 [153][163]ac)"chr$esamtverbrauch...:  "ak$(b,12):[153][163]ac)"str$atensatzanzahl...: "q
  376. 3730 ac[178]6:[153]"":i1[178]1:[141]1880:[139]as[179][177]13[176][195](su$)[177]1[167]fz$[178]su$
  377. 3740 [141]1880:[139]i[178].[167]kt$[178]su$
  378. 3750 [141]1880:[139]i[178].[167]k$[178]su$:j[178]1:[141]5460:j[178].:kp$[178]k$
  379. 3770 [141]1880:[139]i[178].[167]ak$(b,0)[178]su$
  380. 3780 [129]x[178]1[164]kr:[141]1880:[139]i[178]2[137]3810
  381. 3790 ak$(b,x)[178]su$:[139]x7[176]x[177]10[137]3810
  382. 3800 k$[178]su$:[141]5460:ak$(b,x)[178]k$
  383. 3810 [130]:[141]1880:[139]i[178].[167]za[178][197](su$):[139]za[177]q[176]za[177]ab[167]za[178]q
  384. 3816 [139]i[178].[167][139]za[179].[167]za[178]q
  385. 3817 [139]i[178]2[167]za[178]q
  386. 3820 [153][163]ac[171]2)"    left$inweis beruecksichtigt ?!  wait"
  387. 3830 [153]"  atnlles richtig ? (j/n/w) -  _ = (NULL)enue wait";
  388. 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
  389. 3870 [139]d$[178]"w"[137]3520
  390. 3880 [139]d$[178]"n"[167][156]:[137]20
  391. 3890 [139]d$[178]"_"[137]50
  392. 3900 q[178]b:[141]5530:q[178]za:d[178]1:[137]520
  393. 3910 p[178].:i[178].:pp[178].:b[178].:[129]r[178].[164]8:a$(r)[178]"":[130]
  394. 3920 ac[178]9:[153]ue$:[153][163]ac)"ascuer welchen (NULL)eitraum ?
  395. 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]
  396. 3940 [153][163]ac)"(NULL)on wann    ";:[141]2090:[139]f$[178]"_"[167][142]
  397. 3950 x$[178]f$:[141]5740:f1$[178]x$:[139]f1$[178]""[137]3920
  398. 3960 [153][163]ac)"bis wann    ";:[141]2090:[139]f$[178]"_"[137]3920
  399. 3970 x$[178]f$:[141]5740:f2$[178]x$:[139]f2$[178]""[167][153]"onononon":[137]3960
  400. 3980 [139][202](f1$,7,2)[179][177]"19"[176][202](f2$,7,2)[179][177]"19"[167]f2$[178]"":[137]3920
  401. 3990 [141]5380:y[178].:[129]z[178].[164]h:[141]4610:[139]x$[179]y$[176]x$[177]z$[137]4080
  402. 4000 [139]z[178].[167]y[178][197](k1$):p[178]1
  403. 4010 bb[178]z:[139]p[178].[167][139]z[177].[167]p[178]1:y[178][197](ak$(z[171]1,1))
  404. 4020 [139]p[178]1[167]zz[178][197](ak$(z,1))
  405. 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)))
  406. 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)))
  407. 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)))
  408. 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)))
  409. 4070 [139][197](ak$(z,7))[177].[167]i[178]i[170]1:d9$[178]ak$(z,7)
  410. 4080 [130]:gk[178][181]((zz[171]y[170].05)[172]10)[173]10:[139]gk[178][179].[167]gk[178].:[137]4110
  411. 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
  412. 4100 [139][197](a$(5))[179][177].[167]k$[178][196]([197](a$(5))[172]100[173]gk):[141]4910:a$(8)[178]k$
  413. 4110 ac[178]5:ad[178]5:[153]ue$"  (NULL)osten vom "f1$" bis "f2$"wait":[137]4180
  414. 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
  415. 4130 ac[178]4:ad[178]5:[153][163]ac)"str$ a t e n s a t z - (NULL)r. :"x"
  416. 4140 printtab(ac)"============================="
  417. 4150 print:printtab(ac)"[196]atum..........:"spc(ad)ak$(q,0)
  418. 4160 ifa$="9"thenifx>.thengk=val(ak$(x,1))-val(ak$(x-1,1))
  419. 4170 ifa$="9"thenifx=.thengk=val(ak$(x,1))-val(k1$):print"[145]"
  420. 4180 k$=str$(gk):gosub5030:ac=4:ad=5
  421. 4190 print:printtab(ac)"[199]efahrene [203][205]...:"spc(ad)k$:ifa$="9"thena$(8)=ak$(x,11)
  422. 4200 k$=a$(8):gosub5030:printtab(ac)"[214]erbrauch......:"spc(ad)k$:ifa$="9"thens=val(ak$(x,12))
  423. 4210 k$=str$(s):gosub5030
  424. 4220 ifa$<>"9"thenprinttab(ac)"[203]osten je [203][205]...:"spc(ad)k$
  425. 4230 ifa$="9"thenprinttab(ac)"[199]esamtverbrauch:"spc(ad)k$
  426. 4240 k$=ak$(x,2):gosub5030:ifa$<>"9"thend=5:gosub5160
  427. 4250 print:printtab(ac)"[203]raftstoff ltr.:"spc(ad)k$
  428. 4260 k$=ak$(x,3):gosub5030:ifa$<>"9"thend=4:gosub5160
  429. 4270 printtab(ac)"[203]raftstoff [196][205]..:"spc(ad)k$
  430. 4280 k$=ak$(x,4):gosub5030:ifa$<>"9"thend=7:gosub5160
  431. 4290 printtab(ac)"[207]el ltr........:"spc(ad)k$
  432. 4300 k$=ak$(x,5):gosub5030:ifa$<>"9"thend=6:gosub5160
  433. 4310 printtab(ac)"[207]el [196][205].........:"spc(ad)k$
  434. 4320 k$=ak$(x,9):gosub5030:ifa$<>"9"thend=.:gosub5160
  435. 4330 print:printtab(ac)"[211]teuern [196][205].....:"spc(ad)k$
  436. 4340 k$=ak$(x,6):gosub5030:ifa$<>"9"thend=1:gosub5160
  437. 4350 printtab(ac)"[210]eparaturen [196][205].:"spc(ad)k$
  438. 4360 k$=ak$(x,8):gosub5030:ifa$<>"9"thend=2:gosub5160
  439. 4370 printtab(ac)"[214]ersicherung [196][205]:"spc(ad)k$
  440. 4380 k$=ak$(x,10):gosub5030:ifa$<>"9"thend=3:gosub5160
  441. 4390 printtab(ac)"[211]onstige [203]osten:"spc(ad)k$
  442. 4400 ifa$="9"thenk$=ak$(x,7):gosub5030:print:printtab(ac)"[201]nspektion am..:"spc(ad)k$
  443. 4410 ifa$<>"9"thenk$=str$(i):gosub5030:print:printtab(ac)"[201]nspektionen...:"spc(ad)k$
  444. 4420 ifff$="d"thenifpp=1thenff$="":return
  445. 4430 printtab(ac)"    [193]usdruck - (ja/nein)  ?    [146]"
  446. 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]";
  447. 4450 ifa$="9"thenprint"  [215]eitere [196]atensaetze ansehen ?   'w' [146]";
  448. 4460 geti$:ifi$<>"j"thenifi$<>"n"thenifi$<>"w"thenifi$<>"z"thenifi$<>"_"goto4460
  449. 4470 ifi$="_"goto1350
  450. 4480 ifi$="n"ora$="9"thenreturn
  451. 4490 ifi$="z"thenifa$="9"goto4460
  452. 4500 ifi$="z"thenifa$<>"9"goto5640
  453. 4510 ifi$="w"thenifa$<>"9"goto4460
  454. 4520 ifi$="w"thenreturn
  455. 4530 z=.:pp=1:gosub1280:ifa>1thenreturn
  456. 4540 gosub5840:ac=109:open1,4,7:cmd1:print#1,chr$(27)chr$(15);
  457. 4550 print#1,"[196]atenausdruck des [203]fz -->"fz$" <-- fuer den [218]eitraum: "f1$" bis "f2$
  458. 4560 forx=.toac:print#1,"-";:next:print#1
  459. 4570 print#1,"[196] a t u m  [203][205]-[211]tand ltr.[203]raftstoff [196][205]  ltr. [207]el [196][205]";
  460. 4580 print#1," [214]ersicherung [211]teuer [210]eparatur [201]nspektion [214]erbrauch [211].[203]osten"
  461. 4590 forx=.toac:print#1,"-";:next:print#1:ifhh>1thenreturn
  462. 4600 hh=1:forz=.toq:ifhh/50=int(hh/50)thengosub4570
  463. 4610 x$=right$(ak$(z,0),4)+mid$(ak$(z,0),4,2)+left$(ak$(z,0),2):rem datumssatz
  464. 4620 y$=right$(f1$,4)+mid$(f1$,4,2)+left$(f1$,2):rem von wann
  465. 4630 z$=right$(f2$,4)+mid$(f2$,4,2)+left$(f2$,2):ifpp=.thenreturn
  466. 4640 ifx$<y$orx$>z$goto4740
  467. 4650 hh=hh+1:forx=2to10:ifx=7goto4670
  468. 4660 iflen(ak$(z,x))>8thenak$(z,x)=right$(ak$(z,x),8)
  469. 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);
  470. 4680 print#1,spc(8-len(ak$(z,3)))ak$(z,3)spc(7-len(ak$(z,4)))ak$(z,4);
  471. 4690 print#1,spc(7-len(ak$(z,5)))ak$(z,5)spc(10-len(ak$(z,8)))ak$(z,8);
  472. 4700 print#1,spc(10-len(ak$(z,9)))ak$(z,9)spc(10-len(ak$(z,6)))ak$(z,6);
  473. 4710 print#1,spc(11-len(ak$(z,7)))ak$(z,7);:k$=ak$(z,11):gosub4910
  474. 4720 print#1,spc(10-len(k$))k$spc(9-len(ak$(z,10)))ak$(z,10)
  475. 4730 ifhh/50=int(hh/50)thenprintue$"      [206]eues [194]latt einlegen !":gosub5110
  476. 4740 next:forx=.toac:print#1,"-";:next:forr=.to7:k$=a$(r):gosub5460:a$(r)=k$:next
  477. 4750 print#1,chr$(13)"[211]ummen -->"spc(9-len(str$(gk)))gkspc(8-len(a$(5)))a$(5);
  478. 4760 print#1,spc(8-len(a$(4)))a$(4)spc(7-len(a$(7)))a$(7);
  479. 4770 print#1,spc(7-len(a$(6)))a$(6)spc(10-len(a$(2)))a$(2);
  480. 4780 print#1,spc(10-len(a$(0)))a$(0)spc(10-len(a$(1)))a$(1);
  481. 4790 i$=str$(i):print#1,spc(11-len(i$))i$;
  482. 4800 print#1,spc(10-len(a$(8)))a$(8)spc(9-len(a$(3)))a$(3)
  483. 4810 forx=.toac:print#1,"=";:next:print#1,chr$(27)chr$(80):print#1:close1:return
  484. 4820 printue$"      [215]elchen [196]atensatz moechten "
  485. 4830 print"          [211]ie sehen ? 0 -"q
  486. 4840 print"      [215]elche [206]r.:   [164][157]";:gosub1940:x$=su$:x=val(x$)
  487. 4850 ifsu$="_"thenreturn
  488. 4860 ifx>qorx<.goto4820
  489. 4870 a$="9":gosub4120:ifi$="n"thenreturn
  490. 4880 ifi$="w"goto4820
  491. 4890 pp=1:e1=7:gosub1280:ifa>1thenreturn
  492. 4900 gosub5840:a$="9":ff$="d":open1,4,7:cmd1:gosub4130:print#1:close1:goto4820
  493. 4910 k$=str$(int(val(k$)*1000+.5)/1000):ifval(k$)=.thenk$="     -":return
  494. 4920 ifint(val(k$))=val(k$)thenk$=k$+"."
  495. 4930 k$=k$+"000":ifval(k$)=>10thenk$=mid$(k$,2,6)
  496. 4940 ifval(k$)<10thenk$=left$(k$,6)
  497. 4950 return
  498. 4960 k=val(ak$(q,1))-val(k1$):ifk=.thenk=1
  499. 4970 z=3:gosub5550:ko=ko+val(y$):z=5:gosub5550:ko=ko+val(y$):ifko=.thenk$="-":return
  500. 4980 k$=str$(ko/k):return
  501. 4990 geta$:ifa$<>"j"thenifa$<>"n"thenifa$<>"_"goto4990
  502. 5000 ifa$="j"thena=1:return
  503. 5010 ifa$="n"thena=2:return
  504. 5020 a=3:return
  505. 5030 iflen(k$)=e1thenreturn
  506. 5040 iflen(k$)>e1thenk$=left$(k$,e1):return
  507. 5050 k$=right$((fa$+k$),e1):return
  508. 5060 ifaa=2thenprintue$
  509. 5070 print"      --> [203]eine weiteren [196]aten <--":goto5120
  510. 5080 print"   w = weitere [197]ingabe/ d = [196]irectory [146]"
  511. 5090 print"   u = -[213]ebersichten- / k = [203]orrektur [146][145]":goto5120
  512. 5100 print""
  513. 5110 print"              [194]itte  [212]aste !   [146]     [145]";
  514. 5120 poke198,0
  515. 5130 b$="":getb$:ifb$=""goto5130
  516. 5140 poke198,0:ifb$="_"ora$="7"thenprint"[147]"
  517. 5150 return
  518. 5160 k$=a$(d):k$=str$(int(val(k$)*100+.5)/100):gosub5460:gosub5030:return
  519. 5170 printue$"       [218]eitliche [197]inschraenkung ?"
  520. 5180 print"             [202][146] a  /  [206][146] ein":gosub4990:da$="":ifa=2thenreturn
  521. 5190 ifa=3goto50
  522. 5200 printue$"           [193]b welchem [196]atum ?":ac=13:qq=10:gosub5410:qq=16
  523. 5210 iff$="_"goto50
  524. 5220 x$=f$:gosub5740:da$=x$:ifx$=""goto5200
  525. 5230 da$=right$(da$,4)+mid$(da$,4,2)+left$(da$,2):return
  526. 5240 x$=right$(ak$(x,0),4)+mid$(ak$(x,0),4,2)+left$(ak$(x,0),2):return
  527. 5250 u$=" [193] u t o f i n a n z e n ":goto5340
  528. 5260 u$="       [212] a n k e n       ":goto5340
  529. 5270 u$="   [203] o r r e k t u r     ":goto5340
  530. 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]"
  531. 5290 u$="   [213] e b e r s i c h t   ":goto5340
  532. 5300 u$="[198] a h r z e u g d a t e n":goto5340
  533. 5310 u$="    [197] i n l e s e n      ":goto5340
  534. 5320 u$="    [211] p e i c h e r n    ":goto5340
  535. 5330 u$="    [196] i r e c t o r y    "
  536. 5340 ue$="[147][144]                                        "
  537. 5350 ue$=ue$+"        "+u$+"       "
  538. 5360 ue$=ue$+"                                        [146][144]"
  539. 5370 ue$=ue$+"           _ = [211]chritt zurueck [146]":return
  540. 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]"
  541. 5390 printtab(11)"[221] [194]itte warten ! [221]":printtab(11)"[221]"spc(16)"[221]
  542. 5400 [153][163]11)"/tantantantantantantantantantantantantantantantanexp":[153]""fa$fa$"  ";:[142]
  543. 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)
  544. 5420 printtab(ac)"[173]";:forf=1toqq:print"[192]";:next:print"[189][145][145]":printtab(ac+1);:ifqq=10thengosub2090:return
  545. 5430 ifz$="5"thensa=qq:gosub1910:ifval(su$)=>.thenreturn
  546. 5440 ifz$="5"thenifval(su$)<.thenprint"[145][145][145]":qq=sa:goto5410
  547. 5450 gosub1940:return
  548. 5460 ifj=1orj=2thengosub5520
  549. 5470 ifk$="-"thenreturn
  550. 5480 y=len(k$):r$=right$(k$,3):ifleft$(r$,1)="."thenreturn
  551. 5490 ifval(k$)=int(val(k$))thenk$=k$+".00":return
  552. 5500 ifmid$(k$,y-1,1)="."thenk$=k$+"0"
  553. 5510 return
  554. 5520 ifval(k$)=.thenk$="-":return
  555. 5530 forx=.to12:ifval(ak$(q,x))=.thenak$(q,x)="-"
  556. 5540 next:return
  557. 5550 y=.:forx=.toq:y=y+val(ak$(x,z)):next:y$=str$(int(y*100+.5)/100):ify=.theny$="-"
  558. 5560 k$=y$:gosub5460:y$=k$:gosub5030:return
  559. 5570 forx=qto.step-1:ifval(ak$(x,4))>.theno1=val(ak$(x,1)):x=.:goto5590
  560. 5580 next:k2=val(ak$(q,1))-val(k1$):goto5600
  561. 5590 k2=val(ak$(q,1))-o1
  562. 5600 ifk2<okthenreturn
  563. 5610 gosub5250:printue$"    [194]itte [207]elstand kontrollieren ! [146]"
  564. 5620 print" [211]ie fahren bereits"k2" km ohne [207]el":print" nachgetankt oder gewechselt ";
  565. 5630 print"zu haben !":print"    [194]itte [207]elstand kontrollieren ! [146]":poke198,0:wait198,1:return
  566. 5640 printue$"     [199]eben [211]ie bitte das [203]ennzeichen"
  567. 5650 print"       fuer die [193]bspeicherung ein !"
  568. 5660 print"      (z.[194]. [202]ahrgang '89' anhaengen [146]":qq=16:i1=1:ac=11:gosub5410
  569. 5670 ifsu$=""goto5640
  570. 5680 ifsu$="_"thenreturn
  571. 5690 ak$(0,1)=ak$(bb,1):ak$(0,11)=ak$(bb,11):ak$(0,12)=ak$(bb,12):td$=ak$(bb,0)
  572. 5700 print"              [194]itte warten ! [146]   [145]":ak$(0,7)=d9$:fz$=su$
  573. 5705 k1$=str$(val(ak$(0,1))-gk):ifd9$=""thenak$(0,7)="-"
  574. 5710 d=5:gosub5160:ak$(0,2)=k$:d=4:gosub5160:ak$(0,3)=k$:d=7:gosub5160:ak$(0,4)=k$
  575. 5720 d=6:gosub5160:ak$(0,5)=k$:d=1:gosub5160:ak$(0,6)=k$:d=2:gosub5160:ak$(0,8)=k$
  576. 5730 d=.:gosub5160:ak$(0,9)=k$:d=3:gosub5160:ak$(0,10)=k$:q=.:h=.:d=1:gosub520:clr:goto20
  577. 5740 d4=val(mid$(x$,1,2)):d5=val(mid$(x$,4,2)):ifd4=.ord4>31ord5=.ord5>12thenx$="":return
  578. 5750 ifd5=4ord5=6ord5=9ord5=11goto5780
  579. 5760 ifd5=2goto5800
  580. 5770 return
  581. 5780 ifd4>30thenx$=""
  582. 5790 return
  583. 5800 ifd4>29thenx$=""
  584. 5810 return
  585. 5820 poke768,185:open1,8,15,"i":close1:poke768,139:ifst<>-128goto5860
  586. 5830 goto5850
  587. 5840 poke768,185:open1,4,7:print#1:close1:poke768,139:ifst<>-128thenreturn
  588. 5850 printue$"         [199]eraet nicht bereit  !":gosub5110:goto50
  589. 5860 input#15,sa,s$,y,y:ifsa=.thenreturn
  590. 5870 printue$"        [198]ehlermeldung der [198]loppy"
  591. 5880 print"         "sa" "s$"":gosub5110:ifq=-1thenrun
  592. 5890 goto50
  593. 5900 ifpeek(50944)=165thenifpeek(51382)=96goto5940
  594. 5910 poke53281,15:poke53280,15:print"[147][144]":gosub5380
  595. 5920 forx=49152to51383:reada:pokex,a:ifx=49238thenx=50943
  596. 5930 next:sys51356
  597. 5940 restore:clr:goto30
  598. 5950 data32,253,174,32,158,183,134,251,32,253,174,32,158,183,134,252,32,253,174
  599. 5960 data32,158,183,134,253,162,1,32,198,255,32,207,255,32,207,255,166,251
  600. 5970 data230,251,164,253,24,32,240,255,165,144,201,64,208,1,96,32,207,255,170
  601. 5980 data32,207,255,32,205,189,32,207,255,32,210,255,201,0,208,246
  602. 5990 data169,13,32,210,255,165,251,197,252,208,197,32,204,255,96
  603. 6000 data165,1,133,96,169,55,133,1,169,42,141,231,7,169,1,141,231,219,166,55,165
  604. 6010 data56,134,89,133,90,169,25,160,0,133,34,132,35,132,95,132,87,132,88,197
  605. 6020 data22,240,5,32,171,199,240,247,169,7,133,83,165,45,166,46,133,34,134,35
  606. 6030 data228,48,208,4,197,47,240,5,32,161,199,240,243,133,78,134,79,169,3,133
  607. 6040 data83,165,78,166,79,228,50,208,7,197,49,208,3,76,19,200,133,34,134,35,160
  608. 6050 data0,177,34,170,200,177,34,8,200,177,34,101,78,133,78,200,177,34,101,79
  609. 6060 data133,79,40,16,211,138,48,208,200,177,34,160,0,10,105,5,101,34,133,34,144
  610. 6070 data2,230,35,166,35,228,79,208,4,197,78,240,186,32,171,199,240,243,177,34
  611. 6080 data48,94,200,177,34,16,89,200,177,34,240,84,133,93,200,177,34,170,200,177
  612. 6090 data34,197,52,144,71,208,4,228,51,144,65,134,91,133,92,165,87,166,88,224
  613. 6100 data224,208,12,197,93,176,8,198,95,133,94,169,0,162,192,56,229,93,133,87,176
  614. 6110 data1,202,134,88,165,89,166,90,56,229,93,133,89,136,145,34,176,1,202,200
  615. 6120 data138,133,90,145,34,164,93,136,177,91,145,87,152,208,248,165,83,24,101,34
  616. 6130 data133,34,144,2,230,35,166,35,160,0,96,165,87,166,88,240,48,133,91,134,92
  617. 6140 data120,169,53,133,1,165,89,166,90,133,51,134,52,165,95,16,13,162,191,32
  618. 6150 data84,200,165,94,162,224,133,91,134,92,162,255,32,84,200,165,96,201,55,240
  619. 6160 data3,32,114,200,169,32,141,231,7,165,96,133,1,88,96,160,0,177,91,145,89
  620. 6170 data230,89,208,2,230,90,136,196,91,208,5,228,92,208,1,96,230,91,208,230,230
  621. 6180 data92,208,226,169,55,133,1,169,224,32,135,200,165,95,240,5,169,160,32,135
  622. 6190 data200,76,171,200,160,0,132,34,133,35,162,32,177,34,145,34,200,208,249,230
  623. 6200 data35,202,208,244,96,169,255,133,95,32,114,200,169,53,133,1,96,76,0,199,160
  624. 6210 data2,185,168,200,153,38,181,136,16,247,96,0
  625.