---------------------------------------
-- Macros file for the IBM PC/XT/AT  --
---------------------------------------

-- 05/29/91 NCC Added some more macros for Set 1, especially the 
--              Alt S --> Ctrl S function to get arount Ctrl S problem
-- 01/07/91 NCC Changed #13 in Set 2 for end edit to the End key
-- 04/17/89 SMF REMOVED ^E --> ^C    NEEDED ^E FOR IN-LINE TEXT FONTS
-- 03/02/89 TAA RENAMED
-- 07/06/87 NCC Changed help macro function keys from 1 to 101, 2 to 102,...
-- 03/01/87 NCC Added HELP macro Set 4
-- 07/03/86 NCC New version for multiple groups of key board macros and
--              new BLDF format
-- 12/03/85 NCC Added key redefinitions for editing strings
-- 07/20/84 NCC Created

------------------------------------------------------------------------------
--Note: Macros in each set should be organized such that the macros with the
--      fewest number of characters in the key definition are defined before
--      macros with more characters in the key definition part. ie
--
--Macro "#5"   "#3"       --this one has 1 character (5) and is placed before
--Macro "#0O"  "#201"     --this one which has 2 characters (0 and 'O')
------------------------------------------------------------------------------

Begin KeyMacro

File PD.MAC

Set 1           --Default key macro definitions
        
--Macro "#17"  "#3"             --^Q  ABORT
--Macro "#5"   "#3"             --^E  ABORT

Macro "#0;"  "#27##1"           --F1       Last command repeat one char 
Macro "#0<"  "#27##2"           --F2
Macro "#0="  "#27##3"           --F3       Last command repeat
Macro "#0>"  "#27##4"           --F4       Start macro word
Macro "#0?"  "#27##5"           --F5       String insert command
Macro "#0@"  "#27##6"           --F6       String delete command
Macro "#0A"  "#27##7"           --F7       Keyboard macro save
Macro "#0B"  "#27##8"           --F8       Keyboard macro playback
Macro "#0C"  "#27##9"           --F9       StepSize / 2
Macro "#0D"  "#27##10"          --F10      StepSize * 2

Macro "#0G"  "#27##239"           --Home   Macro arrow commands
Macro "#0H"  "#27##240"           --Up
Macro "#0I"  "#27##241"           --PgUp
Macro "#0K"  "#27##242"           --Left
Macro "#0L"  "#27##243"           --Center
Macro "#0M"  "#27##244"           --Right
Macro "#0O"  "#27##245"           --End
Macro "#0P"  "#27##246"           --Down
Macro "#0Q"  "#27##247"           --PgDn
Macro "#0R"  "#27##5"             --Ins         String insert command
Macro "#0S"  "#27##6"             --Del         String delete command

--Macro "#0##16#" "#17"             --Alt Q --> ^Q
--Macro "#0##17#" "#23"             --Alt W --> ^W
--Macro "#0##18#" "#5"              --Alt E --> ^E
--Macro "#0##19#" "#18"             --Alt R --> ^R
--Macro "#0##20#" "#20"             --Alt T --> ^T
--Macro "#0##21#" "#25"             --Alt Y --> ^Y
--Macro "#0##22#" "#21"             --Alt U --> ^U
--Macro "#0##23#" "#9"              --Alt I --> ^I
--Macro "#0##24#" "#15"             --Alt O --> ^O
--Macro "#0##25#" "#16"             --Alt P --> ^P
--Macro "#0##30#" "#1"              --Alt A --> ^A
Macro "#0##31#" "#19"             --Alt S --> ^S
--Macro "#0##32#" "#4"              --Alt D --> ^D
--Macro "#0##33#" "#6"              --Alt F --> ^F
--Macro "#0##34#" "#7"              --Alt G --> ^G
--Macro "#0##35#" "#8"              --Alt H --> ^H
--Macro "#0##36#" "#10"             --Alt J --> ^J
--Macro "#0##37#" "#11"             --Alt K --> ^K
--Macro "#0##38#" "#12"             --Alt L --> ^L
Macro "#0##44#" "#13zom ext#13"    --Alt Z --> zom ext
Macro "#0##45#" "#13exit#13##13"   --Alt X --> EXIT
Macro "#0##46#" "#3"              --Alt C --> ^C
--Macro "#0##47#" "#22"             --Alt V --> ^V
--Macro "#0##48#" "#2"              --Alt B --> ^B
--Macro "#0##49#" "#14"             --Alt N --> ^N
--Macro "#0##50#" "#13"             --Alt M --> ^M

Macro "#0##118#" "#13scroll down#13"    --Ctrl PgDwn--> "#13#scroll dwn#13"
Macro "#0##132#" "#13scroll up#13"      --Ctrl PgUp --> "#13#scroll up#13"
Macro "#0##115#" "#13scroll left#13"    --Ctrl <--  --> "#13#scroll left#13"
Macro "#0##116#" "#13scroll right#13"   --Ctrl -->  --> "#13#scroll right#13"

