'===========================================================================
' Subject: READFILE USING JON'S QBASM         Date: 03-10-98 (15:24)       
'  Author: Jonathan L. Leger                  Code: QB, QBasic, PDS        
'  Origin: leger@earthlink.net              Packet: ASMCODE.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"READFILE.ZIP",4^6:Z&=2411:?STRING$(50,177);
U"%up()%9%%%#-%3oJqITG=uEK*.%%I:%%%1%%%%wj%fikn%qjSgRfxN';<FS[a9w
U"AxhYjk-6YN4+niYFOG<?TPk]01K>uDB,.&'K'=[,]6QsdF4^#_hKhikknUqn)Cc
U"nUlpFra;M'Cb9Fm0bT)8kkLS]N1<=*=/*D:'niN*jpnLpYS.eY-1vx*#/6+;b_E
U"F_1c&[^>=0;4E[mtR&[1?iVr3]/GX)yP.8-U=C$M,'H<a/L1+nK2,<3d4GHU.1+
U"2CctgJii(+G%FC'WBKRoJU0BYH7615[#*-r)E/SV9?wny)jQ*S0h&,UAY++I*Ii
U"C0pga1bLBP8cVhPQNi'wGh:)F&?=,F$)7f<5\egUO3,O[CaNGGDGBWX&\V'[OL,
U"h3A.=6m_w3N4HVjI.5s\2i+>p'D0f6Q>?E$;[?8X,(4Sqk1a^ENYbP[-qB<KFno
U"Gax/NMuK>:3efYESLU-WxtY>W,8m;e?T:I9ib7[m$9NEWSEW#O2DIp[fR?4qCau
U"a>[#qhl%4ki7<O[[Y)YO#Z0.R)XWUO#B+WMePpXP94jPD:I1<_^qL0pO_eXtWtX
U";=X)R7akN0+rjJ>oYa/p.hR0&-l$AoU9]pAPLa-2vhjR>D<J^]aXdL--P('hB<v
U"Z6-XgjRBY:4G[jzH-2-1Nc^aw5tCPY)a_7i/KWvmb=EuNKdWK:N=j+C.A4SM(0/
U"n0o,>Us9:75VbM:IY4eu,z.Y1R5<N;GT&kvAD/z?KW5I'LvjiLyBY&0X*JNFz\*
U"[5ekrj$[%CxaMB2vwI$e8[,>?bmY3X4,ncnAeC;5a*8+B>$:)dB0-ORBlXgdVz1
U"XBju)<I'>q&AUxG5+M+dEndQEH%u^^z.DUa1-<aUe[Lm]CFf<&X]K$:s5D4lsmB
U"FAJ4?Ak7JNgPbd&8%(1'*_F84u]x';0Qf,yeGzME_Spi_zDRd8Z[k_7#-h+z]8p
U"+Y?ebe3A=2X/2o4:xk<,E?R*+9TB$+m'F/mI=:=^J2PxbBkc'5445XD8SM>Zb8H
U"GmMK]Bt<tUIxHsozrO4;^EHL.Fd?rn0iDw+rt'3bv2k?bftD5GAv'k]s*>#SozO
U"Dgc30_a,^f3;6d<o;P*brv*wl-8WIRW$fMMrL8ZLWEBsGK'\iMwr\zl*f^GuZ,V
U"/_cLOU8F0)8;SB;^OB>DNhLF\KW4%U#u=x3SZ2TYn\AndUQ0WMZuFv+4ZFe1)T?
U"+QhNCMvTre4v]E]-/<hBxJbfO&9Vf5u6h6MfVRK\;)l.tEoY.\d)rRg$*t74xV%
U"q-8P.ogPV5eH79r'fSlppe-^?kz6$iGyOSmOvPy%/=Y,g;by\;W&xbIS-YLaKIO
U"4hGjAQOaorn'^Zz41]ooX'rkq6&?A=]?,-qu($6+bDnZy/8j86et%Yt_4YJKB\R
U"K#E#B+DNo)Ht^]MA6y;'o,XZ]0(CHl&,lUj_t02Bn]p22Vt$D%z+OdrY6DVbZ^n
U"fk#0C3N)^*m(V0X,_JWzwQ=A3:U+EX;]vtGq&CL[sQl#Uk$.A%(dFj/e4vamV=[
U"+^nCSJwHE+NesklAfWVR6EL$^jk/p74';=gHg$s%3'$>]0xl,_QWpsLl0b%hp=u
U":T&XMtYV/=hjI^8B-$R$_681^IwOmZgQMOB<Vj-8Cx+)maTwklFeIn)R(OY+nOG
U"b4/L(DtC_<Ekbvv(.+)T3'DSclp<a[qYDMFTR1q&StpbN;G]P4R-+euW;\\9fNG
U"^_(k3?\R:8vQgChdon7k>\UKU+9)=.Mn,IAsG>J.n=[MBlKcA#<BJSkjF%iGF]2
U">q4%pT#on(x5GJ?Y>w.3?o)jaj_3)(C\VJZ?6\LOv_g_^V1etl_C?q.q'q&A/\%
U"2SA8:g<U\Wgk.Agdh1>C?awMW8GgtomU:$iSKI_P4$YTS<iMrVkA]#2/AOJ8Yj/
U"cMUslW+>$P3NaelL;8z:;j+x'%up()%9%%%#-%5oSqI6,?l+4'.%%;,%%%1%%%%
U"kf%xykn%qjSv.xrty8,tTUp9Lp(i1bUq4uiOr8Je[F887aiMjy8(a\M,0hD)ZM$
U"'1,=E8nda%uERmWlb\+<XJg^u$si]0])aw&<o*>BDNUm)X1r9%8AHA:k#0d='xm
U"TW;Fw?^=\EbmHAu2El>&a%]k]>8^+\6ts\9g6\g<)c<A4Fd+,Mc=s#v3d1N(=*3
U"Ubnslvd_j)t8hdPg00U,#cVTZ&e'+;geU''IM&A9jR9XsOMKSZ2NwgrioEaw3ai
U"oEKB+I\.<icXmUHGpI5iOa3JjJdngdA(k0f'Eeq:Xvf);%W8'wr#ckmdyXwlYy+
U"Y[CTP;T(Ms,y'FVgK*34FLYS?XOf:un06>pa$[-LCUj$;u(WISb4^]Pr<axF6/-
U"Pu#4i7VzpsrQk/r-Z4nuYe%&G(TD(bgg)HtnZau3cx/oDNJ<&iNn>N'BVW3K3]N
U",0h*y%;u+6eH0\t)&1wJ/29H(6c7IilJAbrTIxPg72%NDERWY0e*a5s(T(7>L$:
U"+Qa8=foTsLP)o3G+?jF2PGJojw^HoCmt=WuoO/5kW7n&F1hf%JRCB.b0q-Om3+:
U"gU*)#gR)*e4;$LjjO\iDXN?g1^lZ6dW.LN-dQ\u,AndC/6o%wYfj;/iak2_wA)M
U"29Xx<M0#X_Lt)s)2rj1^B?/f-EQ5j[$9b[EY=1lafyT;8DBdU>QBDfffwUKL3Lm
U"xH.,*YI/xL<5-U#N?IR+[IZbrKiG15:(N<HG8K(SZi(b<6fadk[4fmK?:%0sL)\
U"YW7HEu/-b;:1m*q?CR$^HWfk\Ytz6<[1kqb0r&ZjAq6-*_FJ,[\e)?#r\;<l.pt
U"t,c9j,Cy.T0Y>M6ADX7O\;o_gVUcYVI/;7ye_4K?$PnAE$_T>dakxruh70>4sN#
U"eOhOw%&up&%'9%9%%%%-I%3oq1ITGu-EK*%(%I:%%%1%%%%%%%%%&%E%%%%%%%%
U"%w%jfik%nqjS%gfxu%p&'9%%9%%%%-%5_oqI6t,l+4#'%%;%,%%1%%%%%%%%%&%
U"%E%%+%u*%%%kfx%yknq%jSvx%rup*%+%%%%%'%'(%C%%+%Z-%%%%%
END SUB
CLOSE:IF S=173AND 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
