[comp.sys.ibm.pc] VISITYPE

mrk@gvgspd.UUCP (Michael R. Kesti) (11/11/87)

In article <300@etn-rad.UUCP> jru@etn-rad.UUCP (John Unekis) writes:
>
>Can somebody post source/executable to exrend the DOS character type
>ahead buffer?

VISITYPE is a memory resident that expands the keyboard input buffer to
80 characters and displays what you've typed on the first row of the
display.  It was the Programming/Utilities column of the October 28,
1986 issue of PC Magazine.  Source and executable supplied.

begin 660 visitype.arc
M&@A625-)5%E012Y!4TT Z1(  $L-&(' L"4G   ,=LJ,H?-&SAP0<\J<:5/&
M#1T081["0)(@P0Z$91[6@8-Q8<.'!$&D<5A&SI@R<!XF(2E'SD8Z<QHHD)F@
MX)D$.9"HH%'Q(ATT94"L*9-'S)LP<LB 6$FGI,N4,H<6/9KTRT@Z"=B$$5.&
M38([!<G(I&DS08PA.GE:!$$G#4,Y(ED^I2.S[=LO 0<6S+JUZ]>P8Q7D)6@0
M1$,R,6<JGC-&3IF&"1)Z= A1HA 8F"E># ."3)TV;?)T9$@Y9)V$$ _^+".3
ML6/(A^=47%L&#QTYG"63IJM8IIPW;;Z(2?-FSA<R$<-$5KB[,@@:$]<.+XZ0
M3L3390X"9:,4J&,6$-G,>2.4J%&D2L74,6.F9.":<F[&"()$)M P9!*0N9/@
M1T\0=;CA&'X@C($&4@>=09X9O[4!PGU*A61=&FS4%0:%^O'W@TSJL5=2AF;9
MT-E&(*#P0PIKK09"A^W!E09,79D1&(LE?7$87UQY!592@34H'''&(6== K$%
M)M,8;Y!1QA>2@;#<9+S1%,8<<WQ61@)CS*$#DDHRJ=![9<60V7\V@= #"&).
MQ!9Y;80Q%%MHI''05>1QYL(03S0!@AD4LJ88GP;1H4,":K0!1U9'D2'<>BVN
M!>@<(+D5U$^_U7$&&H$A"4<>7\B1QJ58Z2=& B<,\<:FGH**9@XXB*A%&NRU
M0$08=L@) A1UB,&&G'&Z<08(IKIP H>,SK9? C 0RYX,QO(70PTYC @'"C"D
M(!,<^'WQ!GL)A7HL#/\9^$9QV:$)*9HVP+!B'DT=5! (,K@AE@*N/>:&EV=H
MRVU&((*[EKIFO-O&&VZ\ 1X.F*D9,%QGX 9'G%G*1-P7!B+5K%G_H?$&=P?A
M1P9<VX( 1QT/O7M&1A0?*(=,&RL*80).'AO#?R$9*- :>[Y+1QYPE!$&A#*1
M(2<<6G%*<$5DC.KO1>JVX ,(V\I(KW5TG/8%' 5YR]_2(-2J)'E(.O0;&VR4
M5-UU!V$M!V]N^"S'%Q'=EH887YBAU:^B(OL?=DJ-)#+)*2,56,M?2'5>55=]
MH56../JU'V *$&XX58I>%?/6:['QQA@1$><&U&9 S9U08O0MUTLT(;UUC\!]
M85>-B_O5N%>/\ZB CZ_+H;K>/@'%EJ0NGI[2"1V3\7%VB5V<;&\*= @IHR+_
M-D8";5N<HN^3HQ=74RV]!,(=%+(!0L%W% A<4-[Y*2655F*I)9=+2O;>R'.@
MD4 8>/PW!ZV3^LXW"(XY@YRX=Y"%@4!!2<J9'-I $_K93PQX:.!I[#>&""H@
M 0[4CP4Q.$']I$&"]8O,!R^80<2 T'[9.:$99N.H- 0*/)PCF^B4DKVD;,\I
MJ+M@#+TB.?-0SBH.45Q?*J28^[&/(?K1DH^F$Z3D..DBM0E#&T;2OZ!4#"YJ
M.,U#1O:0D;QG8'9(  19L$0@'2<Y- %C$ED P32^(8QCG)!7_H,UR]6L#BWY
M"%LN1$0L&4J,>&#!R_X#*^= "#QK*-WV'C2ESG0E(V50RA5IHH:V88E@4;I@
MH0[U!I+-YB+C 4'9^)<I3.K C6$D0R#E^$D ^DPIG+DB"%KPH%="A QV"(,;
M3I*\*HU*E2Q@%AW?8$?R9/%< S)=@506AH&X1X=_!&;4NK4B1IEM+4)3RAV"
M$B E&41C;W@(C>2P(4V&X4KD<U@K"]:S+[Y1@RR89D:JZ:&WW>@B>2@7+<$X
M*?*,<TUPH(DOX2G,P*0S#' XY075.$95HA)+@=P"!+O0RI,]1"IQ*= &Q_#'
M"K*Q6(2<TT/ND+[O!66;CEE1&196AG(2RI)T$),[X1C(0:[E0*KQ'81 P$\R
MN)2CAQHCX8"FR2O%=&:$#%T^YP">;3(R(#Q]8R0#$U,8*-2/0664#%BPO)=>
MR3'\;&4A5^,8XB'D?#\9R:_\QJ*M4C4&,;@J4.%ITXN 5:K+1$I&$YD>:ZY,
MDY:\:T#>L\F:>/(_9"!/P=+J*SC9"EM4"LQ%!I;2G^@2:FW+:_#HV:)9NI*?
MF%7?[<K SZLR-) .7>@[Y<@"5;92L%9DIC/A(@;1X.>8;6FL'!\*3(GB@:+Z
M(TQLD=),[F5TG _U*,(>.D9_M5!>AH%NR&HUAQ?Q+"C(58S-QK &N?ZQK;[M
M E<I>:4.'>8]'@-D,&FBN5-A"2C<?<]<@0F#(L  !TAPTEKNT,BT'@2CG'&)
M44CFTDI>J9.A6DO!P*/+OM9S3^&+I&='.=@BGI8%S\)!*Y<*'A;MJ0XR5,]#
M!(Q@44[I(9-4;1AWI)24T)91X1VOBM5+U 2H<:BO9&/^U@*I@O3/5@9LFVU^
MQQ#>1G2BK0P#&_B;AX-HCD L8BZC6KO!PB*XE9QSPPD>HK'14;9_EUVN8LPK
M+^\>BK[VQ:]^[9JK$J.@P9PUVV(_3+84%-B2!5/2'!5LL,X0;,N.)&+0NG+5
M@8Y1F&OA<* A:>)S284F<VVN$29=!(JL14&9)<B"D%)@'I*,L);$EO&Z,E.(
MLH"5B.T*G()"L.%N=@U)B_-?;?S.0U:PE;7EJ9O4ND<*F:F6^)$R>V1,J#_6
M+VO+A+6< B-J/9OVG?1MI2IG^31U%=*I2 F*GC.B5H,FB=#"-H,,8NS:S"6J
M/*+Q&W6MVS-9,[>FKWPHCO&CX__ N<>5]5W+@!TAL,$79UKAGI%9$-XD+SD,
M37;EDQTL-5K#<<JI/1(:E*TE2$=S:$73EANX:N^4.I5@=[Z2W:9DO_\H>H>=
MP3C"2RVT.1 -X1KGZJ0M#4KA?N] =# KP5:-D,;8"\*!>JBH]66&;F$X70E@
MK\_N%TB+!DYW:VG3FX@#(-18M 6R#.6+_)S"&4_LBBS 7])UJ&2O$*>B\R0(
M1W:5608!I^>O<4-@1EX_N9;=@RXOFK15+IIU[ZQG9E6[**DX.))=%6N'RDXK
M#U2KQB8VLP[,#GA*FFV>(SYYB$]B ]U;W<V?>808=&]J0W^H"GH>D*?''TU<
MR*\D?^XJ.$S)^!Z#&(B\WC&9=%[5V!-=,@24>2U_N6C@(#WJN:V57,SI2;L<
M%%%CEN?U:LC\.JCZ&5?O;7'S%-U&?@9BJW'H\J0#Q]>"'7.)DUWE"IGS&4+9
M/"A=.?AC 1>?_A^I!X7JY><BUE5V5I$\)+%=YW )\'4J$W;Y VEW=W9T1#*N
M5"5L4#*?$WUR1T+N57T)@'LL=!$4)EK!5S2]]WN!X72RA$'%=WV7EA$=HUE[
MTB!P]W-PAA^YM$OE@C75U18$@UY'="79H0,2V%I*U#I,=$;6,7TA-'IJ5%W!
M]!_MQ1%T #XG 1X$<Q(*I%E0*(-3F'US0S)^(H# !"EH<S59<X(C]DJB$1+)
MU#5I\#7F(S8;4S9PX855DQ@RD2_\]2**\P9W,"C!A10C=2&Y]2L&Q!EM4SX:
MXREZ@$E*UG.7U0*KYP;WPP945G]N$A15DF]!X35E #:8-#9NJ(@12#6G01/M
M@A5*AF$A)4IX2$ENH <)0(=^>(=W$()?4(=T\ 5Q<BEZN!9A8 ;&I39<UDB8
M%A2:<P?@L75MH$4'1!ZWB"D7-!*/&(G2L5(^YG\B<1#[TQYKXDH$(C2.,1!L
M(!INQT 7-(K/B%2]0XD^UQ"REE'L5Q#NITFLZ(IVN(RE%G\[N 5"0U$7D5@\
M!UKA"'WIN'&AM2Y-X1R<\3J-.#U"4W]X%1)"]A 2B(J<8X...';Z(1 BE&H^
MUQQ+:#X!(G#0="A(R#65YU2/UU+DE14^$Q FUW7A%F-B=Q$%XUE<I().I2!=
MY!#^Q"B4]$?R6(O#B$WDL75A< 87,H$RL8%7E5Z'=GJCAWLAB#(C>!@@J!CS
M-X+$MSG&9S$7D7P#*4L[%Y$OB$NZQ$LB4QPOXCE$:#^C-P:[\E _PT;H)S*W
MP5D%]U!(*$P:."Y,Z(1E4(52:$!@AUF!^2Y8*&);J$9="(K&X8MBJ(UD4(;D
M<8:8J(EL2#9F X>A:)6S^(K#F(LUQX??XX>\%HBS1X@%D0:'Z!")R!B+V(C/
M6&Z3-8D(@4=5A(9J&#:WT8:9F65G$X>BF!VD"(GF6(VH&(N Q8IPT)EV.(S,
MQIRUN(R@"1&\:#:^R$@)TFK'68P/<8SGHB /\BG,.(".6(JRJ5(L18VV<HW]
M]#V>4I#<*!!T\(UK$IR04HXTXSL1^4]^TXYR\(Z$HIS0:8OB66KWF(]A9S^3
MU9#DT8,#65L%&1$0062)^4YQ":'-5Y<LXELK$ -=8'&'<GUP0P=RLWUW0VP&
M1IYC(#3UB 9R69 N9I<0U*$VX*&!,1(KF@97A:,>-$S%-'M#%I$T2)$TH233
M4UT:"59ZU)%(\I'/]%("2HNPN!:%-&=Z4!)]QH];IYU?1J'H93SJ)0-.N4&0
M GH8^!^U408?R6R ,Y7R4I42\P8DJ)4F>#WKF67N$A!O&)!G68.>XRZ?(WAL
M)UI&5"5(M(,22'ZH(98'41NWD1O,\1&E-D82^%"2UT8S)C0L(('X0G3=@DUI
M\#WAHU)G"7MP$1)"6AQ$.F-C!'[[$BH7 4&B&F+"N#F=LW-UQ!+)%4AB)G%(
M<8>G8G=D,X!O0'_A4G9_0P?[IU<FDQ'+.FM+^%Z_&JU4&CI6BJ7@X9J?(U5P
M\9":55Q/>J;_P2=NP"M3I1AG1Y5&<D%38JA7@AA;\FWX<J,L<1(IX3K  S-9
M.3VS9SV]8RM(8BAETRX01C:\IB+9)1,74:7D(15S\CGC!!XUZ:W:Z45%5$*R
MH3_\ P)$, 4(@:,G508G($,5XROWQQL<%$)9@GP,. 9XY!B4D4ML4 >L%CI#
MX+%TPK%3X)28-T$-MT,7V#JY(T2,$W6T^0:Z\BD1X8X%4G8@*D9:A:*6I"#K
MU&<;2%A_A& Q$()O(%>[DH$@H&A>N#;K4B"CY"F-9:IST;,A%( 8VTK[ U6K
MD1 G)$)URZ(DU$&CET&FE[<AA*DI:S_5MS[NFD0Z4$;%(82<L1:Y"A+DH2(U
MQ'!F4Y1'68^!A+A--(29RE06>&&HQKB.@2V511XU>47@6AA^(Z&[%9()<$@0
M)%:APU><-3[A9!B&LC/@<;6 )7(C\3SL$1B^:P;/%D;QQV)T^6++\I@J(DLA
M49-^([O9)8 >=0,Y4+7E,P>[HB0\YQCGPJWO)F.MD;UE,+SPM*$S*@/ M8^/
M&R<'8;RYQF(O.5%4)B5@VI3-N$MV>T'1BKUI>"7Z([[6","S*R&^4S:\^%#&
M&Z/@!4$M@+[>!VWPAA]P:W/^E8W;A3.%A!TNHAH\TVTS-F]D (T705)]8E*=
M@1MLQ9.9NDI\U$KDVF)H29''Y5<K^': FU[ A&@+*K>*Y:A]FI8[9T 5#+^L
M*TVO*FLV(B^ZZ''-=V(\=QB=1CW%>@?J]!\+YF=:-E(.PW*!%'[K*)0\1\4(
M!4 (Y6VSZ#!F1E>OA&LT; 8@)CXB1KL/D4__UVH%QKMN$+QK1J'9N($P=#XK
MTDP %Q'/]+V?VY6A6WG-V[*R14 9I;I\]% PN6.,RX Y&[UJQ%KEMA;<.T__
MM+HR0:[!F\9M);7O*B=PJS$@IDU!P;T4K)\!Z5(,-65=I9A\%W.U_$ZN6G09
M<71<4WXQ<"XQD"X$F7ZAXY\ .DI,)W]MJC*2.'7DD7\D\ZS]MW4 F#QJ1(!(
M88 6J48B>IAU<Z(P,',(.*P*6,ECZ( 0V(+2ITG&5H@ETW*!T7+"2CM\-SCT
MG'J4;%?".8USNX69![B9U[>DIT%."7J9UWD4>&:8YUXN&3DD$U<\NWKBNE\O
M@@8%HD7 @13I!I7H6J\H48NY S/JRCP+MRCU-*?38X+_FC;2$TFVN3UIH&2J
M62YEH*?LTBMG@(.%"Z^#41"R<8Z=X42ZH4?@0ZL\QQ2Q]Q#9%@:6RP(_;1"\
MQ;D;I$;Q%[E !*L'E';Z-CIJZST)(0>U(H65DEL5&D8]-!7HD=7<O!G&P[T=
M UW.FY,AT4EPH3D3J98S=M4^M-97L07HNQ9I?3B50QFAY%2^B7(O(F_<43A]
MC3@. =CBU;GOA-57$4]'K'LJ+("6'=D.O+)PN4K @Q?RN1=\=KU2%!1"##P/
MA3O 8X"A?6JC'=62W=I""SR2#=LS-K11C=F\3-<E8:\BS=J[/=NE+0>YO;*;
M 5VF*MQPHKKCPM/M Z^8J[A/7=U"XM2;J]L"*%293<-KX99NPW.1NXZH:AUK
M\U"N6]7O!,(Z]E"L!;A6[:+/DF1S@#,&%-9C'13/ CJ+)";U<;]8 >"M5,%-
M038'<1H/@H<IEW<(9YS4M!%XR9A@N#9<-0-"0!^ZF(..-2<I.# %8R -HFWW
M/(["^8QJ0:4B=6>L6!LOLF'Z! )99"A0\VD6]DZ<*AF>VLL(,R8R21ZT%.$<
M84 -@U 0<Q#!UP)%,^%?Z(L73@3T$1@N+B@#Y\4G/4X\-D\D<M,ED=.\%L=7
M3L,$T8A8(0,W8&D\9AVV!5UQTTP8_2()P0:A$Q*))8<*$.8I7=)'(J^2023R
M8N=^GA^/PAL: !H(5DE325194$4N0T]- (D"  "2#2>2Y/XN!   #.E^#1CR
M!DX>.6G.H*$#(D8.'#9 :$ECQDP+(F'LI)D# DH=,6PVHDGCY@P(@BX 0/JG
MLD@  "\A-8 R)8J4*U8\&.#DXI^'.P)V 0'@:-LB#QP [/"@ 4"= >FH 5AD
M(>D@=0("Z?, 8(X!73X 7!6P2-NB!RYV.%@1H,Z"HTW3>H@C@ X"%X-\M'A9
M)\$."TV?IM,T55NBJE,OY(("8!<  'A_[05 !\6@80+$S=.*P$&=/+L\03YV
MB.UCN) 3S25[P<5AMNNZ0 + V;.'0>L$#-KGCX^3.A$6.4B:R$'<8P9, UB'
M0==CUY?VHG:]>E'KUP%< /(Q1X!3#"Z,&>C^SP7R-0)  6ADX-( %Z/>"$"'
M" "Z!  .?/#R14N6+5@\ T5X!MCAG7D&H/<8>\"\%]]\8P" Q3!2^'(@570(
MP XJ;>VS80!T[&/"(@4<X<0@_E!V@&NE!;!..9<)H 6%^KB@R"EL60@9AAIR
M6(>''(9H B(EV'@*"]EM9Z!3!1C)3  FUM%-C%KL,XQCL#@RC N+^-"& %QZ
M@-YBD/UC@7SBY#.,!PY\P(E/>^BF%U]0<0* /@9X8,454D0Q!12X#.4(-D<E
ME0-33BGA0BA[Y?)$8\\M$EUVB5S"5HQ&B ./>2V>!EAJ%M!%E57"9*5/6'P,
MH M7?S5%AP*% I#( 8<EA=><3IV H'($=C=:@NFM9T"#\,E'H('_H%/$/^L,
M@ XQ_F"Q119:?.'%!_H]@\MC@X9" F2C !6*">#F(0!RW_XA ",.D!L*'.#&
M&8H<X/9QK@'P2D  N_0&2A0VNW"E6ERJT:5:4K0\T P$"&:HRP"H$%"' PA^
M"0 @#0N@C:K"$-#,"1H(5DE325194$4N1$]# *P   "2#8F3N%ZR    #%:2
M3$E")0N4(B#2S $1!D2;,FW>R,D#0DZ9.6G(E'%#!P0=-&$ZEL$#)XP;,@L_
ME@&QIDP>,6_"R"&3T V<.AW%U#%CIHP<CV\:*, ! \08D'+"C*'C<XX+$""2
M=+P3)B6:E5#DO#F3M$V;-&[.O*A")PV;-&4O&GW#IDX;-R#>F/%X%<23I6_$
D^ 0A P<+H3%RX+"1<,Z<.BOE@H R!$23,&?"Z %;QH50#1H 
 
end
-- 
=====================================================================
Michael Kesti	Grass Valley Group, Inc. | "Initiative comes to those
P.O. Box 1114  	Grass Valley, CA  95945  | who wait."
UUCP:	...!tektronix!gvgpsa!gvgspd!mrk  |    - Alex "655321" Delodge