Set 2      --Function key definitions for text editor

Macro "#0O"  "#27##139" --End RETURN END EDIT
Macro "#0;"  "#27##131" --F1  COPY ONE CHARACTER FROM RETAINED LINE
Macro "#0<"  "#27##132" --F2  COPY ALL CHARACTERS UP TO SPECIFIED CHARACTER
Macro "#0="  "#27##133" --F3  COPY ALL REMAINING CHARACTERS FROM RETAINED LINE
Macro "#0>"  "#27##134" --F4  SKIP ALL CHARACTERS TO SPECIFIED CHARACTER
Macro "#0?"  "#27##135" --F5  ACCEPT EDITED LINE FOR MORE EDITING AS RETAINED LINE
Macro "#0@"  "#27##136" --F6  CARRIAGE RETURN
Macro "#27"  "#27##137" --ESC START EDIT OVER
Macro "#0R"  "#27##138" --INS TOGGLE INSERT FLAG
Macro "#0O"  "#27##139" --RETURN END EDIT
Macro "#0S"  "#127"     --DEL DELETE

Set 3   --These macros are checked when input is from the pointing device
        --ie the mouse or digitizing tablet

--Macro "#1"  "#1"                        --Left button on 2 or 3 button mouse
Macro "#2"    "#127"                    --Right button on 2 button mouse
                                        --or Middle button on 3 button mouse

--Macro "#3"    "\E-\#13#RPNT#13#\E+\"      --Left+Right button on 2 button mouse
                                        --or Left+Middle on 3 button mouse
Macro "#4"  "#1;"                         --Ctrl+Shift+Left
Macro "#5"  "undo "                       --Ctrl+Shift+Right
Macro "#6"  "\e-\#13del ima 8888#13sav ima 8888\e+\#13zom win:"
Macro "#7"  "\e-\#13rest ima 8888 \e+\"
Macro "#9"  "\e-\#13del ima 8889#13sav ima 8889#1\e+\"
Macro "#10"  "\e-\#13rest ima 8889 \e+\"

Set 4    --These macros are used when in the HELP system

--Note: the Return character (#13) should not be remapped as it is used
--      by the file display system as the respnse the user would input
--      to go to the next page of the file being displayed (ie the help file)

--Help answer response codes

Macro "#0;"  "#27##101"           --F1
Macro "#0<"  "#27##102"           --F2
Macro "#0="  "#27##103"           --F3
Macro "#0>"  "#27##104"           --F4
Macro "#0?"  "#27##105"           --F5
Macro "#0@"  "#27##106"           --F6
Macro "#0A"  "#27##107"           --F7
Macro "#0B"  "#27##108"           --F8
Macro "#0C"  "#27##109"           --F9
Macro "#0D"  "#27##110"           --F10

--Special help functions

Macro "#0I"  "#27##250"         --PgUp, page to previous page in help system
Macro "#0Q"  "#27##251"         --PgDn, page to next page in help system
Macro "#0P"  "#27##252"         --ArwDn, more help in help system
Macro "#0O"  "#27##253"         --End, exit help system
Macro "#27"  "#27##253"         --Esc, exit help system

Set 5  --This macro set is reserved for when a UPL program executes an Accept statement

--Examples:
--Macro "#0;"  "F1"               --F1
--Macro "#0<"  "F2"               --F2
--Macro "#0="  "F3"               --F3
--Macro "#0>"  "F4"               --F4

Set 6  --This macro set is used when in getdata

Macro "#0;"  "#27##248"         --F1       digitize
Macro "#0<"  "#0"               --F2       do nothing
Macro "#0="  "#0"               --F3       do nothing
Macro "#0>"  "#27##4"           --F4       Start macro word
Macro "#0?"  ":"                --F5
Macro "#0@"  ";"                --F6
Macro "#0A"  "#27##7"           --F7       Keyboard macro save
Macro "#0B"  "#27##8"           --F8       Keyboard macro playback
Macro "#0C"  "#27##9"           --F9       StepSize / 2
Macro "#0D"  "#27##10"          --F10      StepSize * 2

Macro "#0G"  "#27##239"           --Home   Macro arrow commands
Macro "#0H"  "#27##240"           --Up
Macro "#0I"  "#27##241"           --PgUp
Macro "#0K"  "#27##242"           --Left
Macro "#0L"  "#27##243"           --Center
Macro "#0M"  "#27##244"           --Right
Macro "#0O"  "#27##245"           --End
Macro "#0P"  "#27##246"           --Down
Macro "#0Q"  "#27##247"           --PgDn
Macro "#0R"  "#27##248"           --Ins    Macro command DIG
Macro "#0S"  "#27##249"           --Del    Macro command UNDIG

End KeyMacro

End


