'===========================================================================
' Subject: calculate mileage                  Date: 07-15-01 (  :  )       
'  Author: Ken Sims                           Code: PB DOS 3.5             
'  Origin: mrken@megsinet.net               Packet: ALGOR.ABC
'===========================================================================
'>>> Page 1 of GASMON2.ZIP begins here. TYPE:BINAA TLEN:3686
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"GASMON2.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%d-%9%0^Ob90g3C%.%%]%%%%0%%%%lf%xmtl#lSy'mybE*+2;U5+*I
U"cw:;os8091pVdy9hY;WNI.i$;,GPT0v2hPfenTjobIP.OH)K)c^%AWQFohT^j,m
U"z4mI&qV5:6Z+LVD9FA)K]hW4Eel**-.,DR--SaZ2IwX*&ERaF(s;s.Y55#.Ac8k
U"5r_H3u%%up(%)9%'#%-%i-%^O77-dLw#%%%(%%%%0%%%%l%fxrt%sWSyJ'yBFs1
U"onpOXKBA=1_^osyAFHsPBI(%qrQw+MGqnIzmySuIBr2C*Xjh6>rH/Er8/d*rtj/
U"28tx^sEj[K3UQaqJoi1-L/_.+swED>'DJ*%%up()%9%'%R-%Kzo^OQl(j_v+%%%
U")A%%%0%%%%lf%xmtl%lSgfjxf(V,=T[9K7<oF.]zRJpfc=+_lnGd1U%u8+F+Im\
U"C7,61.%rU]O]j[l'dBrK'#_+r]q4Q%(YtX1CaqMV(ETo%NUEk##CwV7D4H4Nnh-
U"5%,f+nO?hvsi#*inAJY(E7e=xh+&s>r;PzqIHmtF0af-4V+YgfAFva+0H1Wt;;:
U"h>gCbqL;I('GN?jgFPqGBj##5K<?mZA;RTq(5J6tc;W35QZpp=l86T]tHV?\BN+
U"en4V<gV3rl%P]I>.&_m1ITL6r7VO%L,f<Py:)odbL7S?Mlrt?uudrinEN7akt;i
U"x/q4*U=a5uU.9&3f+R6(+MM9*hnRw?:]S<B:B>7QOVV>i/DN;je<p2GL/T&xW;*
U"R%\sa&NaY:#9j^7%5?c/09)S\G2VY0#F&$)E4Tnn#N$gTo?g=T^Du+VRa-?PJfg
U"G9f/Wn^>>/Lu4H9x7rJe9;sCt>Bmu.>DzQ\w-[V-]+cr+f\uogt$kp7WnE*h-2Y
U"FF2j\P/QOLJuBleT(e=d7X#.&]d-mxu4FbJL/Wrg1xVNix1&OM]N=>txkFVXVr?
U"U1:YXUCu>X3g0E1eC4b]ayoUJt<DTOHr^Z<7p?Kk(hc:W&hHkxgkQw#JtGhFl6?
U"I,WR'X8adT+x$F7a2%=($s:[+a*lIW<-hE<ZA/kbY(enS#Rp&=-kseLnkXZ0mio
U"GdxWQtlfbMRKSJJNcM.n_tpXQGXTzq)=D/nQMblPg%C%fHK69;2?r&M^qdr?NJi
U"bioVfIE:$H?G+8X'T[x3Om'_wA]:8S;OiQ^(.1C^3A\_5Ct<DTZ\P-XTAY8?P9,
U"t+2bE;A9*\SI.Dy$1mic?H']0z3\b2e;#Xss&82cewOOmsxN%eW/B?'C$5n(I6W
U"oDs$^DONqke5PnVcHib_?u]e&\(WZSc/.Ql[IfiwQe0ZF<\X%gS8i<<*S%L;OL;
U"zZ$JGY:UZRa_t1?i:\o0PsTBTUkPU,yBYvsu6lwuh,*ci/%l3Wd)5ed:2]24Z3M
U"vVB:D4jD+#uWzkCF99<HB$Y&'DkMl/>_J0le[^8>1j5uq9%Vs(fz?B1RE7mX+)J
U"780/=.BmH;S.?5.T+i+)>VHQbvJ.d-$qZBcOo:X#$Hlc%mnh%n^'o6;G)G\7iAx
U"91W=bb.j:mq=9uG[['%Rp&zGR'3+;(xtI+1\M(Z#^KbJ18-8.8Q5I?M3sioRPFr
U"pKB8)Nda\A;D]ex2=v72CpjZepo,\e6TD6bPO0:;'f*FjqnYO)K.z2zfMZ<FD6X
U"[p0b8GS<.m9K>c<MS.&owiGV.)WRegNv&+i=3+PVW(B4zs0QZF('^8ze?9>oIz:
U"L;H&al6o9kA11kn]^rL'U'dss('vMMB4dXN]%hrPQ[9vc1_cU6C3M=/6y?)+:_s
U"1:IYR&'?_Jv^kK;=5$\af(Ih./)Gk4/S5w_XX%CrQ#>P\xnm/,R%x.uMF<JP\E^
U"M<RQ#b0Vgze3^=N%51hj(dNsRDcO[Zy*XZC2Q]l:>Ed=.kGHHBs_aN^h./?7R)j
U"4lOO7Xa0m,s'^c'1ook$o8c4SGgu^$WU(G%HMryLnLd9c)\1+YQg'Gzr/tM7.h2
U"Q]o-t29;1udj:.:>E)&'S77d2o4lQKYY2Z=*=FYlu(LKnE\PyJyi=)^2TKTZD/_
U"Q(q2i-e&.DG-y&4S&Pc78Zb^Z_;xb<PWmVVG\GkdDs;7Yh4)VRFTp/OKe0wd.^q
U"3q-YSRN=)yvCIKgMhL'gCb\MelVwVB4nCk]MJR>3u.y.juJ]gTGAoZXkc?YX%(q
U"7oj7](6bR(b<:3CkUz#mr*-Qh%ei[y;uUku;:E6R4.lM;AD(6H,ki6qW#,gYX1j
U"T.YaQBey]XnMzHK^8Oxn#[TxdgO(xKd:MlH,9AqfDBen:<cXFAA9xh=OOm5UHYE
U"ukC_aXV-_EH_6a8k?[/0)\KRSNbd*M=8-,w0NTYF8ZTp;q4%;TRy>Z(O<'rR\3;
U"w'tSl2xZx-D5ElgSazlB<;i&p5'#D4&mUT(jCmlJ->wzm%tWr5phD'A24TU7yG$
U"cqf&9Qf\3NuYlZjFVUVtlNZ0N2'q4up%()9%%'%-%9FB\O4>x8t'**%%%2?%%%0
U"%%%%lfxr%tsWS[gfxfP'F=r7m57H'j3:K0KI)A=f\8M9C&\KCfR&0YkQ2\:krNm
U"p$mN=kVEBr)e,N^$]_beI(qm5-43#?ZixCX-o)IW9Nrlz>FNPz4jpxDmi>1IeO#
U",l0UUS4cgI2\VZ'PU/-o8)5vkP<Pu35FV3z$IODs8k$ai0$Y/bST%#C-N\hAW:L
U"%RXR+]CSz%X2aOIl2Q_43DAgBLA%V**5.wcoYeRnD:,'.'^[b:\rIW8<[8]A[xE
U"uSGTC[u8wWPNnV$2uW<7'Wt&>KuWTSxUy5gg,]'*vXWC9o#vkxg.u\TQa+H26gv
U"W2?TeWGaLnI'L/\tZ^Y<\.+IB-Lk\&qln8\XB\;,J(M%#LY'l\P^0XL,4hL&MkQ
U"i9AViZGO.M(1rM0mgmKQP2LTBj5,e<QWRuO)4lKw'K9Y[U*RFQi55h0;5T+1gqp
U"v:N>4EGesej#Qe2*;Vd_sdK#3JKLrrM8Py61?E*1-KPo*N3.DhEn+HO&e9#f?)f
U"oSJ3Th*&nM?8Y0ee+R<7H^WY]9]kPb1ee(P0u?SUME'Zd$<jKEvE8F^ZEMgk?7p
U"DDtzor>*.JP,E8F+:*$#Yo'zX'+&W(4;a?Z3RJ4BX=*p)bM1v]gn[whK.BwXL#\
U"V=6u6;6TpFFdA;(k2F_j9=?KJuTVpXCbO;wvDv7^HCfB$q58m6\i2\jRjFCg(P&
U",%)yN1K%,V'$KIY0>Jd9U<kVEjr=-iL&.\Sk5Oy%gn=Q&QJB9CVk9F1;t,.BK5x
U"RN5-B#Th[Vc#l2u,7_j3YfH#ET-7amUY+=+J0Ts>_S#KvQ'E#+L)Dg9LU<mo4NQ
U"Nxn_Hx,.h*5LkkSd$_0#G8V(_iX.H/+i5J(Gb;v$BZy+1<xuTAq7W()a$nJ:Jb>
U"9FlOI4bq+Wr308H4bzTYp*k;P.AiyXC/HD>r_clS>5yo*MQb5Ta$gzORi/9AScd
U"CK+mu\N?Nhp?yOFgrA/yh=MblAS..xBJrKjiExqme\'1Mn%HQ0c4OW.O5x7cG49
U"dm0uWJ+F$,posNq_z:I+(p$yxli5eIeywqZh_1ns;Uc+_=#Z^O%#Nh]k*2R$a7U
U"'I%%vPSqXlv9<p8ck);lfy+UdA]Dvk(H?K:*II>=)-#zT.bdza09/B]c[sh9Ul[
U"AxB-CYoqXXJ**YI1:1pKh:vYA80/w-B$l]C2wV3gnc+/q_a/<O/DkRJA^Z-=SN,
U"v;k,+<7pzf[#*R4],H(1m(<#;(VmG^=2%SwDMd\IqjD<APt1HRVXK3OfPF%EICM
U"2rUUBAsmQb7%q#%hFz6EMNX)T7/a5'-TZ.aFqf-si0<b8asYF)8kKKiOnV'QGrS
U"eTh4x_W]XJA1+<%P&$_Fc/qKr4FhF)3f<04po]LKo.tQ>&;6i95]g;8YMQ#;J-l
U"FSYX]QSRtKmKX^'.8GoMNCtc./Xpe:DSt5&F6YxnNe.X6%)h,*LN5P:B$GlGcN;
U"nLuW6vsH_8:IXd?X+tRBqH?QlpfE?tM7wwljtfTJ>x3Xg<s-A-M/Q8UmZbA#Q8L
U"bK1-(Cp\H$;k/+C)8,B5/8I*oOKiOITeS06_:B,47,m2kKQdS'cJ:8E2c/4fxMX
U"o?dd,*v<q2]-*e2WFkU30$:PhUst_.mCYo^nuY'n%wODSv,rt[P%ZM\zGB>g8u)
U"]od<)nB5KL7tM3ObG&?Wqs]pAZZQD^.-Wf7TGThyQY.:GU\D5fL,GKOcKu)S>K>
U"u_udf#OctA&$C'03AN.H:-u<d'0KXHJdf(/Tu9$nQTfh7GA_V:6x/'08VUS)A]F
U"nJgaNUWeW\Jw<x?UGUE#?Un<6)'<ZF-*?l$_8#5HX7q6NXu_,%LLK11'7ER2v*1
U"RQw^0*<-CfD%up&'%9%9%%'%-%>9%^O8b9g3&C%%%&]%%%%0%%%%%%%%%&%E%%%
'>>> Page 1 of GASMON2.ZIP ends here. Continued on next page.
'>>> Page 2 of GASMON2.ZIP begins here.
U"%%%%%%lf%xmtl#lSy'%yup&%'9%9%%'%-p%i%^%O7-d'Lw%%(%(%%%%0%%%%%%%
U"%%&%E#%%%l%%%%l%fxrt%sWSy&'yup%&'9%%9%'%R-%Kzo^OQl(j_v+%%%)A%%%
U"0%%%%%%%%%&%%E%%%%=&%%%lfxm%tllS%gfxu%p&'9%%9%'[%-%F+B\O>$x8t*%
U"*%%2%?%%0%%%%%%%%%&%%E%%(%a,%%%lfx%rtsW%Sgfx%up*+%%%%%%)%)%']%%
U"%&;2%%%%%
END SUB
CLOSE:IF S=71AND B&=3686THEN?" :) 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\3686,219);:END SUB
'>>> Page 2 of GASMON2.ZIP ends here. Last page. TCHK:71
