* CARS COPYRIGHT (C) 1979 JOHN GROVEG CURSOR #13, SEP., 1979h BOX 550, GOLETA, CA. 93017~ AS OF 16 SEP 79Z:59468,12dQR$"RETURN":QP$"PRESS "QR$" TO ":QC$""QP$"CONTINUE"eQM$"ODOMETER ":QK$"MILES":QJ$"GAL":V$" VEHICLE":62000=lT3:MXT:C(30),D(30):CR$(13):W1:V1mCA$(T),IS(T),VA(T),DP(T),FC(T),LC(T),FX(T),MM(T),MG(T),MC(T),ME(T)n"LAST DATA ON TAPE? ";:60000x(IN$,1)"N"6000:135}5000"WANT TO SET/CHANGE"V$'"NAMES/FIXED CHARGES? ";:60000:(IN$,1)"Y"6000i"SELECT INPUT UNITS:":3000:X9B9:"SELECT OUTPUT UNITS:"3000:Y9B9:Y92QK$"KILOMETERS":QJ$"LITRE"W1:V1:Y93QJ$"LITRE"X91Y92W1.61:V3.785X91Y93V3.785 X92Y91W.621:V.2642#X92Y93W.621:X93Y91V.2642PX93Y92W1.61{4850:"WHAT MONTH? ";:60000:MO$IN$"WHAT"V$"? ";:60000CX1T:CA$(CX)IN$200CX"NO SUCH"V$" KNOWN."WANT TO ADD IT? ";:60000:(IN$,1)"Y"130170,"IS LAST ENDING "QM$b"FOR"V$" IN MEMORY? ";:60000:(IN$,1)"N"205AME(CX):"BEGINNING "QM$"FOR "MO$" IS "A:300"BEGINNING "QM$;:60000:A(IN$),"ENDING "QM$;:60000:B(IN$)h4850:14)"FUEL DATA+ "INPUT FUEL:"QP$"END.":900:C2C1:D2D1F 4850:14)"OIL DATAw "ANY OIL DATA? ";:60000:(IN$,1)"N"430 "INPUT OIL:"QP$"END.":900:E1C1:F1D1 4850:12)"MISC. EXPENSES "ANY MISC. EXPENSES? ";:60000:(IN$,1)"N"1400. 12)"#"18)"COST":I130:C(I)0:D(I)0:IL 12);:60000:IN$""500} M1(IN$):17)"";:60000:C(M1)(IN$):460 "ARE THE ABOVE DATA CORRECT? ";:60000 (IN$,1)"N"450 G0:I130:GGC(I):I:1400 C10:D10:I130:C(I)0:D(I)0:I+ 5)"#"10)"AMOUNT"25)"COST"] 4800:"ARE THE ABOVE DATA CORRECT? ";:60000s (IN$,1)"N"910 I130:C1C1C(I):D1D1D(I):I: x""2)"SUMMARIES FOR "MO$" FOR THE "CA$(CX) Z9A:4900:"BEGINING "QM$25)Z1$! Z9B:4900:"ENDING "QM$25)Z1$:U(BA)WU Z9U:4900:"TOTAL "QK$28)""(Z1$,8):V9C2V Z9V9:4900:"TOTAL FUEL USED"25)Z1$ Z9D2:4900:"TOTAL FUEL COST"25)Z1$:C201560 D3D2V9:D4UV9:QT$(QK$,(QK$)1) Z9D3:4900:"COST/"QJ$:25)Z1$0 ,Z9D4:4900:QK$"/"QJ$:30)""(Z1$,6)Z @Z9F1:4900:"TOTAL OIL COST"25)Z1$ TZ9G:4900:"TOTAL MISC COST"25)Z1$:D4D2F1G:D5D4FX(CX) hD6D5(BA):Z9D4:4900:"COST OF OPERATION"25)Z1$ |Z9D5:4900:"TOTAL EXPENSE"25)Z1$)Z9D6:4900:"COST/"QT$32)""(Z1$,4)37000^2)"SUMMARY TO-DATE FOR THE "CA$(CX)MM(CX)MM(CX)U:MG(CX)MG(CX)V9:MC(CX)MC(CX)D5:ME(CX)B0AVMM(CX)MG(CX):CMMC(CX)MM(CX)DZ9MM(CX):4900:"TOTAL "QK$;:25)Z1$XZ9MG(CX):4900:"TOTAL FUEL"25)Z1$IlZ9AV:4900:""QK$"/"QJ$;:30)""(Z1$,6)sZ9MC(CX):4900:"TOTAL COST"25)Z1$Z9CM:4900:"COST/"QT$;:32)""(Z1$,4):7000"MORE ON THIS"V$"? ";:60000:(IN$,1)"Y"150"ANY MORE VEHICLES? ";:60000:(IN$,1)"Y"130O"STORE THE DATA ON TAPE? ";:60000:(IN$,1)"N"1999Y2000_"MOUNT TAPE AND REWIND.":QC$:60000:1,1,1J1TLTI1,"."CA$(J):1,IS(J):1,VA(J):1,DP(J)1,FC(J):1,LC(J):1,FX(J):1,MM(J)1,MG(J):1,MC(J):1,ME(J)$LTIL3 L102090I"59411,53:LTI20X$TIL2084f&59411,61m*Jt/14"DONE WRITING TAPE; REWIND NOW.": "1. MILES:GALS":"2. KILOMETERS:LITRES":"3. MILES:LITRES" "? ";:60000:B9(IN$) #5);:60000:IN$""4840BN9(IN$):11)"";:60000xC(N9)(IN$):25)"";:60000;:D(N9)(IN$):4800~"";10);"MONTHLY CHARGE DATA":$Z9$(((Z9100.5)),2).(Z9$)3Z9$("00"Z9$,3)8Z9$(Z9$,(Z9$)2)"."(Z9$,2)=Z90Z9$"-"Z9$;BZ1$(" "Z9$,11)ALy"MOUNT LAST DATA TAPE AND REWIND":QC$;:60000:1J1T".";1,CA$,IS(J),VA(J),DP(J),FC(J),LC(J),FX(J),MM(J),MG(J),MC(J),ME(J)CA$(J)(CA$,2)J"1:"DONE READING TAPE; REWIND NOW.":7000(fp"CHANGE/SET WHAT?":"1."V$" NAMES":"2. FIXED CHARGESs"? ";:60000:FC(IN$):FC6100,6300"THESE"V$"S EXISTJX1MX:""JX""CA$(JX):JX8""V$" TO CHANGE/ADDB"";:60000:IN$""6250HLIX(IN$):"";:60000:CA$(IX)IN$:6210xj"ALL CORRECT? ";:60000:(IN$,1)"N"6200t 6000"WHAT"V$"? ":"";:60000JX1MX:IN$CA$(JX)6330JX"NO SUCH"V$"; USE OPTION 1":ZZ12000:ZZ:6000>"INPUT NEW VALUE OR "QP$:"KEEP EXISTING VALUE.l23)"OLD"33)"NEW":"YEARLY INSURANCE";Z9IS(JX):6500IN$""IS(JX)(IN$)""V$" LEASED? ";:60000(IN$,1)"Y"6355"YRLY LEASE CHGS";:Z9FC(JX):6500:TM1IN$""FC(JX)(IN$)&6405d"CURRENT VALUE";:Z9VA(JX):6500:IN$""VA(JX)(IN$)"DEPRECIATION (%)";:Z9DP(JX):6500IN$""DP(JX)(IN$)"FINANCE CHGS";:Z9FC(JX):6500:IN$""FC(JX)(IN$)$"LICENSE/CLUBS";:Z9LC(JX):6500:IN$""LC(JX)(IN$)3TM16430tFX(JX)(IS(JX)(VA(JX)(DP(JX)100))FC(JX)LC(JX))12:6435TM0:FX(JX)(IS(JX)FC(JX)LC(JX))12#"MONTHLY FIXED CHARGE ";25):Z9FX(JX):4900$"";(Z1$,8);""2"EVERYTHING CORRECT ? ";:60000&7(IN$,1)"N"63000c6000Vd4900:16):Z1$;"";:60000:hXQC$;:60000;y"":"";:`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110KFL(Z127)64(Z127)91Z$((Z128)255)]ZL25460010xIN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010 0""9)"CURSOR #13 CARS_:" COPYRIGHT (C) 1979 BY JOHN GROVE":I110:"";:N"MAINTAIN"V$" COST RECORDS:":""QP$"BEGIN:"bT$:T$""62050"":