egv@aicchi.UUCP (Vann) (08/31/86)
Got a nasty letter about my re-posting of this application. It seems that the version I uploaded had no identifying prose and was in MSBasic 2.1 compressed mode. I could NOT be read from a simple text editor. My mistake, this version is in pure text mode. Run Packit ][ over it once you have Binhexed it. Hope you Basic dabblers will like it, but as you well know MSBasic 2.1's I/O handling is SLOWWWWWWWWWWWWWWW! (This file must be converted with BinHex 4.0) :#P"KBfY*G#j`DA3!8%P8)&"*9#!!N!3F%J#3"()98%eK0")"9,F8P3LGfZlh)ZP T*GE%NSB*e-8XZYP"08hRPYUDM+2CLch#T#Q@'LLN%dNGi@1HUHQ935S3dXP9TT6 VQ!VX"3a@DfU0k6i5Hi[0T#qbCdI2@+*-!ADmS"9lH,%$m59'[)I[3-e$Tc-dV6C 1#YCY![()KD&@PXT5LJp*h#A-E8DLY(NK1EMT0aH3!rX%Vm@3"Y*A,aGI(XR&aG* 1NI&rX$epaG)Z,VZ,N!0JZ*!$YJZ,N!1q,rT$dJiZ)KZb4QT+LVB(B(LiN!14E(q ,N!5[6GMfahVhBjXEf!f0HVYc!!UUN!f`Zh-!#X,Yc!!S!"`Pc'e'SV4j)6Qi!*! +)9!2dDa(UB%25pGeX,Yc!!V#lF`!+!!ISbe[1U8!!'e'SV3Ci5(A**L5604mD52 #A2dFUiC*i3VQR8R$Kc#lF`!+`Zh-!#J!#K+e'BJ!N!3$4P4519F+jTe)-j(3NC% DLY6N1($Q&fjJ!9KGZB!&!!"qAbk6VUJ!N!1k@FJ0*'TT+`kNG(#BR81Z5H"*CJ- j(K,QF1(-,Yc!!S!!N!J#dXdN`FUk[UN`'NM`Pc"R2*`iF$mXdN`-R6Sk1%a1S0* (kNq8+BAEQ!"3!*!*09`Yjee0k$U83j-m*,+jZU3kj*i%PQ!cN!#e*C[13I(26Q& fjJ!9KGZB!&!!2)c&U-a!!*!$!VQR8Jh8C$G9TeRK6N$*J8$i(658kKDNX,@9L39 c62!b-Q*`Zh-!#J#3#3b6N!!BDST'TM+LYe1($JIXV%kKNY)*4U23NY13!$1S+k6 TdiF1BAEQ!"3!N!N++,+a2'@DBNX&#J0e$1ZU046N1($Q&fjJ!9KGZB!&!!ISc2( *D!!"TCVS+bH9GA,6`MbC**`Zh-!#J!#3"J2b@6[$UCU#K*L5b@6$H5@6S2mPV6Q &fjJ!8!#3"h@8'iiqHFLZDNlN'dXhJ5L#P'DBN!$PkHqq&fjJ!8!!N!HPeiC4U23 M,@)J8B(@h3p+S-,Yc!!V#lF`!+!!N!IlTSAhSklVRhQj1XSA6`Zh-!#X,Yc!!UU 3$DaKGZB!&9@3$@&fjJ!8!"j-PQXp"e1SfTG(@5dj$K`i!"qG1KNY)b*9c58j!Cb 1K)0*-5X5AUF1(-,Yc!!UUT!0aM8aNXa"J!$De88d)$2RX2!!#XmTbP3+%QQH6*H Z!!-,Yc!!UT!0U`Zh-!#J!#%CC)fQXRH9JE`**-'E*,+a*BH*$*13!#cNcN&69BT TKGZB!&@3$S`!!pS'VV[,K@H)H$5beq8CKT+F!!C[C9,3mU9B!!cETP$fQ!!0T6p Kj@$fQ!!&CiKi&59KT1-,Yc!!UT!0U`Zh-!#J!#K*TKV*dhBD4`-PQXp"e1T`iF` Zh-!#UT!0V'#K*TRNbAUJ`!!rC@*icFKRKhd[@`!"SM8Al+a1SGMI!!'L04B0*6U (Bh`!!i5jX**$XEi!!reG-**$XEi!!2q'5q-h)Ci$X14bB!!IXV%l8V62!GK32X! !&A#BPjA9p8Q181a[J!$M0*bFPFMPDl8'q!!1-dR*b9f%UjMY$[[J!$M0*bFPGFe Ci-Gp03Ei!!ic5FR*A+Z6$19&hdppm!!0,,HG1NCDFJGMI!!$5bmdkkXV%RRIE5b q5d(Q'PPmPMDNa,Sa16[!!'ddYmr,*-2"f1f(j#&"Y+,Y2NGi!!fQP[P4Te*i1af i5jl8DLY1(G61m!!2f9LGV*L6c[Eq3dpJ!"qbX53DST21b#QE6f!!&5Sml2Z&chb &plJ!"K8HGRh#jlj$[lJ!"UNqHGRh#jljmSAZ!!2eUdlSSRRIEKZb0ZA0q2*#Fhl `!!9(@55Y3llRRIB!N#A[!!$H9I01ZV+a*i1afdR*jmUrQVQR8K*2+-Na*DFK`iF l`!!ZdM+[TJ!$#lF`!+U3$DX,Yc!!S!!rbST(K*D3!&I`NN,5c56%PMNX+jTe)(+ -aDM-"ZSb*e0,6N1($Q&fjJ!99C!0B`mM-@Sc&4Te+$!!#XmTbP3+%QQ+6#m!!0, ,c6VUbX5HGpY,,j,3HB+QFJIXQH"SbSTl`!!9r"VV`HGK88BDT2I)8AC$GNM[h!! ++J9r"VV`H$XGpJK`h3,Y)bVkB!!D@AQRA9PBNmllD@Ab@Jm`U01T$be*)9-QR8C DHm!"jqh3GP1d6P3SL[i0GH$b*bEp,eX!"jqh3G[GSR+q4E8m"VT*j%j0qPkf!!' PPjTeeC@*21qfPPmPS2-2bc56%PKTCI*IH!!rA+D%"b[N3DT2RLX2Z&chh@kAdV' U6jiV$lKFppeP"lJ!+cbR+9"q@Bi5cN5AJ!&@8JKl32N@k!UbN!"$fJkD,I'&fjJ !9C!1KGZB!&!!,TCb"A01T$*13,5c56!PPei"ddP*`iF`Zh-!#UU3$E'!!'PPjTe eC@*21qfPPmPS2-+M6U3ZPR)&6*Te'@R[!!ih"4KSdH)$APAb(h$(2+e3N!"J!!! $DDbGj@0i%NQ1pT6pKj@qhp`!N!-89$DDbGj@0i%NQ"3pL#%%1'k"@H)H"8@b5km )F!#3!pi%NQ%F+e,[D8rBH9[N2Z!!N!1LS0i%NQ%F+e,Y##($G!V2%2!Ip(*CQ#S YNPei3S-!N!-(rf'!3hC)9IRfrEqS$rl$!cHmQN2I2YdAAEqS(kj63M[M,0-0*@" 8DG5F1(1bXfTi$A56b!rq``#'l*!!Ur2Yqhp3(rf'"Qpj0)HqIESN1qrU"qZ8d)( C9`Q*e"A,0--55Jmaf9LNKFpm9F*LAPGAe5BjIF!!!!1[$*Ci1`8dIj5$hb&%j82 Z!*!$#LS-0dqF0f6hhkNrmkm-PR[II3SBI!K`h3+cbR+9"qcNF*Fe*KCT+`0B8Y# XmTbP3F*Fe*KCT+c!!!!$K,Q`NN1`i5jX**(8(f!!N!1LSII1%ZE#54QpY$Np$XE qJK`h3+cbR+9!S6UNX`U1XNPEJ!!!!SU(kNrmkm-PR[3SBkEi2,Mp5IqGH'5chSf ))Ah@"$KZJ9RP18U'R*,mXdNaRS1T$@&,3V2+FT8(jCT*M23G6J#3!cr9d`NN1ar UkB551S)F!*!$&&3F*Ff%NKf$rKN[M0b'H!3iES&Cj6P+JI1mkTF*Fd#XmTbP3+% QQ+6#m!#3!e&3d4U,"T+G3l$pPBRDPDCi"$KZJ9RP18U$mXa`PR)N[!!ifkEFBAE Q!"99N!eKGZB!&!!2bc56!ej8&&1ZV+a)C*b"dGje51MNc`&FdkR8iF1BAEQ!"9@ 3$9M(r4b@BJ`!&Cj6P+JI1mkTF*Fm!"qZ8d)FVj%'mUqDGG@9L6a@+P4l!!2X2+@ KbSF!!q`mTD(+q`!&Cj6P+J8*0-mQ5pF!"GT'9I6'&fjJ!9@3$9BAEQ!"3!'dh9D GCi4QNP'(AMNedR8+r*B4kT,1($Q&fjJ!9C!1M!fQkV6V2$QNP'J`!"aP00Vh'%+ ,Y`Pc'e'SV4j)6QrD,lM0*bFPGK+ZBLic5FR*A)j@qqIh'D6Nj+kjUc`BLic5FR* A+Z6$19(e%q`ZPDbD5CQNP'J`!"aP00Vh'(XT$r+3!"$J!!q`T`!!IrBB"$GNK8p S4p[k%!2rX-!KZb3T+GH0q3[[F!!(rf'"Qpj0)H(hAESRfrS3!rq``#'l*'Efe[f rU!rq``#'l*!!Ur2YqFRZ!!(kj63MY`Pc'e'SV4j)6QrB3(rf'!3hC)9IRfrEqi! !2rX-$0lbD3pmqh4+$Ie!rA+D%GRcTVSV3D5158MPA"RK)k1A01Sk%RH5ZJl`!!8 9"TCEcTdM,6N$[F%1'k!rq``-h[*T$hclG%Khhp3(rf'!3hC)9IRfr+%qp32ebQK (H`NCTRC@"!IrBB"$GNK9qIEp[k%$pFTS4f2-,Y)bVk+3!'FK8D6N5AhJ!!SU$5b hR6T'@R)(Bh"$KZJ2rX-$0lbD3pmqh4)AfrS3(rf'!3hC)9IRfr+%qp32ebQK(DS dkRXV%"rpKJ%0f5&Ajp[frU"qZ8d)l(Q(XT!!rbN!cN+M6UH`eK5d(rf'"Qpj0)H qIESN,Nhp#!rq``#'l*!!Ur2Yq8*pkJIVP0#1edkSe&2C@)$rl$!)EXN+[clIYr8 $pFTS4f2-0AAHA(,TdM,6Nl`!!89"TCEcTdM,6N$XEJK`h3(rf'"Qpj0)HqIESN, Nhp3(rf'!3hC)9IRfr+%qp32ebQK(EmXdNcXV!J2rX-!KZb3Ur2Yqhp3"qZ8d)l( Q(XT$r+3$13r,0*-5AhJ!!SU$5bhR6T'@R)(Bh"$KZJ+XT"$fJ3SN+,[B5-dcY&m q8#*mqhpmrZZh42R*[kL3!)D`TD#V+33pS$l$bPS3i!!++JdXYjdk4PTb"f0`3iE S#V+3!%2D"mL#&&fU01Tl4I)Gpd6jp[ljr)9"ZLI16Ie%K$@&,39C5#(Y!q4"#Ll A6UM88pS[N!$[ZLI2YrI2j#S0d6jbEqSN1!!#LS0,,HG1NCDFJGMF%1'k!UbN%2D $TSN+,Yq@D5CfLq3U%S%6jp[ljr2RbJ42R*[kL3KV#PS+XT!!3pS$l$bPSkH&fNC 9p-BAEQ!"9C!09KGZB!&!!089TR#0TV*hPB0M+0+0)`Zh-!#UN!fV'&4e(VifQXR H9Q`ND8D8'!!10`8BD0T6pKj@qhp82BYm!!FEG0Z!!&fNC9p-BAEQ!"99N!eKGZB !&!!&#G8PQDMS1XNPEU1K*KA5NN1Z6U04*e(+Z&IP'@2#A-G(#BR8iF1BAEQ!"9@ 3$9M"3R9*CK8GC*+e"J!"`Pc8Q&QNV$`GK`Pc8Q&QNV$`kKf1m!!,Y)bVkB`Zh-! #UT!0V#lF`!+!!+NCTh)'5FJ@Xj!!H%ZBe-,0*@DJVQQH!G5cN!$59Jf'N[P1T`i F`Zh-!#UUN!h'(l14`Pc8Q&QNV%'!!(#A05B@D5X2"f(#A05B@D5X2$U(HrI8($G NppqT2r1[$*Clhh!!#l5-UqQ!!-,Yc!!UUT!0`Zh-!#J!#T'DGb$`Pc'TKCT+c8& I`Dkm$*b6XB-"+8j!YCbC$59J+jTRJ(8Xj$59Jf'N[P1T`iF`Zh-!#UU3$E'(#A0 5B@D5X3B!$K,QT-,0*@(Jl$K,QT-,0*@(Ke"`hC2IIU6rcV`b@Hpp`!&fNC9p-!! BAEQ!"9@3$9KGZB!&!!&#G8PQ$p5I+&!VmPJRNRc@PQNQ-p"e)GH'5fA4L5p3D5' GA4TSe-,0*@DR$Kc#lF`!+UU3$FBdj*IPQNQ-p"e+$!!(qVT5B@D5X2"f2pA5N`X dPBH(81cRH!!&fNC9p-!!BAEQ!"99N!eKGZB!&!!&#G8PQ"D@D5Bcd(8KeiC,CG' *,e"T)CeG'QM8`XdPCUF1(-,Yc!!UUT!0aKq@D5Bcd(8S-!!IkZP*KCT+`m(BreG +6#c59KiG3GH'5cf!!&fNC9p-!!BAEQ!"9C!09KGZB!&!!,5c56!G0*519FH%ZBC *b"R9dDD-M*M)-5@SQNXQ*b!VQQH"hX"fF1(-,Yc!!UU3$DaJqGje5i5jS-!!&&3 BETmi5jU6#c59Kld+'1YeJ3iES(#A05B@D5X2"f(#A05B@D5X2G6$94"liU1XNPD Khh2)ZYe[0KZRcK,QT-,0*@([IF!!&&3BETprUk8Q&QNV$hS8-2ZQ#($G"rUk8Q& QNV$`GMr9dT-,0*@(ZTKUSJpm9(@55Y3llRN6lTqE$G2[pA5N`XdPBHpp`!!rA+D %"b[N3F*Fe*KCT+`m1SGMXG3reG+6#c59KiG3lf!l`!!ZdM+[TJ!$#lF`!+U3$DX ,Yc!!S!"q@D5B&V+a)m*Cb*,$*13'QDJdPAj,8@6$H56K`jKGZB!&9C!0@-2bc(# @FL5d'!!0%DL`D5R9hZJd4U,pPBR9hSM8Al+a1[8K`!!89$4'S[f9LG3SHa"##($ G!rA+D%19mL9+Mf!!(#@FL5cc[pDY1k+*lUBDU)2I&4eNNV81qjj%rC@*icFKRMc qBETpqY@RG&%ple-0dq+rJeei2Hp6$G2Ze4Te+!GqqMhUl9'R8S"he&I`Dkm(X!! 2ebQK$PI)R#@FL5cf!!(#@FL5cc[YqbX5(,he+5&chfL04IXV%kqp6$94"liU1XN PDKhh2)Rl+a2'EN-mHIc$G2Zhl+a)F[I[8`h6j53ZHqd4U,pPBRAhhUBETmrC@*f XQ*2Hp6$G2Rl+a*!!DST2Hp6$G2Z`"hlk2HTqbX6YC-5HkZ`"he2f9L5$9&*l!!$ pFTS3jAb*`PR)NXpJ!"qZ8d)FVj%`U2&B`U2&B`U2B!!AD4PAdaKGZB!&9C!0@&f jJ!8!!8*0-0C1Ql$506#c59QS-j(3N!#2913'FMS4QRFJ1QNT(+Z&TCT*R+-`iF1 BAEQ!"9@3$9M"3Nda5B@J`!"SM8@$58kKf0%DL`D5R8G33i!!+Z%a,bZVkT-FSGJ Ui6%[+k[UNabMU(qVTK*1!!(#A05B@D5X2"f''UL$ha8GC*+e$[ZH4$V[0KZRcKZ bHq+Z%a,bZVkT-F[[[[8iEXR[LVK-5mVUqU6(,leGS!1m!!IkZP*KCT+`m(Blf$p i!!F*Ff%NKf0m!!IkZQ%NKf0m!!,Y)bVkB`Zh-!#UN!fV#lF`!+!!EUBcd(6GI!d 59aQNP(UF1(-,Yc!!UT!0UaK5Nc+Yc55Me3B!!cETP#J4ESN+,[[!!'EG-SFL,G% K4Gpi!!cETP(64ESN+,[[!!'EG-SI)Yd5&&hhJ!$!!'EG-S3SYd5&&fi5G@K5k,5 NR[!!'EG-S3SN+*!!SZpTZUdkc`pi!!AD4PAd`!"KGZB!&9@3$@&fjJ!8!"Y0e@R @H%1%R9S8ZLdT*1($Q&fjJ!99N!eBaYe@Z%R9UPd@5J`!"aP00Vh'$l$bPS3i!!i bQQelM$j&fi5jMDM89SmN*cIY&mj0d5JhpmrR)S0dA6hhp42X!!FC66DpaKl+3rb N"pJ!!q`T`!!IrBB"$GNK8pS4p[k%!2rX-!KZb3T+GH0q3[[F!!(rf'"Qpj0)H(b (VESRfrS3!rq``#'l*'Efe[frU!rq``#'l*!!Ur2YqFRZ!!(kj63MY`NkY#Pd@P* 2B3(rf'!3hC)9IRfrEqi!!2rX-$0lbD3pmqh4+$Ie!rA+D%GRcTVSV3D51MPc(3N lb9`Cb(A**KT+0+$[!!"rpKJC[H65([R*ZLkAIe!IrBB"$GNK9qIEmS6le!rA+D% G[ebQK!maf9Q!!$rl$!)EXN+[clIYr8"rpKJC[H65([N+(G&dZrU"qZ8d)(C44C@ *ibc6%PJS81($Lk@GH5@HJl`KACe-1($RH!!$rl$!cHmQN!$hcNh4)81rU!rq``# 'l*!!Ur2Yq8*pkJIVP0#1e44KSmahJ!!rq``#'l*#VmqhlIe!IrBB'EhNdKlj#Kh 4)81rU"qZ8d)(DZDG502mfK`Pc'e'SV6Kh8`iF1Gi!!2rX-!KZb3Ur2Yqhp3(rf' "Qpj0)Hq3!+(G%KkHrU"qZ8d)l)m'kJaNV8kKAj,6`*,1($RNN[K'ThNVR$Kc[!! "rpKJC[H65([R*ZL3!+Jhp3(rf'!3hC)9IRfr+%qp32ebQK(H`XT3JHBl+c!!"rp KJ%0f5&Ajp[frU!rq``-h[*T$hb&$ZL3U$Ie!rA+D%GVT-4PNkMKj4JKi'H%K8D6 N5@F1(1m!!&@8JKl3)85&&fZR9'STl4I)9#8#*mqhpmrRcNh42R*[kL3iBjj@U"" J!$DDbGj@0i%NQ1pT6pKj@qhp`!!89$DDbGj@0i%NQ"3pL#%%1'k"@H)H$(2+e3B !!E`**-)i9UAHdTq`mVI)IF!!&&3E`**-)i9U9$f*##($G!V2%2!-FmV9"J!$M+D EAZ-(f(P,3q`!"Qh6,J!"@H8j5SE6G9TeRKc55M`!!ZdM+[TM#lF`!+U3$DX,Yc! !S!"`NY)k%V$5G3SXQNJlcbY1($Q&fjJ!9C!1M"8PBD5J`!!V2+FT8&4e(VifQXR H9Q`ND8DF!!+cbR+9$DEUY1Xm1D58H!!&Cj6P+JT5CP@jT*4kiaQbD5hJ55BacbY 3B!!fQXRH9MH"**M[D8rBH9[YrF!!&&3fQXRH9MH"**J82BN))F0d#Xm3m($*13k R0*+2!!$H"**K(#Y5lfP2f(PEj$lJ!!SU$H"**K(#Y5l3JK`h3+ca$`$#@H"1!!# LS0i%NQ%F+e,Ym#($G"Y6`'ZNRRHddYmU01T2"!V2+FT8(NCLe'BU01T#"@H8j5S ,T@XQNQCT*4i!!++JhJ55B4`V8ZqQ#($G"Y6`'ZNRRHddYmr,*-2"!V2+FT8(NCL e'BU01T!!J9RP18U#k9V*T*QD58H!!&fjJSU$H"**K(#Y5lkB)F0d$pPBRDPDCiG U""Y6`'ZNRRHddYmTG&NRN!!V2+FT8(NCLe'BU01T3+ca$`e-C,-`iC*b(8jT*4S -!!CT*4k)e(S5@lcETPqhp`!!89$0*+24'Sp#5`SHa"##($G!V2%2$0NdP[!NNaM RPEJ!$0*+-SBP4GjYdbr)IF!!&&3c55M+'*83l#%%1'k"@H8j5SEG9VK*eDTG&Ni !!9RL(KQbD5hJ55BacbYaKGZB!&@3$SAEQ!"3!#P*13)p8PMSCG&D$13U0*b*,1( $Q&fjJ!99N!eB``PRJ5J`!"Qh6+&fU@NB!!8l"P*$Fm!!0dfi`dXYIP'BD5P"J!" TCEcTdM,6N!!l#(!!#XmTbP3A5YC0*-c55M`acbYI)-!!(rf'!3hC)9IRfrGC3HS $rl$!cHmQN!$hclG%Khhp32ebQK!D@AQRA9PBNpJ!!rq``#'l*#Vmqhj3RhU!rq` `-h[*T$hclG%Khhp32ebQK!D@AQRA9PBNpJ!$DDbGj@0i%NQ1pT6pKj@qhp`!!89 $DDbGj@0i%NQ"3pL#%%1'k"@H)H$(2+epJ!"[!NN`MK@TGl5Rl$bYmKp`!!89"[! NN`MK@TG[J3iES'PP[1R5-Y13!$XES!V2+FT8&dV@656-dNSd#l91A0ScC0*E`** -Bjj@i!!9RL(JacbYIBkrD&"&EQ5d@`!!!: -- Eric Geoffrey Vann Analysts International (Chicago Branch) (312) 882-4673 ..!ihnp4!aicchi!egv