A1000:20: *** BENZINVERBRAUCH *** 100:D$(36):K$(36):LP$(36) GP$(36):M36:LI(36):DV(36):N1 !SR$"--- BENZINVERBRAUCH ---"$!HO3:VE1:110:1502!VE3:110@!$"MENUE:"h!.VE5:110:"(1) Einlesen der Daten"!8" und Ausgabe der Tanktermin-Liste"!BVE8:110:"(2) Eingabe neuer Termine"!LVE10:110!V"(3) Speicherung des Files""`VE12:110"j"(4) Ende""t210-"~IN49 1500>"IN50 3010O"IN51 4000a"IN52 950k"1140"100:SR$"--- BENZINVERBRAUCH ---""HO3:VE1:110:150"HO0:VE3:110"" Datum Kilometer Liter Liter/100 km"""Z1 M#D$(Z)"" NZ:ZM:1290##5010N#D$(Z);" ";K$(Z);" ";LI;" ";DVa# Z::6010::z#"Gesamtstrecke = ";#GK(K$(N1))(K$(1))#(GK;" km"#<:"Gesamtkosten = ";SU;" DM":SL0#FI1 M#PLP$(I)"" IM:1390$ZSLSL(GP$(I))(LP$(I))$dI1$n:"Verbrauch = ";W$x((SLGK)10000)100;" l/100 km"l$6010:100:1030$D$(1)"" 1200$2000$$100:VE1:110:"EINLESEN:"$VE4:110:"(K) ...von Kassette"$VE6:110:"(D) ...von Diskette"%210"%IN75 NF0:NF$"":21109%IN68 NF4:2100C% 2030b%4VE8:110:"Filename:";NF$k%>500w%HI1 M%R540:D$(I)IN$%\540:K$(I)IN$%f540:LP$(I)IN$%p540:GP$(I)IN$%zI%580%1200% EINGABE& 100:HO1:VE1:1101& "EINGABE DER DATEN Eingabe-Nr.";NU& VE3:110:"Datum (tt.mm.jj):";`& D$(N)& VE5:110:"Kilometerstand (nnnnn):";& K$(N)& VE7:110:"Benzinpreis DM/ltr.(x.yy):";& LP$(N)' VE9:110:"Preis der Tankfuellung (xx.yy):"; ' GP$(N)"'& N1 NN1:30101'0 100:1200A'100: SAVEf'VE4:110:"(K) ...auf Kassette"'VE6:110:"(D) ...auf Diskette"'210'IN75 C1:4110'IN68 C5:4100'4030'VE8:110:"Filename:";NF$'NFC:500(I1 M("SR$D$(I):560)(,SR$K$(I):560=(6SR$LP$(I):560Q(@SR$GP$(I):560X(JIc(T580:(^" File gespeichert!"(h6010:100:1200( SUBROUTINE(K1(K$(Z1)):K2(K$(Z))(LP(LP$(Z)):GP(GP$(Z)))LIGPLP:LI(LI10.5)10)KK2K1:SUSUGP:)DVLIK:DV(DV10000.5)100@)F)pu)z:" Taste =>")210:100))XD$(1)"" 2000)b1200)} -----------------------------) } - -*} - (C) 6/1991 -7*} - MANFRED STEUDNER -[*(} - HEIDESTR. 166 -*2} - O-8142 RADEBERG -*<} - -*F} - AUF COMMODORE C64 -*P} - -+Z} -----------------------------+d}%+n} DS-KULTUR:+x}-spezial 9111134 -*P} - -+Z} ------