SET TTHRU OFF
LEGEND "VT52 remap in effect"
; ----- VT52 emulation remap help (automatically setup by VT52.CMD)
;	commenced: 9/24/92 R.McG
; ----------------------------------------------------------------
;
SET WRAP OFF
ON ESCAPE GOSUB Exit
SAVE 0,0,23,79
ATSAY  0,0,(defa) "┌─ COM-AND Commands (VT52 remap) ─────────────────┬───────────────────────────┐"
ATSAY  1,0,(defa) "│ F1     Accessories    │ Alt A  Toggle chat mode │ Alt P   Set comm params   │"
ATSAY  2,0,(defa) "│ F2     Perform script │ Alt B  Redisplay        │ Alt Q   Edit a file       │"
ATSAY  3,0,(defa) "│ F3     Current d:subd │ Alt C  Clear screen     │ Alt R   Redial last number│"
ATSAY  4,0,(defa) "│ F4     DLoad d:subdir │ Alt D  Dial             │ Alt S   Initial values    │"
ATSAY  5,0,(defa) "│ F5     ASCII upload   │ Alt E  Toggle echo      │ Alt T   Time(s) and alarm │"
ATSAY  6,0,(defa) "│ F6     ASCII download │ Alt F  File directory   │ Alt U   Annotate call log │"
ATSAY  7,0,(defa) "│ F7     Toggle disc log│ Alt G  Toggle blank lns │ Alt V   Emulation         │"
ATSAY  8,0,(defa) "│ F8     Toggle kbd disp│ Alt H  Hang up          │ Alt W   Playback          │"
ATSAY  9,0,(defa) "│ F9     Toggle log hold│ Alt I  Program info     │ Alt X   Terminate program │"
ATSAY 10,0,(defa) "│ F10    This screen    │ Alt J  Screen colors    │ Alt Y   Error summary     │"
ATSAY 11,0,(defa) "│ CtlF10 Shell to DOS   │ Alt K  Set KERMIT parms │ Alt Z   Toggle 7 bit mask │"
ATSAY 12,0,(defa) "│ --------------------- │ Alt L  Toggle 25/43 lns │ Alt 0/9 Execute a macro   │"
ATSAY 13,0,(defa) "│ CtlEnd Send break     │ Alt M  Define macros    │ Alt -   Toggle remote ftns│"
ATSAY 14,0,(defa) "│ PgUp   Upload a file  │ Alt N  Encrypt/decrypt  │ Alt =   MENU UNAVAILABLE  │"
ATSAY 15,0,(defa) "│ PgDn   Download a file│ Alt O  Set options      │ CtlPrt  Toggle printer    │"
ATSAY 16,0,(defa) "├───────────────────────┴───── VT52 keys ─────────┴───────────────────────────┤"
ATSAY 17,0,(defa) "│ DEL   Char delete     End      Erase to line end  Alt-F1/2 PF keys 1-2      │"
ATSAY 18,0,(defa) "│ CurUp Cursor up       CtlPgDn  Clear screen       Shift-F1/2 PF keys 3-4    │"
ATSAY 19,0,(defa) "│ CurDn Cursor down     CtlPgUp  Delete line        Ctl-F4   Keypad dash      │"
ATSAY 20,0,(defa) "│ CurL  Cursor left     CtlHome  Insert line        Ctl-F5   Keypad comma     │"
ATSAY 21,0,(defa) "│ CurR  Cursor right    AltF10   Keypad mode 0      Ctl-F8   Keypad enter     │"
ATSAY 22,0,(defa) "│ Home  Home cursor    A/S F3-8  Keypad mode 1-9    Ctl-F9   Keypad perion    │"
ATSAY 23,0,(defa) "└──────────────────────── Press any key to continue ──────────────────────────┘"
SET WRAP ON
KEYGET S0
LENGTH S0 N0
IF N0 EQ 4
   N0 = "0x"*S0(0:1)
   S0 = "^@"
   ITOC N0 S0(2:2)
   STACK S0
   ENDIF
Exit:
RESTORE
EXIT
