'===========================================================================
' Subject: Input using text parsing           Date: 09-15-02 (  :  )       
'  Author: John Carter                        Code: QB, Qbasic, PDS        
'  Origin: johnecarter@mindspring.com       Packet: TEXT.ABC
'===========================================================================
'>>> Page 1 of POLLER.ZIP begins here. TYPE:BINAA TLEN:5977
'-------------------------------------------------------------
'                  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,"POLLER.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%#-%TndHDqj.+in'.%%k*%%%0%%%%uw%truy#xSy'Cyty*,:TU98M\
U"qd$a<)=MwB<n%kSB2(Q<noBDC:*/Xj;B+HB2S-wj$lAEa\TB61NoaIsS$huw]c9
U"0y>N.$?$m1K[3:8cqbD/DY/d5d*]4C,;L2'I.D20Qpyq?;#qDPc?tK+g03Sl&pd
U"]PfH_^r;/a2APNpc\U^N[[y?t5194anD1-?#pcOjUuHXRvl4Iea\NnnUMjG-5?+
U"[L&DJTObT/Cl=>T:aDd?#t:k_=uECW4n/#PP2(9[*/O7cn$QkxekA/ZCD=S[b*?
U"N=g*eAOtp$DXYfbVjT)A4T+[9ii[+w*TWW(BF>zEX5#K_E?bh20E;/AFjl-)oO8
U"W&gUgo]byJn>4$OQ:iKHxX<KaCH'Mxc0tRb>TjnbS:5Pg,As7+F)FTU/]<Wa+N$
U"R(uj#_XgzV+3n[B0P15Fmv%6ee0,*T6&35E8?d85.3fXdYB0))%<lU[UQ,\b:$h
U"5H^f/R9Tc2zcOvTp1B>&=oUFpSFWkph&ZFToRlF3u[VwM&K5o5C3<r0=mi\PrZe
U"IQ%8yN:a\&lf1JHv3aZ&P]=l6Q_0p\S:Ra\K/mX\]J?i'rWpa[Ci7l7Kju4PJe_
U"SVi_nEv$gn>>AvkGuZJ'0mLTz*KvK:4K:bpqT5Af/ccINCAwX44?i6vl-<#hn0I
U"mY\0I[Xahba=kYU66RTd[fA\3k\/RSY]=8O+hkx8U)DR+_dH\]k2og\[4cj31g4
U"f5Rv+s+(ef[nmNr#VHq9'5#9[Lz6TYRApt1^q0?RSAGb2NP[grB8TPSDYZnI\OM
U"lu'P^o03Fuati[VbWn,Fsb],OG2o_X7-P)>bMIWj,.\7q_4u(h;#%L4-f'Mu?>C
U"hv11()N%%up()%9%%%[-%;&BUAHw>guE27%%SO%%%-%%%%ut%qqSgRfxF)q(BTA
U"L6Mey9m,kYO**e3IRi$ak;#qfhc3JPnjhS.el]j&&L=&h#6J5o+%I7xZwjb:j3i
U"_6DjAOKM_Whmi7uvtnj+4lFWH,&E3%,9Uw%c>N3)yBclJyr.wJI[lPRD*Q0TL(E
U"GfzE(b<yTrbzJL\vlVw.bv&pQn$A)bwP(nLw&\x2O'\+#H*1Ve^4^w&G-i,pOhc
U"[NSsy=DCrK(&=y^\DT9otol$6%Vdm<B2YZ&d.,ovNUQT8(hbdTGRzwG52u79EOt
U",Im^HRgHXq%cHi2w\cJ48tZe4dU8Sxo+5:n.KqT$e2gM,hy%Mbykx'ao<\kwIo2
U")>q=]JQ<7uM;uu1>,d2n'+n+o&c*.l25H%=%E,OP7:MkyfFYG'IQ?lPnLUr*4)(
U"WuoN(gE#=+qd%JOPK/4DL4N5A\sd?q+OL>=XE&3R6U2&c\7oT22fPTtw6EwRXwB
U"=AQi%\Z?N7KrD*G?3W=D:/TuEsr&hYxB,(2Uy/m(=lqzb2g#]l>kj^1AL,75:QW
U"OsX.3D<kkM')mIWV%n(qF+aItO4\>DXjz=&\aSO4b?Urd4u$ct086d7vkfXL0B0
U"$?yZCEoERxXBYOkbRNHhfgW5EMB:af%j9M:-PLD/(,[&wnTy2h<V5^,*m8QCacR
U"g'6q4(NSH=2mey%2A3c:&DxR7<K$e<3p,&?4Yi1eGCYy+a./#mJ<l,j;UDIjhLV
U"pO3)z=<8u;\b%VW'2k#9A;5g=b7>?;#jc&C.hUlq:g%(EbH..+[_Y.MD'B6Zn(h
U"tuYNRjN[2EnpOZG:.Dz0DjRQAW';*[demHYBLi-7S^uFdS$J4&-8v84D%im5Q*W
U"QW+17_ZI3D/Dv#1^n3rG/Rl3uOR6,CrE?KeOBJ)=f8F>a-p3nb_X9#+yV=W>vP+
U"T>KR/cZPKwYne:5'te^O6HJ4*>m$OX1J:%l/WhV,Qe5]<NoCCAeaXGViZV.r')-
U"iUmkq:s.6u%hy>WAqG,Pt&e]W6'B:8+q-X0^qRD+%.URKMfNPHL5ARCM8%DI<1u
U"h)iWOw$MpwXq9)I+]R?if8ULawLJzG$WCX:GW<UZ*;:NzO-=n%'G&)93)BGP]W5
U"vm&jpTDJ>*6f1P,(lyjJ23qd[*aeRoWp+xP^]wJl6B^A_F_q'kr/b;ivoQK^Ku-
U"Y3ASsUZ[F:vBvv18_p9_fhp(hWib;D-DmvYa]]JiRNA>C-dK5,cU6c;pJ.7LgD5
U"?g$pbUQ+n+yAQ-E)O98k;ZA0mkVl5V#VL_LD?>_-f.d,Tj8*?w/W7TBsOjTk3MO
U"8RHrAA^B0jbekmrf0\QIhNy9Ad3j)pq0>[I/'7;,u5eOI'*iyUSeh_n_DI:x0,8
U"LD)4=qbARq20s0tZ#;-waN2[<dI+[7X^SGrEQ:w;KxADaAQrP^ihQJB?W6oQ<Gc
U":q5QJ0D0h-iW;R$^q.<7j'0BjUZ/TVZMU:6\;5b'Qn._i-zPS?njhw\?DxgtuQh
U"'VU1P9F76,w\0U1.K&Ecq/BX8]3F:oY#DXmo)ceV,WPu'pIm2q_rlb1F<q[i?a<
U"/q15qtoQ0XzOBsU:oG[3TVMZ?-i=JYYg#CVffa68,O4fC9)41mC<U4tVgJg>:TZ
U"#ab7y=HSaw5E/k<Bo>4VeJc2fM*^KI,QJp?>dFa//yic,ZtYUQE$v3_.O(&N*B;
U"]9=W?(9Vs0kAGGZXHQD\Y%%IAF&O$Gcb0Wv.b)Jp3k4OqC&1G'C.;tl.*8Tu*=Z
U"N?KgIn?p+(Eh25uu5ceieC:LXY1h8s+_\G.HD,z&7QQs<2USH\he[L*psTNLLhX
U"r,km*cBc;YQJ[ESL;_1*49;5[/4_OO\(>rUo.%-u._H([9m*\5>HAT?oCPC'R%Z
U"-kPECAfkB/j>';Y_Iw+KLWp#qEUMuMXb_8(r)ne5RKEUQy(lH3prJ1N7ZM*MX(2
U"BRe*&+S7sya+Yp:\8BR1K:?[IVT-_x]Usb[sV^n6bXlc^#$$hy3%[aSL^Mv>C\.
U"9L=4a-7[rXiUYam'C1*XREF.[;mDYrt$KM+]^F#M3Bav#wQ&T,HFE]#Ejb4b?Ni
U"0e9,s]^^R=esC7f6e]2<xh1>mlg$,o[cDagfDcL5i<g-)R<t7=mPHzg(d3R9,_>
U"vY;20q1=X,Ejhk<bb4PO8nGbU>Iyp:hL]2*MD0RA.jpe+e=t#3EN4;bdW[XX4qt
U",T+RWa31VptT3G0)83Yp\ro_Tp54Dsl>+Ok0oBO#_f:9)(vSbj1jqkTcS&<.C47
U"&3V?Wn76?h\s?R_5[qooK^+at1ggt+SR&;X,22Ju6okFyGC5911s.,G*9ADDN>]
U"=>m\R:v7)&9lF6=ZRG=1_l9[8:j_GWT[4d?r]%nH6JrdOr*5)tCbRY%'K1&_Zd_
U"(1rU:dUvcYJx(7C8Z?d_Vi%n#QFQ$O?1kyVrDS/462Uw,F<:2be(mt6#inL>$\/
U"WurgBlk7e$%IHGJKqvqfW>b6V83TfhuCNo$<1_PGmiqJ4)S4%0H(40k'S0];wGA
U"S]Wen1,=pM;hI/3u25SRh.d[mJM;Pab#1pLd#vTPJ12XI0,XDk'FrVsVCk6%W:z
U"Qm3yw(5yy\&)EXOg7\(Y^]qep3CweM;NL7lS<'3d<mJhxFTn$KNwUhE]cKsM)Qt
U"ni5apOIg4S4x>0gQgrr9E2uxkNQ>20$&c_M,sm'&rCV<l0ifVc]a,e[_H\16'nX
U"6:6^4_pR#&)FOg)y7QY2]n^)LKrLOS(-&7:qU:(A+HEg$A[eJ(L<jFc\_^\_*]L
U"NZtRMV=<^ZtPZ%$:=;9I73(#K+riHD&dPI+62F(Xg(F=.=2.Sl.b]tF#$6>t-+;
U"u9S5_C1D,k.H$KKgkr^Hx]n\+h&g:bHSd0nZ9XqRoD]-5pHIXJ1PiGcGUuCM?a/
U"hINq2J,><3LGlW&4J/BEKV;c6GDCBe1jpt0##[_xd3QyC?Y/\2tqplZajxtMDHx
U"_]?l=sDml.&x>;6.hD,-qpTQ;n\)O'nTe>lcUcR%D7PTAYTJ#\JvI&1C?/h8](X
U"P;^=H)*b0OL0d-pKpIYm?%HwjMYvv^iEi(.ST-l.&&N21Nt1)'fnS'r1nTH[]BB
U"-md?xXpBFP]h?wO?J+.-h>MnWS=zoLJ'A%:Dg5bJBQN9q:X__=7q?[X(D[h,-Z+
U"9Dn8$Q2f3UT$p1gq?:eB?xgs+aLwJC.^7DDdZp1]K4=7m$hRNc4.x*,mACrqMJ,
U"mTRYZo+<5&>O$0bbH0&XXdmqdU+KvxGVrT9s#O+d;DPh%'u#9aI3[.=rF^o&U,v
U">?gi][f*B(V'XR2v7_.hm_3\cFOKsBpMI;mN#b1+0aMckYeHgFeChEM#r]oh9,\
U")PfdWm$\4FB^3YUp#TKl^%J9:4zJTFVtK)QnC('d4if#p[NTmrxgKx/2CCseEzO
U"#T<w))d-MJO6Lk]T7Mbg^<m2T06a#Knuh#g31,bGTo[3/(k5:8-R[g>26e4t]MI
U"2NW:'^9>DoXVO(#^Dl'o*L,tnM#ISmT'Xe,D2-B.F8x=;86G?C;(vI*DyN*+T49
U"$9oqx'77=;HYn?W>J86-H3R,ysEK-CHYspOri'LauWgWgl48nxp\ptguFRTP<(+
U"4SC;g#BpfYNN8aGt;I(Yh%>lWj.H&4r?$]eT88G87J+DJM1WYFeBr/I+jaH7)AI
U":Uxz>kTF4&D3^OS8r%QtR8W[u]/V/mkK(;S:(DVYdu^*I]J._^_a2s-QmV*n>P3
U"#n)^00Y:cR&Q=70CYJTh*R1jiS:=(s5iF?>qt%=J4-$JnQBkIQMqPO71JKt,9Bu
U"n0+.%EY&(t+z_62:.,Qukzya<ByJBHCWM8.VqZF/2c8mV2rT=[^SYX*4.%pQ_X_
U"-iCjrhW9NxMj>q#++B'6b]pg_[?yq7q0YEHTOI<Unf\WhU5ywP&zZxa:Hc_#f4s
U"/+(;XY_CT:=S686pHhds#ZS-NQ=Fa7uciA287Enxe=^&kus:?X$ajF+6YFeiIM&
U"LF6J/pvf0I-*K^hH3P5cnb\t?tJQOl>ISk_7TdM.fR8x?IV-Ra$'af[mALos-IR
U"S;(^x;S0q7##&oz^pHfe[DJQA3\JZEl:[1]Bi0l9x(IU)WA551x3>q>=_RV#u7h
U"7i0DG7qZ+jw?<j0.$H,>]MlY=#*EG[0RAdp/HXaMfwUsm0>ZOv/w#:J-:r&eh)8
U"<f:)\ZH8/0NEqfaAoh5q\74M_/$JE\IIxTYSOiO/0-SzR=]s^lkWo)6s1d](psb
U"&9R=dp<23[nraNmXReHh/kAyUZRPHp?jew<&&f$n(&^?>FI3dZ&/<d6P<Cu&wl_
U"6tgChbB^1-_v9o%_&.YqOM;J&3XXu?ct+qk0JO0Uq+f3eqAem1%7#d^-?Bo%2MG
U")^?<-KM9?>=-%'Yrih8bSTvdG5fQ8tY(a^Urt(9c8o8270]ScCH$K*,YbGU+FAc
U"eEK?m._I\;\O9]1RLUZYhlQ^CL#&.sM,k,2D6/iGqwi<0?s/E\c66<]E[4'x&up
U"%()9%%%%-%*LJIR34''l&l)%%&#.%%%1%%%M?>;;M8=5>LSCGCML%,>BT[9L:<o
U"xe834.&'>f7Lj>3V'n8$%<_a=r)V1^-C1B#pmM\sq9ri^X2VssQ(#V-s;NbMkJu
U"G65Cl,O96BSmTI&KolWmuJ/ObXCOlIE'89_::m)4FXx_c#xIX.ufdw\Zw[&Iy45
U"dM6HE.>bIC,500qJ$T97:T;idg,Q7+LrDg=R(+0O>4Ikbu7k)qG/FHRU#i:zHo/
U">[V-OR,L_0>OZT^8U0kM-$__#zY&l;P?ms_H/C4F*$2lf-k7QrOEm_Et/<USdk,
U"emBt4dl%5=VUO<C%2^z;Gq(z(_Z-&)E*PD%6C0)3dy:1LkTm7<8OpVj/_HCl)W9
U"u/]P9ne^w,?%4_'pI?h:WqcMXBr>oY<ARV1xWKK;Na=d2.'(&is,f>Ae.#zJ.:6
U"m)[Q0mZ'w.C_pG'i)/P#a;IPAMk'R3K%XS)UG)5Ir#K3dqUFHN5:<J/O(\n_QT/
U"M&GFB.jt&C*^ZI:c2sW9>2d[9_Wj9p9<riDgeb5b2Q:FTy9A).z<]rHyQgqKhD6
U"rFIM4Q[SL1S8luFpAB1X8K4/fiW<2ZOeo')k.^+QX(UR]h,X)ih:l[JNYJ:oW08
U")%dEkZHv=H[+60mNSO=87mK&-#/i;GtK1eX:LfLikw[%#V+OY-tiYpchZ\.O1o&
U"]1h*><$^%nzVnyR7^:>i6o/9l[XJA5D)PW,QJ9\AR:/V+m)XtgN_MyVFmsBs(pc
U"U_gHi=QV>-,:-L7f-Ut?]uk,fEmmfX,3q%>olveE*g<#CG*Dm9A2[nA9zb2Uhg,
U"fGD&49$s%h%JOos8BkmAD)C,)],j(4J'35ZlBfR707C\IM1Zd^?dAawQH#A]sXE
U"l\eBJqa?5F#']%2N91Ta^bt;'KZ>JLyuI9,q7]Lu-',gj7v4QLVfGTgI/GT_+Tp
U"=^Wes,f[LcWPY,tE1r7(kZlt1N(dzY^Zmj.8Y0/''V$YgUVLGYBla$ZB*R8R)_=
U"wG^+ML4#o8lMi$3^2P^*N*AX4t/>S<xol=*>CN0lup31+YdreoBhlO>K^uRrx]9
U"1v?_Us#L0_RGsiJh+2DI:8K%f^HTYj^D,9l=eTG*,D11m;6*Zo<SK;/vVUHYU8?
U"CM>?3?VU:gW15NlX.X[LlJe$*e9]]#Lca$)MhBPz2u>j24aM_PHUS_kLfCx2L1I
U"<2OjADk^HOgSZSza4kZ)*;8*VT.F)J]1lZZWTVR-nriWZ+,G.X=8yXHngya=(a4
U"Ogan<.T?8+i*#eFNuN1NmWv3tNWu]?WI9eWT1$%ZcS>78sT?d^<chGdg^m7lO]?
U"BNk-.KIVpJLy;,\l;Y3a[sE#t8F'uGrw3SdMMg)TABqL#1.ERD/D5W$3+E9Z0Np
U"_,j)#\a<?sXN*MH5l=?Z$#0dUa::_+Z#WA;rY\ld?[%3M9M<$lSTgdC<*#w3[G8
U"BYZ8iZuCqd#R+WseNX=%tG<kQXOX7H/i?nsK%WC;&crc5S]PLL)l:F-v3,y<h,z
U"<=L5bly3t\_ex%'up(%)/%%%%%%P'0HRO.TvqN%%%%N%%%%1%%%%u%tqqx%yfyS
U"(y'yfJKo>7D=Kh0MAC4A&KVWX%YZ[\.QVKxM<HA=)0KZZ%ZRWY%^^2/%up()%9%
U"%%#-%;pmaH=E,?HM%%%%N%%%%1%%%%gf%spkn%qjSy\'yxkZCHAz&#sQO%nR'v]
U"r^Z:E2djHnXZ__a+3K?,53kK_eeo5&+%up%&'9%%9%%%#-%TndHDqj.+in'.%%k
U"*%%%0%%%%%%%%%&%R%%/P%%%%%%uwtr%uyxS(y'yu%p&'9%%9%%%%-%;-&UAHqw
U"guE[2%%S%O%%-%%%%%%%%%&[%%%/,PA'%%%utq%qSgf%xup&%'9%9%%%%-4%LJI
U"OR4''(ll)%(%#.%%%1%%%%%%%%%&%Ej%/P3#5%%?M>;;82=5>S2CGCu%p&'9%%/
U"%%%%%%P'0HRO.TvqN%%%%N%%%%1%%%%%%%%%&[%E%/)PP:%%%utq%qxyf#ySy'%
U"yup&%'9%9%%%%-.%;paXH=E?'HM%%%%N%%%%1%%%%%%%%%&%%j%/PM%:%%g%fsp
U"k%nqjS(y'yu%p*+%%%%%*%%*%B%&%%K%;%%%%%
END SUB
CLOSE:IF S=219AND B&=5977THEN?" :) 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\5977,219);:END SUB
'>>> Page 1 of POLLER.ZIP ends here. Last page. TCHK:219
