[comp.sys.cbm] VT52 Emulator

relkins@vax1.acs.udel.EDU (Rob Elkins) (01/04/88)

Hi Folks,

Here is the Vt52 emulator I promised.  To download,  remove all the stuff
before the line that says begin 600 ...  

Then run uudecode on the file, and download into your machine.

A couple of hints.  

1.  This has 40/80 column screen.  To get into 80 columns type ^8 back to 
    40 columns type ^4.

2.  Function keys are special characters  They are as follows:

    F1    _         F5     {
   
    F2    |         F6     }

    F3    `         F7     DEL

    F4    ~         F8     ???
   
3.  Other characters are as follows:

    British Pound         \

    Up Arrow              ^
    
    Left arrow            ESC   

Good Luck   Any Questions, send me mail

Rob Elkins
begin 600 c64vt52
M=G0U,A (9  9("(@(" @(!,B " (;@ %(")"055$(CM")  ]"'@ "R!(*$(D
M+#(I,B(Q,B(G(!<@,C8S-RPP %H( @ +($@H0B0L,2DR(C,B("<@%R R-C,W
M+#8 9@@, !XH,C8X."D    J*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BHJ*BH  0(#
M! 4&!P@)"@L,#0X/$!$2$P@5%A<8&1H;'!T>'R A(B,D)28G*"DJ*RPM+B\P
M,3(S-#4V-S@Y.CL\/3X_0&%B8V1E9F=H:6IK;&UN;W!Q<G-T=79W>'EZ6UQ=
M7AM@04)#1$5&1TA)2DM,34Y/4%%24U155E=865I[?'U^?S\_/S\_7V![?WQ^
M?10*/S\_/S\_/S\_/S\_/S\_/S\_(#\_/S\_/S\_/S\_/S\_/S\_/S\_/S\_
M/S\_/S\_/S]@04)#1$5&1TA)2DM,34Y/4%%24U155E=865I[?'U^?R _/S\_
M/S\_/S\_/S\_/S\_/S\_/S\_/S\_/S\_/S]^          $= 1$   $     
M             0     @(2(C)"4F)R@I*BLL+2XO,#$R,S0U-C<X.3H[/#T^
M/T!A8F-D969G:&EJ:VQM;F]P<7)S='5V=WAY>EM<75Y?8$%"0T1%1D=(24I+
M3$U.3U!14E-455976%E:>WQ]?@!;#A@(/ @8#@!=<!@0/! 8< !>   [;@  
M  ! ,!@,      !<&!@8 !@8&  < & P& P& P >   8/&8    ?        
M '\       8 / $_&P      < !_                                
M                 "D !7LI" 5\*0 %?2D@!7XB$"  ,7L1?4A0>69\9GY*
M4')P!R4!"0$% 0 E 2E^!0%,-"(@8R8@0R,@#R,@%R0@'2,@>RLE1E R(%<C
M(%0D4"H@"20M4R)P!B!K)A@0%BY((CT (2 ,*"Y((CT (4D!4 ,@.B0@$B48
M$$H@&R5P%B(%($E_(&8K+D@B/0 @(%)_(@ @27\@4B48$"DI  5Y*3(%>BD 
M!7<I,P5X*00B32 B(#U_*04B B  (#I_($!_8"D.(%)_+1A0*7 )#@T84"T.
M7"E^#0Y<)0$I>P4!*0 %>P5]*5@%?"DX!7XB""  ,7L1?4A0>69\9GY*4'(E
M 0D$!0$M#EP) 0T.7& I  5[*2(%?"( (  Q>TI*2DI*&&DX!7XQ>PH*"@5]
M*0@-2R)(,7L!?25^"00%?C%[27\!?25^200%?DAF?4Y+(E!B0$ P16 M#0(I
M G 9+6$B4!=N82(M7R)P!RD #5\B< AN7R)0 PUA(BT; CAM' )*+F B4 A)
M9# +($(K8$D*$ ,@6"M@*0P-(% M8B)P&RD !7TI7 5^(@0@ "U1(A%]2%![
M9GY*4'9P$BU2(BD/#2%0+5(B2DI*2@T& BD3( PH8"U?(E B(@4@1G\@9'\I
M?PU((B W?PU)(BD ($9_('PD4 4M22(I"& M22(I=W %("4E*0%@+6(B<",M
M6B)0&"  ,2,M6")-6R)P#" ',2--6"(1(P@0=B!_#%HB8"13,5$I?Q%18"U(
M(DD-4 LX(#4J(  8(#4J8$D'4 0@*25@21M0! U3(F!)"5 Q." U*AA*2DHH
M2!@*"@HH+6(B4 Y *% *( !H8!E0 PQ((A@@-2HM2")0!2D1( PH8  I! 5:
M*0 %5& @9']) % !8$D#4 ,@(B9)'E 0(#<F*3@--RX-8B)H:$PT(DD?4 P@
M-R8I- TW+BD <&@-2")@3DLB< %@+6(B<" M6B)P#2  ,2,M6"(-6R(,6B(@
M!S$C35@B$2,($'8P'"13,5%) !%1&"52:20%?"51!7LM4B)*2DI*$7LM3"(-
M2R(I  T$5& I%% "*5 - 50I#PT%5"D2#094*08-&%0I(0T$5"U,(@U+(F I
M  U*(@5]!7XE1E ,(%0D4'<M2"))'E !8$D*<&(@#"8P9FY*(BU*(DD#$ 8@
M*B88$%9)!1 &(#8F&!!,($(F&!!&.&DP,!9)"C +.&D'20HP"TD0$ <-2"(M
M2")@*7]@)7T*"@H*#4@B!7U@)7X*"@H*#4@B!7Y@+4HB*0%0%"5["@H*"@U(
M(B  $7UF?5 "9GY@+4@B!7M@+0)="0,- ETM8B)P&"T 72E\"0(- %TI> T8
M4"T14 D@#1%08"T 72E\"0$- %TM&% I#PE0#1A0*30-" )@(#<F:&AH:"(0
M/2,B'28"2E!W3"<"*04@0W\M$5 I7PT14"D4#1A0+0!="0,- %TI! T( BD3
M( PH(@ .7"(.7R(.8")*#EHB8#@@-2H,5"(.52(M4R))&W :+4@B.&D@3E,B
M+%,B&50B+%0B+E4B&" U*F M2"))05 +*1$@#"@I  U3(F!)0E (8!AP<BD1
M4&M)0U 1+6(B4 1 )W!A0$]P72D=4%9)1% (0 !P42D=4$I)2% $*1-00DEO
M4 0I$E Z26Y0!"D24#))27 #3'\G8 !0)2UB(G!#*0 %>RE]!7PI0 5]*7X%
M?B(>(  Q>Q%]2#%[$7U(,7L1?4@Q>Q%]2%!J1GQ&?DI08Q@1?4A0>T9^($ 1
M?4A0>TP&*"D_!7L%?2DW!7PI6P5^("@B "%[$7LI 1%]1GM&?25[27]0!$9\
M1GXE>TE_4&0E?$DS4%XI(!E_,PA0>DP&*$E+4!PM8B)P!B!Q*DP&*"D@)%,1
M44A *'!M0%!P:5!S24I0,BUB(G &($8J3 8H)5,895$%?2D 95(%?BD@(  1
M?69]4 )F?B9]8&A0<B9^8#=0;' Q25E0!BD"#5,B8$E:4!PB!2!)?RD;(%)_
M*2\@4G\I6B!2?R( ($E_&! '21Q0 R!))2D #5,B8"YB(E $(%)_8$D <"A)
M 7 D+%PB#%TB(  ,7"))$U 6*0 %(RE@!20I< U8(BD #58B#5<B8$D34 <@
M+"@@1BI@21U0,2U7(E /+58B<"9.5B(I3PU7(E #3E<B+5@B27\-6"))#U -
M)2,X:0@%(R4D:0 %)&!)$5 6+58B<!!.5B(E(SAI0 4C)21I 04D8$D14%DM
M5B))&' 1;E8B)2,8:4 %(R4D:0$%)& I0 5[*6$%?"D !7TI8 5^(AX@ #%[
M$7U(,7L1?4@Q>Q%]2#%[$7U(4&IF?&9^2E!C&!%]2%![9GX1?4A 05!Y8$D=
M4$\M5R))3U 1+58B21AP)VY6(BD #5<B< -N5R(M6"))?PU8(DEP4 TE(QAI
M" 4C)21I  4D8"D #5<B*7 -6"(E(SAI. 4C)21I 04D3#@I21)0!BD/#5DB
M8$D24 8I  U9(F -7B(M5R))3U .+5TB< 8@?2D8$ -N7"(M7B(X:2 %>TI*
M2DI*!7PE>PH*"AAI*P5[)7QI*P5\( <Q>TU9(BHM6"))<% &"@H*"@HJ+5@B
M27\Q(P5]"@5]$2,($%PM7")0 TQ]*6 @$BHI0#AE?05[*7]E?G .*BD *!%]
M2%![9GY*4'8D>W ("!%]"%![$7U@(!(J+E<B: I*!7LI*#AE>P5\"@H*!7LE
M?$I*2DI*&!!")2,%?24D!7XM5R(I 7 3(@@@ #%]*7 1?69]4 )F?DI0<6 0
M&2UB(E -('!_&$DH, ,X:2@H8"Y6(BQ7(F!@ ! "(@!@&3 "(AA  ! "(  M
M8B)0"T H, (@)Q@@<']@0% P B!/#E8B#%<B&"!P*0%P B /#%@B*0 %(RE@
M!21@ ' 0)2,8:4 %(R4D:0$%)$I0<"U7(DH*"@H0 F8D&&4C!2,E)&D !20I
M  U<(F B!0Y@(B!)?R!F*RD3(%)_(@ @27]@*0 -8"(B!2!)?RD14&DE*$D'
M<'HF(FAH)2A)!W $9")0=F M8B)P#R 4#",N*2 @#"A.(RY0=B  #",N.20N
M< D@#"@L(RY(4&\8(  B R U*F             $! 0$  0   H*        
M @H."@X*"  $#@P&#@0    ( @0( @  ! H*! H%   "!         ($! 0$
M @  " 0$! 0(    "@0.! H     ! X$           $"      .        
M    !    @($! @(    ! H*"@0    $# 0$!     P"! @.    #@(& @X 
M   *"@X" @    X(# (.    #@@."@X    . @0("     X*#@H.    #@H.
M @X     !  $       $  0(     @0(! (     #@ .      @$ @0(   .
M @8$  0   0*#@H(!@     . @X.    " X*"@X     !@@(!@    (."@H.
M      8*# 8    $"@P("      ."@X"!@  " P*"@H    $  0$!     0 
M! 0$#   " H,"@H    $! 0$!@     .#@X*      P*"@H     #@H*#@  
M   ."@X("     X*#@(#    #@H("      ." (.    ! X$! 8     "@H*
M#@     *"@H$      H.#@X     "@0*"@     *"@0$#     X"" X   8$
M! 0$!@  " @$! ("   ,! 0$! P    $"@              #@ (!       
M  0."@X*"@  # H,"@H,   &" @(" 8   P*"@H*#   #@@," @.   ." P(
M" @   X(" H*#@  "@H."@H*   .! 0$! X   (" @(*#@  "@H,"@H*   (
M" @(" X   H.#@X*"@   @H.#@H(   ."@H*"@X   X*"@X("   #@H*"@H.
M!@ ,"@H,"@H   X(# 8"#@  #@0$! 0$   *"@H*"@X   H*"@H*!   "@H*
M#@X*   *"@0*"@H   H*#@0$!   #@($" @.   "! ("! (   0$!  $! 0 
M" 0(" 0(    !0H      !$@(" @("!T97)M+G!L=7,@+2 T,"!C3TQ534X@
&;4]$10  
 
end
-- 
ARPA:   relkins@vax1.acs.udel.edu
BITNET: FFO04688 AT ACSVM

Live Long and Prosper!