>>> Page 3 of LANSI.ZIP begins here.
CLOSE:IF S=241AND 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 3 of LANSI.ZIP ends here. Last page. TCHK:241
 * ImportIt! v1.0b [BETA] * ImportIt! [PD] by Calvin French, August 1993
                                                                              
                    
--- Maximus/2 2.01wb
---------------