'=========================================================================== ' Subject: BASIC MODE 13H ROUTINES V0.9 Date: 06-30-97 (18:51) ' Author: Angelo Ken Pesce Code: PB ' Origin: us0082@uniserv.uniplan.it Packet: PB.ABC '=========================================================================== 'Load/Run under PowerBASIC to extract BASIC13.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"BASIC13.ZIP",4^6:Z&=5969:?STRING$(50,177); U"%up()%9%%%#-%,OoWG_N99%P-%%%PE%%%0%%%%gf%xnhV%XSgfjx^(t2Bi-;cx6 U"Xv#DsW81O,a'dc7lFNEqac\(:<*><3,d2o+d.['(=nZtPhL^%-9FPrv46b>L+gi U"rkBH4b(JS9v1seZ0YcF9#YRSdPh#N^X+YLYqZgv76Aw;1UOd U"jB&NhR9iKcH$E]nlk7XHo$^5Zv.5\w3lI/%lI,0sk&(02/uVl/mPoBd_BOc#N:r U"804R]XGi4C\)d#mVS1ePOSmc+)?IJFs4Tp$-HN'-<-F+Y82U9^a53-$mtGrJOH&7_Sq.UJ U"#Tiq=R_5,3#oOSP.<7yp%QtfmcGk:H[]?44S6AK\&h/nlf\_lk'QwwU-Q]b9Lg( U"UujM/yLG7Jtb_VS:-iT=5E/>1#gy<'Q$s>o+/H?Xn$Rk?vx0&Au1[p]7_sO.Q&N U",$f.DUd+aRps>UNoYa^6Z?al;ZPmI/\d&pf6bf^DtOMY$i2\t>ci#OtNOjouk#DO9BxpTJd=.-&6Q,gZ2R/R-0$$HQGo3c,R U"_Wok0&o&E.,^-Q=.7/-2-S$)IK4,4J>(90w&.K0/G?TrsH&A8i25-M.6//]SMn' U"J'Hfau(>K'dVx*fHg6\+R&(3V3PL-CYZ&C_-Q&%0AjmD,Oc)MEQ?zK9JHk?[#S. U")UU%d%bg_3o26Yj=*A&%#bq^xe)xOo2I7JL+E/%H;ck?qs)Iv$al+AWWZFLA2_6 U">t%Uq*upB6HG(jWhFaTg%Z4B%5XU9dI5/g;;su+Hjg/ef_QfCU(sJF27PeL&FYK U"st7JPPXIUpVSj9S8b&2,0;m(g$m%5/xBr0T+wGQLNfZyYSNJMfc;,0^maVbf:=\Ts5 U"&B7AYyJv2UpKmi'A3^q_+DBRx7xVDOI3'E+_dSUYAAUa)lFYdK,;Da&0^9Mr$AW U"k7_WB=_-6(Le26sI=JtWhlp+xi2+$?rG)/\GSZFo0?(]MuTQREAhAwFi_i_)mc) U"eEj:LoW+F-f\S\MumI+/m2#LI0]4;fpVkvfH%*gTvU5^e40oU>1B'$=-JhGQ<)_ U"QG6%1aVmGF[%<)]UI7fc1cHM>#;Na8[\F+DRS)A,7s2C(GypQFbs>Be*-\PDI)%/B U"$fF32(\8QMS7'nmWQ6BvzDAbrvDc-XFL6AriQI& U"6c[+fStZ6nstb(*P)VT%Y$POl&M((XW]X451#q>2^hP4C)MP>TM^&lL$\zt_M.E U"eewz[X$r-H7#HbJYk-kEbS5:*%d7ZNQrd6vY8hcQ#4VhkpEA]pQqQ5u0gCCDjo/ U"%d'?R<^g?4bAj*KSb9R>W2bm2T0vCx;Ab\*bG0*Ao_s?'h_x*baM;Nj=^AgrYsU U"R%CBWdH'*xYEUxW==l#wJT$A8Nat,6:?<,E))ax^4Epb%N[8S_LtR[CAxuzsA\G U"nF/\?ELCqW9oFQqz).53jaA3*$,ppPC^8QE+e(5P/5J-yjf[wHwgfXH40Qr5ho; U"*6&Y?T1Z]k..6]oLyE+>0D>['=./f'Zo%:4kHQRL^,YV[w>/wUKZI;.;4g\i3>* U"QW:27RFy\2fDvV?>&hS#6nsq\cGp?>Y/yPt?XPhOGoP$.K)BLAWGr4pJssGa5*# U"1#FVwpf$h&M:gn$oE]=h>vIbQdLqL\KTi7ez#ml1;khUuJPWH.+es,<[vh*XA_V U"P5cDhhg^(5cG.2tImQU1#[NldN\?Qh>q*^:S< U"xEA=oB)Q)$:&tK^K)c^r*rUg5]olfO9wWuLLMS\$qT5kQbf=)6ZICRr/IW U"^ZB>)J$X8z1+66H6YBwv+%yooZ%,cmlX3wcCLQ$f5u]b>pqbaPnP\o2f#j?Al+- U"R.GBPP-5f,PE-3]4gM28G U">2>[]6Hpj95Q[?YosW)2.W<#m%j U",4D;0iJx4pnzuB+T(UIm/4tBiCM(jMBSY;kHBXIMTl3i.%up()%9%%%I-%hM9WG U"n^9f.;.%%%kO%%%0%%%%gf%xnhV%XSnsOhf)0+xTa7lwWhw,V^hFoU#s[RuMF+# U"d)7]&CEUItg-^SXI]Omb>_<>g*wjj.AGc,^[*V??ada4GDUr._B6,R_GG9aq U"9E^i9daq?na1G&-[Sn/09V($BHY0T,W$lwEm?*VGuZZ'+$1D>V^(MmS;U5pPV3DhWn4%&bT_nI<9\Rm%ZaE#$q6 U"#Yu2D)kU)bdwlSdRc)Z^S0Q-1YCR*2zWFp3p4nq7-+LMM__VZc2D7NB43tY2,E^ U"3*M&Yw)K&B:L42x^;oy:lR0F#Gq?IUGNfcaF5<-5/AcBxSEV'%Yf\'kMXW9e8>+ U"]iuZZ]D3Ou-okrVpelfNr.Z9j^j*]\eEo7xKN*Gsf1eQ7iACr]NM<>Uh0bZ+88^ U"Xn4=5$qTtlW*cZv&M#W*cnr*mPVf2KER.gmU,R0vV]a1)hA+d52%T+T./wmUfGVe3jB U"1ZRS[JYVm]uc\LU>4Vd*C)KLi]o$ms%^a_Sd U"$ZhRNV/sHzmf#^4d^FWP_e1YBD#D0q5t+ROoP0gb;q^(:gomN$*bMIMlUl6;s4h U"9n^*&;5#%=v=e%x7TC$ybj=N/f2rozHQ\I,I9.Go9C7jV%a8q6qgGz?EdR^Z&m7 U"BafjHh=wd2#gB['h9^l/t#dAFPPDXKvh,GFtkzxMe\)()VZ-e2BT(:+L%,/LyNR U".6.F[nkh#%UW44\TRQodsSFgiy):XQ(/2I8%k8v)'_QX1.L,q5/4>f)g#T.z;., U"'%T6_Uq&x4H::i8t-9a-3#%m4e<8*?I02Rog;97Wf%$xlo6G;\#b+s)j.4_K-g+ U"6-$=4N4p3H#q^w[ddWz0uVJnt'b*V1W9a>V#%t+\Uj^h\YMA?HI,Dv*_>5ukvX# U"Ju-i1i#&L09p);>%N)03y1UI\RdV0neif)=SZ2B(+kr&#&M;86GS]_ePfu-,Gg U"7X[t$aU:?#qTqt>21'%eni<4LkzJv:WF3IV3,jzp?A U"5Znp0A*Zr$>iiRjyo-:kJQV'%[zaMs(qYYGj[f4Lvlyu7Bzc;fgo1IG(Vn*Wf'E U"eM(r45?-E%RY8R$8gs<4IJty4CAo.UpSC?F2aZXle1s:xvd=74x$^ZgTSgq-CH) U"aK:_Er^nk0N7O]aKP3QB.:B&Ez01\;1I)bG^xqSA6]qfcA>;>],7.,+Zp*95A]+ U"8OYC9%YYo25^Jf+B&s#EVvTSV%$Mq+.v9vz,7)3:_Ar8DDA:Q4N.I'1e-m,dq', U"d9S^^J+E_h4fl?,UpQ6%Am- U"Q:9M;E-TLkg]/ypDutGZZ\-9un-)4NZ6*NO+F&>vEuoDftr*(%E?\>k):gYN>?w U"H[-]#;mVb4%tHHM^(PN4S3KIo'%+picDPL\BpyfUO/#)6&\w((fD.Pbo)M^Of-& U"k>ivS)Q=QD(2=L;-Hh8fg>=akn35wmO#(.xSKo=mdp]rIo;Qi^0AE0G7Fx/0r3H U"77Sjf>GgNR4ZPNL'.Vsrv-ur7LNAFou%Le,bZ/2CcAU\2[C#o0,:M*Gwma8b$+t U"v[g5-*9lMcVY'#l;ei5,>l0AXbbw'>bS&XQdwy*C*BfNe9()a.=PqRsax4mDLlu U"=$e:[7w3fRDtdzo^1hBh[&fP]Z.2y?Qu8HY(_ U"MSp&8)d$\s?uN_4l'ewgj&v),U:ojC\yoxbi(;_U.<^MTYzvsZX&GZ35ijYuv&V U"t9S2hvlRp*l)snpdKraYSWPA,JL7cx[9p]sAY-6&=YClXEminjlV]%^F#J[Cvp$ U"w)14R5;hTuZu*e_o2KbH5>P]hIMTrW[YW=;6g;doI<\L'wd3G7)tWFj+OK/*mAR U"6(okLt-wj][p>xn;iJC&tvwvd%(mL$WqdC'fZ'UHHCbaYcsFy2]wZys'+N0Nowq U"k^,Zx'u%p()9%%%%-j%_?R#GllZ)ZK(%(%Y/%%%0%%%%gVX%yjxy%SgfxN&%0>\ U"rk5vP]=NgUifU,#iGUY3dBjo:n;V6R^^NEMCdyML%El;8Z&:_u#W(8eh*;O3_)x U"2sM/$fBT\X>/0\>FJG-e?;)K\u$_kXTeI0RJ[5i.lib>^:nK U"_21K1e)kq>/]s&rFV5c3RmiV:1=t0]*A7.6fgI5_&%=WjqAYas5o+Iugi&;s?wO U"HP/0a#1wF0C^,QT5;SSxmT)J0z#e;k+2EIX=+-el>fbu'1cM-a0W5M2W,/2k^ U"rj6T\ymB8d+L&7GVs/NS/kTITCu7_]/J0&_<*N(P3t8*pa4TSE0S[nd U"(vCFNQ^eS\XcpT7/$'[]oD=DCWtR2;(4mf]>=R=,cue\h=8F.[\Inh+fNZQE'C/ U"\Dj5J]BW>qz$?NUjOL/dCDJvkF5:Wqv5>,$vrc,+&k[W#<7vwVRY?tqEZ$0,CBV U"8C>X#cnONhJoF(#(Y;kjH3Q56j0\WfjL6H,joC&;[8jNx3BCb/,_)j^e,tfIMFH U"t5n\>^XE.LG5nD;5%FmS_ZI$(chP_j/iX^)C<^\Z9PuV/tm8KNO-K,q60TB=sp_ U"+M^VGc50l,=ZY?jhAXmH11oB%up&'%9%9%%%%-%:,OWG?_N9% U"'P-%%%PE%%%0%%%%%%%%%&%E%%%%%%%%%gf%xnhV%XSgf%xup&%'9%9%%%%-g%h U"MWaGn^f+.;.%%%kO%%%0%%%%%%%%%&%E%%%%%%.%%g%fxnh%VXSn%shup%&'9%% U"9%%%R-%_?'RGll2ZZK(.%%Y/%%%0%%%%%%%%%&%%E%%%'d7%%%gVXy%jxyS%gfx U"u%p*+%%%%%(#%(%z#%%%_%;%%%%% END SUB CLOSE:IF S=100AND 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