'=========================================================================== ' Subject: TEXT VIEWER W/FILE LISTER Date: 06-03-97 (04:41) ' Author: Philip L. Damon, Jr. Code: ASIC ' Origin: apostle@ctaz.com Packet: ASIC.ABC '=========================================================================== 'Run this through QBasic first, not ASIC DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TVIEW.ZIP",4^6:Z&=7147:?STRING$(50,177); U"%up()%9%%%%-%1I0iEm*#GF06GaY&okD3.X&,%If)$abnETVsCU U"X6[2f8-Nj,(M1]w?C1KKge?(CngO#X3Px3YeNUk03%LN\3]rkKN[UeiBzbt6qpr.XglqmTBOH U"jKxi1Pxbt**q[uHTI?xQh,?1AVY**DAy]T#:h]sn\4S:ESqx=PC7ihNJ/'VMlZR U"k>SvUrqgfnk.Tq6#sAlc4vs4vw5tB.5My(/#4POK$$q]Ra'uT:P=H).^bH U"RiZPdA32U[#em?mJ$ZoJ-1G]tGr8.m)%)/3Y9bRg;k-g?\rUH^uh.BuK#Z'M%OU U"MbhbyM)&gnD9]Q.3F;RsJ_([kY[C?7W]KfbS_(3$(Lh U"=4iODYdN^GPgB0gEb7n7w?YD\S[6UHJQh*(equG/.3dXAZ0b)/QQjLmP^#UPf1xyoJ)r48:i(lL9dvhxq3z#([Bo#xM*Dp]^[S:re) U"0rf+oGmjOJhGNA&KirD?v0cEreSJA]i9veJ_t,<'G>>9[jUaJ.f\z#^B]V U"k5M;gL''q-pE,lmMm6PM8aV(ppCB4RCe,nw3'svSVI=.i+aFChC'IdT/(e/[=KH U"eVGH_(AT,C.(am&LHs54aJf3-8n5s2GySivmIX98XIC]2&GGd$Sz2B U"hXMjF&d[-1SJJbhIzGf/aZtNB]t(?i+/)$vRHqnHTf4/A-;Of-L45cf_hQG],Ca U"beRbQu'?*.j7fR4cR<*DXQBBGT/0X^>RN;Yg:4f$M]6Cb*\=cqNa=rz]aK/i*pO U"s'Y;O=q$%9(hP:'\_etp>TQJ^sihCV1*r4gr>6OgRBP9KH0CW'ZVY_8pZ'hvLhs U"u8Q3jwAQ&Hg1VcS'UATf/tAN?_NtBAf7Jf7L*>Kk=Eh33da=fLj-V7FHdaRGF.[ U"c[cno&pM0*2/SrvM,Rob*5',[7:nX'4U?B?Lswe23T8hmj(hH,;9lt'V[?F-veWFW*ale U"lk\X\%Mfo#J7,RT15< U"?aMNxcLFHEQv/LGV(lo(]NoF.gI$wBRKpZt^w.%uzIs

