'===========================================================================
' Subject: Function Key Definition            Date: 12-22-02 (  :  )       
'  Author: Tom McIntire                       Code: GWBASIC                
'  Origin: whizware@bellsouth.net           Packet: GWBASIC.ABC
'===========================================================================
'>>> Page 1 of PATCHER.ZIP begins here. TYPE:BINAA TLEN:7260
'-------------------------------------------------------------
'                  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,"PATCHER.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%[-%*'R_RF=7WXf..%%K7%%%0%%%%uf%yhmj%wSgfLxl'J8;x$:md#
U"7PgC:2[(ak]IX^2B_t>$iA^5T#K2Ql/A#$4,)LC:zU']KV)+$,BEDwi/8/(N[g^
U"0tgN03zJyUx*&08bO3f+Z.8hqcdv*=6aO/LvkG*M&\<iVyaekEh-dOG]#QLZC6$
U"mPB7BMNXHLh^CBqE$Im>h9eso1Ea#iki8wM:-usJ0$j5d0Itj.;\7ICb7Dm;:f#
U"d5e*?Q,RMWs9RfWDX[3FN:+XGTPC*#D4S5'+3FoUzmr(1qClc>-hJ/mpbc7-:B;
U"HK5y16>ZUr]sm'*;pM<mdwlI:Vm'(]D$7WU$ZUkm.R4TU6\BOc7])<jN,'Mj.Fd
U"qL5GlMbtXd_.bJ)JJbR*]/:ibikD$Z>^p#[W]NA_]sDG7]85yp1Du*s<1[1hB7i
U"^z*I]Vd=TfIbw;WXYc'uo-E+-F*[b1_[g=qW<>FBu]l;lQUUgX*npyV\gIDHUUB
U"X.3kq_p]Z$+]efPDo'Uu<?F*WmTX-'w\6<,nSMbSjVO4>ZkhlL:iR(nMm8n=GeG
U"QxpmIv5>Pql1L\L5NoRWHSg<*,X?/7Kd'L:EEZ#Cti1[v1Y<-Z[5Xm3.?in?IBY
U"kCb*\I6g&;hm/:R*ouJUk-uo^^z;p(EP-h.a_=Wn-0rh6C7OJ^/)U_OTMg-KZ-u
U"-QN-)8HCxT\\4=S=UHOLbgPOga\a;uRwIn$P4Smgf<Q5n^Sb\<oEAl$<]&cIR91
U"Txzt'10zR]err8QY/Fweidk,dF#=mbL1T'6rn3=oWRr/g*^p[k.\,7jOYjTc+/j
U":3^z?&IsdjA\7x$JEZ#UpF0?pm0+5=N[lSK9>%s%*O4\(.rCLG&-%eyaoL$VZ(+
U"^hz^z2pXe?aP<OhlI2M*r?>ibZQ6b(),;O\+FElpd(o-WKD0NoecJTs5jxgNJTs
U"[jmuM3<Btd=8E:AllV.ERArc#d]xIEkQ4?.]Tcx6j*Gz4't8Gz/[%Qpkth'iJ\n
U"aD&w8/O>CYo3<qal11:Zl=CGOsrqLu/S7Bw>^9EwZ#WGBm$f7+[(?,-bv.\XG'Z
U"=l5J-s)$]#>uz<)cc*LQf,/rBlGpoUTDG/.ISAm6Noo4lX<[1(tW8Q:?TvjO0=l
U"N+J*v=Y#wTQ;2?E.p7jSU;eEVfkG$arMaBuSEq,Qw6,]d'NG9;^&DGwWLGAqPl&
U"%'CMqEWZm(nF.\G/;LHkK/(;ot%oc;*A+E0:s..I?P,cCU77Atrb<&3.ayBOEr\
U"Z;?+tmw[-Z,/R/.qvmE^I'^ND/V-VgE?+)*?cHS=SkQdcJ?451E^M'Dfcl'aDpo
U"dak&-X_)oc9:a#wz/)m4-r+,*<iYx-wO-W<28Oo0QNqvVDC>E>q)G'WpO>3p]xg
U";Jtf>w+l9[vb_oAC4J/^sHySm,2^TjI,u<+(^$J1aPE$ERB%d>tdgxj?BpRMdd9
U"rlbxmk'67fQG*-b16\nY64<x2$p8o0C_n6<GO+lhdqDYZBiRe:AKf/K'WwL_v;C
U",Ps?b3<q\&OPhcZ41De-.uD8NOZ&]]eIlDcto2,U(vFf4fAvGkUPAUBf+l1-)+L
U"4JCd0.yZv4'if*xgcym7^nN]flI1skCNIxY\q>U9>2'Xp8cf&Nh.iBA=dbIsY0A
U"Ly_Xlt3BbvJ?OkR([Nd*wbX3?[?lMnP=F^^3-Noz8F5?;v/r2o#ZU.Ge.'N11tG
U"p#xgkVLsdc+=Uv->FJt063)X0ZcbWX:^dq]Jff>\vw+?;Q,+&)y#38ME31h%1PO
U"c+HN&&OFRmPUo37RENME,h&PU[QM*0s';G#Z9=tw,3jF8(APe3PjeS$>[E7r9%t
U"O/mji1:3PM\UP=y**N&KyvKOD[r=s0'ckGF]z6dI+^eCN'izbdOH-U+7>8WfaZ9
U"STG$AVxkv+UKk$^iD5J]0EsT\r3FlSHTO9vh8;CogG%$wB8y)jO+ta?bAoWR(1R
U"q%lU/U>Rr#3JI[JU/h9EzE*qbXA;PH1#_w.T12yx(DU)&^9)(k&0ju87EnH&X%A
U"Ki3sF'qNeNUx.,[r&_ZAfO,3(sl$*:kwi\a2=[d)?pWs4_u+PERhEdahM15-#+f
U"w5G6?l7xp-<]'yc?mlt*>Jvc/k._^EtBNS&dV^O[sX;>P:]/$8+Fa=mnr7\3A;i
U"yvWj\%BEgqkT=84m_v\wWvP:BRhy:B$JMd8+^HK\4BVo]5pkjXp.s<<u6SQ<(yM
U"LMcBkhITbrB;jgGLq[4I&.7\3^LaY,l;ryPA4cbnAh$g#Ju-NtKsr(s-].jN2?L
U"7-ny4eN<8epf54n8^R\h.%Bxfk2oi$>L\e-7xX?E/oUuy2<0+mr_Iy-^%&NIHXq
U"kN#u\le*/^yv2cCvBkpR,*o%'xXhZhV:u7J+bdp5AluvMix>%cT%KNLAjhI5uS0
U"u?XGe[XsMHzV6*B/DVvqGdzqUhes^tQU=J+]WtS\/0<^%V;P_n0G#wZa:\bdlWF
U"9;aNbAq8s>FV]RRvlJWTZQ;N^\wQ6&a;46$.zn+Gn2j*8dl7j;QZZjI/*,ZiX;u
U"=01OOTsdR0Jk/'9.[UXK\/C.oO52'KDCAGS:wp-=MfVVoW75I3#QW>lYQ*Q3ek9
U"[6gv'&,c^/2KS:C0]Vhp1x<_8dciQ%BIki2F:mPZX,N_^ssP>+ck.KbNiGt/;j/
U"w?T?ibdVBdk])l&Y:lNWYki#*FgzE4yGf-$4l4:Y4J12BL.5J]3yrJm:WPJMzd.
U")/TH=&]?L=33esUP1Auf.$4lxlE%w82A%(:2lGxikj#+K70kc*s/2JCM?$&arLz
U"Q6GT8[.j+'?p:YWK/Z*+E=k/dp%OGwoGAPTkTI5xasonBIJ6A0uLn[=xG-+i>$6
U"9YZ^8CPihY8qO_R\bK:jiWwWtZ_vEHOvr^d56P(AqAhj)bl&S.6*WkF/h#GxR$y
U"NMNRU7'OgqCXUF08y#rbJ[<pu5yj>EfVhUu6?X#)6rIX&:9ThGRkZQin13_Vq1h
U"l4*TuP<<.kt/L)K*;<hS:VewH6#K_9TYd%UBe6SFt()MXv4IUOk9BHdV8nh4YBP
U"mgGBRO:=xEes+\.p-R+\;=OY_^=A9'kcL)v1Xw4K5'Mk6CcrJuP&dXIXs6nREIV
U"Xgj:D&SEG'pu=Sv7L.3,,+0f>MSdZsA$VidU;_#2D7DHT>s^$(DCAHwD&-DyJGv
U"Jbgnb6A5I*9r%>*+O9<Mp:]Of^8VlpB1/WZHwU26rd-)^fGIG&jBi0VBD[oc7vS
U"CS?q1gzo+.9^'sTup%()9%%'%-%8i7oER?UaD%_)%%%e*%%%0%%%%ufyh%mjwS#
U"htrl(x>q#e4=N'*6RowrOSQNOQG2YZ,9)D2Xx'O&53o;-L;um5P2\z[\8&b&J_r
U"8lXs0W&*wd#'\Dg;IdU;]*9V;85/4<?AaGQ#Y5lD5iuBvGfS7TK5r$J*kdH-KbJ
U"tcpqJm$p<um$vb^9h:Ux7i;kG-x4u04^xXbCH5N>9]g]N4F7<8P<jde;f'$5:wF
U"/oYi:1'':lWn'lra%O_IC8'$Utm;Sl/w>:f9mQO_0JH-P3k0\65%N==2FA2tFC]
U"iEl'NpEtgM-'TEXc[]'9=nVB,b6fMn,:D[Iv&MAoMqIPQrMbo#[v^3CZ/Nb#odi
U"Q5:rBF]uTfkRr7-&4<X8VX5pCtPN24phT9IU>*YkPE0pbqkU-[%-Z,jq?]wk?v_
U"*,bDN89vi7/GupW4Y7(Ud[Wxx%Um$%J[VIDXN2;cps9M0kjP&,ql*,:S6Kt&sWu
U"At_-*ge4q_*]/Qt4(ikKOa*/H0QXCiew%;_#JmnOA1a[nf,+3Z1:/(_$*<0vN7<
U"dQFHT2<V:mRSR\aq]y\oYMiUK:Lve(0Z\hOpJf'h0QOcoL5A4jfd+(6>o'WJ?D*
U"d(+U_r,MPcsyDKa9k92s+S=:kBeZ5g=J:^6'hP+k+dKBr+Aa-N.XR&SFP$1at?<
U"hfjT3EwD<cr%qk]xFDUeTQ,:8j&-#tJH9G&HAI#iQaqbkdCK+3v8.HdLA_mDXIs
U"hkPjIG(0wkH?R-'p.v?v32:%0bT):QUJbRrg]*[UE^;XVUnqE4m<rMqLjxbYA3/
U"HHF4pOwzVYY%B*f'>_-J9vf;[(s9r]SH><Jo^QbkPOik4A#^X5mf[\,XPU:C>Y?
U"F>c<(\$(b]m;21o[>zn1/55'I,NC+U$GiOc*bcO[hW'x,-A3;2S51A,[.$pT3Sa
U"xBf&LA;UsBcCrmmBMDMc'.5uO/6-0[g90*..8+l/-:6]\_qI:-Q%6gH%?Df(+I;
U"k(^Et_e9up%s:k.*itOo[:pp#(S__c.2*Vnft/._d3zJH^'<JsOW(Q-#>DZ%X7t
U"h?1n.p;=luc4:L04b,,M['6zMlNP\j;/vCB%*b#E#ud2n4rE4k.is\-r3KX_1sN
U"?LcJ6=NzSV&auLdW%t8^e;l^0:&C+p%05IDzPj)?A0VU_%'J$j91E[WS%cMbG$d
U"FCHL\Fp<=6gbHASpkz'A4L>t0tFwv8+AT)eXzLe\\nETSKF1\3Ui$q<BP?w)+U3
U"^^Fz3kj'4F[Z5?-bkSX0)6'w3\$dg:j3Qm6%,t8%1*K#;XE$r_n]>37Ybm?>mjD
U"7g4n:dVq>qM3qU75Wg6lZmzZFf=dEA5=^H\C[a=DJ^3pNiw^q=/WYPpT[qC$$Bh
U"?0bDMR6e\.3An>aLZc&l>f7FoAHadHN%(up(%)9%'[%-%p&y$Rv^YfNr[1%%/%A
U"%%0%%%%u%fyhm%jwSyJ'yD(*:A#\j76vC,.)<9#TPz$RQ$G=hH,*RVd4R0N&<x3
U"d$s]Y+1AfY#(q%[t73k\67fJ23E_[ACD+7Xib8C8tMv3nca4lXqxVx7Z7w-GP#j
U"MDtx7Wa#yZKwin-LvoY$n/P)23RqHCk]VvZTFVzF(n7PzGTuj1kp4KeQrLKy-Vp
U"9dXIN-'--$vAZSp=n25qMzG5Y:p$yl/*>n7cOd[CcC_(ZhilC-m<TDNM(9;Ry#T
U"i'lJr:eVk^jTV5F5A7:QwV9WBFNoZD*-.phu9L:&psKm:YQx$r$T(tM1\pS#ff/
U"kt?kwS;mTIKn9V#6oy9LzivPl.5:n+BHDXhXlpSf[cDhjnin':LxJ1xZjX?Nscs
U"kl:gJ4nU2mWW.uK_t5\,HJExi2H6E/rZZ5p*ct_0O+jw[tI3uw]b9CQ->PVFr19
U"a#a=%[kbA6ku>d'hRUCZ?Csv.oGYwP:gK4^RoJCUYE1=clr8\a00aC8K8/.O)$(
U"/vC(>i5HvLr\^KK;KigLgY:>>Rg[wnx4)Qld&X-ed?li>+TsBuHUTSnwE2N&W=2
U"?/,Z[.^BxIu#Vdz8GvO+$Q(Fau[cZKJ?&]D^GtVCO\O#]&WTE'/-GrYl$gq.pC)
U"0Ul2x<a\l;0d\qJ7FUg#Vb4C+(w0M?]E]noa$:_'=Ws_Qg_OLj2b+uxXxr=6'vV
U"^k0q#L&7[/(U*#&(ZsS*q+uLZJ]<M:7.N8nQcKVMkHs'j-Kbs%8rzer84\/?sHV
U"jvaR;U9=fUUFbIWj=q&-]bW'%&XAW)RDDu*HGC,*kY,B-5:h?<Q&s5#6[lx)aDX
U"[XbtNR'6tsMjQaWc1JiBH;Tm5z1FnDNmP#Is,KODjQ]yN1''5c;pK-Bt1/sVM?N
U"7EfgF_:ycG55gcH+1gLGZj1>0v##/1&2sxJB]%I\[V'^K3)'?u0QxQ97hDgycHE
U"?]g0l6<l#YuSH?bZ)#jq6+_E5m5&=sf:xrB=^42MOTVjTqoX4,4<mU&OCn*,;L)
U"*g\3vsbrP,bvqIqY0Tif86%;*I]3=:*;OT>^uCfVj^8ZlR(dh;3Tyl4eFY%r[55
U":]D];OTtDecH7J']7$+wvGBeqqQj#8B[n:sFml;^H'J4.iyADW^?(Q7;rasc?M*
U"0&tCpTmu),Ol^oC<wg#Ovht+u6TQI5pQA*Xd1:$?t=7,;:I2;fWj6Fh6\[0E?<x
U"bKZ\,<Z*IRlP78WRoHCHxcrq>f>gH6UCV(r'EK$VAi^r>691whdNW-x.K(dynam
U"A<cuocFc6[>jPXExkNpD>M^unF(cfs:^UtydTNZdN4Zj\^]\gJ9^[$:LvU)A(BP
U"C8akmSF1NWN6$KHNV$KT6OG%gkD;*:Z)u_w9Vo,z*ip3Ve;YH6H>PZ),$(f)*Ag
U"r]eWqj^Tr\ZZE_ld6I;0W'S<luMcUX&5An5f/KP_0P1B*(k#i&\\:6)u-2w0B5c
U";0sgjIQ_E=lN*)Z+\JEVe4a[/x&/]3L783gZ7wGk;N8m^N+mXM:kd=$chR[sxEg
U"9sJ2Ws_L8ia_>u*DqfS5l%]9'^%,>fTjAKXlIO[M7&:Fke]3HUMN#g.jT+i9tS7
U"OQGr0c/C=1e]VEbs'57eZoC%YJ29(FkpeiEqRhb78Z7hV[XHLDL*:2dN7bt.Y)r
U"ZhS-<tS0FK>hmFq2e[\I#YKuZ_ow6J;/O0%/$6q5W\xCqUWR9/mJ2B/O[fvgEQS
U"==o7JDCs(,?-Hve%OELR94Z^Y*;4p_BF2XR;&.<ChT:aPs,<ph;Q6e0K/KY?Wm?
U"U>gqJn/<yNAMW=T6m/2&>SZi\O0UwTUq+T)x1/'sY;FHK>M*Y%c=P>3tCq0$q9+
U"*:iPrs,;wGa7eN[2HW.Zxg);(eU94?OF',1&K7ExO2spz/b/*%ueK9V-p0veOtp
U"-d^2pSV]0a;\AVT+lonwe3pEnP1jjD1D'ceKQ$lX=1S*p5IxqDBjZNkvz*t895X
U"a:TH9ip3SV9.8Ktbudx'ES+lt#e#45YTeoeWfS0-+4/r04ir'hHLKs6lCEK#\5B
U"ei6/[4s+SK&RFgU#KCd&P9o#q3<R_rsa[7;;4R&o+'dGb538n?mMADoi.IFD37/
U"#?]i[T5(fMpi]8W)q[TW98u]J66)b)H<2Z.mp:vP(nwvEZ_%ybTc(pW2YFBgTlE
U"]ADf$D5CS(VUfP)b?o9ZNTuBZP)?\KcX<;>&l.]4&Sz$rTo0g&&VtiD\TW4:W/F
U"yzmd25sCj5Jp^RfP.Rb$oOr>We#sc'8X;6(q9S05q=TX:0J:/wgIqeMa$r+)8%%
U">?<p:=3=eeS8z-dP*PP>1Adw48J6d]))Jf'W];?[uW[U6(CtF57ou]M1FS4[rQh
U"E#6m7cDsdk3w104FqGTeZ$3%^sp3Dm#ihgL2cfDf3i6]?w;TSO&,7GLv&2pbOU&
U"rV*]UABv$\2_I9;t[#8:fXE+<-.5:^\D,c92Z-FW[gbN'k4uL+,ca:u9tH/+#3v
U"2[rHyo4]HvHrtKi\*t$'1#De0QCNTRv1P.jgY5kZ^\SiULf&5s^%i#9OH\&es^$
U"1qv.2jm3_(4yZ<$'Psab?ETtgH$M2/NKdBk-o10ajtXkD%:ESfWbpI7_ruF?Zqj
U"7#;KIIxXZ;&kFu);l-UM<Xfjsi]yr7BlFs9Z.Kv7et#1CKmt+5s$2PQdIAqN3OR
U",F4pm1FJCujJ?Hmvc&oWNeYi:V4?5LVCKNJEK)h>LFMCG<eKm*t]5qtWr[_t>7N
U":l8uo>uY+'/#nW,aOYCjm[eK+#+>'N5kUNo_pYQ'K=hX?kPM;[4JMG$jX+NI76U
U")nc[hw)/JVCq2aLGAfm8e00kwo8-[/j5xJOl'0(N9QHYe[gq-NABR#ETl\4\Vmm
U"V#N%O^9k#Y:Je5=jx(FBU<]R<c_M=hAB+<W&3TL#HrJ*EOjvZ_&:DJUv3Gp5]aT
U"1F^ZPk5Oa062-ahpW$F,LNnj,mLI/JWpm0TMJbI]-%%bW6-iLQY?=qhn&#c0Ppd
U"BsFv3N]i;(BdL(63L:Udu$s)v2a'aMR$M]\QBnLza,$]4GK5GEt[J4pe_>PaSed
U".78i*9xnhfT1wBj='B?;a(69SY696m$^)r+hdsAU=68&P&FK;Q#ki&B(?',TVQC
U"$>;C1O]ejU)rV39Fd*u_x-7G0R.nKq.,$ADnQ]%\jlp\7lJ1tP%(Zr?$K;1A):G
U"\H>,<<R5G;1R*O#\hFM.7ZTg^kI,GIxf)uIfN4V^>^vDzfPKH]AhX[[W:c$<)k'
U"Xz*.bW1xDnb5$cJW[Xg+##yD-+Pvv?egi.g2dTQ<ZS%Spj5?nORbx*Y#u:YX<U2
U"e32A^a%(/M?WHV9J^5c,z4DjW8<^sdvar4SEp=HR?/_)kisFG\4eOK5&QYs/Enl
U"tbl+:wG1vON4j3*dD+LmLI9+81N</tsfYc]U^TKXfU$U]9vv[Pap'kU,6JgTRIr
U"G,Mme7kIMQ[OvsJ[)AwZx)yipvRIeL]g5L-*Pa5$^#W&O=uaYOTeLK+k73sU>?L
U"DEB6%R3)$,b9kXDV=^>R,84]5HW?95:c^Ly4#+#_9-\Z(%vP75sOH7A5sa;4;aD
U"E1b/fMRmC8I##H6RYgZ+OBHhL4?[VAhbH/SQE$x]_(jr%EI3n(\Zonw7TYMi^yf
U"8)_9.vhLeWD:*14W6^C&'g6D?*EbnFq4WE//K_BHH1;xw7VXeMwL$mva<9ZaT6R
U"\hWwNTo-:$Csa7%iOFr<&q0R+*cOP.vd]S)G([GRBk[*#eAq=]A'nOrU1a#g^EY
U"=R*WxKDybN4W,p$qFQGs1tO=QFSsUqu-M]W*[&,]e$4BSQfkK:';--8lMhq=Q%3
U";]OUktM4+4#$o0P8S:HcHQ)8*SKu+,Ko,rUk4-B+IdEao]<''>&VBcQ3m[K\R%-
U"BSf>p)A,;9)%o[#Fz?QBV2-8b.=zh><8MttdXjcKhz(>9#q3Uh=rdxx\tasqaI\
U"ev[$+uB3kNk-53+fAr$9E?<crSQhdizYl:AKq8rh[SO/'Af&B4\VgX]GY'Oy7lI
U"b($b.p=T80A?;tpK5_YO[A#-sT4mPi?K9e:<%EE[(jCt6ApA<%.aQbHu\,j2qm%
U"6mu]&&CWdD<T^]>3bgECm1lw;mZ1GDYJ^Pf8cR;^\%STHUV8j5lD^7-*HV#H\Ro
U"eAn/?+0gBEL+8ZF&S=6Ej.)li/\REB.AKLMa9h_v<74f_?&#4ySRuHU-j-L#p<?
U"%+Z^&0u;'G,_w4u%p&';%09%'%%-%*]'_RF\=WXf#.%%K%7%%0%%%%%%%%%%#%E
U"%O&P%%%%%ufy%hmjw%Sgfx%up&'%;09%%'%-%8i7oER?UaD%_)%%%e*%%%0%%%%
U"%%%%%%%E%*9P;/%%%uf%yhmj%wSht%rup&%';09%%'%-4%py$#RvYf+Nr1%+%/A
U"%%%0%%%%%%%%%&%EL%OPH%3%%u%fyhm%jwSy&'yup%*+%%%%%(%.(%z%.%%j#%%
U"%%%
END SUB
CLOSE:IF S=212AND B&=7260THEN?" :) 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\7260,219);:END SUB
'>>> Page 1 of PATCHER.ZIP ends here. Last page. TCHK:212
