Category : Word Perfect
Archive   : WP5MM.ZIP
Filename : WPC.DEF

 
Output of file : WPC.DEF contained in archive : WP5MM.ZIP

;
; WordPerfect 5.0 pop-up mouse menus
; Colorized Version
; by
; Robert A. Berman
;
; Set up initial labels for mouse commands
;
; Left Right Both Left Right Up Down Hor Vert
; ButtonButtonButtonsArrow Arrow Arrow Arrow Sensativity
begin leftb,rightb,bothb,mousel,mouser,mouseu,moused,16,16
;
leftb: match 25,70,,"Pos",leftb2,leftb1 ;Is WordPerfect in
leftb1: match 25,70,,"POS",leftb2,rlret :document edit mode?
rightb: match 25,70,,"Pos",rightb2,rightb1 ;i.e., not processing
rightb1: match 25,70,,"POS",rightb2,rlret ;a menu command, and
bothb: match 25,70,,"Pos",bothb2,bothb1 ;not in a shell or
bothb1: match 25,70,,"POS",bothb2,bbesc ;list files
;
; ----------- Right or Left Button if not in document mode -------
rlret: execute return ;hit enter key
;
; ----------- Both buttons if not in document mode ---------------
bbesc: execute escape
;
;
; -------------------- Left Button in document mode ----------
;
leftb2: execute others ;Bring up function key menu
;
; -------------------- Both Buttons in document mode -------
;
bothb2: execute printmenu
;
; --------------------- Right Button in document mode -------
;
rightb2: execute keyaltf4 ;block
;
; -------------------- Mouse left -----------------------
;
mousel: execute left ;cursor left
;
; ------------------- Mouse right -----------------------
;
mouser: execute right ;cursor right
;
; --------------------- Mouse up -----------------------
;
mouseu: execute up ;cursor up
;
moused: execute down ;cursor down
;
; ---------------- Function Key Selection --------------------
others: popup 1,1,23
;
; 12345678911234567892123456789312345678941234567895123456789612345678971234567898
; 0 0 0 0 0 0 0 0
text " CANCEL "
text " F2 Home, F2 "
text " ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» "
text " º Shell ³ Spell ³ º Ctrl + Function Key"
text " F1º Setup ³ <-Search ³Extended <-Search º SHIFT + Function Key"
text " º Thesaurus ³ Replace ³ Extended Replace º Alt + Function Key"
text " º_____Cancel______³_____Search->____³ Extended Search->º Function Key Alone"
text " º Screen ³ Move ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ "
text " F3º Switch ³ ->Indent<- ºF4 "
text " º Reveal Codes ³ Block º ÉÍ Block Short-Cut ÍÍÍ» "
text " º______Help_______³____->Indent_____º º º "
text " º Text In/Out ³ Tab Align º º Block Delete º "
text " F5º Date/Outline ³ Center ºF6 ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ "
text " º Mark Text ³ Flush Right º º Block Copy º "
text " º____List Files___³______Bold_______º ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ "
text " º Footnote ³ Font º º Block Move º "
text " F7º Print ³ Format ºF8 ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ "
text " º Math/Columns ³ Style º ÉÍ Cursor Movement ÍÍÍ» "
text " º______Exit_______³____Underline____º º ³ º "
text " º Merge/Sort ³ Macro Def º º Go To ³ Page Up º "
text " F9º Merge Codes ³ Retrieve ºF10 ÇÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄĶ "
text " º Graphics ³ Macro º º Del EOLn ³ Page Dn º "
text " º Merge R ³ Save º º Del EOPg ³ º "
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍͼ "
; 1234567891123456789212345678931234567894123456789512345678961234567897
; 0 0 0 0 0 0 0
select 1,4,37
select 4,5,17,shellmenu ;Escape to DOS
select 5,5,17,setup ;Setup menu
select 6,5,17,keyaltf1 ;Thesaurus
select 7,5,17,keyf1 ;Cancel
select 8,5,17,scrnmenu ;Screen
select 9,5,17,keyshf3 ;Switch
select 10,5,17,keyaltf3 ;Reveal codes
select 11,5,17,keyf3 ;help
select 12,5,17,textmenu ;Text In/Out
select 13,5,17,datemenu ;Date/Outline
select 14,5,17,markmatch ;Mark Text
select 15,5,17,keyf5 ;List Files
select 16,5,17,footnote ;Footnote
select 17,5,17,printmenu ;Print
select 18,5,17,mathmatch ;Math / Columns
select 19,5,17,docout ;Exit
select 20,5,17,merge ;Merge/Sort
select 21,5,17,mergemenu ;Merge Codes
select 22,5,17,graphics ;Graphics
select 23,5,17,keyf9 ;Merge R
select 4,23,17,spellchk ;Spell
select 5,23,17,keyshf2 ;<-Search
select 6,23,17,keyaltf2 ;Replace
select 7,23,17,keyf2 ;->Search
select 8,23,17,movematch ;Move
select 9,23,17,keyshf4 ;->Indent<-
select 10,23,17,keyaltf4 ;Block
select 11,23,17,keyf4 ;->Indent
select 12,23,17,keyctlf6 ;Tab Align
select 13,23,17,keyshf6 ;Center
select 14,23,17,keyaltf6 ;Flush Right
select 15,23,17,keyf6 ;Bold
select 16,23,17,fontmenu ;Font
select 17,23,17,format ;Format
select 18,23,17,keyaltf8 ;Style
select 19,23,17,keyf8 ;Underline
select 20,23,17,keyctlf10 ;Macro Def
select 21,23,17,keyshf10 ;Retrieve
select 22,23,17,keyaltf10 ;Macro
select 23,23,17,save ;Save
select 5,41,18,extsrchup ;Extended <-Search
select 6,41,18,extreplace ;Extended Replace
select 7,41,18,extsrchdwn ;Extended Search->
select 12,49,19,blkdel ;Block Delete
select 14,49,19,blkcpy ;Block Copy
select 16,49,19,blkmov ;Block Move
select 20,49,8,goto ;GOTO (CTRL HOME)
select 22,49,8,deleol ;Delete to end of line
select 23,49,8,deleop ;delete t end of page
select 20,59,9,pageup ;scroll page up
select 22,59,9,pagedn ;scroll page down
pend
;
; ------------- SHELL - execute DOS (CTL F1) ---------------
;
shellmenu: popup 25,1,bold
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " Execute DOS Shell: CANCEL Go to DOS "
select 1,23,6
select 1,33,9,shell
pend
shell: execute keyctlf1,key1
;
; ---------------- MERGE CODES ----------------------
;
mergemenu: popup 5,5,23
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ÉÍÍÍ Merge Code Menu ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º ^C..Keyboard Input ^P..Primary File º"
text " º ^D..Current Date ^Q..Stop Merge º"
text " º ^E..End of Record ^R..End of File º"
text " º ^F..Field Number ^S..Secondary File º"
text " º ^G..Start Macro ^T..Text to Printer º"
text " º ^N..Next Record ^U..Update Screen º"
text " º ^O..Message ^V..Xfer Mrge Codes º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,40
select 4,6,18,mrgctlc
select 5,6,18,mrgctld
select 6,6,18,mrgctle
select 7,6,18,mrgctlf
select 8,6,18,mrgctlg
select 9,6,18,mrgctln
select 10,6,18,mrgctlo
select 4,27,19,mrgctlp
select 5,27,19,mrgctlq
select 6,27,19,mrgctlr
select 7,27,19,mrgctls
select 8,27,19,mrgctlt
select 9,27,19,mrgctlu
select 10,27,19,mrgctlv
pend
mrgctlc: execute keyaltf9,keyc
mrgctld: execute keyaltf9,keyd
mrgctle: execute keyaltf9,keye
mrgctlf: execute keyaltf9,keyf
mrgctlg: execute keyaltf9,keyg
mrgctln: execute keyaltf9,keyn
mrgctlo: execute keyaltf9,keyo
mrgctlp: execute keyaltf9,keyp
mrgctlq: execute keyaltf9,keyq
mrgctlr: execute keyaltf9,keyr
mrgctls: execute keyaltf9,keys
mrgctlt: execute keyaltf9,keyt
mrgctlu: execute keyaltf9,keyu
mrgctlv: execute keyaltf9,keyv
;
; ------------- Print Menu (SHIFT F7) ----------------------
;
printmenu: match 25,1,,"Block",keyshf7,printmenu2
printmenu2: match 25,11,,"Block",keyshf7,printmenuf
printmenuf: popup 5,5,23
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ÉÍÍÍ Print Menu ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Full Text Select Printer º"
text " º Page Binding º"
text " º Document on Disk Number of Copies º"
text " º Control Printer º"
text " º View Document Graphics Quality º"
text " º Initialize Printer Text Quality º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,40
select 5,6,18,prtfulltext
select 6,6,18,prtpage
select 7,6,18,prtdocdsk
select 8,6,18,prtctrl
select 9,6,18,prtview
select 10,6,18,prtinit
select 5,27,19,prtselect
select 6,27,19,prtbind
select 7,27,19,prtcopies
select 9,27,19,prtgraph
select 10,27,19,prttxt
pend
prtfulltext: execute keyshf7,keyf
prtpage: execute keyshf7,keyp
prtdocdsk: execute keyshf7,keyd
prtctrl: execute keyshf7,keyc
prtview: execute keyshf7,keyv
prtinit: execute keyshf7,keyi
prtselect: execute keyshf7,keys
prtbind: execute keyshf7,keyb
prtcopies: execute keyshf7,keyn
prtgraph: popup 25,1,bold
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text "Graphic Quality: No Print Draft Medium High "
select 1,19,8,granone
select 1,29,5,gradraft
select 1,36,6,gramedium
select 1,44,4,grahigh
pend
granone: execute keyshf7,keyg,key1
gradraft: execute keyshf7,keyg,key2
gramedium: execute keyshf7,keyg,key3
grahigh: execute keyshf7,keyg,key4
prttxt: popup 25,1,bold
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text "Text Quality: No Print Draft Medium High "
select 1,16,8,txtnone
select 1,26,5,txtdraft
select 1,33,6,txtmedium
select 1,41,4,txthigh
pend
txtnone: execute keyshf7,keyt,key1
txtdraft: execute keyshf7,keyt,key2
txtmedium: execute keyshf7,keyt,key3
txthigh: execute keyshf7,keyt,key4
;
; --------- Document Conversion & Locking (CTL F5) --------
;
; 1234567891123456789212345678931234567894123456789512345678961
; 0 0 0 0 0 0
textmenu: popup 5,5,23
text " ÉÍÍÍ Document Conversion and Password ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Save current document as DOS text file º"
text " º Retrieve a DOS text file (CR/LF becomes [HRt] º"
text " º Retrieve a DOS text file (CR/LF in H-Zone becomes [SRt] º"
text " º Password: Add or Change º"
text " º Password: Remove º"
text " º Save in a generic word processor format º"
text " º Save in WordPerfect 4.2 format º"
text " º Create Comment º"
text " º Edit Comment º"
text " º Convert Comment to Text º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,55
select 5,6,55,txtsave
select 6,6,55,txtreadhrt
select 7,6,55,txtreadsrt
select 8,6,55,txtlock
select 9,6,55,txtunlock
select 10,6,55,genericsave
select 11,6,55,wp42save
select 12,6,55,creatcomment
select 13,6,55,editcomment
select 14,6,55,cnvrtcommnt
pend
txtsave: execute keyctlf5,key1
txtreadhrt: execute keyctlf5,key1,key2
txtreadsrt: execute keyctlf5,key1,key3
txtlock: execute keyctlf5,key2,key1
txtunlock: execute keyctlf5,key2,key2
genericsave: execute keyctlf5,key3
wp42save: execute keyctlf5,key4
creatcomment: execute keyctlf5,key5,key1
editcomment: execute keyctlf5,key5,key2
cnvrtcommnt: execute keyctlf5,key5,key3
;
;
; --------- Font Control (CTL F8) --------------------------
;
; 1234567891123456789212345678931234567894123456789512345678961
; 0 0 0 0 0 0
fontmenu: popup 5,5,23
text " ÉÍÍÍ Font Size and Appearance Options ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Temporary Font Change Base Font Change º"
text " º Normal Base Font Print Color Change º"
text " º º"
text " º Font Size Font Appearance º"
text " º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º"
text " º Superscript Bold º"
text " º Subscript Underline º"
text " º Fine Double Underline º"
text " º Small Italic º"
text " º Large Outline º"
text " º Very Large Shadow º"
text " º Extra Large Small Caps º"
text " º Redline º"
text " º Strikeout º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,55
select 5,6,22,fnttemp
select 6,6,22,fntnorm
select 8,6,22,fntsize
select 10,6,22,fntsuper
select 11,6,22,fntsub
select 12,6,22,fntfine
select 13,6,22,fntsmall
select 14,6,22,fntlarge
select 15,6,22,fntvery
select 16,6,22,fntextra
select 5,37,23,fntbase
select 6,37,23,fntcolor
select 8,37,23,fntapp
select 10,37,23,fntbold
select 11,37,23,fntunder
select 12,37,23,fntdouble
select 13,37,23,fntitalic
select 14,37,23,fntout
select 15,37,23,fntshad
select 16,37,23,fntcaps
select 17,37,23,fntred
select 18,37,23,fntstrike
pend
fnttemp: execute keyctlf8,keyt
fntnorm: execute keyctlf8,keyn
fntsize: execute keyctlf8,keys
fntsuper: execute keyctlf8,keys,keyp
fntsub: execute keyctlf8,keys,keyb
fntfine: execute keyctlf8,keys,keyf
fntsmall: execute keyctlf8,keys,keys
fntlarge: execute keyctlf8,keys,keyl
fntvery: execute keyctlf8,keys,keyv
fntextra: execute keyctlf8,keys,keye
fntbase: execute keyctlf8,keyb
fntcolor: execute keyctlf8,keyc
fntapp: execute keyctlf8,keya
fntbold: execute keyctlf8,keya,keyb
fntunder: execute keyctlf8,keya,keyu
fntdouble: execute keyctlf8,keya,keyd
fntitalic: execute keyctlf8,keya,keyi
fntout: execute keyctlf8,keya,keyo
fntshad: execute keyctlf8,keya,keya
fntcaps: execute keyctlf8,keya,keyc
fntred: execute keyctlf8,keya,keyr
fntstrike: execute keyctlf8,keya,keys
;
; --------- Format Control (SHFT F8) ----------------------
;
format: match 25,1,,"Block",keyshf8,format2
format2: match 25,11,,"Block",keyshf8,formatmenu
; 12345678911234567892123456789312345678941234567895123456789612345678971234567898
; 0 0 0 0 0 0 0 0
formatmenu: popup 1,1,23
text " ÉÍÍÍÍ Format Control Options Menu ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» "
text " º º "
text " º Line º "
text " º Hyphenation and Zone Line Spacing º "
text " º Justification Margins Left / Right º "
text " º Line Height Tab Set º "
text " º Line Numbering Widow / Orphan Protection º "
text " º º "
text " º Page º "
text " º Center Page (top to bottom) New Page Number º "
text " º Force Odd / Even Page Page Numbering º "
text " º Headers and Footers Page Size / Type º "
text " º Margins Top / Bottom Suppress º "
text " º º "
text " º Document º "
text " º Display Pitch Redline Method º "
text " º Initial Codes / Font Summary º "
text " º º "
text " º Other º "
text " º Advance Overstrike º "
text " º Conditional End of Page Printer Functions º "
text " º Decimal Characters Underline Spaces / Tabs º "
text " º Language º "
text " º CANCEL º "
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ "
select 24,61,6
select 3,9,8,f1
select 9,9,4,f2
select 15,9,8,f3
select 19,9,5,f4
select 4,14,11,f11
select 5,14,13,f13
select 6,14,11,f14
select 7,14,14,f15
select 10,14,27,f21
select 11,14,21,f22
select 12,14,7,f23
select 13,14,20,f25
select 16,14,13,f31
select 17,14,13,f32
select 20,14,7,f41
select 21,14,23,f42
select 22,14,18,f43
select 23,14,8,f44
select 4,30,4,f12
select 12,26,7,f24
select 17,30,4,f33
select 4,47,12,f16
select 5,47,20,f17
select 6,47,7,f18
select 7,47,25,f19
select 10,47,15,f26
select 11,47,14,f27
select 12,47,16,f28
select 13,47,8,f29
select 16,47,14,f34
select 17,47,7,f35
select 20,47,10,f45
select 21,47,17,f46
select 22,47,23,f47
pend
f1: execute keyshf8,key1
f11: execute keyshf8,key1,key1
f12: execute keyshf8,key1,key2
f13: execute keyshf8,key1,key3
f14: execute keyshf8,key1,key4
f15: execute keyshf8,key1,key5
f16: execute keyshf8,key1,key6
f17: execute keyshf8,key1,key7
f18: execute keyshf8,key1,key8
f19: execute keyshf8,key1,key9
f2: execute keyshf8,key2
f21: execute keyshf8,key2,key1
f22: execute keyshf8,key2,key2
f23: execute keyshf8,key2,key3
f24: execute keyshf8,key2,key4
f25: execute keyshf8,key2,key5
f26: execute keyshf8,key2,key6
f27: execute keyshf8,key2,key7
f28: execute keyshf8,key2,key8
f29: execute keyshf8,key2,key9
f3: execute keyshf8,key3
f31: execute keyshf8,key3,key1
f32: execute keyshf8,key3,key2
f33: execute keyshf8,key3,key3
f34: execute keyshf8,key3,key4
f35: execute keyshf8,key3,key5
f4: execute keyshf8,key4
f41: execute keyshf8,key4,key1
f42: execute keyshf8,key4,key2
f43: execute keyshf8,key4,key3
f44: execute keyshf8,key4,key4
f45: execute keyshf8,key4,key5
f46: execute keyshf8,key4,key6
f47: execute keyshf8,key4,key7
;
; --------- Spell Checker (CTRL F2) ----------------------
;
spellchk: popup 5,5,23
; 123456789112345678921234567
; 0 0
text " ÉÍÍ Spell Checker ÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Word º"
text " º Page º"
text " º Document º"
text " º New Sup Dictionary º"
text " º Lookup Word º"
text " º Count Words º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,18
select 5,6,18,spellw
select 6,6,18,spellp
select 7,6,18,spelld
select 8,6,18,spelln
select 9,6,18,spelll
select 10,6,18,spellc
pend
spellw: execute keyctlf2,keyw
spellp: execute keyctlf2,keyp
spelld: execute keyctlf2,keyd
spelln: execute keyctlf2,keyn
spelll: execute keyctlf2,keyl
spellc: execute keyctlf2,keyc
;
; --------- Move Menus (CTL F4) -------------
;
; Check for "Block" in lower left of screen. If Typeover mode is
; on, the block literal will be shifted to column 11.
;
movematch: match 25,1,,"Block",moveblk,movematch2
movematch2: match 25,11,,"Block",moveblk,movetxt
;
; --------- Move Blocks (when "Block" is in lower left -----
;
moveblk: popup 25,1,bold
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text "Block Tabular Column Rectangle CANCEL "
select 1,38,6
select 1,1,5,mbon1
select 1,9,14,mbon2
select 1,26,9,mbon3
pend
mbon1: execute keyctlf4,keyb,mbda
mbon2: execute keyctlf4,keyc,mbda
mbon3: execute keyctlf4,keyr,mbda
;
; ------ Move Block "Move Copy Delete Append" (with or w/o block) -----
mbda: popup 25,1,bold
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text "Move Copy Delete Append CANCEL "
select 1,37,6
select 1,1,4,mbdam
select 1,9,4,mbdac
select 1,17,6,mbdad
select 1,27,6,mbdaa
pend
mbdam: execute keym
mbdac: execute keyc
mbdad: execute keyd
mbdaa: execute keya
;
; --------- Move Text (when "Block" is not in lower left -----
;
movetxt: popup 25,1,bold
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text "Sentence Paragraph Page Retreive CANCEL "
select 1,46,6
select 1,1,8,moff1
select 1,13,9,moff2
select 1,26,4,moff3
select 1,34,8,moff4
pend
moff1: execute keyctlf4,keys,mbda
moff2: execute keyctlf4,keyp,mbda
moff3: execute keyctlf4,keya,mbda
moff4: execute keyctlf4,keyr,mvrt
;
mvrt: popup 25,1,bold
text "Block Tabular Column Rectangle CANCEL "
select 1,38,6
select 1,1,5,mbrt1
select 1,9,14,mbrt2
select 1,26,9,mbrt3
pend
mbrt1: execute keyb
mbrt2: execute keyc
mbrt3: execute keyr
;
; ------------- Screen Menu (CTL F2) ---------------------
;
scrnmenu: popup 5,5,23
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ÉÍ Screen Menu ÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Rewrite º"
text " º Half Window º"
text " º Full Window º"
text " º Custom Window º"
text " º Line Draw º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,14
select 5,6,14,scrnrewrite
select 6,6,14,scrnwindhlf
select 7,6,14,scrnwindful
select 8,6,14,scrnwindcus
select 9,6,14,scrnlinedrw
pend
scrnrewrite: execute keyctlf3,key0
scrnwindhlf: execute keyctlf3,key1,key1,key1,return
scrnwindful: execute keyctlf3,key1,key0,return
scrnwindcus: execute keyctlf3,key1
scrnlinedrw: execute keyctlf3,key2
;
; ------------- Footnotes (CTL F7) -----------------------
;
footnote: popup 5,5,23
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ÉÍÍÍ Footnote / Endnote ÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Footnote Endnote º"
text " º ÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄÄÄÄÄÄ º"
text " º Create Create º"
text " º Edit Edit º"
text " º New number New Number º"
text " º Options Options º"
text " º Placement º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,34
select 7,6,10,footcreate
select 8,6,10,footedit
select 9,6,10,footnew
select 10,6,10,footoption
select 7,27,10,endcreate
select 8,27,10,endedit
select 9,27,10,endnew
select 10,27,10,endoption
select 11,27,10,endplace
pend
footcreate: execute keyctlf7,key1,key1
footedit: execute keyctlf7,key1,key2
footnew: execute keyctlf7,key1,key3
footoption: execute keyctlf7,key1,key4
endcreate: execute keyctlf7,key2,key1
endedit: execute keyctlf7,key2,key2
endnew: execute keyctlf7,key2,key3
endoption: execute keyctlf7,key2,key4
endplace: execute keyctlf7,key3
;
; ------------- Merge / Sort Menu (CTL F9) ----------------------
;
merge: match 25,1,,"Block",keyctlf9,merge2
merge2: match 25,11,,"Block",keyctlf9,srtmrg
srtmrg: popup 25,1,bold
; 1234567891123456789212345678
; 0 0
text "Merge Sort CANCEL "
select 1,16,6
select 1,6,18,srtmrgm
select 1,6,18,srtmrgs
pend
srtmrgm: execute keyctlf9,keym
srtmrgs: execute keyctlf9,keys
;
; ------------- Date / Outline Menu (SHFT F9) ----------------------
;
datemenu: popup 24,1,bold
; 1234567891123456789212345678931234567894123456789512345678961234567897123456
; 0 0 0 0 0 0
text "Dates: CANCEL Ins. Date as Text Ins. Date Function Chg. Date Format "
text "Modes: Outline Paragraph Define Outline / Paragraph "
select 1,8,6
select 1,18,17,dattext
select 1,39,18,datfunc
select 1,61,16,datform
select 2,8,7,outl
select 2,18,9,para
select 2,39,26,defop
pend
dattext: execute keyshf5,key1
datform: execute keyshf5,key2
datfunc: execute keyshf5,key3
outl: execute keyshf5,key4
para: execute return,keyshf5,key5
defop: execute keyshf5,key6
;
; ------------- Math/Columns (ALT F7) --------------------
;
; Check for "Math" in lower left of screen. If Typeover mode is on,
; the "Math" literal will be shifted to column 11.
;
mathmatch: match 25,1,,"Math",mathonmenu,mathmatch1
mathmatch1: match 25,11,,"Math",mathonmenu,mathoffmenu
;
; ------------- Math/Columns (ALT F7) (MATH OFF)----------
;
mathoffmenu: popup 5,5,23
; 1234567891123456789212345678
; 0 0
text " ÉÍ Math/Columns ÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Math On º"
text " º Math Definition º"
text " º Column On/Off º"
text " º Column Definition º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,17
select 5,6,17,mathon
select 6,6,17,mathdef
select 7,6,17,colmon1
select 8,6,17,colmdef1
pend
mathon: execute keyaltf7,key1
mathdef: execute keyaltf7,key2
colmon1: execute keyaltf7,key3
colmdef1: execute keyaltf7,key4
;
; ------------- Math/Columns (ALT F7) (MATH ON)-----------
;

mathonmenu: popup 5,5,23
; 1234567891123456789212345678
; 0 0
text " ÉÍ Math/Columns ÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Math Off º"
text " º Calculate º"
text " º Column On/Off º"
text " º Column Definition º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,17
select 5,6,17,mathoff
select 6,6,17,mathcalc
select 7,6,17,colmon2
select 8,6,17,colmdef2
pend
mathoff: execute keyaltf7,key1
mathcalc: execute keyaltf7,key2
colmon2: execute keyaltf7,key3
colmdef2: execute keyaltf7,key4
;
;
; ------------- Mark Text (ALT F5) -----------------------
;
;
; Check for "Block" in lower left of screen. If Typeover mode is
; on, the block literal will be shifted to column 11.
;
markmatch: match 25,1,,"Block",markblk,markmatch2
markmatch2: match 25,11,,"Block",markblk,markmenu
;
markblk: popup 5,5,23
; 12345678911234567892123456789312345678941234567
; 0 0 0 0
text " ÉÍÍÍ Mark Block ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Table of Contents º"
text " º List º"
text " º Index [Heading only] º"
text " º Index [Heading & Subheading] º"
text " º Table of Authorities [Select] º"
text " º Table of Authorities [Short Form] º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,33
select 5,6,33,blktoc
select 6,6,33,blklist
select 7,6,33,blkind1
select 8,6,33,blkind2
select 9,6,33,blktoa1
select 10,6,33,blktoa2
pend
blktoc: execute keyaltf5,keyc
blklist: execute keyaltf5,keyl
blkind1: execute keyaltf5,keyi,return,return
blkind2: execute keyaltf5,keyi,return
blktoa1: execute keyaltf5,keya,return
blktoa2: execute keyaltf5,keya,return,return
;
markmenu: popup 5,5,23
; 1234567891123456789212345678931234567894123456789
; 0 0 0 0
text " ÉÍÍÍÍ Mark Text Options ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Auto Reference Table of Authorities º"
text " º Subdocument Define º"
text " º Index Generate º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,42
select 5,6,14,mrkr
select 6,6,14,mrks
select 7,6,14,mrki
select 5,27,20,mrka
select 6,27,20,mrkd
select 7,27,20,mrkg
pend
mrks: execute keyaltf5,keys
mrki: execute keyaltf5,keyi
mrka: execute keyaltf5,keya
;
mrkr: popup 5,5,23
; 1234567891123456789212345678931234567894123456789
; 0 0 0 0
text " ÉÍ Auto Reference Í»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Mark Reference º"
text " º Mark Target º"
text " º Mark Both º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,16
select 5,6,16,mrkrr
select 6,6,16,mrkrt
select 7,6,16,mrkrb
pend
mrkrr: execute keyaltf5,keyr,keyr
mrkrt: execute keyaltf5,keyr,keyr
mrkrb: execute keyaltf5,keyr,keyr
;
; 1234567891123456789212345678931234567894123456789512345678961
; 0 0 0 0 0 0
mrkg: popup 5,5,23
text " ÉÍÍÍ Mark Text: Generate ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Remove Redline Markings & Strikeout Text From Document º"
text " º Compare Screen & Disk Documents & Add Redline & Strike º"
text " º Expand Master Document º"
text " º Condense Master Document º"
text " º Generate Tables, Indexes, Automatic References, etc. º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,54
select 5,6,54,mrkgr
select 6,6,54,mrkgc
select 7,6,54,mrkge
select 8,6,54,mrkgo
select 9,6,54,mrkgg
pend
mrkgr: execute keyaltf5,keyg,keyr
mrkgc: execute keyaltf5,keyg,keyv
mrkge: execute keyaltf5,keyg,keye
mrkgo: execute keyaltf5,keyg,keyo
mrkgg: execute keyaltf5,keyg,keyg
;
; 123456789112345678921234567893123456789412
; 0 0 0 0
mrkd: popup 5,5,23
text " ÉÍÍ Mark Text: Define ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Define Table of Contents º"
text " º Define List º"
text " º Define Index º"
text " º Define Table of Authorities º"
text " º Edit Table of Authorities Full Form º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,35
select 5,6,35,mrkdc
select 6,6,35,mrkdl
select 7,6,35,mrkdi
select 8,6,35,mrkda
select 9,6,35,mrkde
pend
mrkdc: execute keyaltf5,keyd,keyc
mrkdl: execute keyaltf5,keyd,keyl
mrkdi: execute keyaltf5,keyd,keyi
mrkda: execute keyaltf5,keyd,keya
mrkde: execute keyaltf5,keyd,keye
;
;
;------------------- Setup Menu --------------------------------
;
; 1234567891123456789212345678931234567
; 0 0 0 0
setup: popup 5,5,23
text " ÉÍÍÍ Setup Options Menu ÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Backup º"
text " º Cursor Speed º"
text " º Display º"
text " º Fast Save (unformatted) º"
text " º Initial Settings º"
text " º Keyboard Layout º"
text " º Location of Auxiliary Files º"
text " º Units of Measure º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,29
select 5,6,29,setbak
select 6,6,29,setcur
select 7,6,29,setdis
select 8,6,29,setfas
select 9,6,29,setini
select 10,6,29,setkey
select 11,6,29,setloc
select 12,6,29,setuni
pend
setbak: execute keyshf1,key1
setcur: execute keyshf1,key2
setdis: execute keyshf1,key3
setfas: execute keyshf1,key4
setini: execute keyshf1,key5
setkey: execute keyshf1,key6
setloc: execute keyshf1,key7
setuni: execute keyshf1,key8
;
;
;
;--------------- Graphics (Alt-F9) ---------------------------
;
graphics: popup 25,1,bold
text "Graphics: CANCEL Figure Table Text Box User Defined Box Line "
select 1,12,6
select 1,20,6,gfigure
select 1,28,5,gtable
select 1,35,8,gtext
select 1,45,16,guser
select 1,63,4,gline
pend
gfigure: execute keyaltf9,keyf,ceno
gtable: execute keyaltf9,keyt,ceno
gtext: execute keyaltf9,keyb,ceno
guser: execute keyaltf9,keyu,ceno
gline: execute keyaltf9,keyl,gln2
;
ceno: popup 25,1,bold
text "Create Edit New Number Options CANCEL "
select 1,44,6
select 1,1,6,fcreate
select 1,11,4,fedit
select 1,19,10,fnewnum
select 1,33,7,foptions
pend
fcreate: execute keyc
fedit: execute keye
fnewnum: execute keyn
foptions: execute keyo
;
gln2: popup 25,1,bold
text "Line: CANCEL Horizontal Vertical "
select 1,8,6
select 1,18,10,lhoriz
select 1,31,8,lvert
pend
lhoriz: execute keyaltf9,keyl,keyh
lvert: execute keyaltf9,keyl,keyv
;
;--------------- Exit document & optionally WP ---------------
;
;
docout: popup 5,5,23
text " ÉÍÍ Exit ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
text " º º"
text " º CANCEL º"
text " º º"
text " º Save Document [New Name] º"
text " º Save Document [Replace ] º"
text " º Exit [No Document Saved] º"
text " º º"
text " ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
select 3,6,25
select 5,6,25,ex1
select 6,6,25,ex2
select 7,6,25,ex3
pend
ex1: execute keyf7,keyy
ex2: execute keyf7,keyy,return,keyy,return
ex3: execute keyf7,keyn,keyy
;
; ------------- Save document w/ or w/o new name SHFT F10 ------
;
save: popup 25,1,bold
; 123456789112345678921234567893123456789412345
; 0 0 0 0
text "Save Document: Replace New Name CANCEL "
select 1,40,6
select 1,17,7,svr
select 1,28,8,svn
pend
svr: execute keyf10,return,keyy
svn: execute keyf10,keyend
;
; ------------- Extended searches and replace ------------
;
extsrchup: execute keyhome,keyshf2 ;Extended <-Search
extreplace: execute keyhome,keyaltf2 ;Extended Replace
extsrchdwn: execute keyhome,keyf2 ;Extended Search->
;
; -------------- Block Short-Cut Options ------------------
;
blkdel: match 25,1,,"Block",blkdel2,blkdel1
blkdel1: match 25,11,,"Block",blkdel2,blkcan
blkcpy: match 25,1,,"Block",blkcpy2,blkcpy1
blkcpy1: match 25,11,,"Block",blkcpy2,blkcan
blkmov: match 25,1,,"Block",blkmov2,blkmov1
blkmov1: match 25,11,,"Block",blkmov2,blkcan
blkcan: execute keyf1,return
blkdel2: execute keyctlf4,keyb,keyd
blkcpy2: execute keyctlf4,keyb,keyc
blkmov2: execute keyctlf4,keyb,keym
;
; ------------- Cursor movement keys --------------------
;
goto: execute keyctlhome
deleop: execute keyctlpgdn ;delete to end of page
pageup: execute keypgup ;scroll page up
pagedn: execute keypgdn ;scroll page down
deleol: popup 25,1,bold
; 123456789112345678921234567893123456789412345678951234
; 0 0 0 0 0
text "Verify delete of text to end of line: CANCEL DELETE "
select 1,39,6
select 1,48,6,keyctlend
pend
;
;
; ------------- Keystroke definintions -------------------
;
key0: type "0"
key1: type "1"
key2: type "2"
key3: type "3"
key4: type "4"
key5: type "5"
key6: type "6"
key7: type "7"
key8: type "8"
key9: type "9"
keya: type "A"
keyb: type "B"
keyc: type "C"
keyd: type "D"
keye: type "E"
keyf: type "F"
keyg: type "G"
keyh: type "H"
keyi: type "I"
keyj: type "J"
keyk: type "K"
keyl: type "L"
keym: type "M"
keyn: type "N"
keyo: type "O"
keyp: type "P"
keyq: type "Q"
keyr: type "R"
keys: type "S"
keyt: type "T"
keyu: type "U"
keyv: type "V"
keyw: type "W"
keyx: type "X"
keyy: type "Y"
keyz: type "Z"
keyctla: type 1
keyctlb: type 2
keyctlc: type 3
keyctld: type 4
keyctle: type 5
keyctlf: type 6
keyctlg: type 7
keyctlh: type 8
keyctli: type 9
keyctlj: type 10
keyctlk: type 11
keyctll: type 12
keyctlm: type 13
keyctln: type 14
keyctlo: type 15
keyctlp: type 16
keyctlq: type 17
keyctlr: type 18
keyctls: type 19
keyctlt: type 20
keyctlu: type 21
keyctlv: type 22
keyctlw: type 23
keyctlx: type 24
keyctly: type 25
keyctlz: type 26
keyhome: type 0,71
keyend: type 0,79
keyctlhome: type 0,119
keyctlend: type 0,117
keyctlpgdn: type 0,118
nothing: nothing
left: type 0,75
right: type 0,77
up: type 0,72
down: type 0,80
keypgup: type 0,73
keypgdn: type 0,81
keyf1: type 0,59
keyf2: type 0,60
keyf3: type 0,61
keyf4: type 0,62
keyf5: type 0,63
keyf6: type 0,64
keyf7: type 0,65
keyf8: type 0,66
keyf9: type 0,67
keyf10: type 0,68
keyaltf1: type 0,104
keyaltf2: type 0,105
keyaltf3: type 0,106
keyaltf4: type 0,107
keyaltf5: type 0,108
keyaltf6: type 0,109
keyaltf7: type 0,110
keyaltf8: type 0,111
keyaltf9: type 0,112
keyaltf10: type 0,113
keyshf1: type 0,84
keyshf2: type 0,85
keyshf3: type 0,86
keyshf4: type 0,87
keyshf5: type 0,88
keyshf6: type 0,89
keyshf7: type 0,90
keyshf8: type 0,91
keyshf9: type 0,92
keyshf10: type 0,93
keyctlf1: type 0,94
keyctlf2: type 0,95
keyctlf3: type 0,96
keyctlf4: type 0,97
keyctlf5: type 0,98
keyctlf6: type 0,99
keyctlf7: type 0,100
keyctlf8: type 0,101
keyctlf9: type 0,102
keyctlf10: type 0,103
return: type enter
escape: type 27
; The end