'===========================================================================
' Subject: GWBasic to ASM                     Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of WHIZBASM.ZIP begins here. TYPE:BINAA TLEN:10743
'-------------------------------------------------------------
'                  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.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"WHIZBASM.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%7-%MkI:Ncg0YK?&%%%Q(%%%1%.%%&m(n)gf%qqSqIxyDa2,>QU:9U
U"hrTu(4I5bV1w7y9_zk*C5[h&3je+7.kWA225DWtBt:#hiOBqa_-]PHGJ7^tV5kG
U"c6)sGRDXH$l.EuYKV<;UBL,?*,Pn?PuN?)in)v)Uq'VyH^o0Zt<M[,IVyJX9BKU
U"oF5&Z09v.lThiGui0ryW6mAR-9\;gMB>pZqBRYUaxobCoJ[wOqbF5lU$>)b9;&k
U"9>L+jq+2Ek[iuGW/pHcM-2_N^v?pcV7fG:&Pj&N.)lsXDe;C-*O?(78:FT7Zc=c
U"M[F8[n*r9\Z^xlPP*'J'bxq5?9Di<C_g2[(LWG/g'FA[BFAMZkMLv%(pRRvR>tk
U"\m4CLx_P7/Dfmj#l(myKQBk'l<QORW<nU$v'Jg_rKP]<wB/IU6.f'hgYb&vM^=n
U"^LAt?Di?r#P3Qp#,GhZbHAo#[Wnz%jTOs)o5/dW\6>m0];;hvXDD:(TBs>z_FDN
U"J:[yPC&M&up%()9%%'%-%-q/gD8(1]U%\3%%&(b%%%/%%%&&gmj%quSgRfrF*$V
U"AG2+:7tzKWf4=eaQ33s&T159WN3#EU;=jLWEUlPx27Rt;,?VPs4hnHM7z-h0.9g
U")qNB.TBU\s592hV;a]G^j_8n=-^N^/o;Eqlen5Yt9\V3=c)86vbkwUCPf.67)+3
U"0_-mljqu7gj(fruShAf^#JIXV%$B*fs%Sl[Mc:\fxi?J1rcCEn4KWCDr4c1E<8*
U"*\.*aWE>u<rl282hJ-q*+Jq,26f&M^ojvc]Z\Rch8ld.kV(NYOT\q'+xWYr#,>c
U"CTSull6,G#r[Km&sk8,Jes6Y#-bG;d:nhbXEbj.VhK=\>AP>F[KsX#q'^[5K7qh
U"&DtU,2cp0hiMq8Yt2VFXmXiVOh]cc6T4kL?f_7^5yvmi\oixK=r#/)h10AbbX=n
U"d>u:eGjO=%rn?2;)AC_Wgkxp;uZpLJ2V5NQfxq5Fl)Pdt#FOU)F<NSf?S[-JD<a
U"UzP^P0l)3;D/+whS/On7jQ.[AV9,3Eh&R]>-wJ<?;?.4GMrGGn%f8:xVK=e#oE)
U"0)Kd_>^,0Lq.6BX$W2U[<0$kfH*]=B_+cv82Kh9Sgn+*J1fOUuTw%R)n8dQV#TR
U"p8\S'vqvR9/K=>=uj(^0=8N(#_>Vp6N1;'a11(R3YW3kCpf/^cIt$LXRd,zjTu+
U"QMDLA&WL<<153QITiWC\4Z+ORPYv4>Z&kRAGDAiwGhh17C*fq\Z;8dLJIG-N9gA
U"$TaDq]>$$:uKBb+bUs)jKi6Nx0cqliGG]yjE<]9Nt[p-Rstn+,\/,bC7mq^Zc.O
U"[-VEF0f5LEiVRHX2hJum:_fc5W7H\]KfUy\mNM&R:I'_aIIAR=Jx;Ae-^jAs,^a
U"kRe;cekU_MEXU#[9'?BM'ZQ%cMM=F]lR:XfqOUbsaD83D^*Q1=w1Ko%hVO)Mdp:
U"CmFjvX7ne.GHbh9rD<WFf.bPWVlb-pa(vbI7me[$>2Y*tU96)=G+O:PWePR\LeB
U"9vFeG1f7nqxaimYBLNdFW&xB&2wMm1mX\X?V[J+_St7R_o-iFMV:F.mw57haIPM
U"L)9GhaPF0/*B9zE;oveXG)ZA;ql[mO23*R]W&hsI*q]9Hg-Bp(L+bZF=q51d2\o
U"e%W6H/i',^\61BiQFiCXA:8G+=V/5&-.+X<8btCin9fF,B9Y$Zv(1z<mU:-6h8Y
U"o+41$<B3nWax2aLmZY&Jd_5E/%C$;7jR$w4C[hf[nNhq%o1BgrO;5q$eRF?iU:/
U"*l+u$#d,QvCUc1YA>0HfM2sx$i$?Rc,^E_6bsutI)bnYufUufO$(=Mr27iCC%5(
U"[>oSDqO_)_-+6\?[^wIIlT&4x6bn[EDZ-R]d#u/wakeb\JyO*O*d:dDN2N\]7e'
U"3eh-_/NMFQ^9\,-_*1J(%b&q0D1UU/A32E^[U-zD\IQ'fJ67Y[o<KQQFDQM'mG?
U"<n#2E5bYLUey4a5<GnU3xYL[qGLTOmE(nv2R2tx%QbZb'j5h<wJM/[KOt8KTj/p
U"l7>53rl-LC-hLG,jFD\_:/:#pVWW8.Be:_Is'g3,K_wdmQP(6.-ChR/gaq,ekRG
U"h<:;:Yn=OU.>7Z0Bf\'N'>pgan[2z\GiAWGFRu>Rz%$o<oX./k%%L'<091'mU;c
U"TPC$tTQ?-\=]kbo]FrpMj_B*PNUQB&??=6Y[=P3X*xy)ml)v(7?+]D.Gq)=5_?J
U"P[B<<a2tY7<:EOJcwqWTn0u[=LM?O>[MdpkabI>J5U5^K+_%:C*N#3a4&ZVPG+<
U"bx$VST/dtG[^9G2.4I2TqbM&gw5)%ywIaHS5ALF'fiLVeqlh>ZAj'6F[PYFoiEJ
U"QeqG'0eZ_&#_'sew$NK=Q%,^Bo=V_,OR.2EAeCE8Vg9-*&B96Kc.$(.swpPAI=5
U"FBw+(?n[?1qi/Lw*&>,CR.DvcA;tU56lQo=O>zv/$S;2/r+9(D1dI=5)1$DuBAz
U"MW3oWx,%MrX5J8G>f\PqRZ#&0F8Z(CTw#5Q-;VbK0FM3amb7<G4pWDm<i49[-Ye
U"\tqtB.-AE)OOP7Ek5ox'Img]J7EY9thjF?g$\;>o#h'^npM;KGKG$?GVo>SsrtB
U"2^cO4S3L_E;v5Kf6Fe/<U(,\FcW[Hx<XAd=IR<gs9>LILxgN>^DuiUJ5bM#Tv:[
U"a,^)&bMA=L::kbFQ7wg8;$U+h-HnP^VZE;bX]e=&.-B4#x4d%61*9IkCtt?LU.F
U"UPiPasK^bGtfs=ins+dC[S.EVP/u$.:fN3i4<[uRT[6$fdAJ>N1^X??Nc>4R.EK
U"ExwHN*Npma&rWCQ]?/+R)^cT<M4XoP3&_nPNpklj.Cc;35TBK)o9M^5hZ'>9>Bg
U"r/2JF3JH#/7xa3(Q)5/gf\]IN+X0-W$4CI/q88l5-EgI>JE;CBY^_(X\..aT<Vc
U"[bJzJOc:%iHQ1)L4Y)=Uh596Rw>Vq/;iqwLa,OJ3)Rm-Ta+eleoK\vCNkW$'Z&%
U"QGy3?:v?xroWJi'=i$g;wRDALo#qHX+c\#)?9Id%x&Ii=*SfdmS<11-c8v:QOMW
U"/d:lSNBF.i*+wl-El\Vr9O/C>=f?'>^_M4%U99P[yOJ0hP1t6Z*CQmnqHeHq,+2
U"%QNN^v&K[y,uhmhlsKK)\2M&Kn=2-3s)t)*_78/2/*UC=aw7<9chg8DS*N>&IUw
U"JdMC^]4ON-64F-%h>o]mp.%l+>'&oUn/d9[GOe&11tiJ#k3B7qnM+'p5D<s#1lo
U"nlZXPlyXG6$1JFlh=3ghZ_N$HE+uQw[PIrzRQ?KG-/mZ[.G/o)7NM5wj;59Xt+]
U"-FlpJZ'Dn,3W>..(8e8tE-^%%\Zjvtfrv0n*4>==yPF_PYBe1gB,H[ZcCb(To'X
U"(;aic]^+Do*iB:^bV0z2e'sHVe5-vX1JJ=N7+k51j\j/T9JrQg)()/jhhHFzijx
U"Hxa._8$7=+pu_\V^oX2#hr5\]h*?P_Mt2=-&dw%3j[7RF9bGp=pM^pSQ%?U?+k*
U"M0[.eJFY3niNj9P8,^LLJNMoZOx+TUtq3_405r,<?2$nkD-o,-Aq_ipe[4y2\lc
U"H\h9-bXD5ivGJjR:Z/>\vRX]t>>4.9HFHu(r%tR_W-ePwQkQLmY(01&=<*?RiU.
U"'Co^.J6i8h&x?#nhmM;=?YIT,4j.Y#1%y:Qu+'MBMTA_A:zWqJzeeTN65cmNrxr
U"hkn33Phq=E+cJqqG[83Do#acsd22+*f/S&+H&Xi4lf$4Gw;wq5^PUgYa-WJaxtj
U"8a?UMJbd:vFdZ^tcRU<'V+/5LCo;k18]1SjIs02sIkKN5%)>/7_uvfmgFJbef$5
U"o[6I^H(R)lKg.or>-,fl\w0Xj)0757=tVoI23?C1U-x0G\m86j]>81^[[W?3D6X
U"xD\gMqq[TVt,-pRXS>ya(xZLh[RWg&><]/7T^Eq*^?*4kiI*tps4nD(Mf[F/ikd
U"<4?1EDU$A:]en=.>2VA,.OEx]k;B5S\Ci9QvpsN>L_wAiAh64[c,78DeG>(Z>lE
U"8O(Y#S;dRd(Bj55K0B^UUFOvW_^%UEQO3;2eTG*%oo_%E=iU&,Iqa>t#'*y]Gpl
U",'+#TMP#&uDLg<%WOp4?B7N;4Y9#^BjR3'?y)_r;\g-;4dKv$#)\ol&LD/7Z':+
U"0N<D$e=My^[%;n6nrgN:ZRw(TY7x(GLo7&iYyAXnr?rJ8VLFZsex74WX[YNAXfA
U"[%J1#a<5(Y=gPZomIgGi+pJ\L+*5L4S&0BGpF'qqhY9QUKx<Wz3)%MFQfjmj%%o
U"do?>%hXSsB$J[)7c-;y-kK1YorOpM3k)'Ss)6s:jPH$2Nr2<h>^<1E,hcXQ<poc
U".W*EaPm]xuR]Ph,&,p(jER*'#:$M2TnqQ[6h?sxfqV.,alXx*,Gc0&O[A6ZI)'P
U"U-(k';D^A2kjd/i6LXMhQ/ak[xgJN<CoUJ45M&J#%]q?kTDUpz(/D):c#P\5b<$
U"Ise4I2L8('F(TigC=.KkjfSK?tx4rUl7hu7;x:Chbrf%MdFymk:vgYyOUgQZ8+M
U"2*>CKk(.&Ach6fVb4m%KNVj3=&N0lE]-&izSn)OmmP6,%O]bQY]Q_QII)9X*8/j
U"_d?^e[v?-a2VhJ[,v-&#^CHjp:0-+'jwS,:&XHU;IPELVLVocQvMG&hI.5dYV^5
U"AN8D6<KE_*pOkYHc08S#0ruE;[&E'fLE,x5ZD'0_=LkOtUDPP&3\PQfNjW8.ftB
U"(:4;JTCcOQJvVh4\\P1.YCh\m,2+lJ=Kfu3E*nf)vR6lof.Q9JdK55_VmZ]mn#S
U"a9c*g]D*9+=bp4(JP[/.Re&<pP0G6wDRK&:=f++(Y1Du8k\9L+A8?f?)EO3a/eV
U"T^WXDHP'u<BJIKZ:t8%4EvH^wG5(CPKuJ+dHmSa86&LM;hyq>FMcChAin_YAvBt
U"WrO7HcwMN9bLs#qG(5E=.P.1c>_wMrOe=hUW]Y,R+EeWS8J'9dwqG;V)Thnh?-J
U"P]WTPK2pzo]:U&P*UNkCvt;^x2eSY^h]v^;q$&$&'m&1jAPMk/h/31Y&]J3$ceN
U"%LcE3,:it^DNCNxSP>lA*8J27a-5;L4a)oN7w53%$97rxRO>=W(be?.2v:<H:m<
U">a$xo9k4GJIM'vNc^i)ts\Bb8[1Ae%If94mlajGd_GV<lQTesFqKCQf6-</]jm[
U"w(]xK0x%0up(%)9%'[%-%J[)w#q->aI,[&%%?%&%%1#%%%&.mn)g%fqqS#gfr<G
U"$VsRdU=UH4n1V\]j97IYH)ewJrzf[LfwBG3Q\a6d.JT9?m_5ZirlZjp$KW$t<7/
U"ZPm8O#um,;Z;kL&jPm<D;6pJ-c8gkQ0\CX.dD+lc;A.Z70#S/.6jWq;)86'gj>[
U"f)Y.2dG(8XR[]CsfZ([G:G['\MO^2u[*IgCid%e$:X5S[&V'iG'Z&_FwYfNl>cq
U"CcllR8.2HlLHC(:Tu?We)1m:wMt*pbh9;I*c^W4U),qzXr$VR8-TBpBbxo4?X'#
U"H)/%Mt[d2g88H^;#qFi.*+?a7-2SQ5<=h,1.H%/$_bpy&I+2ydeHtux\bh6=#=h
U"-n=gJd:h8'u%up%()9%%'%-%'Mk:No>$f?'Y&%%&H)%%%1%%%A&mn)%gfqq%Sgf
U"xVLcJ=AjU9U9hPn*MEDs%M:$W3I#-owL<//X_)i-/OZ6s\)rqjFL'cCJ?27SUF5
U"tyii?,CkYLuo>&28gEn,iP0IN\x#u#$RnufPrMYOw2(?vA$56$v^>Oa6dN<;10(
U"RoKMhZqO^T(rw;U1J?+(:.q>Mp-FNd0(n)Bj*%E>/-%$+/u2e[+q*Fd4#[>&f]a
U"Z\FliJ:P8O%;ia\;3ou.:SF1]O6A?Q\q\QQmZMt7Ss\<r$?V,I8_?-u0Fhv]m35
U"9CX<L#6Fktj:3H$NW;C9vk5pD?yf.AVouw270aFQMSKUk94dud,AYoBnr?+]M/v
U"hLC1H7_uFaeRx2o+$RH/#8qc-Z5/4^1$O6$>c$:voeS4EwX5:rh6:/yt4j68IDV
U"]&l9cy7sl>P,WDmrck_y$h^sx6DVc;]5.+pns+;]a_tK$U&^Z[6Fybb=u&,[uD(
U"g#-M0MqPRwCJY_6fscGO&O+vIPz,H^;=yLC=MM<pOvb[xkTQk4BvwurrE%\=h^(
U"v7DH'S&=eA)d+8-9ys[LTc;[4(_G95?,Dm)Y<4zDRrsv<ENq'q*a[D=h^dXt0cp
U"SFQqjRq[ZUtO'XtV<T+iqJQG+q2TT=T7u*%up()%9%'%7-%9o.:NYw4bkY%%%%8
U"&%%%+%I%%6>LS10C>THD/';U5*$ILEx[UdGQA%<Sy1#p=hICK_5f;Ita]P$yjR&
U"gh92gJ5V)*zb'7_L>Wm2cUTAu,<q4RR9MqBwS8]SJluB-#=)q>2wgrX0q5D5%OT
U"_CT6Fj9f.F&8=OG2D*#$\Ekz.f;_5VbxxztZDZEJ3+Dq)\dd3BiY+sA;S2'w%a%
U"up%()9%%'%-%('tOD3OHZP&R9%%%XO%%%0%%%A&mn)%gfrS#gfxtJ)0?*(zIcJP
U"MAa;<>a\ILK^b:u#2P7D%3$#KePVq\V8ID8EGTV8t1>4(^%GpB'I8V)4Fg1*Z$J
U"eR-FF3YO+)4f0Q4FS2>Q0LWC66-0<HsN0PtCND;x47^Y4h%>/$IQgxnBch.9T%n
U"oZHlbckxlxHNwTld7BM]5N92l-qaQuTmpNil=&:#DpKZ;vMdgmSUtOGt8*);/Y7
U"Rouc7hyxDMgY<ue^JIIcVX\e^)VF4JuB$OHAfaeZ5=HpE8wT-$LAt&IMD,slu*:
U"]7EWGmuB.rrjtXRoFO7eHZC/yCQckQqJnmA[*-^^asSL9=N],iSCND$ZSi5TS;?
U"AjIUpB[>bds\H=B/Y,'k%]0tTgu+L\J+NufQor6f<FiU#d7?o<6RBuVk=h?gwos
U"f(RAp$3&sl3Xo0p;^)0DQKCugat^;s\=BgS1>0vju\>WifBQ_=]<9[sk$<$&c.7
U"JhKfolb652-NMlM8f%(QxeVL<ggPsuXagI1VXp#uIgbFVC$i_hMqa42S2BW2t=]
U"(7wfx)sMfjHc,9#IXj/1<g=ky%nH/-19oOmD>.Ma(F/UaCkpRQ#;>=W,V9*71W\
U"S8dn?\N0=hRqA$)ndB1vm$C.T1U5r6$*K--CE?JWa%Y<lMoq$xVf<cs)[&Etl#[
U"xTf=e4&clVxhRrj\Rj2JkE5/(sYO:GX1]caeoQT/T'=Rmi&6jYGhwz(./i>L7m)
U"EbJG8-r,44kk:s>C1tw6Kbo5eT_5=vwkP3cLAf$=Bk<knDHo]uFqy'j90T0>DZ5
U"vi=_TF%WZ:Me#**'w_.xftL^ZJg-CA_9&Dyg0X6=sJH#.wvi*Ep$x+<h*obI.<)
U"rfZ>pMQfqNM>:FbY/bpAfa8CK;,jsup99dcg\<=QZKQ]AbJ5RTL)HE+KUN*4JzI
U"l.1jea(ktpBcQ3>x<OOnn$_ncC^6MnZxefU9DawkfbRNs585#[4mUq;DNBANxoJ
U"D?CP8Fb5\WFn%zuL\lNU1T?GOimb*5e8c(_#z>,*6T#sM88656F]<,+LVCx3iz4
U"Q,x9#D3>P'wjG#f8J$hFH)hgOn$2CTwa5Sa;m'+XN4#pU+&JlHn?_p]\3DN$hK4
U"(xZMV?//MT6P=AA]AQH[ds(q[(UV&XuEAR2N77/NAmnrZYpQc]Tx,qFZfT4F>sp
U"esje32ltu=M\\Sq?=8[hZi//cthU'1j$+64a%($-]4RY%E9&lKg\H/>EhBE$>xw
U"a._-$B1O$pTb0vhYLI;.UUO8]n&kK?co/seUUKXof#OL\rp9&5XW%B)44)<4Fd&
U"iA>rMaad./An<q8cp1+Inaq24HB?QOo3%aS+9Y46uW:wGT^9d-xIoHK\4s5:4X,
U"lf>C8_+h*l;_kQY<SNp$69h6.[Y?P8(G(;]Ik?>I]$BOiGW&+<iZuYc)SrQI7Um
U"_K(FRfRQ;S9e>4C:s,#&DFTe4G2oDt/9Z1nUPM(1=Vnb.QSL%cArIQ\->Ns7+]O
U"T+_'G7\1SB//qZqI_5YEtb*+_5+c<pb(bZ6bOF#\:jm5wB/R<y3=dLQ-TTuj,?h
U"&WG*/Hf0/)([k+nMwNN(>:>X#JYQ*J7ap3[?<6JVc:j8KCvsR2MNkd3CehiC?n.
U"LlJH_,0-Ja$'DA2tVwlI)2szGB+'g]YOIAGjPl$oRR'3$HE2EM;D7;\?5pd:-3_
U"-SS$rnHd#uWapmnP5s5ygT+\3fZU1c/(SLylFeR=:1c7qTNL,pG>QORBoi-iErJ
U"Wieh4PC&6s79e.qx_Z#Tbi]T%_GSQLY7c4K:'/qtQlKR6Lqbhbvs^8a8+Z:acB[
U"+n^9)QkjyvbBbtL]Yxx>qwAF0YKJZ-pMm?NsdG^,\NAIKqV7JKCAh;dBZl*M6Qj
U"r6adU^=H4s:op+>o/\tF_6G<KAmf\e[<1J]T],oZs9G*v;?1CUSf*XTT5%vqTU:
U",TXU&9ElhsB]Mc).#wtuT;-42ACOf2-,L[AfsM>(OfCyD_C?8qYYkAc2ND$7wD=
U"M7=u)0ka;<b\bw';^]P=P=q^K\=M0.4f,ds#&IS.R/,*3z2QQ:YF%L5kZfTBe:Z
U"NE*2\)QUL-CC[To4Rp\vJ-DBO71EF)>sXY=da=-pS*7P)lv+GIbc'%[97?.0Lx+
U"hu4T23<[zpM#v+,hn(iBAxZ^H=ESNZh<85KCdogH?265Ar)18Y_CDv^J>X*Vo<v
U":b=K$P9u^Vvx8#(VBq/l;]\zZPk'-:J\K'*7^\//eVV\Hm*o5eMojCkl.AACIPJ
U"1.Y5bnkWn*.FZ[5W_DiTwm=5jnte+S(&cn5+TOOJGizs^As%iKa$CT*[Pu)u.?B
U"Rf.\qJGKEXKbxRL=4zdeUWIc?6'3iguNAKC.1D=s[jIa]GFB]4:3vHc&*Fc4EGq
U"^%apeV[fhA$D-(P^C))#%=1B=)WK[,/\-6qKPYIEM4+n0WAFcm/amS'4LRdlO6Z
U"'g,J'ia#[=cWi-e_1o7t1a3[3C&j[a9^%a_Qt1w\UJ$8rb#-_A,l/u59en:<&G&
U"YqM(=V_tOoh)PEH[T8aXmSsIHMN/R_Qc(by_[a>I?r&iC'gS[2%HB^5#MTwQ<2>
U"zS5zn_mV3ClO5AS\t>&i,^X,9#u<CJW=j+I/puwH8%5'AF.1JUt_7D.L^rDqpg?
U"[Ut*^4g?VnLTt>v$kDHAs8%*JEQo0u<1O4zKr4dJ7?.g>aO[D,-IUTKo&HJ2gCC
U"uU)8Fe[CO&.bs?P6G;5VLY'<hi#4ab=O5)l0=<&4U'DLbB^-eGIEZmBKL#Af#6l
U"85*+hL]ffhE7)ZvUe7d8DR0kTItYYH*3Wq<A(ElT#>EwLHbgQ.kaA8Z[0K&UVtL
U"4ck1W#b(IcO\);*l)R*w_[Iz^\P-dAL</Spy*NM+w\\iJ9k^GuK+H/U%?U&Ou+B
U"ciR)Iy<98r#gKRY5%=*&=*+R2bI'C<&t,lUx%iUHR$UCoXIZkjzri>IeLC2(m\?
U"0)&gaxA-.igM#H5t3F;6_=7c8&(U*Y?apKcQ%N'c=G/^w24LHf$Nk^_&iDdKfUi
U"Oup*Uj4oFr/hOHVDy1&xaA*Tq0%bQfGHx+O3#EnA#B&k7Hvsk3.AZPx1(fuPJV.
U"Gr40T0OVpOhy51$fDi<sXOsk0G1^[(9aj>tbYg[BRNM)&APBOH/sGa49Wdt(#U;
U"PEP'UdfOejAz+A]6A(i:C:>R)s:GF]x[KLE/211.?W(Uz0Wszc[12wV^)B+Fv$[
U"tP3])zudq&Rx5NqOUW^9c)JlP]^bdTdDE6kd6'B-)8$'(eWFNdVFPf&7G[?Qh$j
U"Dhw?jP4DDnucq-)nHt(*%dgnAvqbfRxQScT9u)jnHh6'S5E1MGn)-=4Zdz^:-3Y
U"C%hh;m(x_BkR,am/^I$bYcCpLn(x\4cp4A'r'/pb&C>+r[p*FUD5J3^hK_c'SZ<
U"IC&U7BI4Xk5_BfRsk_>>Vsxkr\K3mA2n&M/e=>w55_(lUP$h%Medthw;QE+I9iY
U"0w[o&wAHo4_P?u%k_2ReaEO;Lt90;*Q#;S[]0T5m^baz37k1Td5((xm*/0+M_Ho
U"Mlk(2dtUH533a?--,PGD;wW+U^39pQ%l&zG]1[;sWE&O*^]pGU#=YB8g)^_YQTR
U"I$ZBQ7,j2TT9Yj0?EAr#=LWoLEb13.;iMe0xTG9T/m/OJT^#Q+%4;s0+SC0Ct4h
U"AD\^CUmC:)=GL?VaVH4+k.#\=Ze/6=ahO6\R'Bk/2s1LV=Oc(,ZnARYEO;p.uRw
U":81e[HCokg8Gp>6tR31VN[lU>QfYD3i(G^Z'+QxT/_DXlLypg+(UX'Qf1wYB__(
U"tWd<tOj[3wQlgMoV\;bc42CK6(w<bUnFf88nB8'Q+q,I:e<7nZ1YBL;8i*V-U\a
U"A9hKjI65Y&]1K4iC49*f/Qb1&0FCmr0CS9BcstU.6v'j^&Xpx+Y$8(GL3pGTV5<
U"^=o8:sbnS[)>>'4,l3x-sAlfr78y)9_L;+nNVfu$I[ES9gsJYjYFJLxkOqZ,/43
U"qkEI^znB1RD^qM6GyyQgCy>YgD2v*J,EhGRD7F(z-&PK<tW=Y8S+c,&NC^B\a&%
U"0OF_b[zp0a('Lu,X=(=djFtyC^//\<+bjezjj:ttDx\a,\4Tu0O]g=o_BFMsa;%
U"*ci:hy?m';a6KSRPIS-q05oO?wQ1F$Bz$gQH](dy'*NS]f;GwWzort,6c,FYnJe
U"iL,N>rdBr6N0BZ<MRd5;m+#h2RpGM'SDo-23wItMP]znd8psHD?_,/I5DzQ%tzL
U"0DwNSxX(GiR:,I+W*2V:[>O;,Q,l8veY-&w-a&D+H,QANPB%2/j-%7Dq5]IG7ht
U"6HBcPNlR'3*eWVEP.4*6FK%9I.r')s%c*&C&zH)-8^4'PJ%=s=Ko>^hqpKTs%Ia
U",OuhSAnhdk%Fx3E=s8u7o'UA#9N(](=.cD'JAgMrdeP6NY;_&Z6G5grlu%$5OFx
U"1=6[LijQruh,uB-uW0.tO9NPKwj>ta,'RA+nkP>8ui6XdSmE*_*#F2uZn*Z3^FQ
U"ONpiIT0?&t_?Rr,h.QZI]3K&Mbv9Wq$&TQ7m'Jl;>Uxe3&DQ,RD<va5bbzBWjb$
U"9b[?.kJ=rX$mrA]4)uv510j]QwHY:1^#D5zx\iZkc^s,aA+R)Aq3C,_=*fq6v32
U">yi103Zj3;R<\2*u<k:w2(x(n;_n\0[nQWW;]*3/thI8_*M)t(=;Wl<IWWrF)A1
U")LjvZl.ifsA1:j\9]nt3sHN3]l%'N-NXQ,b_7CRT4*-i-:;g:A,f+4=9R+dhL6i
U"4l1m1&IYk_3\:vrc:D%<s_bNIY&O##[I0Jir&*Ls#a7(=.7i,GM9&KUA?Y]>pbl
U"=?RU\ONYY..?_b>70,kT/F1f>.91Jikr\XM6CMUP(n[O6J=ya)g:+w=>\K?4E*<
U"aF3,)xgX%(6-DAe*<)n=&oN3kN<?vJ6UKL$<Kb:K<*U)k+X&Y_E3#^\aZ4\h[g*
U"D6%Jv#\dZBNcGs*^3L6/DTgE$FB>88G(j^E?aYKq:gmOT<2]f,kM[Wi[\2'\]T.
U"1=7vBIxk+,R11]i>m[0Gi5_K\3qr$B#HU2(jsCW+SEe,I_c#mD?>)RQPxvb$gs_
U"QS+AL6wh)*3KTg=B.HM'U,$*3Q/3Xiz=W*):cDTP'le,'H&e%[,DXsD2G%^'^IO
U"zT/1hj;L(ZD#iCf-.9eNb<=&SveeD#\SU=9fzY<.D5>vD2#/ANAlDM+8=HdVUO3
U"=66spX6e(7^'4<B3F498-^Oqs]cB3SLo5)Hk(:3cPB4eGb5D0hE+0,$8db&G-1)
U"OT1RxETkFVe4#kA7=A$=]VLqb_W6)8MyvNmTXc-P#ry^81NN)swdJjCwe^a?Q$9
U"f4LW(KwSbUbpMO9CEgzHeW;HF+=\XKF7&d393WK'R:C'Ni=SvJ,bet+W(j]q?0Z
U"v3u5H:td88H(*wsnt4/c0+pU->ANq6S'OY+nKY(x%8K']R)t9cZ#q*9Ni2DbYrg
U"TiwO1V]&bS'PJ_\%YIu/m1CpgsD90;<IV)6l.gWLLK4\;98xui5QkQ9m[\Q<5EG
U"_F_5\+OfG=ICL:qG--)hW3qx301'uI[8+Z\Y/>cfZ%Ka;T6G2X2T#^vjXd2Kg?i
U"L?Dq$#lUV_k4JOXAT=qzhU0'r08gO(_S<)8ETun3UllRr;-IS0f121Ub&\A.Wf7
U":g9f%X%bgUm'%'FZP\1Y;rlC]S94MsW:/_N1J/V?lIq$r*xKssljMm%5>)i4\.;
U"7ulu=Y$[CqYR?R)C1%UK$19v?n*<cn+'>1j,oF$Mu8$?KAM>s5$.7oskqbR<qn;
U",c)fRuL#*P3x[t%i0ab=WrYTIYM5=lOx=iJiXlHbmxgGZ)%1)dSG:/E-jzOX\HZ
U"H)KoEt^U,owt9DF_62q#T%UI\y5jH*Fs/G%JFEVz_YV/mhTnvmR#u%^a#xD;9U6
U"Ss%B:ns>_Xg&P6,:Do$Uv'kI,4I_&H5dT?JYc\,*gUx^_6pU70_,[VPV$>77vQB
U"h5AL\g&lf.C$$*%S$#7t0jf?29X1XHUd>_fdY],Har:/*TkK:x>=fo\7CXl85*7
U"QKH9B;V;=.W+F=>.-S1hb6lE]3\Mb(Y*KEqBN\yiJqY<\l5m3Z_98ht_,E$G1qu
U"/EQmUj7nxb)Zc>TIY:C*[6K%#fA3PbPk7Nol3[8M%G]RKJ?iM<'bT=U^v/4juTC
U"chpu.cNM%U>F=*ZRf1iAc=+TbIW#jGg*2i7MVGg/mipnVfW+(_X>-0N.0U(_xIr
U"Dh^5_$jcCZ:<VD6jSg]$OTpD-MgPhpouraC5hvc3bP,o/B#64]Xwx<(zDZOKaWe
END SUB
SUB V2
U"7yOP:cGH]U3M^8$qFW4Kgg4k-=N_;1nhW8m[n.Z._'TRv*c,vidNRSmrYh+-UOB
U"M2/+&PA^x7F#*by1JM*s%?)Nuy:Owf5vqV.e)2BHD_-)NqPnj/n1?;3(jN'9TH[
U";GK$L2TZjL*Ems$>HxZFi_]+7b4lYa+*<cQ<t[%>6)i-Q2RH:hpMFtVOB)_hTyI
U"jPpa:VZx]K^f'sO^cLg32>gu9^^WNbaHtMkMZf5,_1w<4aO7T/*Wnw9N.xRbmFs
U"lbT-S7ZX^n96?p7es((35hbiT$dFIl/855ekP0*sjt9*+,:ifns8CggDC9K<KJG
U"b'.ilOX3i)]BwyDe8RG,ImC=M[f#3K[C+QeI-SQ+oa$Wu&)FBLDvitR%f.NP*t.
U"up%&';0%9%'%7-%MkI:Ncg0YK?&%%%Q(%%%1%%%%%%%%%&%IE%OP%%%%%A&mn)%
U"gfqq%Sqxy%up&'%;09%%'%-%-q/gD8(1]U%\3%%&(b%%%/%%%%%%%%%&%E%2OPi
U"&.%%&g%mjqu%Sgfr%up&'%;09%%'%-%'J)w#?q>aI%,&%%'?&%%%1%%%%%%%%%&
U"%E%;OPr4.%%&m(n)gf%qqSg%frup%&';0%9%'%7-%Mk7:N>$?f?Y&.%%H)%%%1%
U"%%%%%%%%&%IE%OP%O6%%A&mn)%gfqq%Sgfx%up&'%;09%%'%-%'9o:N\Ywbk&Y%
U"%%%8&%%%+%%%%%%%%%&%E%*9PY8I%%6>LS10C%up&'%;09%%'%-%('tOD3OHZP&
U"R9%%%XO%%%0%%%%%%%%%%%E%;OP[8.%%&m(n)gf%rSgf%xup*%+%%%%%+%+%%x&
U"%(%]M%%%%%
END SUB
V2
CLOSE:IF S=67AND B&=10743THEN?" :) 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\10743,219);:END SUB
'>>> Page 1 of WHIZBASM.ZIP ends here. Last page. TCHK:67
