'===========================================================================
' 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#<u,)^^DSh[ptpEn.?[qUiOv-qZXMK02?2OU.N\SDxd
U"-M..2'J6]U*;xITER-aN-dJu49%.o79A0qt>YRSdPh#N^X+YLYqZgv76Aw;1UOd
U"jB&NhR9iKcH$E]nlk7XHo$^5Zv.5\w3lI/%lI,0sk&(02/uVl/mPoBd_BOc#N:r
U"804R]XGi4C<VSB;gyN]54%wx2;/W[NPQ;GRXe--,](*tAZx#CFA29b.Q\Xp6ltP
U"=k:CPO\q2s^Ts)NMY?WM-DuqZee'eB'DNmM.RM]xDD8:)sb.a?2=T\Z%>\)d<rg
U"+P&x_>#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<U4qGY7WH:^
U"gdLIX?1jL[Ni$a__7#1Ay,i)X8YR*6AD'o;ki5jlhBUL(b(+5^H$KSgQ1YeSfa#
U"gG\j+\$*F]iBmNUvJ<>#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"st7JPPXIUpVSj9<KJYF381.-&gOX]:lBv]SXO$af%y:n6?F<xV<F3iCbh_7[[d<
U"*pu0(;3A(X>S8b&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[%<s<iUg+,HYH$4'tG80)jm<9%Fi6FbkvQ]rNLO)W5f=.gjei;oNd
U"GCbe*Q%JZc(,Rf$U12epB/0^svP\;kZhA_K%kb/D9/4=dRS29r*iD4ROC#8A[%k
U"YyIU3OfvBX8RM]QSvrL.<8RD?'0'A\Equ;5\F&N,#i1-MA;Vc'UGS$=z.=#FgsI
U"9KMn+bSoA><)]UI7fc1cHM>#;Na8[\F+DRS)A,7s2C(GypQFbs>Be*-\PDI)%/B
U"$fF32(\8QMS7'nm<V<vSfI.f7Ow+t4>WQ6BvzDAbrvDc<s$Aj$/>-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<uifpl3R+AhU;i35w2/1w]<v'>\?Qh>q*^:S<
U"xEA=oB)Q)$:&<YJeH_Z/-Da.K*_BPrcY[sKm/7'yUh&jbl.g8&$p05gS7qH'%=V
U"S-vu6MPiIo8wIU2q>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<SLGDx/LNoRdR8CO?lr,QMzYRl64<tD076DCvN:C01T'/26bz
U"(':)x]T,9R#V'\p'xjkd)wED,;9.huLCh'r9R9A,M%L/8L4ih%C-up[9_p]LEi;
U"l#r?^riQ-ELb<F5gM+3FPqB-icQp50p'<$44HnlX=:[7J0PPnh&Qk,U>]4gM28G
U">2>[]<X#^s%<F]=n*hx^Q)IK%iGeI[aQhKt<5O.HRF]36$\-gi]L)36h5R$V;tK
U"Dq(/6/kb;C_V)9d1?nH7$T-]laQ%Y9qiEhU[;8w\DO\t0\NVJi[<uz?f_$g,m1o
U"dl7WmB/J[lbtS1-Ajo^dYy+=IlJKhH##COm(PGI<>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]&CEUIt<bVUQUA$QoV_/#pwWF(4d&3$/eR7g:$L(XL<5gGW6)&m,,&CnWRP6
U"nlmrjuWTJr1+,?DtT?d<9;8?hLMLAR70+la$rHJvs7Z1:H'p1i)g.Z1Z-Hv,+.I
U"-OT&+S:u3taS>g-^SXI]Omb>_<>g*wjj.AGc,^[*V??ada4GDUr._B6,R_GG9aq
U"9E^i9daq?na1G&-[Sn/09V($BHY0T,W$lwEm?*VGuZZ'+$1D>V^(MmS;U<H^+eR
U"U9doKnpG.7=[os-5R_2th:1wpJJGF=4<>5pPV3DhWn4%&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+<d;ud/LQ0fr)oT(
U",&kIVr-9e\&?t25&UT'P2UR;2SIk[NUVnNvxX*+Du0uBR#J3b3GZ/QI-\7Q[YP<
U"h#)\IqQa_PRiYcV[5cp%?8p5[7kME2a7-k0Z\^h(3Kza_*SxZ+lZO=Ij1%b/3??
U"QbMdLv&hD)AG]WE]q=UrxiVSnrP'=BgVFo8[17i&eIo>d52%T+T./wmUfGVe3jB
U"1ZRS[JYVm]uc\LU>4Vd*C)KLi<vwFuK7\:;=9%hJ&Z#ja36N&%x>]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%,/Ly<o
U"dFUb&5j*SHX*:KD(5^I/;[Ro?+'Y1Go5BlyRSN2<h1w)aubcBRF7N+;w(W^Vx$)
U"&2AXsWbK9:*11</^]lTrc3i5OeGWHa8Dnq.L5aLPFo*A2?Ohin7mGkIE.^RO/#-
U"9+oc_B<uCpWiUbG22?fT\.5cxg_^lvjS7jA%c00x(z=cUpB(&oUsX_#(jSaJ>NR
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)=SZ2<u_v%'8r(;oW.HK\?B7I*pHA5
U"0R*GvB[dip#E&M^'%I=m[m&$mFiJV)q(<qC<fm9b)+Zu/$-3.4ZrWhJaYSg;LC0
U"C:l*+\AuX\Ue.V+6MFb;#97Gq+7Rcpg,9\C)-*enBr&P^Q]qAW5=g\9M6f]AyAE
U"E/oaLIR'<FP<mGsQJo%&3D.slWU%q],DqONeVaD4q_YY]UOTU)TOMySceoiNsY'
U"\)R7N,AW,0Ib5v*r55R%bt:x*W/e&bK,*^wRCXDQ^r3^ge'E;,B9FTRYu0&Lc2p
U"a%lGe-eoh&j^M0*JUFW-c*]E&$FKlGW-NE1SQ#>B(+kr&#&M;86GS]_ePfu-,Gg
U"7X[t$aU:?#qTqt>21'%eni<4LkzJv:WF3IV3,jzp<a\s\kRH?j1?I.+(\2].[-<
U"<KB,Rmq\Te<lkL(I,4J6EzM.&?LL'Mw::Xn\^&*PddEdTY0apF[tB<pmxCdj>?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"<LR4fb'fAw0Yex;VKh9$qNKojz=6,')E)/D-+l0<X'K.?9BKm[WjT<N_V^25Hn.
U"PUjBo2t9e:[/G?dU8:a5XZ<2u_ejYU>d9S^^J+E_h4fl?<thw&l+b>,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"<XsiF3fqdZx<F(u+j9wVqH4,6N_FM,wu'AtHk1g%S>=$e:[7w3fR<wr66iq\nqK
U"b:xjqs=^WgE[=l:s&kir6_rM\hKb9?P?>Dtdz<jr[0')Me8quTc1O:nJ7mOn(_n
U"l-KE/<4&%xfH^Lch,+npu3ckj$cIW5jAwBI?XSSw1ZJGK4,uFA6E]KU2a?2fst*
U"Mdnbgna39mc24S?RgN:x8oVQrF4NK+ejNDcEU,Z>o^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?<wN(Xu5j+&^\(S>;)K\u$_kXTeI0RJ[5i.lib>^:nK
U"_21K1e)kq>/]s&rFV5c3RmiV:1=t0]*A7.6fgI5_&%=WjqAYas5o+Iugi&;s?wO
U"HP/0a#1wF0C^,Q<pPu%dV[#HNH/&wU>T5;SSxmT)J0z#e;k+2EIX=+-<O_k?Z=t
U"ip1;k6##Nws'VSn5cVk\dp?TdR1eQ*kV4dWM_tR>el>fbu'1cM-a0W5M2W,/2k^
U"rj6T\ymB8d+L&7GVs/NS/kTITCu7_]/J0&_<*N(P3t8*pa4TSE0<v&&HFw.B#pQ
U":tX<\\hnXI'Gj.Re_\bQDD0bo$nOmx_ccFT8.CD:f0KRss:,bYC.OK%P%-p-Cke
U"L^L02(9428X7f8=7p5<&xns0Y/+=KPw<oR*Mi7Ss2uPbz$BVA6Te&J'^O%=6-Qi
U"a$A$b-+cY3=3fHz2VBd^Y&nG4u450d95s[FVZ8O,$;:^?3[;lP9;Cqx=rL6=PWG
U"/*URJ5n1mhXygtqAv9P_pS?4+cE)$98Z\;H6.bMsA3H'TjHQRdi8LvS_-(>S[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?jhAXmH<Jhi?S<FT-9v*HmtFpBAqTBN,<onmNUJkd1/.GGq9Yn
U"CtFvF\.aN1<xfU2PY]XFIkL-.]Zs3dFQg9Rmnwm+oqw-'Bp-F7<:#Fg.drY;z_H
U"iu&x^QSd9ZosvW.W2p:OJA]K\$mEOoq\8+\8m$h;Rk&eQt3*vR-\UR^')kyJt:'
U"6-HHx-J^&)WTBiSz^a*BtYv1\WzBE&MZ(>11oB%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
