home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8507a.d64
/
autokauf
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
19KB
|
511 lines
10 REM *********************************
20 REM * K O S T E N V E R G L E I C H *
30 REM * F U E R A U T O S *
40 REM * C 64 *
50 REM * *
60 REM * D. BERNER *
70 REM * RINGSTR. 8 5431 GIROD *
80 REM * TEL.06485/1351 *
90 REM *********************************
100 U=20:DIMPG(U),PZ(U),PR(U),PT(U),PU(U),PL(U),PD(U),PF(U),P1(U),P2(U),P3(U)
110 DIMUL$(U),UD$(U),UF$(U),U1$(U),U2$(U),U3$(U),U4$(U),U5$(U)
120 DIMP4(U),P5(U),P1$(U),P2$(U),P3$(U),P4$(U),P5$(U),PE(U),IZ(U),HR(U),TY$(U)
130 DIMTK$(U),P$(U),HU(U),VS(U),VH(U),VT(U),VV(U),VI(U),VE(U),TP(U),WK(U),WJ(U)
140 DIMTR$(U),WV(U),PR$(U),PT$(U),PU$(U),PL$(U),PD$(U),PF$(U),LE(U),SO(U),P(U)
150 DIMKB(U),ZM(U),MO(U),GE(U),AZ(U),KS(U),KR(U),UR$(U),UT$(U),UU$(U),K(U)
160 FORI=1TO20:TY$(I)="0":TK$(I)="0":P$(I)="0"
170 TR$(I)="0":P1$(I)="0":P2$(I)="0":P3$(I)="0":P4$(I)="0":P5$(I)="0"
180 PR$(I)="0":PT$(I)="0":PU$(I)="0":PL$(I)="0":PD$(I)="0":PF$(I)="0":NEXT
190 P1$="0":P2$="0":P3$="0":P4$="0":P5$="0"
200 PRINTCHR$(147):FORY=1TO6:PRINT:NEXT
210 PRINT" [206][207][183][183][183][207][183][183] [223]"
220 PRINT" [206] [180] [180] [223]"
230 PRINT" [206] [180][160][160][160][180][160][160] [223]"
240 PRINT" [180] [175] [180] [223]"
250 PRINT" [180] [180] "
260 PRINT" [180] [206][183][183][205] [165] [165] "
270 PRINT" [161] [167] [165][180] [180][167][183][183][183][183][165] "
280 PRINT" [146] "
290 PRINT" [223] [146][169] [223] [146][169]"
300 FORI=1TO1000:NEXT
310 PRINTCHR$(19):FORY=1TO4:PRINT:NEXT:PRINT" K O S T E N V E R G L E I C H"
320 FORI=1TO2000:NEXT
330 FORY=1TO12:PRINT:NEXT:PRINT" PREISE UND HALTUNGSKOSTEN"
340 FORI=1TO2000:NEXT
350 PRINT:PRINT:PRINTCHR$(18)"1"CHR$(146)" DATENEINGABE"
360 PRINT:PRINTCHR$(18)"2"CHR$(146)" LADEN GESPEICHERTER DATEN VON DISKETTE";
370 GETM$:IFM$="1"THEN400
380 IFM$="2"THEN2740
390 GOTO370
400 REM * ANGABEN ZU DEN EINZELNEN FAHRZEUGEN*
410 N=N+1
420 PRINTCHR$(147)CHR$(18)"FAHRZEUG NR."N;CHR$(157)" ":I=N
430 PRINT"TYP: "TY$(I):PRINTCHR$(145)SPC(3):INPUTTY$(I)
440 PRINT"KURZBEZEICHNUNG (MAX. 3 BUCHST.) "TK$(I)
450 PRINTCHR$(145)SPC(32);:INPUTTK$(I)
460 PRINT:PRINT"LEISTUNG(KW) "LE(I):PRINTCHR$(145)SPC(12):INPUTLE(I)
470 PRINTCHR$(145)SPC(19)"HUBRAUM[160](CCM) "HU(I):PRINTCHR$(145)SPC(32);:INPUTHU(I)
480 PRINT:PRINT"GRUNDPREIS "PG(I):PRINTCHR$(145)SPC(10):INPUTPG(I)
490 PRINT:PRINT"UEBERFUEHRUNG + ZULASSUNG "PZ(I)
500 PRINTCHR$(145)SPC(25):INPUTPZ(I)
510 PRINT:PRINTCHR$(18)" E X T R A S : ";
520 PRINTCHR$(18)"SETZEN SIE STATT DES PREISES '*' EIN, ";
530 PRINTCHR$(18)"WENN DER POSTEN SCHON IM GRUNDPREIS ENT-";
540 PRINTCHR$(18)"HALTEN IST, BZW. '0', WENN DAS EXTRA ";
550 PRINTCHR$(18)"NICHT GEWUENSCHT WIRD ODER BEI DIESEM ";
560 PRINTCHR$(18)"FAHRZEUG NICHT ERHAELTLICH IST! "
570 PRINT"AUTORADIO "PR$(I)
580 PRINTCHR$(145)SPC(16):INPUTEX$:GOSUB1320:PR(I)=EX:PR$(I)=EX$
590 PRINT:PRINT"4 TUEREN "PT$(I)
600 PRINTCHR$(145)SPC(16):INPUTEX$:GOSUB1320:PT(I)=EX:PT$(I)=EX$
610 PRINT:PRINT"UNTERBODEN- U.HOHLRAUMSCHUTZ "PU$(I)
620 PRINTCHR$(145)SPC(28):INPUTEX$:GOSUB1320:PU(I)=EX:PU$(I)=EX$
630 PRINT:PRINT"SERVOLENKUNG "PL$(I)
640 PRINTCHR$(145)SPC(16):INPUTEX$:GOSUB1320:PL(I)=EX:PL$(I)=EX$
650 PRINT:PRINT"SCHIEBEDACH "PD$(I)
660 PRINTCHR$(145)SPC(16):INPUTEX$:GOSUB1320:PD(I)=EX:PD$(I)=EX$
670 PRINT:PRINT"SONDERLACKIERUNG "PF$(I)
680 PRINTCHR$(145)SPC(16):INPUTEX$:GOSUB1320:PF(I)=EX:PF$(I)=EX$
690 PRINT:PRINT:PRINT"WEITERE EXTRAS: (MAX.5)":PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
700 PRINT"(HOECHSTENS 9 BUCHSTABEN)"
710 IFP1$<>"0"THEN740
720 GOSUB1370:IFE$="N"THEN910
730 INPUTP1$:IFLEN(P1$)>9THENP1$=LEFT$(P1$,9)
740 PRINT:PRINTP1$,," "P1$(I):PRINTCHR$(145),,;:INPUTEX$:GOSUB1320:P1(I)=EX:P1$(I)=EX$
750 IFP2$<>"0"THEN780
760 GOSUB1370:IFE$="N"THEN910
770 INPUTP2$:IFLEN(P2$)>9THENP2$=LEFT$(P2$,9)
780 PRINT:PRINTP2$,," "P2$(I):PRINTCHR$(145),,;:INPUTEX$:GOSUB1320:P2(I)=EX:P2$(I)=EX$
790 IFP3$<>"0"THEN820
800 GOSUB1370:IFE$="N"THEN910
810 INPUTP3$:IFLEN(P3$)>9THENP3$=LEFT$(P3$,9)
820 PRINT:PRINTP3$,," "P3$(I):PRINTCHR$(145),,;:INPUTEX$:GOSUB1320:P3(I)=EX:P3$(I)=EX$
830 IFP4$<>"0"THEN860
840 GOSUB1370:IFE$="N"THEN910
850 INPUTP4$:IFLEN(P4$)>9THENP4$=LEFT$(P4$,9)
860 PRINT:PRINTP4$,," "P4$(I):PRINTCHR$(145),,;:INPUTEX$:GOSUB1320:P4(I)=EX:P4$(I)=EX$
870 IFP5$<>"0"THEN900
880 GOSUB1370:IFE$="N"THEN910
890 INPUTP5$:IFLEN(P5$)>9THENP5$=LEFT$(P5$,9)
900 PRINT:PRINTP5$,," "P5$(I):PRINTCHR$(145),,;:INPUTEX$:GOSUB1320:P5(I)=EX:P5$(I)=EX$
910 PRINT:PRINT:PRINT"INZAHLUNGNAHME DES ALTEN WAGENS FUER"
920 PRINT"WIEVIEL DM "IZ(I):PRINTCHR$(145)SPC(10):INPUTIZ(I)
930 PRINT:PRINT"HAENDLERRABATT IN % "HR(I):PRINTCHR$(145)SPC(19):INPUTHR(I)
940 PE(I)=PG(I)+PZ(I)+PR(I)+PT(I)+PU(I)+PL(I)+PD(I)+PF(I)
950 PE(I)=PE(I)+P1(I)+P2(I)+P3(I)+P4(I)+P5(I)-IZ(I)
960 PE(I)=INT(PE(I)*(1-HR(I)/100)*100+.5)/100
970 FORJ=1TO40:PRINT"[183]";:NEXT:PRINT"INSGESAMT",,PE(I)"DM":PRINT:PRINT
980 GOSUB4310
990 PRINT:PRINT:PRINT"SOLLEN DATEN FUER EINEN WEITEREN WAGEN EINGEGEBEN WERDEN? (J/N)"
1000 GETE$:IFE$="J"THEN410
1010 IFE$="N"THEN1030
1020 GOTO1000
1030 POKE53280,14:POKE53281,6
1040 PRINTCHR$(147)CHR$(18)CHR$(154)" Z U R A U S W A H L "
1050 PRINTCHR$(18)"1"CHR$(146)" DATENEINGABE FUER EIN WEITERES FAHRZEUG"
1060 PRINT:PRINTCHR$(18)"2"CHR$(146)" KORREKTUR: PREISANGABEN
1070 [153]:[153][199](18);
1080 [153]"3"[199](146)" STEUER UND VERSICHERUNG":[153]" (EINGABE BZW. KORREKTUR)"
1090 [153]:[153][199](18)"4"[199](146)" WERKSTATTKOSTEN":[153]" (EINGABE BZW. KORREKTUR)"
1100 [153]:[153][199](18)"5"[199](146)" BETRIEBSKOSTEN":[153]" (EINGABE BZW. KORREKTUR)"
1110 [153]:[153][199](18)"6"[199](146)" TABELLE'ANSCHAFFUNGSPREIS'"
1120 [153]:[153][199](18)"7"[199](146)" TABELLE 'KOSTEN PRO MONAT'
1130 PRINT:PRINTCHR$(18)"8"CHR$(146)" TABELLE 'KOSTEN PRO KILOMETER'
1140 [153]:[153][199](18)"9"[199](146)" GRAFIK"
1150 [153]:[153][199](18)"*"[199](146)" SPEICHERN DER DATEN AUF DISKETTE";
1160 [161]E$:[139]E$[178]""[167]1160
1170 [139]E$[178]"*"[167]2550
1180 E[178][197](E$):[145] E [137]400,1200,1400,1570,1740,2150,2280,2460,2960
1190 [137]1160
1200 [153][199](147)[199](18)" K O R R E K T U R ( P R E I S ECLOSE) "
1210 [141]1720
1220 [153]:[153]"KORREKTUR FUER NR.";:[133]I
1230 [153]:[153]:[153]"DIE KORREKTUR ERFOLGT DURCH UEBER-"
1240 [153]"SCHREIBEN, EINFUEGEN ODER ANHAENGEN."
1250 [153]"NACH DER KORREKTUR ODER WENN NICHTS VER-";
1260 [153]"AENDERT WERDEN SOLL, BITTE "[199](18)"RETURN"[199](146)
1270 [153]"DRUECKEN!"
1280 [153]:[153]:[153]"WEITER?"
1290 [161]E$:[139]E$[178]""[167]1290
1300 [137]430
1310 [128]
1320 [143] PREISE FUER SONDERZUBEHOER
1330 [139]EX$[178]"0"[167]EX[178]0:[142]
1340 [139]EX$[178]"*"[167]EX[178]0:[142]
1350 EX[178][197](EX$):[139]EX[179][177]0[167][142]
1360 [153]"EINGABE NICHT KORREKT! BITTE NEUEINGABE!";:[133]EX$:[137]1330
1370 [153]:[153]"WIRD DIE EINGABE WEITERER EXTRAS GEWUENSCHT?"
1380 [161]E$:[139]E$[178]"J"[176]E$[178]"N"[167][142]
1390 [137]1380
1400 [153][199](147):[143] *STEUER U.VERSICHERUNG*
1410 [141]1720
1420 [153]:[153]:[153]"STEUER- UND VERSICHERUNGSANGABEN FUER":[133]"FAHRZEUG NR.";I
1430 [153][199](147)[199](18)" STEUER UND VERSICHERUNG "
1440 [153]"FUER "TY$(I)
1450 [153]:[153][199](144)"KRAFTFAHRZEUGSTEUER/JAHR"[199](154):[153]" "VS(I)
1460 [153][199](145);:[133]VS(I)
1470 [153]:[153][199](144)"HAFTPFLICHTVERSICHERUNG/JAHR"[199](154):[153]" "VH(I)
1480 [153][199](145);:[133]VH(I)
1490 [153]:[153][199](144)"TEILKASKOVERSICHERUNG/JAHR"[199](154):[153]" "VT(I)
1500 [153][199](145);:[133]VT(I)
1510 [153][199](144)
1520 [153]"VOLLKASKOVERSICHERUNG/JAHR"[199](154):[153]" "VV(I):[153][199](145);:[133]VV(I)
1530 [153][199](144)
1540 [153][199](144)"INSASSENUNFALLVERSICHERUNG"[199](154):[153]" "VI(I):[153][199](145);
1550 [133]VI(I)
1560 [137]1030
1570 [141]1720:[153]:[153]"WERKSTATTKOSTEN FUER NR.";:[133]I
1580 [153][199](147)[199](18)" W E R K S T A T T K O S T E N "
1590 [153]"ZU DEN WERKSTATTKOSTEN GEHOEREN U.A.:"
1600 [153]"OELWECHSEL, INSPEKTIONEN, REIFEN- UND AUSPUFFERNEUERUNG..."
1610 [153]"WEIL ES KAUM MOEGLICH IST, DIE WERKSTATT";
1620 [153]"KOSTEN DER NAECHSTEN JAHRE EXAKT VORAUS-";
1630 [153]"ZUBERECHNEN, WIRD HIER MIT EINER":[153]"PAUSCHALE GERECHNET.":[153]
1640 [153][199](144)"FUER "TY$(I)
1650 [153]:[153][199](18)"1"[199](146);
1660 [153]" PAUSCHALE VON 100 DM/MONAT (DURCH- SCHNITTSWERT STAND 1984)":[153]
1670 [153][199](18)"2"[199](146)" ANDERE PAUSCHALE"[199](154)
1680 [161]E$:[139]E$[178]"1"[167]WK(I)[178]100:WJ(I)[178]WK(I)[172]12:[137]1030
1690 [139]E$[178]"2"[167][153]:[153]:[153]"WIEVIEL DM "WK(I):[153][199](145)[166]10):[133]WK(I)
1700 [139]E$[178]"2"[167]WJ(I)[178]WK(I)[172]12:[137]1030
1710 [137]1680
1720 [153][199](147):[153]"BISHER WURDEN DATEN EINGEGEBEN FUER"
1730 [129]I[178]1[164]N:[153]:[153]I;TY$(I):[130]:[142]
1740 [141]1720
1750 [153]:[153]"BETRIEBSKOSTEN FUER WELCHES FAHRZEUG?":[133]I
1760 [153][199](147)[199](18)" B E TR I E B S K O S T E N "
1770 [153][199](144)"FUER "TY$(I):[153][199](154)
1780 [153]"DER MOTOR BRAUCHT":[153]
1790 [153]" "[199](18)"N"[199](146)" NORMAL "[199](18)"S";
1800 [153][199](146)" SUPER "[199](18)"D"[199](146)" DIESEL"
1810 [153]:[153]:[153]" "[199](18)"A"[199](146)" BLEIFREI NORMAL ";
1820 [153][199](18)"B"[199](146)" BLEIFREI SUPER"
1830 [161]TR$(I)
1840 [139]TR$(I)[178]"N"[167][153]:[153]"PREIS/1 LITER NORMALBENZIN "PN
1850 [139]TR$(I)[178]"N"[167][153][199](145)[166]26):[133]PN:[137]1950
1860 [139]TR$(I)[178]"S"[167][153]:[153]"PREIS/1 LITER SUPERBENZIN "PS
1870 [139]TR$(I)[178]"S"[167][153][199](145)[166]26):[133]PS:[137]1950
1880 [139]TR$(I)[178]"D"[167][153]:[153]"PREIS/1 LITER DIESEL "PD
1890 [139]TR$(I)[178]"D"[167][153][199](145)[166]20):[133]PD:[137]1950
1900 [139]TR$(I)[178]"A"[167][153]:[153]"PREIS/1 LITER NORMAL(BLEIFR.) "PA
1910 [139]TR$(I)[178]"A"[167][153][199](145)[166]29):[133]PA:[137]1950
1920 [139]TR$(I)[178]"B"[167][153]:[153]"PREIS/1 LITER SUPER (BLEIFR.) "PB
1930 [139]TR$(I)[178]"B"[167][153][199](145)[166]29):[133]PB:[137]1950
1940 [137]1830
1950 [153]:[153]:[153][199](144)"VERBRAUCH: "[199](154)"BERUECKSICHTIGEN SIE DABEI,"
1960 [153]"OB DER WAGEN UEBERWIEGEND AUF LANGSTREK-";
1970 [153]"KEN ODER IM STADTVERKEHR GEFAHREN WIRD! "
1980 [153]"WIEVIEL LITER AUF 100 KM "VE(I)
1990 [153][199](145)[166]24):[133]VE(I)
2000 [153]:[153]:[153][199](144)"DIE KOSTEN FUER NACHGEFUELLTES OEL"
2010 [153]"WERDEN MIT 1% DER TREIBSTOFFKOSTEN BEI"
2020 [153]"OTTOMOTOREN UND MIT 2% BEI DIESELMOTOREN";
2030 [153]"BERUECKSICHTIGT."[199](154):[153]:[153]
2040 [141]2120
2050 [153][199](147)[199](18)" S O N S T I G E S "
2060 [153]"FALLS GEWUENSCHT, KOENNEN SIE HIER"
2070 [153]"KOSTEN FUER WAGENPFLEGE, GARAGENMIETE...";
2080 [153]"BERUECKSICHTIGEN.":[153]
2090 [153]"SUMME PRO JAHR "SO(I)
2100 [153][199](145)[166]14):[133]SO(I)
2110 [137]1030
2120 [153]"WEITER? (DRUECKEN SIE EINE BELIEBIGE TASTE!)";
2130 [161]E$:[139]E$[178]""[167]2130
2140 [142]
2150 [143] * T A B E L L E N *
2160 [153][199](147)[199](18)" A N S C H A F F U N G S K O S T E N "
2170 [129]I[178]1[164]N:[153]TY$(I);
2180 [129]J[178]1[164]25[171][195](TY$(I)):[153]".";:[130]:PX[178]PE(I):[139]KR(I)[178]1[167]PX[178]KS(I)
2190 [153][181](PX)"DM"
2200 [139]N[179]10[167][153]
2210 [130]I:[141]2120
2220 [137]1030
2230 [153][199](147):[129]Y[178]1[164]6:[153]:[130]:[153]"DURCHSCHNITTLICHE FAHRSTRECKE PRO JAHR:"
2240 [153]:[133]S
2250 [153]:[153]:[153]
2260 [153]"NACH WIEVIEL JAHREN WOLLEN SIE DEN WAGENWIEDER VERKAUFEN";:[133]ZJ
2270 [142]
2280 [141]2230:[153][199](147)[199](18)" KOSTEN PRO MONAT BEI"S;
2290 [153][199](157)" KM/JAHR "
2300 [129]I[178]1[164]N:[153]TY$(I);
2310 [129]J[178]1[164]28[171][195](TY$(I)):[153]".";:[130]
2320 [141]2360:[153][181](P(I)[173]12)"DM"
2330 [139]N[179]10[167][153]
2340 [130]I:[141]2120
2350 [137]1030
2360 [143] * KOSTEN PRO JAHR *
2370 PX[178]PE(I):[139]KR(I)[178]1[167]PX[178]KS(I)
2380 P(I)[178]PX[173]ZJ[170]VS(I)[170]VH(I)[170]VT(I)[170]VV(I)[170]VI(I)[170]WJ(I)[170]SO(I)
2390 [139]TR$(I)[178]"N"[167]TP[178]PN:OE[178]1.01
2400 [139]TR$(I)[178]"S"[167]TP[178]PS:OE[178]1.01
2410 [139]TR$(I)[178]"D"[167]TP[178]PD:OE[178]1.02
2420 [139]TR$(I)[178]"A"[167]TP[178]PA:OE[178]1.01
2430 [139]TR$(I)[178]"B"[167]TP[178]PB:OE[178]1.01
2440 P(I)[178]P(I)[170]S[173]100[172]VE(I)[172]TP[172]OE
2450 [142]
2460 [141]2230:[153][199](147)[199](18)" KOSTEN PRO KILOMETER BEI"S;
2470 [153][199](157)" KM/JAHR "
2480 [129]I[178]1[164]N:[153]TY$(I);
2490 [129]J[178]1[164]30[171][195](TY$(I)):[153]".";:[130]:[141]2360
2500 KP[178][181](P(I)[173]S[172]100[170].5)[173]100
2510 KP$[178][196](KP):[139]KP[179]1[175][195](KP$)[179]4[167]KP$[178]KP$[170]"0"
2520 [139]KP[179]1[167]KP$[178]"0"[170][201](KP$,3)
2530 [153]KP$" DM":[139]N[179]10[167][153]
2540 [130]I:[141]2120:[137]1030
2550 [143] * SPEICHERN AUF DISKETTE *
2560 [153]:[159]1,8,15,"S:AUTOVERGL.":[160]1
2570 [159]1,8,8,"AUTOVERGL.,S,W"
2580 [152]1,N:[152]1,PN:[152]1,PS:[152]1,PD:[152]1,PA:[152]1,PB
2590 [152]1,P1$:[152]1,P2$:[152]1,P3$:[152]1,P4$:[152]1,P5$
2600 [129]I[178]1[164]N
2610 [152]1,TY$(I):[152]1,TK$(I):[152]1,LE(I):[152]1,HU(I):[152]1,SO(I)
2620 [152]1,PG(I):[152]1,PZ(I):[152]1,PR(I):[152]1,PT(I):[152]1,PU(I):[152]1,PL(I)
2630 [152]1,PD(I):[152]1,PF(I):[152]1,P1(I):[152]1,P2(I):[152]1,P3(I)
2640 [152]1,P4(I):[152]1,P5(I)
2650 [152]1,P1$(I):[152]1,P2$(I):[152]1,P3$(I):[152]1,P4$(I):[152]1,P5$(I)
2660 [152]1,PE(I):[152]1,IZ(I):[152]1,HR(I)
2670 [152]1,VS(I):[152]1,VH(I):[152]1,VT(I):[152]1,VV(I):[152]1,VI(I)
2680 [152]1,VE(I):[152]1,TP(I):[152]1,WK(I):[152]1,WJ(I):[152]1,TR$(I)
2690 [152]1,PD$(I):[152]1,PT$(I):[152]1,PU$(I):[152]1,PL$(I):[152]1,PR$(I)
2700 [152]1,KB(I):[152]1,ZM(I):[152]1,MO(I):[152]1,GE(I):[152]1,AZ(I):[152]1,KS(I):[152]1,KR(I)
2710 [152]1,PF$(I):[130]
2720 [160]1
2730 [137]1030
2740 [143] * LADEN VON DISKETTE *
2750 [159]1,8,8,"AUTOVERGL.,S,R"
2760 [132]1,N:[132]1,PN:[132]1,PS:[132]1,PD:[132]1,PA:[132]1,PB
2770 [132]1,P1$:[132]1,P2$:[132]1,P3$:[132]1,P4$:[132]1,P5$
2780 [129]I[178]1[164]N
2790 [132]1,TY$(I):[132]1,TK$(I):[132]1,LE(I):[132]1,HU(I):[132]1,SO(I)
2800 [132]1,PG(I):[132]1,PZ(I):[132]1,PR(I):[132]1,PT(I):[132]1,PU(I):[132]1,PL(I)
2810 [132]1,PD(I):[132]1,PF(I):[132]1,P1(I):[132]1,P2(I):[132]1,P3(I)
2820 [132]1,P4(I):[132]1,P5(I)
2830 [132]1,P1$(I):[132]1,P2$(I):[132]1,P3$(I):[132]1,P4$(I):[132]1,P5$(I)
2840 [132]1,PE(I):[132]1,IZ(I):[132]1,HR(I)
2850 [132]1,VS(I):[132]1,VH(I):[132]1,VT(I):[132]1,VV(I):[132]1,VI(I)
2860 [132]1,VE(I):[132]1,TP(I):[132]1,WK(I):[132]1,WJ(I):[132]1,TR$(I)
2870 [132]1,PD$(I):[132]1,PT$(I):[132]1,PU$(I):[132]1,PL$(I):[132]1,PR$(I)
2880 [132]1,KB(I):[132]1,ZM(I):[132]1,MO(I):[132]1,GE(I):[132]1,AZ(I):[132]1,KS(I):[132]1,KR(I)
2890 [132]1,PF$(I):[130]
2900 [139]PR$(I)[179][177]"*"[167]PR$(I)[178][196](PR(I))
2910 [160]1
2920 [137]1030
2930 [153]"BISHER WURDEN DATEN EINGEGEBEN FUER"
2940 [129]I[178]1[164]N:[153]:[153]I;TY$(I):[130]
2950 [142]
2960 [143] * G R A F I K *
2970 [153][199](147)[199](18)" D I A G R A M M E Z U R A U S W A H L"
2980 [153][199](18)"1"[199](146)" ANSCHAFFUNGSPREISE"
2990 [153]:[153][199](18)"2"[199](146)" MONATLICHE KOSTEN"
3000 [153]:[153][199](18)"3"[199](146)" KOSTEN PRO KILOMETER"
3010 [153]:[153][199](18)"4"[199](146)" HUBRAUM UND LEISTUNG"
3020 [153]:[153][199](18)"5"[199](146)" EXTRAS"
3030 [153]:[153][199](18)"6"[199](146)" DRUCKERAUSGABE FUER EIN FAHRZEUG"
3040 [153]:[153]:[153]:[153]"ZUR PROGRAMMFORTSETZUNG NACH DIAGRAMMEN"
3050 [153]"EINE BELIEBIGE TASTE DRUECKEN!"
3060 [153]:[153]"WIRD EINE HARDCOPY GEWUENSCHT,"
3070 [153][199](18)"F1"[199](146)" DRUECKEN!"
3080 [161]E$:[139]E$[178]""[167]3080
3090 E[178][197](E$):[145]E[137]3110,3260,3340,3420,3900,4700
3100 [137]3080
3110 [143] * GRAFIK ANSCHAFFUNGSKOSTEN *
3120 GR[178]1:MO[178]1:[151]53280,0:[151]53281,0:[143] HINTERGR.FARBE
3130 [153][199](147)[199](158)" A N S C H A F F U N G S K O S T E N":[153]:MS[178]0
3140 [129]I[178]1[164]N:[139]KS(I)[177]60000[167]MS[178]3:[137]3180
3150 [139]KS(I)[177]30000[167][139]MS[179]2[167]MS[178]2
3160 [139]KS(I)[177]15000[167][139]MS[179]1[167]MS[178]1
3170 [130]
3180 [129]I[178]1[164]20:[153][163]5)[199](5)"ABS THEN THEN THEN THEN THEN THEN":[130]
3190 [129]I[178]1[164]38:[153]"FRE";:[130]:[153]
3200 [139]MS[178]0[167][153][163]14)"5000 10000 15000":DI[178]500
3210 [139]MS[178]1[167][153][163]13)"10000 20000 30000":DI[178]1000
3220 [139]MS[178]2[167][153][163]13)"20000 40000 60000":DI[178]2000
3230 [139]MS[178]3[167][153][163]13)"30000 60000 90000":DI[178]3000
3240 [129]I[178]1[164]N:K(I)[178]KS(I):[130]
3250 [137]3710
3260 [143] * GRAFIK KOSTEN PRO MONAT *
3270 [141]2230:GR[178]1:MO[178]1:[151]53280,7:[151]53281,7:[143] HINTERGR.FARBE
3280 [153][199](147)[199](31)" K O S T E N P R O M O N A T":[153]:MS[178]0
3290 [129]I[178]1[164]20:[153][163]5)[199](144)"ABS THEN THEN THEN THEN THEN THEN":[130]
3300 [129]I[178]1[164]38:[153]"FRE";:[130]:[153]
3310 [129]I[178]1[164]N:[141]2360:K(I)[178][181](P(I)[173]12):[130]
3320 [153][163]14)" 300 600 900":DI[178]30
3330 [137]3710
3340 [143] * GRAFIK KOSTEN PRO KILOMETER *
3350 [141]2230:GR[178]1:MO[178]1:[151]53280,14:[151]53281,14:[143] HINTERGR.FARBE
3360 [153][199](147)[199](31)" K O S T E N P R O K I L O M E T E R":MS[178]0
3370 [129]I[178]1[164]20:[153][163]5)[199](144)"ABS THEN THEN THEN THEN THEN THEN":[130]
3380 [129]I[178]1[164]38:[153]"FRE";:[130]:[153]
3390 [129]I[178]1[164]N:[141]2360:K(I)[178][181](P(I)[173]S[172]100):[130]
3400 [153][163]14)"0.30 0.60 0.90";:DI[178]3
3410 [137]3710
3420 [143] * GRAFIK HUBRAUM UND LEISTUNG *
3430 GR[178]1:[151]53280,0:[151]53281,0:[143] HINTERGRUNDFARBE
3440 [153][199](147)[199](5):[153]:[153]:[129]I[178]1[164]N:[153]I;TK$(I):[130]:[153][199](19):LE[178]0
3450 [129]I[178]1[164]N:[139]LE(I)[177]100[167]LE[178]1:[137]3470
3460 [130]:HU[178]0
3470 [129]I[178]1[164]N:[139]HU(I)[177]4000[167]HU[178]2:[137]3500
3480 [139]HU(I)[177]2000[167]HU[178]1
3490 [130]
3500 [139]HU[178]2[167]H1$[178]"6000":H2$[178]"4500":H3$[178]"3000":H4$[178]"1500":DH[178]300
3510 [139]HU[178]1[167]H1$[178]"4000":H2$[178]"3000":H3$[178]"2000":H4$[178]"1000":DH[178]200
3520 [139]HU[178]0[167]H1$[178]"2000":H2$[178]"1500":H3$[178]"1000":H4$[178]" 500":DH[178]100
3530 [139]LE[178]1[167]L1$[178]"200":L2$[178]"150":L3$[178]"100":L4$[178]" 50":DL[178]10
3540 [139]LE[178]0[167]L1$[178]"100":L2$[178]" 75":L3$[178]" 50":L4$[178]" 25":DL[178]5
3550 [153][199](19)" LEISTUNG ("[199](28)"(null)"[199](154)") HUBRAUM((null))";
3560 [153]" IN KW IN CCM"
3570 [153][163]9)L1$"SQR....................(null)"H1$:X[178]4:[141]3610
3580 [153][163]9)L2$"SQR....................(null)"H2$:[141]3610
3590 [153][163]9)L3$"SQR....................(null)"H3$:[141]3610
3600 [153][163]9)L4$"SQR....................(null)"H4$:X[178]5:[141]3610:[137]3620
3610 [129]I[178]1[164]X:[153][163]12)"THEN . . . FN":[130]:[142]
3620 [153][163]12)"FRE1FREFREFRE5FREFREFRE10FREFREFRE15FREFREFRE20FRE"
3630 [129]I[178]1[164]N:LX[178][181](LE(I)[173]DL[170].5):HX[178][181](HU(I)[173]DH[170].5)
3640 [151]1956[170]I[171]LX[172]40,81:[151]56228[170]I[171]LX[172]40,2
3650 [151]1956[170]I[171]HX[172]40,87:[151]56228[170]I[171]HX[172]40,7
3660 [139]HX[178]LX[167][151]1956[170]I[171]HX[172]40,42
3670 [130]
3680 [161]E$:[139]E$[178]""[167]3680
3690 [139][198](E$)[178]133[167][141]4570
3700 [137]1030
3710 [143] * BALKENGRAFIK *
3720 [153][199](19):[153]:[139]N[179]6[167][129]Y[178]1[164]5:[153]:[130]
3730 [129]I[178]1[164]N:[153]TK$(I):[139]N[179]11[167][153]
3740 [130]I
3750 [153][199](19):[153]:[139]N[179]6[167][129]Y[178]1[164]5:[153]:[130]
3760 [129]I[178]1[164]N:[153][166]6)
3770 K1[178][181](K(I)[173]DI):K2[178][181]((K(I)[171]K1[172]DI)[173]DI[172]6)
3780 [139]K1[177][178]1[167][129]J[178]1[164]K1:[153][199](28)[199](18)" ";:[130]
3790 [139]K2[178]0[167][153]
3800 [139]K2[178]1[167][153][199](146)[199](165)
3810 [139]K2[178]2[167][153][199](146)[199](181)
3820 [139]K2[178]3[167][153][199](146)[199](161)
3830 [139]K2[178]4[167][153][199](182)
3840 [139]K2[178]5[167][153][199](167)
3850 [139]N[179]11[167][153]
3860 [130]I
3870 [161]E$:[139]E$[178]""[167]3870
3880 [139][198](E$)[178]133[167][141]4570
3890 MO[178]0:[137]1030
3900 [143] * E X T R A S *
3910 [153][199](147)[199](144)"*-SERIENM. A-AUFPREIS 0-NICHT VORHANDEN "
3920 [139]N[179]10[167]AS$[178]" ":AS[178]3:[137]3950
3930 [139]N[177]15[167]AS$[178]"":AS[178]1:[137]3950
3940 AS$[178]" ":AS[178]2
3950 [129]J[178]1[164]3
3960 TB[178]11:[129]I[178]1[164]N
3970 [153][163]TB)[202](TK$(I),J,1);:TB[178]TB[170]AS:[130]I:[153]:[130]J
3980 [129]I[178]1[164]40:[153]"FRE";:[130]
3990 [129]I[178]1[164]N
4000 UR$(I)[178]PR$(I):[139]UR$(I)[179][177]"*"[175]UR$(I)[179][177]"0"[167]UR$(I)[178]"A"
4010 UT$(I)[178]PT$(I):[139]UT$(I)[179][177]"*"[175]UT$(I)[179][177]"0"[167]UT$(I)[178]"A"
4020 UU$(I)[178]PU$(I):[139]UU$(I)[179][177]"*"[175]UU$(I)[179][177]"0"[167]UU$(I)[178]"A"
4030 UL$(I)[178]PL$(I):[139]UL$(I)[179][177]"*"[175]UL$(I)[179][177]"0"[167]UL$(I)[178]"A"
4040 UD$(I)[178]PD$(I):[139]UD$(I)[179][177]"*"[175]UD$(I)[179][177]"0"[167]UD$(I)[178]"A"
4050 UF$(I)[178]PF$(I):[139]UF$(I)[179][177]"*"[175]UF$(I)[179][177]"0"[167]UF$(I)[178]"A"
4060 U1$(I)[178]P1$(I):[139]U1$(I)[179][177]"*"[175]U1$(I)[179][177]"0"[167]U1$(I)[178]"A"
4070 U2$(I)[178]P2$(I):[139]U2$(I)[179][177]"*"[175]U2$(I)[179][177]"0"[167]U2$(I)[178]"A"
4080 U3$(I)[178]P3$(I):[139]U3$(I)[179][177]"*"[175]U3$(I)[179][177]"0"[167]U3$(I)[178]"A"
4090 U4$(I)[178]P4$(I):[139]U4$(I)[179][177]"*"[175]U4$(I)[179][177]"0"[167]U4$(I)[178]"A"
4100 U5$(I)[178]P5$(I):[139]U5$(I)[179][177]"*"[175]U5$(I)[179][177]"0"[167]U5$(I)[178]"A"
4110 [130]
4120 [153]"AUTORADIO ";:[129]I[178]1[164]N:[153]UR$(I);AS$;:[130]:[153]
4130 [153]"4 TUEREN ";:[129]I[178]1[164]N:[153]UT$(I);AS$;:[130]:[153]
4140 [153]"UNTERB.SCH.";:[129]I[178]1[164]N:[153]UU$(I);AS$;:[130]:[153]
4150 [153]"SERVOLENKG ";:[129]I[178]1[164]N:[153]UL$(I);AS$;:[130]:[153]
4160 [153]"SCHIEBED. ";:[129]I[178]1[164]N:[153]UD$(I);AS$;:[130]:[153]
4170 [153]"SONDERLACK.";:[129]I[178]1[164]N:[153]UL$(I);AS$;:[130]:[153]
4180 [139]P1$[179][177]"0"[167][153]P1$;:[129]I[178]1[164]11[171][195](P1$):[153]" ";:[130]
4190 [139]P1$[179][177]"0"[167][129]I[178]1[164]N:[153]U1$(I);AS$:[130]:[153]
4200 [139]P2$[179][177]"0"[167][153]P2$;:[129]I[178]1[164]11[171][195](P2$):[153]" ";:[130]
4210 [139]P2$[179][177]"0"[167][129]I[178]1[164]N:[153]U2$(I);AS$;:[130]:[153]
4220 [139]P3$[179][177]"0"[167][153]P3$;:[129]I[178]1[164]11[171][195](P3$):[153]" ";:[130]
4230 [139]P3$[179][177]"0"[167][129]I[178]1[164]N:[153]U3$(I);AS$;:[130]:[153]
4240 [139]P4$[179][177]"0"[167][153]P4$;:[129]I[178]1[164]11[171][195](P4$):[153]" ";:[130]
4250 [139]P4$[179][177]"0"[167][129]I[178]1[164]N:[153]U4$(I);AS$;:[130]:[153]
4260 [139]P5$[179][177]"0"[167][153]P5$;:[129]I[178]1[164]11[171][195](P5$):[153]" ";:[130]
4270 [139]P5$[179][177]"0"[167][129]I[178]1[164]N:[153]U5$(I);AS$;:[130]:[153]
4280 [161]E$:[139]E$[178]""[167]4280
4290 [139][198](E$)[178]133[167][141]4570
4300 [137]1030
4310 [143] * FINANZIERUNG *
4320 [153]"SOLL ZUMINDEST EIN TEIL DES NEUWAGENS FINANZIERT WERDEN?"
4330 [161]E$:[139]E$[178]"N"[167]KR(I)[178]0:KS(I)[178]PE(I):[142]
4340 [139]E$[178]"J"[167]KR(I)[178]1:[137]4360
4350 [137]4330
4360 [153]:[153]"WIRD ZUSAETZLICH ZU DEM IN ZAHLUNG"
4370 [153]"GENOMMENEN AUTO NOCH EINE ANZAHLUNG"
4380 [153]"GELEISTET?"
4390 [161]E$:[139]E$[178]"J"[167]4420
4400 [139]E$[178]"N"[167]KB(I)[178]PE(I):[137]4450
4410 [137]4390
4420 [153]"HOEHE DER ANZAHLUNG ";AZ(I)
4430 [153][199](145)[166]20):[133]AZ(I)
4440 KB(I)[178]PE(I)[171]AZ(I)
4450 [153]:[153]"ZINSEN PRO MONAT (%) ";ZM(I)
4460 [153][199](145)[166]20):[133]ZM(I)
4470 [153]:[153]"WIEVIELE MONATSRATEN ";MO(I)
4480 [153][199](145)[166]20):[133]MO(I)
4490 [153]:[153]"BEARBEITUNGSGEB. (%) ";GE(I)
4500 [153][199](145)[166]20):[133]GE(I)
4510 KS(I)[178]((ZM(I)[172]MO(I)[170]GE(I))[173]100[170]1)[172]KB(I)
4520 [153]:[153]:[153][199](154)"BEI EINER KREDITSUMME VON"[199](144)KB(I)"DM"
4530 [153][199](154)"BETRAEGT DER TEILZAHLUNGSPREIS"[199](144):[153][181](KS(I)[172]100[170].5)[173]100;
4540 [153]"DM"[199](154)
4550 [153]"MONATSRATE:"[199](144)[181](KS(I)[173]MO(I)[172]100[170].5)[173]100"DM":[153][199](154)
4560 [142]
4570 [143] * HARDCOPY *
4580 [139]GR[178]1[167]G1[178]8
4590 [139]GR[178]0[167]G1[178]15
4600 H1[178]1024:[159]4,4:[152]4
4610 [129]H2[178]0[164]24:H1$[178]"":[129]H3[178]0[164]39
4620 H4[178]0:H4[178][194](H1[170]H2[172]40[170]H3):[139]H4[177]128[167]H4[178]H4[171]128:H6[178]1:H1$[178]H1$[170][199](18)
4630 [139]H4[177]95[176]H4[179]32[167]H5[178]H4[170]64
4640 [139]H4[177]31[175]H4[179]64[167]H5[178]H4
4650 [139]H4[177]63[175]H4[179]96[167]H5[178]H4[170]32
4660 H2$[178][199](H5)
4670 H1$[178]H1$[170]H2$:[139]H6[178]1[167]H6[178]0:H1$[178]H1$[170][199](146)
4680 [130]:[152]4,[199](15)[199](16)"20"H1$[199](G1)
4690 [130]:[152]4:[160]4:GR[178]0:[142]
4700 [143] * DRUCKERAUSGABE FUER EIN FAHRZEUG *
4710 [153][199](147):[129]I[178]1[164]N:[153]I;TY$(I):[130]
4720 [153]:[133]"DATEN FUER FAHRZEUG NR.";I
4730 [159]4,4:[152]4
4740 [152]4,[199](14)I" "TY$(I)[199](15)
4750 [152]4,"LEISTUNG (KW): "LE(I)
4760 [152]4,"HUBRAUM (CCM): "HU(I)
4770 [152]4,"GRUNDPREIS: "PG(I):[152]4
4780 [152]4,"UEBERFUEHRUNG+ZULASSUNG:"PZ(I)
4790 [152]4,"AUTORADIO: "PR$(I)
4800 [152]4,"4 TUEREN: "PT$(I)
4810 [152]4,"UNTERBODEN- U.HOHLR.SCH.:"PU$(I)
4820 [152]4,"SERVOLENKUNG: "PL$(I)
4830 [152]4,"SCHIEBEDACH: "PD$(I)
4840 [152]4,"SONDERLACKIERUNG: "PF$(I)
4850 [139]P1$[179][177]"0"[167][152]4,P1$;[199](16)"25"P1$(I)
4860 [139]P2$[179][177]"0"[167][152]4,P2$,[199](16)"25"P2$(I)
4870 [139]P3$[179][177]"0"[167][152]4,P3$,[199](16)"25"P3$(I)
4880 [139]P4$[179][177]"0"[167][152]4,P4$,[199](16)"25"P4$(I)
4890 [139]P5$[179][177]"0"[167][152]4,P5$,[199](16)"25"P5$(I)
4900 [152]4,"INZAHLUNGNAHME: "IZ(I)
4910 [152]4,"HAENDLERRABATT: "HR(I)
4920 [152]4,"GESAMTPREIS: "PE(I)
4930 [139]KB(I)[178]0[167]4960
4940 [152]4:[139]AZ(I)[179][177]0[167][152]4,"ANZAHLUNG: "AZ(I)
4950 [152]4,MO(I)"MONATSRATEN ("ZM(I)"CMD%) ZU JE"[181](KS(I)[173]MO(I)[172]100[170].5)[173]100"CMDDM"
4960 [152]4:[152]4,"KRAFTFAHRZEUGSTEUER/JAHR:"VS(I)
4970 [152]4,"HAFTPFLICHTVERS./JAHR: "VH(I)
4980 [139]VT(I)[179][177]0[167][152]4,"TEILKASKOVERSICHERUNG: "VT(I)
4990 [139]VV(I)[179][177]0[167][152]4,"VOLLKASKOVERSICHERUNG: "VV(I)
5000 [139]VI(I)[179][177]0[167][152]4,"INSASSENUNFALLVERSICH.: "VI(I)
5010 [152]4:[152]4,"MITTLERER VERBRAUCH:"VE(I)"L/100 KM";
5020 [139]TR$(I)[178]"N"[167][152]4,"(NORMALBENZIN)"
5030 [139]TR$(I)[178]"S"[167][152]4,"(SUPERBENZIN)"
5040 [139]TR$(I)[178]"D"[167][152]4,"(DIESEL)"
5050 [139]TR$(I)[178]"A"[167][152]4,"(BLEIFREI NORMAL)"
5060 [139]TR$(I)[178]"B"[167][152]4,"(BLEIFREI SUPER)"
5070 [153]"DRUCKERAUSGABE FUER EINEN WEITEREN WAGEN(J/N)"
5080 [161]E$:[139]E$[178]""[167]5080
5090 [160]4:[139]E$[178]"J"[167]4700
5100 [137]1030