home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9107b.d64 / automanager (.txt) next >
Commodore BASIC  |  1995-03-30  |  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.