[comp.binaries.ibm.pc] v11i171: locate, cmd line cursor position

ibmbin-request@crdgw1.crd.ge.com (04/14/91)

Checksum: 1535040065  (Verify with "brik -cv")
Posting-number: Volume 11, Issue 171
Submitted-by: snow@drycas.bitnet (Ken Snow)
Archive-name: locate/part01


Submitter awhite@eniac.seas.upenn.edu (Andrew White) says:

LOCATE.ZOO is an archive which contains Turbo Pascal 5.5 source,
an EXEcutable file, a demo BATch file, and documentation.  This
is version 1.0 (beta-test).

LOCATE is a simple utility which places the cursor at x and y
coordinates passed on the command line (see documentation).  Please
mail suggestions for improvements / bugs to me at:

awhite@eniac.seas.upenn.edu



[
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   58845         8749      part01

checksum     size (bytes)  file
   54778         6328      locate.zoo

-- bill
]

locate part01/01
BEGIN--cut here--cut here
begin 644 locate.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``%_&```.0`!W*?$
M_0(!H1$``'$```!I%C5U8:R@$@``,!$```$```````````!L;V-A=&4N97AE
M`!<G"@!_W-T`````````````0"DC*```FV@!!4`!`!8`&@`P0<`$J2$!```!
M`$`510`<+K:Z*.NBKXO8+G:[*.XBNXOQ+@Z(""`"RPPL3;!<P1(&2R$LC[!D
MPI(*RS$LV[#\PS(12U(L4['<Q3(92V<LI['<QG(>2WPL%0B@B&$K@`Y>17A]
MX=6&5R!>+P`H`4#%6@`R`K"->`C`R+KA#-2]".`%DR=#@E`I`L).#!<P0*`8
MDP)$C!PY8H`0DP=$$#=DY)2Y`T*)"Q!7T*2A4T8'B'`M2,^A<Z#.G#!G2H,@
M``(+B"R)0>C>?0=-&<VU083!?%LX<#J^08RI(V?.&SG*WSPGD\9-&-4N.A21
M(N6)%--)W-@)PR8-F>!CI,NA;IVT:>W<O8,73]Y\\?33JU^7K8EBW?YO59%(
M.8&<%(`FXB!05P];\3%`.HX`\`L6`7APQ2\4.7!%#,!`H0DM!_QW0X@`:.*`
M`'5-6.$5FHSXWXDI4FCA+S``H"&''H)85R,?_6/!AAUJ,HF"`.#X(8F_X&`C
MD#F2V**3,$HHXX4]+&FDCB6Z6&*4N$2D24@[]OACEP!X.&2*0@!@H2:Z#%#7
M*#X`P",`/EZ!RU9F$OE+FFNV^>9$@_@09P!\'!!HG%#X$82*:VII(HI2KOB+
M&U8&B64H<68B!11&*D'DDR]"2N:7`-05Z$2$&NK#1!GXD0.C+#H:):R_,%)I
MDW6%,I&FG`;IJ8A00@H*HJ!,Y&$%`K#%(:EU)<).%\N"R=>TU`I8#CIN3:CF
M%0Z@\\$`VJZY!0$QKM@M`^!.J0D8Y`+@;!?+T/(`.M,4P,,!="C`PP!V&(#+
M``"@8T7`H0!`"P(R_(/.+@4H0@P)?XA"!0"B*`'`#,"(4@3%55`\,!"B$`$`
M+A,Y`LPO;"RD2`$FZ%``'?N8L'(N_RC\@P"XW`!`)/=`,X,T]\0S"A1J.O"!
M+B\$@,L&)303P@?#Z%*R,"8`8D)=_MQ+AP$\$""'`+`,``4M`5-1`!8*D$-'
M"[A($,$L`1]1`"XP1'`+`!VATT,!@.BC0AT65.U`74H#$$`N`!B`3@H%T"+!
M+""@(T(!P\B+#@<%0$&WW7@'','9L10D31T(R(+!OG<($$L`BLBC"#7^*$,V
M(/Y@8(<`M`0P"A+N6B`%`(@X<`0`QAA@A.$8C\)$[TX`,`P4'N`"DR/8`.*#
MR`#044#Q`P?P`1;/6#\P`'4$,`SW%.7>C`5;D[W^.O3`X@4Z&`P`RQ#H3#``
M.@D,T,P(B^"&#19Q!`*@8P0*<\,_0#&QB@%`&5L)H`T4<04%3/`.")C@$PPP
MP3<00`?1N,,)=%"/.XP@=GCX@#^<@8<-^",9.G#`[^XP`7\T0P<NF`(`[K"`
M1%A@>8EP0//T-@!E(&!DB5.$#RRV"`<L;Q$6&"(-"`#%Y:$C!`-8!CHL,`!<
M)'&)`%B$,A01Q8!E@`#+Z-(!UM'%`!@`"NC(AP"PH$2+*<*)`%"$.Z#8/!VX
MHPX"D`$PT$&/+$J0@AQ4Q!T($#L!_!``<KB`#LIXAPBL4``V:`(D$Z`#&SQA
MA_OSA0"408"`Q4(`BA"&"@RP/'\`0XNE0*4Q5JE)5R[CD`5$!3SH0``2/(`!
M@+":Q>"```-8#()A%*`B"DB"`\2"`-(`AS`!\(AB'G,KT[S',@#A`(LA8!D,
MI)C%;BG`15R!``N0!ATF,(-_..(8,BO`(CQ`M$5HT0``4$(=\(',EA4`D.+(
MQS`DN(@O$``7W:"!+B0`@!U,8PX:N,<\%H$-<H0!%0,@';K,$098V,(<0U#$
M,,PA!$4<@Z3(M"@)^,'1;?J@8^1#@/HL`(OL@2T`X.Q8\6"J`&#400(R(,?Z
M>EH'!2#"!!U+&R##1C]_D-,#-BC&'PAPC"*`[1I5)0`@Y%2(K2:B"`Q@1!<<
M4%4(9&$`C&B"!(Q1A!I]@)3)A*I4#QJ)`>S"@_8,1!]4=XU\554`LK@&+GQ`
M16Q\E0)IM4`BNH"!M&H@$4W@0%H]@+&WEK(*BV`',?Q@`!,LH@H$4((2/$LZ
M$Q"C#PR8P39VFB%T<.$?N8@(#Q!`!QKP8`)T@$'7Z$"$)/!@`W0X`0\"0(<1
M\,``=+@!#S1`!R/PH`%T>`(/0""'9^Q`&W18A@D0$0#\8:*AWK`#,!8QCW7P
M8@';H`,N8($`=-0%%I$3!`#8BXX^`&`)XE#'.DBQ`V_0`10R"\!TY9`)=*@!
M`$,0QSO6$0GK;2Q[BMAN=]>A`'0TSP3'"$`#%#"$(6S6`!@SP5<1(.(N**`+
M<)4@,:;JV2:0.`4N'D<&3(M:ZQV/?`N(Y^4`<`1QW(.-Z.!$P+;!#XS!U<BE
MA$4#T+$56"A@"E&0PAO1(0<`8$%K*ICMVIY+AQGP0`%TJ`$M$J`(#U@L8;$%
M@!30488`:,$?PIAD\^P``C(N;QT7H$6WHA"`=4Q@DLNC0P-BMPXR/Q+(1T1'
M"P!P`"UD80O#\(<Q.OE).V!@A5'ND@'J&$8\\C%@%G!S%BHW@(2E@P$!H$4@
M_Y&.`E2(9`"@'A2)]H%%:&,1]XBGUD*@919\.<Q<SL$1X"QG`-B!!^AX0\!`
M\0\[`V`=+$#'&`"0Z0-T:Q@`</0Z.(".B0$Z>S54QCKF-3QTX.$?ZS@`.GZ0
MQT<>`=>V%H<IT!$#-<&:>CXDFB*,80\3G-D>`Q#&(I`!Q6G#P@'N6$<>BR&$
MA.<3%@]PN"*"T7"H[>`>=!A#E*_@`0,LXADK<`89AZ<(&UCLWM@P:;_/_(\!
M#",:X%@$/FQ=<``,0AC^&IGUDL!H0-("%@;X@,GXH8#T6H`5BL`&.U`1@#KL
M0Q]+)^X^%C&,5>Q#'.Q8QZ;/P8I5B(,?!_C`%QP]#"M<H0H&:`8$#M"%+W@!
MV]2BEBZFIPU&&$`&%VO'(HA1@`D`X)G30`<CI!'P41AD%`P`P``,4,I1.```
MH\``Y#-B@E!L9=$0&`4(I"0`7W3C<`R%!#]<P`I:U,!IB>@`(ZPZB&,00!SP
M\(#1=.$,)#8M!+JHQLA&<'M==&)D).B],4;V@]M_`!=84!/T-&<``3@`"MTZ
MPP"Z-8TNRFCYN&C^\[LUA>FC@QA9W,<@B&$`+`SB'!\(Q#$L`0!`\",'<P!7
MS:Y`"RHX+;.`<$*HL;"%+&C!"U_0!1]P`,^`"]!@<^3'1KB`#`#P:.F&"_]P
M,<F@6G,7`(Z@#?LP"@BQ",&P`,-`!Q\0"A````L`#'00`29C`CO@`2.X-95'
M`<_6#HPP#"O@`7@W".L``4'D`N[B`35"#!Z``@#`",#@@>N4/$(X"FXQ"C8P
M,A(0`,]G`%.01LE'3]WB(,A7(="'#O$W(9WW>;D0>J-7>B7@`<50`4[S`:WW
M>O$0"CRX``90(W20`KOP#@&`+0`0"@B!#GBW"_YPAQZ0AS6"#A,!"SJ`#AWC
MA@%3`P"P"P,@`.AP`'F($+3`!$[C`HIP`#VU->B@)$.P#O,P#+%`!I'X=Q6V
M%>M``$%E#_%``#``1X%(1\3P/`Z##A&!!5#P3-*`#N@`,%C@2Z[(`SKP-01P
M`(H`#;20=B&`;0*P`2-``C10`S9P`SB0`SJP`SS0`S[P`W4@!77@!G20!FU0
M!B#P&W+P')LG''2P>2ZP81<##(?`00"P#('2A.2#4Z'0A.E0"_ZP"/1@`XY`
M!`*@@E4@`']P`'Q``2I8`'+P``1I`'R```>I@D5``'>`4[B0#`"0#HW0C_2P
M`O`@!PT0".X```(@!P>P`S9``Y"$D<JPD73@#U?`#Q253GW0`/<P#?<@#8,P
M#`$P"-(P7RV@"K[P"JJ3`"ZP`U1PD@=P!PR0E!PP!X9B#(R4#'7`#OX0#+#P
M`J[D`BO``2ZP`4LY!_7@`@,`EA.PE(-`E:KP0G5`#A_W!2OP#-BF#)JP`P`0
M#O7`-Y;P74`@!`\``*!@"!$!`2=`$;U($61P$09!$2SQCC\S`_8P#EE0-3VP
M`JQAF2U0!P5@!$>0!..`!)9)`KPE,QT`".N@`X`P#`HP!RAP#\(``/!0!S$P
M!3`7#=*P*;<I#;NY!2ZW!1,P#5N0,"X'E`"`!Q+08\W@!$75,SOI:C87E/@P
M#`+UF>.@#Z8)"/L0!G(P`*@)`JBIFJPI!PN`FA>PF@8P!]"PF@IP"P2PFW(`
M.\]0!_:@`,/08]&P#KJ`6>PP".P``HM@!`ZP"%8``8W@!^!@`>JF#?[@`;AF
M`1^P60A`H!YG!`RP`\+@!P*P",*P`\J@H6*T`\&P5QS(#ZJP`L%`!P@0!0,'
M7_.@"EDP#Z10:^6`8HG'GYNE`#+3`#+0#D<P#@E@F2!0!P/08_?0B__P-4#Z
M<2O@!`J`,3_S82+6`"AV1`$$52N60<6P2$4&#*NP7M?PI5NU"ABS"F;:"$5`
M!ZM`A%\*``6PILA`IL"0"X\W#ZO`"CSP!+<#"T^@",C0HS(J2*KP5E8J0"MF
M0034$%]%``-T!)WU50S0J"3V50X08B,F8D6@`,I@$+H0"]>P#@B@"X'%1KHP
M"]>@8BRV"%;5`YY*!Q+0`X$E:#T`"WT%`<<@CV;P;"0@9=R"#B20;99:D)@Z
MJ9FZ"R.(#A;C@G]%JW!54^MP4ZC:$'K%5W2``28PK;&*`+?:A&?P;!@`!;L`
M@^@`@VAC@@RP"QG!/PNQK-<`5P9P!>]J`O^0`25(!P/`A`#P!0<P4-P@5U,U
M`\F0"`W@13TPK:W:`+`@`/]0`--JJG2`.SP`"'T@APG0"%4``TXC!T^0"'/#
M#04`L(N0#0;;5RFP"!W@143@-+@0`QZ'#(RP#/8@#(!0!Q'0L-=`I.A@`B/#
M`""6#"'[5X%U6(D%61BP6!I051P0!08P695U9-(`LB<K`$+@-"VP58.@#0`P
M!P0`I=(@1HL`#2;K15,;`HU0"5N5"UMELK3P`TXS!P(`I=NP`]BPCH"`M@#`
M7`/PB?*P"-.P`M!`,_\0ME+K-%!+"T#@-/R*I2Q6#%7``"W6$&K+MB$@!Q"`
MJ4\*#!A6!$<$`):UKIE*$>NP1_UJ`RO6$(R;6LEP-2[F61U@N!E[`"AJK[A0
M!IR;8J-;NB9PN@"KNB2FMH<[N6\+#)T;K:P["/M``/U""SZ0L<$+5_5($:4U
MLG70`)[5!;U;!3IZ6@PP#-L*`&CP;.MP7=H38-.Y"/Q`NGNE-V$$#==UE;"@
M`0+UO#%UK7L56--;O=?;$-K+O?*8!N`K84,@ON9CON@K`%%@!1Y0@1=88L4$
MKU<@KUU``?5ZKTVHKYZ5J?CK6:!%8PSP`5XP:M'ZKN@0!?]0!Q2`#G#P#\LE
M:$/P7'5`#^A`!BJL`.4S!!:\6`BP#B40PE>`#FA0P@J@9.A0"/_@9.@`"/]P
MP]:K=<0["'V@`>131*4DO_09K__`6/7*#OBZ#N?`GQZP63S;P^+@#\5@!PB`
M..13`>BP#UD#70ZPPAP6!$:`"`2P`TY@`'6P#BL0#XC``$J,`!^`8OCDQ6`L
MPNK@#W50`F4\H7?,#ZP05"N`#'[``/`51_X04(I`!/\05`,W#@?@R.B0#I><
M#W\<R,HPR)GEGR#P82*L!O[P$>03`NA@"%G#7!HP77>0M^L@#^:6-87!`$,P
M"/X``G0P#X@@!.!@!.O0#G^\",XP#A)PH`FJ;I^@#TJJ`-U[8!CSM8M0H\O`
MGZH<H!-J!0H@S0J*#O^0#X7<PT2`R+5F!`:`HG[0`(L0#RT:.58PRL[<"'8`
M#N?+"NB0!)>,#\U<HZ<,`/Q)H>FD/0'];#!`"QC+:UU$$7)0`HYP=PMQT0C1
M3OS@3ZP!N/+@"O#3>@.`:X@3`"$="?8`#1T7H7Z``"8:"3)JREOQ,TP&`).P
M#!>-=[^P53O:HT>@6D`JI+ELI+@VU(#0`X51I#ZV",>P`L;`2T.@3]X`=W%W
MU5B=U5J]U=3B%0`0$-RGQ/T"`9T2``#H$0``:1:8GFMUK````'T````!````
M````````;&]C9&5M;RYB870`)PH`?_"I`````````````$`I(R@``(&4&8/F
M#8@W9LPT4#"&S9R%;-Z,"4.G#(@8,"["6#BP((@L;^J`F.@&Q!TY:2J"0%-&
M3AD7,"%*I&@Q!@@9,Q;""5-G3AF9$U76R"ACHX*.!I_(6=G2(DP70&E>O)E3
MP<Z>/Q5$#&J11L88'`DF7<K298BH*FW*H+%00T#<I\3]`@``````````````
M``````````````````````````````````````````````````#\@]RGQ/T"
M`?$5``#D$@``:1;C=EW0'P4``-4"```!````````````;&]C871E+G!A<P!O
M8PH`?SU\`````````````$`I(R@``*%(>7)$2I`F()B\&1.&3ID=#13LN2(G
M#1V';D`T"2-G#!H0,7+DB`%"3!X00=R0D5/F#@@E+D!<06.Q3$P04\J42?AD
M2!`J15P0Z0G"S!LY(.K,"7.F3)^($966F0-BC!PZ$!5$M,,1!!8665@,>4.F
MC`X02=PX;"HG:T0Q9<ZD<0-5`0BT9D!`X1BFS=@Z:D'P`"$#!!TT93+>7<R8
M\9ZQ1\G,;3@5A)LW=$#,@5-F3!HS:<J08:$9S1N72IDZK<L8KMR,>SX_M=N8
M8DTV&5&<8-+S9Q$0=F*X@`$"Q9@4($62-(E2)4N7,&72='@V7`N'<^B<2)&U
ML<R*#G%WKPV^#.[B)U(W/7N"Q5XY?:?0D8,"1@H6)[R"R+)]/&/;X>66GW=W
M(,:2?F&HM!\('.UTV$YCU"'''$=5]49DDV'G0G\1>8=$&&S0@4(,W'EGXHF+
M[5$$'A8QJ.`<9616AAQR5,A&&7:89]@;(,W&6&)D[`!";&;,UN%B5H"(PGOQ
MS3?B?5^-55:)*.YQ1(SZC7&A')*Y01EI<-21V5Q>&4G;74FRL21?;<A'GPSW
MA25E&52>:"6665B(H9<.@2DF"&1F829C2>2%`A8\D`A"A8?Z@(-]AB&F6)5#
M(#;&&EENV25E157(%1MI2$9''H,VYAJ91/IH(H#FN>$?>;<)6(04`TEQ5EJ?
MAIKIGI2QQP(6W!WI(8@BDB@DBLC>I2*+F25(AF98%D'C44S@J",=/,:@ZH\J
M"9DJ:XL56EP6B2+':!8^R%`#<@].:F>EG6&:IY:\.M0I4KF*2BJXK<6%JFS"
MPAK@J_^5=YYNL]9ZJQOY+D@OEQF:!4)[601[9F,?AOCDL<E6N6*+SD*;F;0U
MRE%MCFSLV&/`=P'I+<!:77P$9F]@D<6A8-79L9TSJ[Q99Y^%]NS#FSI4ZET9
MBV@?QSLGNVR+=UCTT64@S%BRF4"Z4)<&`0'<I\3]`@``````````````````
M``````````````````````````````````````````````#\@]RGQ/T"`4<8
M```X%@``:19K=A?5V@,```\"```!````````````;&]C871E+F1O8P!D"@H`
M?QG>`````````````$`I(R@``$$(',CDR9`@5(H,7,BPH<.'"U&,20&B21@Y
M8]"`B)$C1XP&"AI:*2-G3IHW;C:Z@`$"A9@R=,*TH%-F#AV*$!N*R0,BB!LR
M<LK<`:'$!8@K:-+0!-FPA].G4*-*G4JUJE6G()DR-%+'S1@Z)]WH&"@D#)V,
M(,RD85,&1!DW:,)X)0F"SAL0;-Z,,=N6#IJV8^J4?".G[ANM.1N&`3$'3IDQ
M:=26(0-"SINA<BF/><.F3ALW+K*&9%AE3I@S9<8R+'@P(8@M>$#DZ2(ZL<,B
M;F@&I1PFKYLR+$"P1JCPSEHV(,BD:<PF#,_%F^'DD9/F#!HZB&T/=/,&[)BV
MF4$LGN.YS46>;\R`J&,:=6@%V;6#2*(>B_B?(+*`V$Q8N1N^<X@7%&..0289
M&<'Y549\V@4V6&'+559&7GO11)E==?T%PAEIV/'6?F_TE\9_-,WQGGP+,6A;
M$`&F!X*')86E$DLNP213B3<%AQ(;/.'`TDX@R%"#BHG-,490'[;Q!ADU"=@6
M>7#`09B%1O64$DF6%=9&3>TM.!J*($2(VF]R\$69&82!8%]X^O$GAW\`@L`=
M'2`0F9-Q?HV885MENH$:"'O$X((+/K(@J`M"]O$>@T7@$48;<+"EFD##N28#
M2S'`4!N8(!C'!G)*>KCG?H(%E1NI#X(@I4E@H608B)U]%B0,+-@)$1LCMI7I
MH@IH$!#<I\3]`@``````````````````````````````````````````````
M``````````````````#\@T$@8V]M;6%N9"!T;R!P;W-I=&EO;B!T:&4@8W5R
<<V]R("AU<V5F=6P@:6X@8F%T8V@@9FEL97,I"B!P
`
end
END--cut here--cut here