'===========================================================================
' Subject:  Multi-tasking in QB               Date: 03-16-20 (  :  )       
'  Author: Jonathan Gilbert                   Code: QB,PDS                 
'  Origin: logic@phayze.com                 Packet: LIBRARY.ABC
'===========================================================================
'>>> Page 1 of MTASK.ZIP begins here. TYPE:BINAA TLEN:4088
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
deflng A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"MTASK.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%R-%Yu/FLL,($s[%%%%o%%%%-%%I%rq%ngSg%fy/%%E%%%%%%&%%=%
U"%W,BcC[B8&%WIII,t':&E(&NX*809&BmXrGA&]Atp\'^OnQ9GzA*5aRIe.;T&oJ
U"93cjqbh=D#*I5+(*<-X%dNpLK(YVf)Zf0%%up()%9%'%R-%ZuSFL&G;+7t&7%%&
U"'%%%.%%I%ry%fxpS%tgo/%%E%%%%%%&%%=%%;.sdC+[8&%%-R1X-$9&E)h5X*F8
U"9&<.wr:8#v9b>C_hqb8g5%0Fv;)#-=Fev_+FU:^38c%0L7?vS)7)94Q]RG5===7
U"Av1t_0Y<91ia.W1S?U&,8cepG[))f>_,&zM0tKWS-kYaSl$WBGPLi=V1V(xTcP'
U">DZ.C#us+Y1VYw'%8k5&%'E%+T&UZ<*+u&&'VcIG?Lg4j#EYKb8+adnto]%^fU_
U"+*''kW+B8#BlM:)jfWpkE37DQ$lxC]]f5,Kdqi/,^T6)Jewu<6C[ILC?OA/-*//
U"J_D0c8^u?CBCuMpf3r0OjN%k46%rPLA>49\vV1Rb+%o5d&5j#WuDBcJg1c?QtC6
U"BM:*G6)x*Ab](UA:Cg>H:gbc8>=u?L<e#AUfWEf$:+He?7OWUowIFSc5.\i'OSF
U"4b6txgpc-qph,^U?fdV5<GG4b2U,0(d[m%(qA-qdM(,oxEjmjFBq[9DEo.D/\2l
U"_$NAt%/-\6y4_?=Z7/>389nWi#_::,(,_:_92[klgQ&zD:f<wU-M58m]onChZU$
U"a[CY8I,3HA-e'F*hVTIDXb-Pie2sxdIit'DY>x+_c1rkp-AW<KUE(o&gn?#2e)s
U"v;KnJCafxSKh;Kcphn9+moLLLQp_1,&VbSLSaz;r;a[ZXZjPZfF9/Z;GVp;,ZkF
U"bBN'x%up%()9%%'%-%1kqFLmcN0>%k%%%&I%%%%-%I%%ryfx%pSgn%/%E%%%%%%
U"%&%=%d%G0?7>[8&(%WII;,t:&5o,;X7*89&hB#Do/#1AzS?0nBs3jmpsxAEDaQB
U"rE'EPnQ$G%zIuI]^;Luaj'/c2aS'A,Oh[z8AcMs_f)dv'a?8_mFpVPZlA%&%up%
U"()9%%'%-%3<uFLbu2ef&S'%%'&.%%%.%I%%ryfx%pSfx%r/%E%%%%%%%&%=.%%B
U"h]CC[8%&%-Rm1X$9X&YnJ[X*89a&FyD,YTU99V#u4NSC6UaIlE\?'Sb9C/4/<n6
U":+imhKCQ;e_]sL_..,$DaJROKbucL.RDDqC.$U>JNI7<Pw:J$bi]3Z3WWx$xTW?
U"7vANi9A(Go4y7qz#A:Bf)hG>suipwL?\<P4oXDJ$N$vVn,.7bFTK7R38s*Y$bO)
U"S(snZR\]AbF?M8P)kBj]gwGp8uEUo=/zlN:klOx+U>JTljD&>c;-8Bsf8pQae]f
U"Y0$g=qot6tcg/tXI09&9Cp=IWh>Oz,L+W\<WJ#Z$QV[1;5d*58==^p=UP).6Y1V
U"xX3BcS_]>MxY\NHxS8qN3%-sYQhTzbkko58PFAD/)s3Vf4\b_&P=H;dc8=p/i;5
U"bj<d%Vy9:SjWjUAH#ZuqUUW.r>4A/*w(Ls3AdQ'xM.khhb3^#kQnAMLJN2D]Q]Q
U"^Mo&CA#rNbGcnY4/4.>[VmsKlXEtJL03PX.^2GVYD^>-+7NOZy][gja?f&7uCVC
U"UTA?ZvXcR+zNsOn48De>p*hKa<8FaGmGSSSDGYc)X5_^'5?'vE1P.+Hs*QvtAl^
U">ODHRD6]v_fdzve7W.,h)FF=KIJ*j3ca_>kf-93S)7f<>u%B32h;gN:Ho]nK5;7
U"$Jyk)P,G\M1/n+h$+H[cqEH;ejALv8z;Hea_\QY\O+EEPFlBA^f]g'ZC.AU2Rc<
U"#j50ERXfSrX[=I_FB+d6SsDb)^OUkr:[euO-bQ[UrcMd<lP<tCJBUB[.^E3u]Bv
U"2SB0v58)1(YXcbk;,:NUc=2B[BJ<;ZLinn(Ob^mZ4JIK0N]PWoL(bdNi:j8PO1a
U".]YOJ*hqOM.x%&up(%)9%'[%-%Z)uFLW;w82u%'%%4%+%%.%%I%r%yfxp%Sqng%
U"/%E%%%%%%%&%=%g%.sd7C[8&%%-R1=X$9&1%fRX7*89&TfyF:#8v5nZ0VV;Cci5
U")7fv;+,#Nh<4o>B<^8;mlP0VeOPVKaO(z2FDa9jGoPa14H8Q)8u>29w0#64Su$.
U"V7a2,SOEAw-Om;ywl[-TMg3dCbCYTpWtjipjh00tK.+(&G%'Y]ViQ1$.iPV-%$Y
U"-r0:\Reh)nA&PWUt^a^;<uq%:tZ2uuDd+feh6AT[c;[zrec_I(:7Sj4$&6p#\Fx
U"a'#1E\('\%SW30Mv;[)tgPlG#6nn7k$H\sGvX&,<qQ16=OaGwregq\73?-,^:0)
U"/R'.'MI5H_6vwL,8\c4<[>g'XB;7L**3qtb7*IDSW,*w1D(&Y:>0=tC%l+_M_a'
U"ZIVROreC=h:AS[:6dq_T[=]9Z/a4\tBTfLPX0l[iU*jQe$=A12/)ut?FC%t?a+e
U"R5b(=%#14A%;N[z*hE6.5>o17t5ph8G/E$S;7Qh38O-E<Tpc2uFA;hu#&xnk>,l
U"cK\\7jdXU^s2g-:q6z;k,:'IuI?PN-6bY%%kn8>6)[8ZFoO3,3_9l((7z_=/KRB
U"1r8wvc73K4$wH.WbO)8<P+[$&/E9&D/57JkA(egcOsJFqc<Omi8gUWf.X1^+c[,
U"0+BsA2>\=Nd3zwa6faVUc+oiZ:6:=c68yv.odI]C/:,CE+E1#j7*O1_U'l5^lKi
U"uZKB3[Sgf]CGAg;-N'aBNr8]m'Zk7vR5lQD4co5F$)FSR]$o2$lpi/H5<ZzW$#k
U")iJck<=b>\Uw,Wr^fj=4xt.=mG\D%up()%9%'%R-%_q/FL&J:a?%%7%%S%%%%1%
U"%I%yj%xyry%xpSg%fx/%%E%%%%%%&%#=%%O(VH?['8&%-JyJuo]:&EG&AX*8B9&
U"x&ljmBog.D#.7wuHRmnQGOapCy$'^oyxB)z-Ej2jDn-NIZZ7UUI)_Yx'>+WlWp\
U"A8Xl#eozp512Xj0REMf%cuAM6abuu_py5[uZc#D>tY[4#I9'Q+avg9AcOxZndeU
U"5EMY7_m3ET#KXdOfcDNLQ4:Ax%^>6-]Hs2MGQ3jAPmZhn_<^R-G)CQYOPSsTGfs
U"MGsGH4ky=MQQN.MNPZWlAjA%&%up%()9%%'%-%)6E^Q8/jxq&()%%&-.%%%/%I%
U"%wjfi%rjSy&'y/%%E%%%%%%&%#=%%4UFtRtB:&%WIII,to:&91Th*QtK:&T%:r^
U"T[a56#iqNgDOk:9%JD:OAE/jr2YR25%Z/mN9Q**u]'snRduQsG_c>cV-Mr)OPut
U"Gl_6_hpDj[iCf2m#ueI3<8C_^?A&-AAuHN;'ZF3;GFW)T\qede#vTlcVv;sXV=^
U"?C*V-p,rJ[e6GWeBiwy$0Ct/GG;[r$eR/A2>]a.SC)]ghnp)r%rSuw9bmW>QBOS
U"rjkgW0Y[?i;U$mZ1aYWVM4-E&&4vNA:>heEOc9KEK[)e2-vJJ)+CGJ4u^yA0sQY
U"E_NHn<3iQf6(u(U(+1Q+>yY,^52WJ882,abKr11+M2CQxM>BmhW9c'A=2Qx+7Xp
U"C*TpzKs?nalFNO2E7%7F.4)$Mm%AIyQM'ey9,6_Uh*;.w*:.m'Kfmbk/W(xn4L/
U"O/mg#eL;X5Ceu)^LN['+rwVN-Ht8MklQA#GGjob'A:a#\vVB0tuoCXR)jLms+me
U"tktMQIheAC=0Jb8q,T=f(HINz?6eIv_A5RFg,M)-bpZ7>Ym3yA>=pOKzEqt1dDK
U"2=kmMW2?oL%.Kk6ra+;_yn$31EUVg$DhKHDFw=gW*]WP6'88mD+M_/3YcyiATF[
U"Q#ln^c^Abt3lKK]LCM40V]8b=f6wFi$w\zdZNZ\AL)]nml7%&);(Q73WAcn74xA
U"nR&#cG38.eP-r_Inm'^(Ac$'&0]YJQxaiPhm)n3fx8mGyc(RIkcB4q6t$<^)olf
U"OxL,Qn)h2q<A2#A=1>E'kX<,P.[3:1p1P9KT).g,S,>+M;yXs7yx/G5[.vV^?V&
U"g>TE>)Ox,8y/u0=xIT_KX2xeSgZJ\XY/_^,q,R(p6rgBrZ+Ctf;Y3cR7X)=1Ei0
U"ofoh+Um#8eBjWg->_Sh#9O<Rn'XoOF0XxcQV4^gzSaaFR?Yykrb4+%Ud<bM($'=
U"%JRhEP.:.QVs5R5:kk.1ElU7mdDB;QWp\m_:NPGKdVq?&A&bmjGJ-\h]7FWW(S.
U"Q/h=Yrq;y+-jmzk8#JmR7u#6G_V:-2AXS#XbepmKp?jQqHI5d$1,]n=^rK=ID;M
U"gDgZ%mUL_MHMuo_x=3K9#qO#4KIzYu*Mp?4S7Y,Jq9wZ(WE\L&iCZ+R4ql_=CCQ
U">&F;Dq^>x(sds2HkDKLQt&4Ud/gnJ]#N%dZ?(Tr]tj;7h92tQ6J]CpAMMX,gY:O
U"lM-otb,H;+cM$K71w2nHZBl8uz'B(zZjl[.;J(bICYbYSF/Qd,#7#RN*=-e]ItI
U"/8?,i[TTKnrAKNX-]0wEaA*4e,t)\V$6/jhN<VvYJ$ot4bLK8>eN(TUkkFWLkw6
U"yT6Kki?_cRk;B+ZvYO[ISun19(]h9MsZ^LxLGu.ssrpv;q\ZqiuJ:*naO(^fD0L
U"xNfE>7>d#\\^NLr)UR[KuYWGn8l10l>O:wRvHfH[ZF$B%_s.z'i#v(PEM6H,Px&
U"u%p&'>%%9%'[%-%YDuFLL.,$s[%%%%o%%%%-%%%%%%%%%%%%E%%%%%%%%%rqn%g
U"Sgf%yup&%'>%9%%'%-O%ZuFOL&G+,7t&%+%&'%%%.%%%%%%%%%%%E#%%%O%%%%r
U"%yfxp%Stgo%up&'%>%9%%'%-%1kqFLmcN0>%k%%%&I%%%%-%%%%%%%%%%%E%7%%
U"?'%%%ry%fxpS%gnup%&'>%%9%'%R-%<ueFLu24efS'7%%&.%%%.%%%%%%%%%%%%
U"E%%%&%(%%%ryfx%pSfx%rup&%'>%9%%'%-O%ZuFILWw8'2u'%%%4+%%%.%%%%%%
U"%%%%%E%%%%J%+%%r%yfxp%Sqng%up&'%>%9%%'%-%3_qFLA&Ja?'%%%%'S%%%%1
U"%%%%%%%%%%%E%7%%9-%%%yj%xyry%xpSg%fxup%&'>%%9%'%I-%6E.^Q/j0xq()
U".%%-.%%%/%%%%%%%%%%%%E%%%'3.%%%wjfi%rjSy&'yup%*+%%%%%,%.,%R&.%%
U".3%%%%%
END SUB
CLOSE:IF S=180AND B&=4088THEN?" :) 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\4088,219);:END SUB
'>>> Page 1 of MTASK.ZIP ends here. Last page. TCHK:180
