'=========================================================================== ' Subject: ANSI ALTERNATIVE Date: 05-25-97 (12:44) ' Author: Brian Bacon Code: QB, QBasic, PDS ' Origin: kyberteknik@geocities.com Packet: ANSI.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"BAG.ZIP",4^6:Z&=2478:?STRING$(50,177); U"%up()%9%%%R-%Y3T2GaA&UWs(%%%c/%%%0%%%%gf%linx%uSgfFxfz<+tTm5rw= U"Bx_0ip:'7_6kI93]ZH]Q#1HNQv;fgeFpi:D+[>aQAVXj^PFV5F\fU%dqKT0wIIQ U"_R6mhhl(ol#OT\bU,zujB7h<[H%=YcHB[p>7S9]EW3.'KrKRZjW7.[DVUlCj&wa U"&-KFuzHoZO3n6E2YkkeH51sV7>;P+1,=RJ:aIbbU#bh>^+7Lj'OF3,b:9GE5?/> U"HBUGv8tbK7&8(FK>GLP^4k>ACzvdWa5?WVFi?Z'-y:CN=,sHC*%-0:YFv0]q:3B U"ND]Wk+n>8(hY&biB,KThv#.O$oFEt0P2PV U"+M2,wYB,G:As(5pOX\[Af(cooy>Nn6&73sJhzMg,deoxG\PtVu'87RBed??auw8 U"c'Iz:GhSw.ss)o2MurvRF2VMDoccN,>X;G+h_V$+'T/>mj8>>B>2,6j=1O5Mwe( U"=s%wV9:_\l2//'^j_HVg4FLEX_?*R^Qi3PXd<*F6Su_)?q%f);uG26-3dCZq=k- U"rnu]YTDQhK]HTYPLyK=3dR]CDP U"blZp.6xVHycb_cGkQ8:Jrm3KYmoxSSnj_,&]YF=/SiU>1,&aP)M*ZW1YtWo^8NPdq(mm=+Z= U":us%IOb9%3PR=hW;5R=C.Oa;wv2V/0'imH]^rqGMFqlex)*/fJw(87elC_=^UHB U"+I8Z[bb:*[_&?ITcX9tZgaK$n%71rcaAFhVg#MkZ_*JE?uzt-p? U"rv<^tKJhMKmSkN-7/F<7wt8lF$ZFgg\ddLNZ#7\Bi'*TY=dk6i??iohK*X1VJys U"Lb^jfWBqx2V3FmM)?n,4lkL6kU_$$Txdb#)&dDu%p()9%%%%-[%m_2OG^Ud'&i' U"%(%3)%%%*%%%%xSg.fx\x2,>jep5K0]'xUoH.^v$zS?w#$fse;S1Et_'>dK#Xkk U"Z)ED(Flw?td4,3G&*j4bj?$]0$X4.PK(JCYEoehY

VE&h$aPG1P8/2]b&&(Q[ U"SQFj.xp00i]UK-HCsJIM2BDrJZiD09qrKYu#2dnUp?=dha4\aFkYHd6,sR27i U"=CrGaThN9;rJ:?0LfSr0-ZLZP,^iVsRCK]v5G\]l7;.j&sS+1(c,nnY6(9U$p$u U"P^hDAK;ms,]o/:kt3q7N#\Rv9U4j-#r^(rk+E]?Im,[].C]VHbDQO8dV5ThbdkDWE*dgoVWAYe5U/ U"Y9#)O7H39O-EZgy)e9:=kpS(A_)Rd U"B>ST9^(cmXh7fqRAG.B__)H.o,0ueUZ4.vq.2wO21-Z**OJu=JZJTs62MHK84Io U"C.RT5x2A]pVlI+9Y,f+u?PsMu+4OjL#FoEvU?kXYOT28t#F/ltU(cF27>^ig]pbJRnfw U"&>G$;t.jQ^d6+nNQrxUxH/JZTrKTf=,]/lcBq5;i,u+%up()%9%%%%-%=_K2GwW U";f)>%.%%d&%%%0%%%%mn%xytwA(Sy':yTHf+pFvBr95/eY;MwHFV-MG[HfQIGUOYDXYRqBZrkK^45A&P^Ag<[qX,u#6cX*Wynck06ZE[FExI4'j2up%&'9%%9%%%R-%Y3T2GaA&UWs(%%%c/%%%0% U"%%%%%%%%&%%E%%%%%%%%%gfli%nxuS%gfxu%p&'9%%9%%%%-%ma_2G^;Ud&i#'% U"%3%)%%*%%%%%%%%%&%%E%%(%F(%%%xSg%fxup%&'9%%9%%%.-%3_92G]M?j5F&% U"%%G(%%%,%%%%%%%%%&%%E%%%'W*%%%gflS%ithu%p&'9%%9%%%%-%=F_2GwhWf) U">#%%%d%&%%0%%%%%%%%%&%%E%%+%I,%%%mnx#ytw(.Sy'y%up*+%%%%%%)%)%'S U"%%%'7-%%%%% END SUB CLOSE:IF S=58AND 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