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$)=""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$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 IFK231ORD5=.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