@@ %@(14)@""i@(A(12),KL(12),A$(4),GKM(12),BL(12),SK(12),KHK(12),GRK(12),SO(12),KEK(12)@2B1$(12,12),C(12,12),KMS(12),B(12)@<6,16AF0,1,79,24,1:" ҠŠҠ3.1 - " AP1870AZ MENUE*Ad0,2,79,24,13An5,1Ax"***************************ŠŠҠ!*****************************"A5,7A" 1-> Ԡ"A" 2-> Ҡ",B" 3-> Ԡ"^B" 4-> Ҡ"B" 5-> "B" 6-> -"BT$:T$""200BT$"6"200BT$"1"200CT$"1"290CT$"2"610(CT$"3"750:CT$"4"1380LCT$"5"3680^CT$"6"2720hC"3370C," "A$" ҠŠ "J$" "C65,1C@KMS(M)0"":340#DJ" LD DOMETER EADING : ";KMS(M)]DT" URRENT DOMETER EADING : ";XkD^X0430Dh" "&ErX04:" ":X}E|" "E " "(15)" !!!!! A "ET$:T$""400E(143)E90-F" ASOLINE (ALLON) : ";CgF" ASOLINE XPENSE (OLLAR): ";BF" THER XPENSES (OLLAR) : ";DFA(1)XKMS(M)FKMS(M)KMS(M)A(1)FGKM(M)GKM(M)A(1)FB(M)B(M)BGBL(M)BL(M)CGSK(M)SK(M)DwG(2)" "G" THER NPUTS FOR THIS ONTH ? / "/H(2)" "CH&T$:T$""550SH0T$"N"90dH:T$"Y"600vHDT$"Y"550HN460:320HX0,3,79,24,1:310Hb3370Hl" "A$" EPAIR-XPENSES NPUT "J$" "IvZ19:C(M,Z)0Z4I" NPUT O. ",Z_I" RTICLE : ";B1$(M,Z)I" RICE : ";C(M,Z)I(2)" "BJ" THER NPUTS / "J(2)" "JT$:T$""700JT$"N"90JT$"Y"740JT$"Y" 700J0,3,79,24,1:630KK3370:1710nK" "A$" AR XPENSE UTPUT "J$" "K " DOMETER : ",KMS(M)," ILES RAVELD : ",GKM(M)L""ZL  " ASOLINE OST : ""####.##";B(M)L*50)" OLLAR "L4"!M> " ASOLINE : ""####.##";BL(M)MMH50)" ALLON "MR"M\ " OST / ALLON : ""####.##";KL(M)Nf50)" Ґ "jNp"Nz " ILES / ALLON : ""####.##";KHKN50)" ILES ".O"qO " AINTENANCE & EPAIR XPENSE : ""####.##";SO(M)O50)" OLLAR "O"8P " OST / ILE : ""####.##";KEK(M)dP50)" OLLAR "P""P " OTAL XPENSE : ""####.##";GK(Q50)" OLLAR "Q""Q" <0> RINTOUT <1> ENUE <2> XPENSE-UTPUT "QT$:T$""1020RT$"2"1020RT$"0"1020&RT$"0"10806R$T$"1"90GR.T$"2"750QR83490bRB4,4,7:3240RL4," "A$" - "J$RV4R`4Sj4,"--------------------------------------------------------------------------------"MSt4," DOMETER-EADING : ""ILES ######";KMS(M)S~4,"--------------------------------------------------------------------------------"S4," RAVELD ILES : ""ILES ######";GKM(M);T4,"================================================================================"sT4," ASOLINE XPENSE : "". ###.##";B(M)T4,"--------------------------------------------------------------------------------"U4," ASOLINE : "". ###.##";BL(M)`U4,"--------------------------------------------------------------------------------"U4," VERAGE OST / ALLON : "". ###.##";KL(M)U4,"--------------------------------------------------------------------------------"*V4," ILES / ALLON : ""ILES ###.##";KHKV4,"--------------------------------------------------------------------------------"V4," EPAIR & AINTENANCE"V4," XPENSE : "". ####.##";SO(M)6W4,"--------------------------------------------------------------------------------"pW 4," XPENSE / ILE : "". ###.##";KEK(M)W4,"================================================================================"W4X(4," - : "". ####.##";GKX24X<4XF45XP4:0,2,79,24,1:90;XZKXd3370:1790Xn" "A$" EPAIR-IST "J$" "Xx:XZ19 Y " RICE : ""#####.##";C(M,Z)2Y"RTICLE :",B1$(M,Z),70)"."9YZY"********************************************************************************"Y " - : ""#####.##";GRK(M)Z70)" OL."\Z" <2> RINTOUT <1> ENUE <0> XPENSE UTPUT "qZT$:T$""1490ZT$"2"1490ZT$"0"1490ZT$"2"1550ZT$"1"90ZT$"0"1370Z3490:K$" RTICLE"Z4,4,7:3240B["4," "A$" - "J$I[,4d[6Z19:C(M,Z)01650[@4,"--------------------------------------------------------------------------------"\J4, " RICE : "". ####.##";C(M,Z)N\T4,(27);(106);(36);" RTICLE : ",B1$(M,Z)U\^Z\\h4\r4,"================================================================================"\|4]4,"OTAL XPENSE : ""OL. ####.##";GRK(M)"]4)]44]4:90G]BL(M)03590[]GKM(M)03590]KL(M)B(M)BL(M):KL(M)(KL(M)100)100]KHKGKM(M)BL(M) :KHK(KHK100)100]GRK(M)C(M,1)C(M,2)C(M,3)C(M,4)C(M,5)C(M,6)C(M,7)C(M,8)C(M,9)^SO(M)SK(M)GRK(M)M^KEK(M)(SO(M)B(M))GKM(M):KEK(M)(KEK(M)100)100_^GKB(M)SO(M)^GRK(M)C(M,1)C(M,2)C(M,3)C(M,4)C(M,5)C(M,6)C(M,7)C(M,8)C(M,9)^^M112:BL(M)0BL(M)1^KL(M)B(M)BL(M):KL(M)(KL(M)100)100_&M:_0M112:BL(M)0BL(M)1O_:KHK(M)GKM(M)BL(M):KHK(M)(KHK(M)100)100X_DM:k_N25,3,55,12,1_X ""_bX15:" ":X_l "" `v" OAD ATA /"5`T$:T$""1920G`T$"Y"1970Y`T$"N"1960l`T$"N"1920v`2510`27,5,57,14,1` ""`X17:" ":Xa ""=a" HAT EAR ?"Ya" ----"naA$:A$""2030aB$:B$""2040aC$:C$""2050a D$:D$""2060aJ$A$B$C$D$a 29,7,59,21,1b* ""5b4X19:" ":Xeb> ""bH" EAR"bR" "J$b\ " .. THEN "(15)" <>"bfT$:T$""2150cpT$(13)(143):1970cz31,9,61,24,1Gc ""xcX19:" ":Xc ""c" ATA ISK INSERTED ?"c " /"dT$:T$""2230dT$"N"2270)dT$"Y"2280"h A$:A$""2690h A$(13)(143):2510h 90h 25,3,55,12,1 i "">i X14:" ":Xni ""i " RE YOU SHURE TO UIT ?"i " ِ/"i A$:A$""2780i A$"Y"2820i A$"N"90i A$"N"2780j 25,3,55,12,1@j ""qj X15:" ":Xj" ""j, " AVE ATA /"j6 T$:T$""2870j@ T$"Y"2920jJ T$"N"2910kT T$"N"2870"k^ 0,2,79,24,1:5kh 27,5,57,16,1fkr ""k| X19:" ":Xk ""k " ATA ISK INSERTED ?"l " /"%l T$:T$""29807l T$"Y"3020Il T$"N"2720]l T$"N" 2980pl 29,7,59,18,1l ""l X19:" ":Xm "".m ""(15)" AVING ATA "Qm 2,8,2,"@0:CAR-DATA"J$",S,W"]m M112tm GKM(M)1GKM(M)0m 2,GKM(M)m& 2,B(M)m0 2,BL(M)m: 2,SK(M)mD 2,KMS(M)mN MmX M0mb MM1ml Z19:C(M,Z)03220mv 2,B1$(M,Z)n 2,C(M,Z)n Zn M123170Dn 2:(7):(143):0,2,79,24,1:\n M1A$"ANUARY "tn M2A$"EBRUARY "n M3A$"ARCH "n M4A$"PRIL "n M5A$"AY "n M6A$"UNE "n M7A$"ULY "o M8A$"UGUST "o M9A$"EPTEMBER"5o M10A$"CTOBER "No M11A$"OVEMBER "go M12A$"ECEMBER "mo o* 0,4,79,24,1o4 " ONTH : ";M:3240o> " "LpH X04:" ":XpR " "p\ "  "A$" /"pf T$:T$""3430pp T$"N"90pz T$"Y"3470q T$"Y"3430#q 0,2,79,24,1)q ;q 3,7,34,21,1bq " "q X011:" ":Xq " "q " LEASE TURN ON " r "  APER INSERTED ?"'r "  THEN HIT"Tr "   "(15)" <>"(143)mr T$:T$(13)3570sr r25,10,55,23,1r""rX010:" ":Xs$""5s." "[s8 " LEASE HIT"sB " "(15)" <>"(143)" "sLT$:T$(13)3660sV90s`0,2,79,24,1sj30,5,51,20,1st""#t~Z112:" ":Z@t""gt" "t" IAGRAMS ONLY IN "t" 40 OLUMN ODE "t" WITH<"(15)""(143)"> TO ENUE" u" WITH<"(15)""(143)"> IAGRAMS"uA$:A$""3780/uA$"M"90AuA$"D"3820Ku3780]u0,2,79,24,1uX$"LEASE ELECT 40 OLUMN ODE"uQ$"<>u 45(X$)2);X$u40(Q$)2);Q$uA$:A$""3870u(&u20,1:0,0,39,24,1v<0,1 :4,1vF(14)GvP" IAGRAMS "lvZ" < 1 > ASOLINE XPENSE"vd" < 2 > ILES RAVELD"vn" < 3 > VERAGE OST / ALLON ASOLINE"vx" < 4 > ILES PER ALLON"w" < 0 > AINMENUE"wA$:A$""3980'wA$"1"40608wA$"1"4060IwA$"2"4570ZwA$"3"4730kwA$"4"4850}wA$"0"4960w3980wB9wM112wA(M)171(B(M)2.5):A(M)10A(M)10wMw4,1w0,1w1,1x"1,6:1,10,0,"GASOLINE EXPENSE X 10 DOLLAR",0,x,1,0,21," 0-",0@x61,0,20," 2-",0Tx@1,0,19," 4-",0hxJ1,0,18," 6-",0|xT1,0,17," 8-",0x^1,0,16,"10-",0xh1,0,15,"12-",0xr1,0,14,"14-",0x|1,0,13,"16-",0x1,0,12,"18-",0x1,0,11,"20-",0y1,0,10,"22-",0y1,0,9,"24-",0.y1,0,8,"26-",0Ay1,0,7,"28-",0Ty1,0,6,"30-",0gy1,0,5,"32-",0zy1,0,4,"34-",0y1,0,3,"36-",0y1,0,2,"38-",0y1,0,1,"40-",0y1,8y1,20,19020,0y1,By1,24,171,39,A(1),0,1 z&1,48,171,63,A(2),0,1&z01,72,171,87,A(3),0,1Az:1,96,171,111,A(4),0,1]zD1,120,171,135,A(5),0,1yzN1,144,171,159,A(6),0,1zX1,168,171,183,A(7),0,1zb1,192,171,207,A(8),0,1zl1,216,171,231,A(9),0,1zv1,240,171,255,A(10),0,1{1,264,171,279,A(11),0,1${1,288,171,303,A(12),0,1-{1,8a{1,3,23,"01 02 03 04 05 06 07 08 09 10 11 12",0v{1,0,179318,179{1,16,24,"M O N T H ",0{A$:A$""4540{0{ 3900{B15{M112:A(M)171(GKM(M)31.3):A(M)10A(M)10{ |4,1 :0,1|1,1=| 1,6:1,13,0,"TRAVELD MILES X 100",0Q|1,0,21," 0-",0e| 1,0,19," 5-",0y|*1,0,17,"10-",0|41,0,15,"15-",0|>1,0,13,"20-",0|H1,0,11,"25-",0|R1,0,9,"30-",0|\1,0,7,"35-",0|f1,0,5,"40-",0|p4350}zB6:18107}M112:A(M)171(KL(M)80):A(M)10A(M)10>}MS}4,1 :0,1 :1,1}}1,6:1,7,0,"AVERAGE COST / GALLON",0}1,0,21,"0 -",0}X20121:01,0,X," -",0:X}1,0,11,"1 -",0}X1021:1,0,X," -",0:X}1,0,1,"2 -",0 ~1,0,0," ",0~4350&~B11:1840W~M112:A(M)171(KHK(M)4):A(M)0A(M)170^~Ms~4,1 :0,1 :1,1~1,6:1,11,0,"MILES / GALLON",0~$1,0,21," 0-",0:1,0,20," 2-":1,0,19," 4-",0:1,0,18," 6-",0.1,0,17," 8-",0:1,0,16,"10-":1,0,15,"12-",0:1,0,14,"14-",0Y81,0,9,"24-",0:1,0,8,"26-":1,0,7,"28-",0:1,0,6,"30-",0B1,0,5,"32-",0:1,0,4,"34-":1,0,3,"36-",0:1,0,2,"38-",0L1,0,1,"40-":1,0,13,"16-",0:1,0,12,"18-",0:1,0,11,"20-",0:1,0,10,"22-",0V4350` 5080j10,8,30,24,1-t""T~Z113:" ":p""" LEASE SWITCH "" YOUR ONITOR TO"΀" 80 OLUMN ODE "ـ"" <> "A$:A$""50605,1:%:90! 0,1+1,155 4,1? 1,1i 1,30,20170,20170,18030,18030,20t  1,13 1,240,180310,180310,178309,176306,174300,172290,171285,170283,169281,165280,160279,140280,120281,117283,114285,113 1,240,180240,178241,176,244,174250,172260,171265,170267,169269,165270,160271,140270,120269,117267,114265,113260,112ʂ( 1,285,113290,112300,111305,109308,106310,100312,80311,502 1,260,112250,111245,109242,106240,100238,80239,50311,50%< 1,239,90311,90=F 1,265,113285,113GP 1,8UZ J1100]d Jrn 1,9,7,"JUST A"x 1,8,9,"REMINDER" J1800 : J1,31,277,35,273,145,45,1݃1,277,34,274,145,315,1 1,7,14,"DON'T DRINK" 1,8,16,"AND DRIVE"# J11500:J80:0,0,39,24,1C 4970