'>>> PowerBASIC 3.x Source,        Created by PostIt! 7.1pb Release 2
'>>> Info: _Load the Mail in your PowerBASIC-IDE and then press F9_
'>>> Page 4 of OSTERN97.ZIP begins here.
U"%ZZ%%%ugM....&.lSw%zqup%&'9%%9%%%#-%1B/>G%D4:n3/.%%o<%%%1%%%%%%
U"%%%&%%E%%%&sd%%Iug..2...s%Swzq%up&'%9%9%%%%-%2lPKGKXXJU'2K%%(%5
U"%%%0%%%%%%%%%%%E%%%%Wo%%%ug%mjqq#tSj'%jup&%'9%9%%%%-R%V/KOG1l,'
U"0h%%%%q%%%%0%%%%%%%%%&%E%%%%9&#%%k#nqj.%niSi(n)up%*+%%%%%/%%/%[
U"'I%%O#%%%%%
END SUB
V2
V3
CLOSE:IF S=37AND 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 4 of OSTERN97.ZIP ends here. Last page. TCHK:37
--- CrossPoint v3.11 R
2:2410/330.1)
---------------