'=========================================================================== ' Subject: SLUG SCREEN SAVER Date: 06-10-97 (00:28) ' Author: Matthew Pulley Code: QB, QBasic, PDS ' Origin: airwalk_mp@juno.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SLUG.ZIP",4^6:Z&=1937:?STRING$(50,177); U"%up()%9%'%#-%-EoBGtx8r:%(7%%'-%%%-%%%%xq%zlSg7fx6z;:>[kF9vCX*x? U"rvQh\oUX$GA U"l>K3b9ScarvVOB\S=0VaJYR#n/a,NNDkb2Bv?C/rMkT)M9q1]6z U"AHl&8Rn);.:/jF;'fWP2diOXzT189h4:)KLGOS#HU^pW2c\_$xcJQ4FoD-Rt0Gw U"/sOCSL]j(2\v4NuUJZaS5,fHcs]G0r(kr,F72U#*g%u9-He$]JjM1*_(MHDkVFAO_^ U"RUsI-fgL14qfdl[P.7VHehGsrYPeI'qoNm;&O%1^X(ELE\0UG+\YLZb:r>B\E4&KiNW(:3I U"++jPF'h;+gLE(QmD\hKX4G3))?IJol#iODwD7qPrJ*ckQb'_CC8Zfg U"ro8S]Hd*QusC%qLTHm)&sH46T5h U"F=??rxe,6Rp%hDisB(pi0ro)JZSXy%C'QUHSb;4UtEQD\G.9H\rPAY>=D-+K4[4 U"W?9T;se3CQ\'6Y;eFK\Oh\WNT1N_Fj\rA.04A[lhKnhwBL8>FAsy+4$5R^9HKhe U"]8W,SZtFnJ3s:c-BpL,uBDu%p&'9%%9%'%%-%-bEBGt$xr:%[(%%'%- U"%%-%%%%%%%%%&%%E%%%%%%%%%xqz%lSgf%xup&%'9%9%%'%-=%s,h^GyGD)%O%% U"+%<&%%%-%%%%%%%%%%%E[%%%K%(%%x%qzlS%unhu%p&'9%%9%'[%-%u-1CGvte_ U"Mp%&%%e%)%%/%%%%%%%%%&%%E%%(%G)%%%wjf%irjS.st&u%p*+%%%%%(#%(%s# U"%%%f%+%%eI%x;D&6FExM2A44A=Ex02E4ASIEy78ABEh>M<<4=ACEnBLE(>D/AE) U"nIuk8;A4EfDMC74=MC820MC8>=%S END SUB CLOSE:IF S=251AND 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