& U"=m$2YRbd&Y&X6]V>N3T<'/h.++ikfb4n8Yeg**7NX\?M4C2qu(W8gC5jSyc[\o9 U"L\2[b*[h:1T%wd1j\Zf(9I*TkxUxu2VmBZ=H8wFMbe&a*eYXc=dPL[9INBuJ==4 U"1Or.Lx$>W8Q\cZAs(lOj*Gh&XzHKYAMMoEPwgAV-(_*1 U"w8HtL?MOp+Fuj6;Ea[jm0#JF-YG_cH+,\?5IQLa*\6?r/h#7;.;k#T6^:uxvdk U".k*jRGaliEAVqY8SYAY,B+:G(8zAan&rAmiko0]nU'U,ZYg*-GKZ=mvETDiSO+< U"++&Df7K6?0.jRH#+HKZPHhe*<[vE#/;t-CrM[IRQ4R0_x0n2Z8KXnBxhCt;_qOQ U"#qcQd(bnuTL4om_)6;&.$S]W$M7HKVU';g^17)JK#nf U"]rN[DlUQ9nJ_1Z%x2>X;[CdWL,AOkhFj+07KYuoUOVA8;zu,,V(i_nj<8G)k U"A8BV(+)glSe841a>F8EDhNBax#pLnm8_;pHk,KT2t/$tVc&1j'e+L#1Z4SV[<1MVQg;qgp+1iHlGX-E.M]OtuV5H7\j(x;Ce]fsb]#7YK6ZQR#,K5fi>S#kZY\SL]##9 U"T/o%X6)Vzp;#Ygt;q%jZ7U&Q=a0PcjsmXn,N8<3X=CajhQpOO,u_JD7J0KYpGsm U"mHvZ37^?.;%vlx9uB9f*8e&drgsn>CCDEi2[mMD>N0HYEIh,4A'_>vowsidY-ZF U"qbl0?xrQy>L]nWBu1GpNMbKGcsj#vCYG\hHItDdA/n1//._tl0LGCKM-0vVfQft U"(N#.x_r:/&yz>V(MRpHT-;V)FAnfbO71IKdfR7Hm'f9^r*QaA+^bTjslC8m#^#7 U"[6X-&f4,ubUB*a5lY9bwI,?R^XvwT^q2nC%M(H>BqL U"VrGFCHgq-dKWj0m,vmo]qo(*-ZxHDbjdb*jc>-x?lv.J:FXW3kJb9\S:Gbgc;bi)^q;z1]q#fJDg=I<(,*-)qA U"Gx-[^BOMNIKTTCB^riP+8G_-8iC[[yeiBB4A(oR%N]dfmM'#D2y*thuQ;$KL64fTM04t(BY'' U"r&up%()9%%%%-%?''c/%GF6V^n?%ItYkd0&n+MNpXh3,(P U"Xi'8\k8aivC6'o8)sNla.Em/KWMr4lmMhV6lnpoOY,D$)%sl6L;E#D6%zoPR[_] U"YNwr<&mb_8_Q=n.4J8>_OxdaIG>S:lrFu$mJK_MlV6fpbuB\Rvf]jmZ*p1_$K8_ U"j-stgXZ0dD]o$[N_;F>-[Dar&2-oIyb3LIvL6_*>;5jLHeO-jb#Ogzr%SCxwyo: U"k&2:QTtD>(WeEMp4dK:8<$(^BgJ.We.hdKTA1r:AbUl2t U"M50u_R:ql]-_0qYeiW=k7aT5yb92?8FptE\^h9*=JMt07Tyvkmb6f8/%k:qcwM, U"1;R$OSo*g8T;=_KcaQ(:bxOT>4t)s)Lr:889cf;gOx&fP'OKymXHO^[LD2TfcuA U"X5V1&[16\(u#rJ'2HNuFvmNa/,xC%t3bCav#4e)m$=26n76qe6.jg&I;Hh,h6/> U"6FtBNR%cm7S6xQYsIuA&?d9Ee>#lM;9[p7_?t;r-?X*4kv6EH7')u U"jh1mE]7_Yt:i%vP=D1FWSkbgk^=.\ U"g%oB5IB#ueYXOZ'leOY.IX?_p%ZsWhVJ8UC0OA,;Jk'E_K6q'%#U&,V/DdYvmDq]ziMu*W&(5JG8alSs U"Ym/=*bB]-a\/fIGL]R]o=?'.j:-Ota U"iq=5OZH==u$LlBtGw(renMAHXl#4i$^-_)l2.^b:jn&&lNsNQ*ZJq]Qs[IIjX6M U"1>utBdUDupbZdBFK=;B,%%R'x*I*kKF4CDwosMXQO4)ikBf.)N4b[ei7Q$R,YNt U"RW_nys#wVABtG+hhDcZEaYAZs(BTdadLnc_nP)-x2UR3.WDIb0$uuEQj(/%.&cn U"Ljlf8mzy=OuO&$LfqC5%0#H'U6_l)ppwqo>ab3:x9+VxW:3.;MXvc.t?.fd7OI< U"&Et\QrbWNXaE82(['R*pJq2.\_06-'C0O;l\uG:^nHe3$C/*5-/EXPCT2bDi]t% U"4:pOG*M%7IswaG'H-j57A$*_qy]NO,N^_&OeHfLO_>P(/,00$%PI$h_VLx>j(sf U"V1JS?Kz%$//$'C)IE'tj*Fbu%2YsQHQLZ*mpl*%ZA<4V84MsVjYQ#+bhybHT]p; U"O#ZR/7h,yO7/]G>8pBv)T3RJM(V-2V/_)Ra9Qa\C$r>Om#5c?NdAw4-esbP(\o# U"pqg8:pcIC#f(ka1w<)TtV(*rJNIju U"andP0qhZr3I-c^5eHGnT.+^1tbGs^BKiWV#M&Hj7wNm&X2TLe'8%_rue2/B960H U"aQ<+j6u[2*l*_yTZ]b1Hw'Zv9skb]rRr U"+<>Ze'ma(&QXja'u_weOH8nK;mhejwYqa:X)8,&l%wU20E/8]CBp-JvV3_)_hHQ U"_0*1FLZ3&w4EY0TQBGm7_HCHX5bLLwvsYQE,eCH)h\/TOm)l_&bp-/vso<=jfmY U">3W$]IY&pM7\<&YCi&UqK:2mjF;U-C67o1kZMJe,Y>:gj2Y,R#t=\_COynWOXqCh1mPvPWmn-XjU U"u=j=#Y/sBGepMlqC91)V+rBe+1/](2htR&5PomVp6wnr6P U"J7R]NLYPr1jjwY>US0.47pAFujc[_G_K4P;>m:gqYi-3em_ad4fG_EI U"lJ2+l5oBX&%](23t2okX-tA$0^Y8YtlTjZrRrk9'LK+q,>/e_Kik8JS&4\rQd? U"QQqQ2xWQ2v&X6MP#kP*vi7?>YQf>'OLFoLH.jtP?gutp,1*pg3s^t-DKHTLD^qM U"Kt_O]HGLA9KO-A(0?sdSSD=IW6$UPvRe]&f8vR3Fy6#8>$xW9H9(#Nh=IMeD$J1 U"Y^pcbwM2_zX1/;5:illZmH/1C)6FI4gzNKiw+*uE\ U"POSko^Pa[c<>/:$l/4M*RB7hV'57.)OFiDt<,hX)TU:1Uh+ouDQL\)E0o4dI%#bX[4 U"(6_nrhaf48VMc\qIetrLpF<7hRhvXNreFTtU0Z/8kj4w2p)Q%'#AV6?F+JH7CI0 U">OUpuY/&Yu93XY)E4Cp'/t;$I?g/<8b3%.lo>_]+aI/nmXn7__$dU4g2*#&o4X> U"Qnm5(uU.,iC:O/W2NN#?p1Tg+q]MvZ8'%J;>?oGAGbAg\/m_>%:]rui55:mF/l5 U"d)\AZv7.LDF^5u>v9a^5%_^%Wt$DVU^U:Gu,MN#b+n+z#f&c7nVR*FcxKxyZ.R8 U"kH,)UmW4ggx<7J/fG'19:0hP%Q&Qpy*c,;B?K.#AvU)UQBo:?;9gY2^OA'PDo\; U"(7*0+W2KGF*T0\P>$(>d7M>j>ua9_p.t+-$L'q,up% U"&'9%%9%%%%-%1I0%%s%tynh#jSy'%yup*%+%%%%%)%)+%X%%+%o?%%%%% END SUB CLOSE:IF S=153AND 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