'===========================================================================
' Subject: CALL ABSOLUTE As A Function        Date: 10-19-03 (  :  )       
'  Author: Michael Webster                    Code: QB, PDS                
'  Origin: mfwebster@pdq.net                Packet: ALGOR.ABC
'===========================================================================
'>>> Page 1 of RVAL.ZIP begins here. TYPE:BINAA TLEN:1147
'-------------------------------------------------------------
'                  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,"RVAL.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%%-%a?ITTd,&%)x'.%%W)%%%-%#%%w%%fqSg.fxdy20>jUj5v]=AN]
U"z9Gj%9$E-x;8\j).-Mw[3S>%T-T;Ug=O6YAg[-rp$hOg+L'^ZSs/lhVJH,6<Ji3
U"HE/_TogPCP<cIMg=RLv+xFSF,-,/[,Q()NFeKo%+EP9mE;AKFf9XgQgfo_/*,g*
U"tK*0aR,o+;JC5GJH%rrqP%iiXOFy36km_0A1)OQ0/6%=0fjI\tRL/JgaRoAj>G+
U"5=\A=LGG(R(n:*+wP.(.TJr8BGa7UmTC(h,uYG%%wSzN&QeDM$oT5k40pCdc6z3
U"SoJgZ)d\io6k5rjXpb3(P=R*VC5An#Adm*;P+[*A%.NT[/WnA/n>q'Z)j2_c8?J
U"2x)']y'YdK5-jwA'WTKA5&g,rNh'LyLX=.eA*fhNk=BwQa15ITB(.^J,v'jo)HU
U"MNW&D<k)G\w1c<39Q.U)S:=Eb$x:=FXBB%KoQW6u9sF2?<;6lca,BZboPFs5gn5
U"6KoOzw%iexX9OZ9L,AfNIm$nTb>KoaODQHAls79N7TS]:u;:i7yMD#Pcu#jN4d-
U"$k;N>RV^r'Tgpk'PKh=Ivb05[h=EqM?<6evm,a(XVQ$VcHOuNU?y:s=9po,FxDb
U"*Qy[3_>=l3oOwgpl2>k9HUZ]I5*\_oeElQw/pqCgXR$UD(DJ'\=ca<,uUR9+Y?K
U"'EsjTpvuvZ:r_Pn=u2Vbu4rffPwX3uIO_keP5?=FnvB#w>,^0#6TJ[)E;F(3C\^
U"1[D#sO3fQ=vjosLjzXr_xY8tD'42jN%tSN%(up(%)9%'#%-%v#?TTFIV3>)%&%%
U"B%'%%-%%%%w&%fqS%igxrk$F9<dU5SHaVqBocQK5K[9/bS(Icgm=memwVI_^D[Q
U"Op'H-Ctn*7z_Fmb-&QEr%XakPfJ/>kElG7r1=zH/Chr7Y'h'i_ZKp^/-_N%8uP-
U"e]o:Q&rfL-I,aN*mV?bd_#O\20ioQ92)ZYLcoGo%PR<0amh/GqKAvZ?m5_i&[+9
U"Ve*ophhg8'(3$arMDPZnA&RSG];^E453BY.OS(?t;3S:5Ejp?Q8M'I)Hnn(X2Q]
U"E?g#LR^,tNHN18KF&l6L6_THV%5YX#8k8m%hx#fe][Z6Cnm:?u0BDnVI(U^]R?,
U"7?>l&233U%Am5i]59sf)2.asp_783w)TA;^fg4,;6dad,fP<*0J2;2Gs<7y*3s_
U"d[lk?RXx20=.ED/iKr4cqEyin+DoZ9>Q.D:#?Nsyv<lS6yRM+5jTYMr(isDXbLm
U"8$K#]B_$rM%&up&%';09%%'%-%%a?TLTd,%%)x'%(%W)%%%-%%%%%%%%%&%E1%O
U"P%%%%%w&%fqS%gfxu%p&';%09%'#%-%v#?TTFIV3>)%&%%B%'%%-%%%%%%%%%&#
U"%E%O)PH'%.%w%f%qSig%xup*%+%%%%%'%'(%;%%+%r(%%%%%
END SUB
CLOSE:IF S=104AND B&=1147THEN?" :) 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\1147,219);:END SUB
'>>> Page 1 of RVAL.ZIP ends here. Last page. TCHK:104