'=========================================================================== ' Subject: TRACK FUEL USE AND COST Date: 06-30-00 (21:58) ' Author: Ken Sims Code: PB ' Origin: mrken@megsinet.net Packet: PB.ABC '=========================================================================== ' Data entry utility to track your fuel use and check your per mile cost DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"GASHOGG.ZIP",4^6:Z&=2347:?STRING$(50,177); U"%up()%9%'%I-%vcBSMM#6-Ci%.%%m&%%%,%%%%hq%wSgf4x6_f+/;U5Fjp(BSVt U"0%%np6\^S1W:dgmsF7gbxjWesK-jeE5WU1bxhKhJ[x99CXq*,ji7:1bDVRtUfhQ U"B[YZq]eSnjqw*<*+?xk$BD5,T,jY)64xFq8^nn#cuqZ4PA,HJQnwZp2u1#iT0+\ U"%*M;a37:JS<.s0\&$31ug_agu4DMw96#KnC28/okQoTJvI,yC,u%p()9%%'%-p% U"b&WgM'_)+ds+%%%ZA%%%0%%%%lfx%mtll%Sgfx3f'*tBTm9M]ZNwwf9cl3)7b-8 U"B[Ie'rS96oOI*?;$DEo,$cZ&LA)2.Asq0eXh9tdQG,nGs/ED%ggy)xv#Z$<.nBH U")-BKoBPCbfX6f7^6GbhHNQb<>'3Da$A'4XRSqP+%3;WC&Zmq^ODzJ, U"%-;Yar6(3MUoxwrc9PA9$//so>ZmA^SR'871ts,BIDcFmF=;AGD:>kZ;BjP+81H U"=-sYBBrtGmA.B)rW\m4$gR%Qh7.)$qJ['?)'RD]WOa-%?7.$GQ%,7.HOmOArH6U U":^l3gb$\_?RWwo#O]Zno59ZO*056k),-X0sIVUz\#y:]q#(bg+IcLrubqRE'WwkHXJ?D U"SK<'eHn_yTD3_yjuZ;paH&aS%RM0\36>4tYem-n/DAq*00&Aw-9x6f6cMLJQFC2J=PJ'U9L2>M>K;gZ7gfyTw7H_1:SCx._ax' U"Y,]vIB:b-KlTL3]Bl]Ib<$IZ31(eF[;0L6o*U0\%?_z*aM7mxJIa U"8=i0*A&ww(gTbD0g+q15IFPHmg:oA9Xf\Sdp_$oaTjLZU<+gP4cZQVGNwX U"f30w4gG&K5R:5dZkQ9U#P-:=/qNX('nU5&.1>5V>M_u/7U-dN9Z.*3(-XS%n?>\ U"3+co'v__pre6CvxZo;:X)]SU27isQ5BPM6tQeY7.n%,Z];MNgfyd^o4C8;p:e4. U",fA2&V9HqA,bw2CN9bnpPgAg)i)cl]k:6=1+GwP:7qL.-[q;;pGE+G5>_B9sOpP U"XR\S8B_$aX1S#^4,dJD=7&ld7x6Nq)c)v7kxc?EOqyAHstLL4L U"iU(?KfsE&$&>]h-aJD)G58mkTQ.[Q[dkH<%$Hj;Fc)>7wkVe^??RJOOT^;b]+4J U"LUWg7Z:VQ:WQPd(h>MBZ\K)QC=r4Q\9cLd)cDA1$6Pl^gnG-6e6aG&-.y U"3AaT'Q(JixRJ4fSUn-p*,Ln+GGtP>#Aq+INnQ(-9yL6&4sAYbM&b9]-aC+CZ*Lv U"2TS(FaYA.DdIJhT6t:O0B(k+60AnObe%jOy)d%mUbUGb/'+;%JxOW_p_w*-F%[t U"R82*Tu1hM)Msyu7F4lSZNMewy$35&#Q\Sl3.8g58N/=Z9IQ#6cQfEk:l:61PL>[ U";D*%(g=LLLv_D%vE4r+xU0=BFs'iOmQ.hrwWQGc7x'8:x)WTRYO7^;L#AT5(phK U"MB'R<%jc>/Tqd6K4Zr_1Mqq70;zq+Mz45h4u4mbQ;Mib>9L37WF3*[Ec#H;]Eus U"]B?A;xIpK>u1LNg>QY4uQ,th/aeZWI1*9 U"3VK]7[jFd7J*JCZ]J U"^j29qPf,BVp4hd#U2fGGyf]^KIfWaL]Sp0N#h$\ClhKuX7e$vKxH*o8vF>;r[Ri U"N?b;.>5Pv4MT:2gJltD+qs\1Ff3MDm^i.:_.KQZ>CL$Jt6^'5gnN.>DJ*e)DxsD U"he_j\4LvAzb760*\HPuLAZq#CWYl)MgNrV/\**+^5?XenW.f/QsG*OecvZWM6IF U"'x'up%()9%%'%-%>2'WM+B]kS&2%%%&;%%%%0%%%%knqj&.niS.in)Z-C*2'[V1 U"*IEWa2'WM+B]kS&2%%%&;%%%%0%%%%%%%%%&%E%7%%[,%%%kn.qj U".n%iSin&)up*%+%%%%%(%((%v%%(%=-%%%%% END SUB CLOSE:IF S=87AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB