>>> Page 2 of BISEARCH.ZIP begins here.
U"D$%O;VjJD2iFW./i8-7sR^iP)A[e_7NV)D-L.qnMR4>*iH#cDMBBSJ8fG%$t)Gp
U"*^.up%&'9%%9%%%7-%.o.xDiS6CP>'%%%=*%%%1%%%%%%%%%&%%E%%%%%%%%%xh
U"fs%yjxy%Sgfx%up&'%9%9%%%%-%+o1wD-a4na%].%%&]I%%%1%%%%%%%%%%%E%.
U"%%h'%%%gn%xjfw%hmSu%gzup%&'9%%9%%%7-%so%xD*J.Otl(%%%r,%%%1%%%%%
U"%%%%&%%E%%%'t0%%%rtsi%tqng.Sy'y%up*+%%%%%%(%(%''%%%';4%%%%%
END SUB
CLOSE:IF S=33AND 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
'>>> Page 2 of BISEARCH.ZIP ends here. Last page. TCHK:33
 * To reconstruct, splice together and run under QBASIC
                                                                              
                                                                              
     
--- Maximus/2 2.01wb
---------------