'=========================================================================== ' Subject: ANSI LOADER WITH VARIOUS FUNCS Date: 03-23-99 (21:16) ' Author: Nigel Traves Code: QB, PDS ' Origin: tarot@ihalliwell.freeserve.co.u Packet: ANSI.ABC '=========================================================================== ' ANSI Loader with various functions DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"LOADANSI.ZIP",4^6:Z&=4342:?STRING$(50,177); U"%up()%9%'%I-%l-S;Ip5)qbn,%%%iC%%%0%%%%qt%fifs%xnSgOn>'<>BT16lwW U"hw>Pt-rPbW,U;v$u7:$mb,jn*B7cS+PB+rl6G8&G?E]9(eb3M..Qdewcu7?pGN# U"XVj0PnVLEu*49iom7W8ualP8_G(]\.'r]V09.OupQ0KiiOSh?#<3;\N&Nw4&&DL U"pFd#o7?8]:tORtX(3%4NP9=7o_uIrqjTa>+25m&3$8JLfhbGcxD:3#G2n&WA/rS U"lWlV4>ksZ-SB-.WBvsd$>Lu5se%VQ3O9uM(epEJI,KUj'?iFBj^aF/birVc:_ha U")833,8US16Emd5+0GwejaU9*LB0vxEFR7(4W&XYuZn(OBl13%?a_u)6Ze$6L+]3 U"Cat^$&1C?qe5dU&z9nu-P>+ii=chx[#rUOI0$Q7HR#BC2-=T&ep6Mqh-QhJboZ^ U"X(_?P=JJ6+VZj+Py)ouI#6'72=,?FSuEQc&(M1?]a3k$?&JP6(qd+8S:ibeLmzd U"?JPb4#1?o9A*Kb,;T.x=t^(#ySV/5)>kpmY]O8aF\08<+$+t U"A9e=8,U.E2fM2LI&(mSrqUQDnG0*js2<[JcM=TOXm6?)uVm#tzBVg6AxL#]m6?] U".q$bQfcZMASNQVDrkhlwJY1'y%'w[leg9+QjKmQTC9g5meoZM57Li-.e9.2:;s\ U";8&FW7h'e1>scsapL&m\f88b.L.tTMrvg+grNu4ZEHCU#kmO^4MioBDPq3 U"2d96&<'*GmMM]&Fk_xROYGHQJyoS5DDF_Y8(oS<,wJntW2?JO**A_hiq,Oxt,iq U"/K#1^&W=H#95k;_U9n=G)oEvtkI#mVz6dLPHjSDk.MsLySIu0BAmtjRk<,P\:68 U"b.2dkL>YEe9-&X\\dj^VClicpG\Y);>t\r]RmuPdJA^H3C_5\yuuc'I#<7^l#-A U"R/li*C)rsEZqtfcjtTn?NCqRTcPGCl&[?Cobgs&Xd:t#=/B[=bBDK;fb#\(Q U"'6Iv.=8Gt[zl:o7bU2QW&M9m11\0XVCIArhSj+)bt(>7&vu8v;aY2ku*mnh/MAr U"/1B27A5Ux^[?v2(EC'v;YMkKp3AtIqa,V\Zfb:hUf39MtGmVR]XPEW\.T0XXgEI U"Dh$+/6zwGp.KCgxy#LAtLD\;>#*7n]q,GFuRLxNgO; U"qGT.ZlcU&VKr#vLw1jFG/DrjC[-u=gLt[*k\KPt\&$.-N$WoRyy_w]&& U"x=&xh/(<5q1Z&cY+--k7?vOxg3i(XC^BVV#25btnoTK0>p=ha_8v2Z$Zr#XA#Z\ U"Mz>oL0'vpBuvxnV\rW\reiy>rHqkt9FF8n/Rm$sjIISwj#cRU U"1DLPqnh-,;%cTfkj=o;g5>cQn.#U3[AI(yIyniv7wrJ;o2&+ U">s#/4HfPBU-wNqACg-G-6d<.+,^,<.fiAo8'%Ig;Y1NgYG U"1dxdd]J%EfYe6uGjoofe\#/Q)$O?-opauc4v-Kd U"8]Vdd]4Joa)G,;v/Fnmqrwz7BFP=55aA3PK-=M.d[K8oh/J.D] U"Rn0uJ5cEKYL0eJchDLdPq<&3IC<]qTXYkSes#CMf',/6Kv0Xr81^=>gi0DK$x_z U"8%n#=Hu<'*a^=Yseb\xUr5ll<2D4UdFErhc:yOLNZ?/nv(julaP+BvuXgHKNhWs U"vOooPGgOQULc16u+W**H.gD$oMwKskS=Mgix/X[hi,lYu4/tJ?kCqRaZGL2W8Lu U"hBiEG(m^gHI%F6W.pp]it7JGWmJ]I].l4AZnDDu:,cVf_oNdu*iNup%()9%%'%- U"%3\,;I&s\V4&W(%%'nC%%%1%%%%qtfi%fsxn%SgfxNV(,>Aqe9La\j4m\8gY>P; U",x)3T=*r1%8Dk6\3em U"eT%tzYB8WeKbGFca%4e&+'fw6]TQd8nOfK#&=r?(FxOPu9KF:CJDBQ*c'O),V5U U"u(1Bl]_Rf[vv,a1ZXI)g1C&>?8w&R=>sPe%9jA,2&o-(ArV5R.aC$FrBEODU9hN U"(UT%Fn>=mMFQ:>V=5[7b6u79wncGpIq$8iVgI4Oq=*q#qzd0wfBcMVW.JD=0C;12HwR0>PfCzj<(TMXhvq]Z U"0Uh=FBY*:'W*pby[HRD_+\s7e:tn15d_(3:uQC\9GUInwO(c.W>WBq/sA(-7,iY U"xo#cz]piW3wh-o_S,LQ3nnrKE]x]3r$6RcITemaDjpW;RlKDdAaru;DoM\HC^rU U"U*,chlHTgOAwg)45^Tc\rhPASheLUq%-Ulh(i1'J$0>+W-?%'XNZi2(5]JQr25QWM8U^J>H&cc'I=)[w U"sLX/>=[LMxrJt7Ta&ZC3cis9:'tI4hqsA]yr&u\ajg4k3)orldFBpXtr[=U&rk? U"\j_#$FCeg0/#Pn,:4>pl2Lra:IrL;l?G7'bT*XsV80e[(;)=$_r:;?NG7cTK*XI U"2;0;?W2%_\;9gaFeJv0I^;=iH(bR8t$k4LH2DC-KlSfl$4EJH^CJ-+lfjd$4HPH U"2B-3_kf\W$4FHg^B-?(a>h,mAQ)9HOn/;t\'9OfT/;fu%9O:C/;rz69Ov/a1&Nr U"(koE0d?-N'(*1Iy7bo5j=[Ye*5N$\qd'4oJR_Jbw(FbL:B6Y)E\.8>R+9.,,N&%up()%9%'%R-%Z-0JGn5+X]['7 U"%%g,%%%1%%%%fs%xnyj%xySg.fxlz;,>SU^9LlCXDaL,p+1LIUy7Jsh9jc(T'vL U"SLJ3w^O>2Tw)8+^+6=8nBiLd3:&4if6Zo6$khJL;pQ4'>H6*f+f]X01ToiHp,Zb U"o.]cO*BD#Xg,qNQS(aW**UMBqMKQ^:Z=F\Yj<7YP'lPPX\R=L*MCt*xFTRSc U",F8BKjMqUEx:)y;T&jECcl)3s*17tYD_\jUjtB6HcViGm?EMS-TJ4?zt^i$.<,B U"vY,sJd/>4be8tiITgoI+E\LA?4B-KhVNd:ZX59baCkKIduApGxMA1]B-bBbb-o& U"ZRk-b[-xMT=TykSjpXLPUtA<2uAoDWDQ^7y U"Av]nAWkcUqpTi[Q:W$dewFkk0o0_*_ZK17N4NDaU=4s2\0>#w.2:/P2s]G%0jY# U"^K^urxr$D1o2^Hgh/G+#G4oX-D+6UkH4V$sHQ+Ru&qmnm* U"W:k%c;nEK5^M^E619fI$'<.>t7C:LoX8Tk),G,nm_2^=sB7o96r^7^0OiNH7?YJ U"dbWkKsFD)qsX7%O0R3RyZ:>FAkbb,f=&aNzqaq:C+_/BA6=R\Mb*g U"Wo(^iY-b2=<$/e-%j-j-A\0NXJWi3qX6B$8[Cfbq9B_4Xu*td^6nF5t(+s$*D11 U"FJJaEL(IyqFH[=UG.%q1Kn/&S4d6sQCj$PeUbW:0AI6a%jCcmI2WJ;39)EDx=ca U"m6Y-JrWiPFXBiqE0nC\Fl)zcHg;=$J)xfUaYhrlnJJacrm<*o$j\s/9#lV38-VQMUz394 U"GOPmru6BxU6X]_+^dSIB;r7jbkFFrf6lkYe2-oE7.DUyuPml^TB'uOUAhqhPqJ> U"HEq$&Mw%&up&%'9%9%%'%-L%l-;OIp5q&bn,%%%iC%%%0%%%%%%%%%&%E%%%%%% U"%%%q%tfif%sxnS%gnup%&'9%%9%'%R-%\,/;Is\.V4W(7%%nC%%%1%%%%%%%%%& U"%%E%%%&A,%%%qtfi%fsxn%Sgfx%up&'%9%9%%'%-%