home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hall of Fame
/
HallofFameCDROM.cdr
/
wp2
/
macmenus.lzh
/
WPMM312M.DEF
< prev
next >
Wrap
Text File
|
1989-05-31
|
46KB
|
1,455 lines
BEGIN LeftB,RightB,macmenu,mousel,mouser,mouseu,moused,64,64
;WP 5.0 LOGIMENU/WINDOWS-LIKE INTERFACE TO EMULATE WP MAC 1.0.2 COMMANDS
;USE THE WINDOWS/MACINTOSH CONCEPT OF BLOCK SELECTION PRIOR TO COMMAND
;SELECTION WHERE APPROPRIATE MICROSOFT (2 BUTTON MOUSE), 25 LINE DISPLAY
;(c) D.PETHERICK (73627,226) MAY 31/89 version 3.1
;
;Bugs fixed 1/macspecial label moved, 2/nothing: nothing line deleted
;This fixes problem with spell check menu on some clones and PCjr and
;makes this .DEF file compatible with the latest version of MAKEMENU.EXE
;
;FOR 35,40,43,50 (ie. XX) LINE DISPLAYS, REPLACE <MATCH 25> WITH <MATCH XX>
;THROUGHOUT THIS .DEF FILE THEN RECOMPILE USING MAKEMENU.EXE
LeftB: TYPE 0,107 ;block on toggle
RightB: nothing ;select menu item
mousel: TYPE 0,75 ;left
mouser: TYPE 0,77 ;right
mouseu: TYPE 0,72 ;up
moused: TYPE 0,80 ;down
exit: MATCH 25,1,,"Block",noblockmsg,ctovr1
ctovr1: MATCH 25,11,,"Block",noblockmsg,exitcont
exitcont: TYPE 0,65 ;exit
entr: TYPE ENTER
cancel: TYPE 0,59 ;cancel
quitnosave: MATCH 25,1,,"Block",noblockmsg,ctovr2
ctovr2: MATCH 25,11,,"Block",noblockmsg,qnscont
qnscont: TYPE 0,65, "NY" ;exit,no,yes
macmenu: POPUP 1,3,INVERSE
; 23456789012345678901234567890123456789012345678901234567
TEXT "╔═════════════════════════════════════════════════════════╦════════════╗"
TEXT "║Help File Edit Search Format Font Special Windows ║*WP5MACMENU*║█"
TEXT "╟─┬─┬─┬─┬─┬─┬──┬──╔═══════════════════════════════════════╩══════[3.1]═╝█"
TEXT "║P│B│U│I│O│S│S│S║██████████████████████████████████████████████████████"
TEXT "╚═╧═╧═╧═╧═╧═╧══╧══╝█"
TEXT "████████████████████"
SELECT 2,2,4, helpmenu1
SELECT 2,8,4, filemenu
SELECT 2,14,4, editmenu
SELECT 2,20,6, searchmenu
SELECT 2,28,6, formatmenu
SELECT 2,36,4, fontmenu
SELECT 2,42,7, specialmenu
SELECT 2,51,7, windowsmenu
SELECT 4,2,1, ptproc
SELECT 4,4,1, boproc
SELECT 4,6,1, unproc
SELECT 4,8,1, itproc
SELECT 4,10,1, otproc
SELECT 4,12,1, shproc
SELECT 4,14,2, spproc
SELECT 4,17,2, sbproc
PEND
helpmenu1: POPUP 2,3,INVERSE
TEXT "┌[Help]──────────┐"
TEXT "│WordPerfect Help │"
TEXT "│2 Button Mouse Help│"
TEXT "│About WP5MACMENU... │"
TEXT "└────────────────────┘"
SELECT 1,2,4,helpexit
SELECT 2,2,20,helpexec
SELECT 3,2,20,lmousehelp
SELECT 4,2,20,aboutmsg
PEND
helpexit: EXECUTE entr,backspc,macmenu
helpexec: EXECUTE helpstart,helpmenu2
helpstart: TYPE 0,61
backspc: TYPE BACKSP
helpmenu2: POPUP 1,10,INVERSE
TEXT "┌[WordPerfect Help]─────────────────────────────────────────┐"
TEXT "│ Control-Fn Alt-Fn Shift-Fn Fn alone │█"
TEXT "╞══════════════════════════════════════════════════════╗ │█"
TEXT "│ Shell Thesaurus Setup Cancel ║ (F1) │█"
TEXT "│ Spell Replace <Search >Search ║ (F2) │█"
TEXT "│ Screen Reveal Codes Switch Help ║ (F3) │█"
TEXT "│ Move Block >Indent< >Indent ║ (F4) │█"
TEXT "│ Text In/Out Mark Text Date/Outline List Files ║ (F5) │█"
TEXT "│ Tab Align Flush Right Center Bold ║ (F6) │█"
TEXT "│ Footnote Math/Columns Print Exit ║ (F7) │█"
TEXT "│ Font Style Format Underline ║ (F8) │█"
TEXT "│ Merge/Sort Graphics Merge Codes Merge R ║ (F9) │█"
TEXT "│ Macro Define Macro Retrieve Save ║ (F10) │█"
TEXT "│ Compose ║ (^V) │█"
TEXT "├────────────────────────────────────────────────┐ ┌╨────────┤█"
TEXT "│ SELECT ITEM FOR HELP - <spacebar> or <enter> or│EXIT│to leave │█"
TEXT "└────────────────────────────────────────────────┴────┴─────────┘█"
TEXT "╟─┬─┬─┬─┬─┬─┬──┬──╔ ┌─Plain Text ┐█████████████████████████████"
TEXT "║P│B│U│I│O│S│S│S║ │ Bold │█"
TEXT "╚═╧═╧═╧═╧═╧═╧══╧══╝ │ Underline │█"
TEXT " └┬──────────────┴─────┤ Italic │█"
TEXT " │ │ Outline │█"
TEXT " └ Quick Character │ Shadow │█"
TEXT " Style Selector │ Superscript│█"
TEXT " └ Subscript ┘█"
TEXT "██████████████████████████████████████"
SELECT 1,2,4,helpmenu1
SELECT 4,3,12,cf1
SELECT 5,3,12,cf2
SELECT 6,3,12,cf3
SELECT 7,3,12,cf4
SELECT 8,3,12,cf5
SELECT 9,3,12,cf6
SELECT 10,3,12,cf7
SELECT 11,3,12,cf8
SELECT 12,3,12,cf9
SELECT 13,3,12,cf10
SELECT 14,3,12,composehlp
SELECT 4,16,12,af1
SELECT 5,16,12,af2
SELECT 6,16,12,af3
SELECT 7,16,12,af4
SELECT 8,16,12,af5
SELECT 9,16,12,af6
SELECT 10,16,12,af7
SELECT 11,16,12,af8
SELECT 12,16,12,af9
SELECT 13,16,12,af10
SELECT 4,30,12,sf1
SELECT 5,30,12,sf2
SELECT 6,30,12,sf3
SELECT 7,30,12,sf4
SELECT 8,30,12,sf5
SELECT 9,30,12,sf6
SELECT 10,30,12,sf7
SELECT 11,30,12,sf8
SELECT 12,30,12,sf9
SELECT 13,30,12,sf10
SELECT 4,44,12,f1
SELECT 5,44,12,f2
SELECT 6,44,12,f3
SELECT 7,44,12,f4
SELECT 8,44,12,f5
SELECT 9,44,12,f6
SELECT 10,44,12,f7
SELECT 11,44,12,f8
SELECT 12,44,12,f9
SELECT 13,44,12,f10
SELECT 16,51,4,exithelp
PEND
exithelp: EXECUTE entr,backspc
cf1: TYPE 0,94
cf2: TYPE 0,95
cf3: TYPE 0,96
cf4: TYPE 0,97
cf5: TYPE 0,98
cf6: TYPE 0,99
cf7: TYPE 0,100
cf8: TYPE 0,101
cf9: TYPE 0,102
cf10: TYPE 0,103
composehlp: TYPE 22
af1: TYPE 0,104
af2: TYPE 0,105
af3: TYPE 0,106
af4: TYPE 0,107
af5: TYPE 0,108
af6: TYPE 0,109
af7: TYPE 0,110
af8: TYPE 0,111
af9: TYPE 0,112
af10: TYPE 0,113
sf1: TYPE 0,84
sf2: TYPE 0,85
sf3: TYPE 0,86
sf4: TYPE 0,87
sf5: TYPE 0,88
sf6: TYPE 0,89
sf7: TYPE 0,90
sf8: TYPE 0,91
sf9: TYPE 0,92
sf10: TYPE 0,93
f1: TYPE 0,59
f2: TYPE 0,60
f3: TYPE 0,61
f4: TYPE 0,62
f5: TYPE 0,63
f6: TYPE 0,64
f7: TYPE 0,65
f8: TYPE 0,66
f9: TYPE 0,67
f10: TYPE 0,68
lmousehelp: POPUP 4,10,INVERSE
TEXT "┌[2 Button Mouse Help]──────────────┐"
TEXT "│ Mouse Button Help │█"
TEXT "│ L R - ( █ = Pressed, ░ = Released) │█"
TEXT "├───────────────────────────────────────┤█"
TEXT "│ █ ░ - Block On/Off │█"
TEXT "│ │█"
TEXT "│ ░ █ - Select Menu Item │█"
TEXT "│ │█"
TEXT "│ █ █ - Main Menu │█"
TEXT "└───────────────────────────────────────┘█"
TEXT "██████████████████████████████████████████"
SELECT 1,2,4,helpmenu1
PEND
filemenu: POPUP 2,9,INVERSE
TEXT "┌[File]──────────┐"
TEXT "│New (No Save)│█"
TEXT "│Open... │█"
TEXT "│Retrieve... │█"
TEXT "│Close │█"
TEXT "│Save │█"
TEXT "│Save Selection As...│█"
TEXT "│Save Copy As... │█"
TEXT "│File Management... │█"
TEXT "│Print Options │█"
TEXT "│Print... │█"
TEXT "│WP Defaults │█"
TEXT "│Transfer... (to DOS)│█"
TEXT "│Quit │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,macmenu
SELECT 2,2,20,newproc
SELECT 3,2,20,f5
SELECT 4,2,20,sf10
SELECT 5,2,20,closeproc
SELECT 6,2,20,f10
SELECT 7,2,20,saveselproc
SELECT 8,2,20,savecopyproc
SELECT 9,2,20,f5
SELECT 10,2,20,printoptproc
SELECT 11,2,20,sf7
SELECT 12,2,20,wpdefproc
SELECT 13,2,20,cf1
SELECT 14,2,20,quitproc
PEND
macfile: EXECUTE macmenu
;IBM equivalent selections
newproc: MATCH 25,1,,"Block",noblockmsg,ctovr3
ctovr3: MATCH 25,11,,"Block",noblockmsg,newcont
newcont: TYPE 0,65, "NN" ;exit,no,no
openproc: MATCH 25,1,,"Block",noblockmsg,ctovr4
ctovr4: MATCH 25,11,,"Block",noblockmsg,opencont
opencont: TYPE 0,63 ;list files
retrproc: MATCH 25,1,,"Block",noblockmsg,ctovr5
ctovr5: MATCH 25,11,,"Block",noblockmsg,retrcont
retrcont: TYPE 0,93 ;retrieve
closeproc: MATCH 25,1,,"Block",noblockmsg,ctovr6
ctovr6: MATCH 25,11,,"Block",noblockmsg,closecont
closecont: TYPE 0,65, "Y" ;exit,yes...
saveproc: TYPE 0,68 ;save (file or block)
saveselproc: MATCH 25,1,,"Block",saveselcont,ctovr7
ctovr7: MATCH 25,11,,"Block",saveselcont,blockmsg
saveselcont: TYPE 0,68 ;save (block)
savecopyproc: MATCH 25,1,,"Block",noblockmsg,ctovr8
ctovr8: MATCH 25,11,,"Block",noblockmsg,savecopycont
savecopycont: TYPE 0,98 ;text in/out(save as other...)
filemgtproc: MATCH 25,1,,"Block",noblockmsg,ctovr9
ctovr9: MATCH 25,11,,"Block",noblockmsg,filemgtcont
filemgtcont: TYPE 0,63 ;list files
printproc: TYPE 0,90 ;print (file or block)
printoptproc: POPUP 12,16,INVERSE
TEXT "┌[Print Options]─┐"
TEXT "│Page Setup... │█"
TEXT "│Print Preview... │█"
TEXT "│Print Selection... │█"
TEXT "│Postscript... NA│█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│Select Printer... │█"
TEXT "│Printer Control... │█"
TEXT "│Printer Forms... │█"
TEXT "│Binding Width... │█"
TEXT "│Text Quality... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,filemenu
SELECT 2,2,20,pagesetupproc
SELECT 3,2,20,printprevproc
SELECT 4,2,20,printselproc
SELECT 5,2,20,pscriptproc
SELECT 7,2,20,selptrproc
SELECT 8,2,20,ptrctlproc
SELECT 9,2,20,ptrformproc
SELECT 10,2,20,ptrbwproc
SELECT 11,2,20,ptrtqproc
PEND
pagesetupproc: MATCH 25,1,,"Block",noblockmsg,ctovr10
ctovr10: MATCH 25,11,,"Block",noblockmsg,pagesetupcont
pagesetupcont: TYPE 0,91, "P" ;format,page
printprevproc: MATCH 25,1,,"Block",noblockmsg,ctovr11
ctovr11: MATCH 25,11,,"Block",noblockmsg,printprevcont
printprevcont: TYPE 0,90, "V" ;print,view
printselproc: TYPE 0,90 ;print (file or block)
pscriptproc: EXECUTE notpossmsg ;not implemented
selptrproc: MATCH 25,1,,"Block",noblockmsg,ctovr12
ctovr12: MATCH 25,11,,"Block",noblockmsg,selptrcont
selptrcont: TYPE 0,90, "S" ;print,select printer
ptrctlproc: MATCH 25,1,,"Block",noblockmsg,ctovr13
ctovr13: MATCH 25,11,,"Block",noblockmsg,ptrctlcont
ptrctlcont: TYPE 0,90, "C" ;print,printer control
ptrformproc: MATCH 25,1,,"Block",noblockmsg,ctovr14
ctovr14: MATCH 25,11,,"Block",noblockmsg,ptrformcont
ptrformcont: TYPE 0,90, "SEF" ;print,select printer,edit,forms
ptrbwproc: MATCH 25,1,,"Block",noblockmsg,ctovr15
ctovr15: MATCH 25,11,,"Block",noblockmsg,ptrbwcont
ptrbwcont: TYPE 0,90, "B" ;print,binding
ptrtqproc: MATCH 25,1,,"Block",noblockmsg,ctovr16
ctovr16: MATCH 25,11,,"Block",noblockmsg,ptrtqcont
ptrtqcont: TYPE 0,90, "T" ;print,text quality
wpdefproc: MATCH 25,1,,"Block",noblockmsg,ctovr17
ctovr17: MATCH 25,11,,"Block",noblockmsg,wpdefcont
wpdefcont: POPUP 13,16,INVERSE
TEXT "┌[WP Defaults]───┐"
TEXT "│Save Settings(Setup)│█"
TEXT "│Backup Options... │█"
TEXT "│Beep Options... │█"
TEXT "│Default Folders... │█"
TEXT "│Measurement... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,filemenu
SELECT 2,2,20,savesetproc
SELECT 3,2,20,backoptproc
SELECT 4,2,20,beepoptproc
SELECT 5,2,20,deffoldproc
SELECT 6,2,20,measproc
PEND
savesetproc: TYPE 0,84 ;setup
backoptproc: TYPE 0,84, "B" ;setup,backup
beepoptproc: TYPE 0,84, "IB" ;setup,initial,beep
deffoldproc: TYPE 0,84, "L" ;setup,location
measproc: TYPE 0,84, "U" ;setup,units
transproc: MATCH 25,1,,"Block",noblockmsg,ctovr18
ctovr18: MATCH 25,11,,"Block",noblockmsg,transcont
transcont: TYPE 0,94 ;shell
quitproc: MATCH 25,1,,"Block",noblockmsg,ctovr19
ctovr19: MATCH 25,11,,"Block",noblockmsg,quitcont
quitcont: TYPE 0,65 ;exit
editmenu: POPUP 2,15,INVERSE
TEXT "┌[Edit]──────────┐"
TEXT "│Undo NA│█"
TEXT "│Cut (and Move Block)│█"
TEXT "│Copy (Block)│█"
TEXT "│Paste(Last Blk Move)│█"
TEXT "│Append (Block to)│█"
TEXT "│Undelete... │█"
TEXT "│Typeover/Insert │█"
TEXT "│Case Convert(Block)│█"
TEXT "│Insert Literal... │█"
TEXT "│Select (Block)│█"
TEXT "│Show/Hide Codes │█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│Delete │█"
TEXT "│Move/Copy Item │█"
TEXT "│Comment... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,macedit
SELECT 2,2,20,undoproc
SELECT 3,2,20,cutproc
SELECT 4,2,20,copyproc
SELECT 5,2,20,pasteproc
SELECT 6,2,20,appeproc
SELECT 7,2,20,undelproc
SELECT 8,2,20,toverproc
SELECT 9,2,20,caseconvproc
SELECT 10,2,20,literalproc
SELECT 11,2,20,selectproc
SELECT 12,2,20,codeproc
SELECT 14,2,20,deleteproc
SELECT 15,2,20,movecopyproc
SELECT 16,2,20,commentproc
PEND
macedit: EXECUTE macmenu
undoproc: EXECUTE notpossmsg ;not implemented
cutproc: MATCH 25,1,,"Block",cutcont,ctovr20
ctovr20: MATCH 25,11,,"Block",cutcont,blockmsg
cutcont: TYPE 0,97,"BM" ;move,block,move
copyproc: MATCH 25,1,,"Block",copycont,ctovr21
ctovr21: MATCH 25,11,,"Block",copycont,blockmsg
copycont: TYPE 0,97,"BC" ;move,block,copy
pasteproc: MATCH 25,1,,"Block",noblockmsg,ctovr22
ctovr22: MATCH 25,11,,"Block",noblockmsg,pastecont
pastecont: TYPE 0,97, "R" ;move,retrieve
appeproc: MATCH 25,1,,"Block",appecont,ctovr23
ctovr23: MATCH 25,11,,"Block",appecont,blockmsg
appecont: POPUP 7,22,INVERSE
TEXT "┌[Append]────────┐"
TEXT "│To Clipboard NA│█"
TEXT "│To File... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,editmenu
SELECT 2,2,20,aclipproc
SELECT 3,2,20,afileproc
PEND
aclipproc: EXECUTE notpossmsg
afileproc: TYPE 0,97, "BA" ;move,block,append...
undelproc: MATCH 25,1,,"Block",noblockmsg,ctovr24
ctovr24: MATCH 25,11,,"Block",noblockmsg,undelcont
undelcont: TYPE 0,59 ;cancel...
toverproc: TYPE 0,82 ;insert toggle
caseconvproc: MATCH 25,1,,"Block",caseconvcont,ctovr25
ctovr25: MATCH 25,11,,"Block",caseconvcont,blockmsg
caseconvcont: POPUP 10,22,INVERSE
TEXT "┌[Case Convert]──┐"
TEXT "│To UPPER │█"
TEXT "│To lower │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,editmenu
SELECT 2,2,20,upperproc
SELECT 3,2,20,lowerproc
PEND
upperproc: TYPE 0,86, "U" ;switch,upper
lowerproc: TYPE 0,86, "L" ;switch,lower
literalproc: MATCH 25,1,,"Block",noblockmsg,ctovr26
ctovr26: MATCH 25,11,,"Block",noblockmsg,literalcont
literalcont: TYPE 22 ;compose (Ctrl-V)
selectproc: MATCH 25,1,,"Block",noblockmsg,ctovr27
ctovr27: MATCH 25,11,,"Block",noblockmsg,selectcont
selectcont: POPUP 12,22,INVERSE
TEXT "┌[Select]────────┐"
TEXT "│Select On/Off NA│█"
TEXT "│Sentence │█"
TEXT "│Paragraph │█"
TEXT "│Page │█"
TEXT "│Column │█"
TEXT "│All │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,editmenu
SELECT 2,2,20,selonproc
SELECT 3,2,20,sentproc
SELECT 4,2,20,paraproc
SELECT 5,2,20,pageproc
SELECT 6,2,20,bcolproc
SELECT 7,2,20,allproc
PEND
selonproc: EXECUTE notpossmsg ;not implemented
sentproc: EXECUTE getsent,cancel
getsent: TYPE 0,97, "SA" ;move,sentence,append,cancel
paraproc: EXECUTE getpara,cancel
getpara: TYPE 0,97, "PA" ;move,paragraph,append,cancel
pageproc: EXECUTE getpage,cancel
getpage: TYPE 0,97, "aA" ;move,page,append,cancel
bcolproc: TYPE 0,113, "CLMN",ENTER ;macro to select column
allproc: TYPE 0,113, "ALL",ENTER ;macro to select all
codeproc: TYPE 0,106 ;reveal codes toggle
movecopyproc: MATCH 25,1,,"Block",noblockmsg,ctovr28
ctovr28: MATCH 25,11,,"Block",noblockmsg,movecopycont
movecopycont: POPUP 15,22,INVERSE
TEXT "┌[Move/Copy Item]┐"
TEXT "│Sentence │█"
TEXT "│Paragraph │█"
TEXT "│Page │█"
TEXT "│Retrieve │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,editmenu
SELECT 2,2,20,mcsentproc
SELECT 3,2,20,mcparaproc
SELECT 4,2,20,mcpageproc
SELECT 5,2,20,mcretrproc
PEND
mcsentproc: TYPE 0,97, "S" ;move,sentence
mcparaproc: TYPE 0,97, "P" ;move,paragraph
mcpageproc: TYPE 0,97, "a" ;move,page
mcretrproc: TYPE 0,97, "R" ;move,retrieve
deleteproc: POPUP 14,22,INVERSE
TEXT "┌[Delete]────────┐"
TEXT "│Block │█"
TEXT "│Word │█"
TEXT "│To End of Line │█"
TEXT "│To End of Page │█"
TEXT "│To Word Beginning │█"
TEXT "│To Word End │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,filemenu
SELECT 2,2,20,delblkproc
SELECT 3,2,20,delwordproc
SELECT 4,2,20,deleolproc
SELECT 5,2,20,deleopproc
SELECT 6,2,20,delwbproc
SELECT 7,2,20,delweproc
PEND
delblkproc: MATCH 25,1,,"Block",delblkcont,ctovr29
ctovr29: MATCH 25,11,,"Block",delblkcont,blockmsg
delblkcont: TYPE 0,97,"BD" ;move,block,delete
delwordproc: MATCH 25,1,,"Block",noblockmsg,ctovr30
ctovr30: MATCH 25,11,,"Block",noblockmsg,delwordcont
delwordcont: TYPE 0,113, "DELWORD",ENTER ;^backspace macro
deleolproc: MATCH 25,1,,"Block",noblockmsg,ctovr31
ctovr31: MATCH 25,11,,"Block",noblockmsg,deleolcont
deleolcont: TYPE 0,117 ;^end
deleopproc: MATCH 25,1,,"Block",noblockmsg,ctovr32
ctovr32: MATCH 25,11,,"Block",noblockmsg,deleopcont
deleopcont: TYPE 0,118 ;^pgdn
delwbproc: MATCH 25,1,,"Block",noblockmsg,ctovr33
ctovr33: MATCH 25,11,,"Block",noblockmsg,delwbcont
delwbcont: EXECUTE hm,backspc ;home,backspace
hm: TYPE 0,71 ;home
delweproc: MATCH 25,1,,"Block",noblockmsg,ctovr34
ctovr34: MATCH 25,11,,"Block",noblockmsg,delwecont
delwecont: EXECUTE hm,del ;home,delete
del: TYPE 0,83 ;delete
commentproc: TYPE 0,98 ;text in/out (comment)
searchmenu: POPUP 2,21, INVERSE
TEXT "┌[Search]────────┐"
TEXT "│Forward... │█"
TEXT "│Backward... │█"
TEXT "│Replace... │█"
TEXT "│Goto... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,macsearch
SELECT 2,2,20,forproc
SELECT 3,2,20,backproc
SELECT 4,2,20,replproc
SELECT 5,2,20,gotoproc
PEND
macsearch: EXECUTE macmenu
forproc: TYPE 0,60 ;->search
backproc: TYPE 0,85 ;<-search
replproc: TYPE 0,105 ;replace
gotoproc: TYPE 0,119 ;goto
formatmenu: POPUP 2,29,INVERSE
TEXT "┌[Format]────────┐"
TEXT "│Show Ruler │█"
TEXT "│Copy Ruler NA│█"
TEXT "│Columns │█"
TEXT "│Page │█"
TEXT "│Paragraph │█"
TEXT "│Line │█"
TEXT "│Characters │█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│Document... │█"
TEXT "│Other... │█"
TEXT "│Tab Align │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,macformat
SELECT 2,2,20,rulerproc
SELECT 3,2,20,cpyrulproc
SELECT 4,2,20,colfproc
SELECT 5,2,20,pagefproc
SELECT 6,2,20,parafproc
SELECT 7,2,20,linefproc
SELECT 8,2,20,charfproc
SELECT 10,2,20,docfproc
SELECT 11,2,20,otherfproc
SELECT 12,2,20,tabalignproc
PEND
macformat: EXECUTE macmenu
rulerproc: MATCH 25,1,,"Block",noblockmsg,ctovr35
ctovr35: MATCH 25,11,,"Block",noblockmsg,rulercont
rulercont: TYPE 0,91,"1T" ;format,line,tab set
cpyrulproc: EXECUTE notpossmsg ;not implemented
colfproc: MATCH 25,1,,"Block",noblockmsg,ctovr36
ctovr36: MATCH 25,11,,"Block",noblockmsg,colfcont
colfcont: POPUP 5,36,INVERSE
TEXT "┌[Columns]───────┐"
TEXT "│Columns On/Off │█"
TEXT "│Column Options... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,formatmenu
SELECT 2,2,20,colonproc
SELECT 3,2,20,coloptproc
PEND
colonproc: TYPE 0,110, "C" ;math/columns on/off toggle
coloptproc: TYPE 0,110 ;math/columns
pagefproc: POPUP 6,36,INVERSE
TEXT "┌[Page]──────────┐"
TEXT "│Page Layout... │█"
TEXT "│Page Numbers... │█"
TEXT "│Suppress Format... │█"
TEXT "│Headers-Footers... │█"
TEXT "│Conditional EOP... │█"
TEXT "│Block Protect │█"
TEXT "│Widow-Orphan │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,formatmenu
SELECT 2,2,20,fppglayproc
SELECT 3,2,20,fppnproc
SELECT 4,2,20,fpsfproc
SELECT 5,2,20,fphfproc
SELECT 6,2,20,fpceopproc
SELECT 7,2,20,fpbpproc
SELECT 8,2,20,fpwoproc
PEND
fppglayproc: MATCH 25,1,,"Block",noblockmsg,ctovr37
ctovr37: MATCH 25,11,,"Block",noblockmsg,fppglaycont
fppglaycont: TYPE 0,91, "P" ;format,page
fppnproc: EXECUTE fppglayproc ;format,page
fpsfproc: MATCH 25,1,,"Block",noblockmsg,ctovr38
ctovr38: MATCH 25,11,,"Block",noblockmsg,fpsfcont
fpsfcont: TYPE 0,91, "Pu" ;format,page,suppress this page only
fphfproc: EXECUTE fppglayproc ;format,page
fpceopproc: MATCH 25,1,,"Block",noblockmsg,ctovr39
ctovr39: MATCH 25,11,,"Block",noblockmsg,fpceopcont
fpceopcont: TYPE 0,91, "OC" ;format,other,ceop
fpbpproc: MATCH 25,1,,"Block",fpbpcont,ctovr40
ctovr40: MATCH 25,11,,"Block",fpbpcont,blockmsg
fpbpcont: TYPE 0,91 ;block on,format,block protect
fpwoproc: MATCH 25,1,,"Block",noblockmsg,ctovr41
ctovr41: MATCH 25,11,,"Block",noblockmsg,fpwocont
fpwocont: TYPE 0,91, "LW" ;format,line,widow/orphan
parafproc: MATCH 25,1,,"Block",noblockmsg,ctovr42
ctovr42: MATCH 25,11,,"Block",noblockmsg,parafcont
parafcont: POPUP 7,36,INVERSE
TEXT "┌[Paragraph]─────┐"
TEXT "│Outline │█"
TEXT "│Paragraph Numbers...│█"
TEXT "│Paragraph Num Def...│█"
TEXT "│Indent │█"
TEXT "│Left-Right Indent │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,formatmenu
SELECT 2,2,20,froutlnproc
SELECT 3,2,20,frrnproc
SELECT 4,2,20,frrndproc
SELECT 5,2,20,fridproc
SELECT 6,2,20,frlridproc
PEND
froutlnproc: TYPE 0,88, "O" ;date/outline,outline
frrnproc: TYPE 0,88, "P" ;date/outline,paragraph numbers
frrndproc: TYPE 0,88, "D" ;date/outline,para num def
fridproc: TYPE 0,62 ;indent
frlridproc: TYPE 0,87 ;>indent<
linefproc: POPUP 8,36,INVERSE
TEXT "┌[Line]──────────┐"
TEXT "│Center │█"
TEXT "│Flush Right │█"
TEXT "│Tabs... │█"
TEXT "│Hyphenation... │█"
TEXT "│Spacing... │█"
TEXT "│Kerning... │█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│L/R Margin... │█"
TEXT "│<Margin Release │█"
TEXT "│Justification... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,formatmenu
SELECT 2,2,20,flcntrproc
SELECT 3,2,20,flfrproc
SELECT 4,2,20,fltabproc
SELECT 5,2,20,flhyproc
SELECT 6,2,20,flspproc
SELECT 7,2,20,flkrnproc
SELECT 9,2,20,fllrmgnproc
SELECT 10,2,20,flmgnrelproc
SELECT 11,2,20,fljustproc
PEND
flcntrproc: TYPE 0,89 ;center
flfrproc: TYPE 0,109 ;flush right
fltabproc: MATCH 25,1,,"Block",noblockmsg,ctovr43
ctovr43: MATCH 25,11,,"Block",noblockmsg,fltabcont
fltabcont: TYPE 0,91, "LT" ;format,line,tab set
flhyproc: MATCH 25,1,,"Block",noblockmsg,ctovr44
ctovr44: MATCH 25,11,,"Block",noblockmsg,flhycont
flhycont: TYPE 0,91, "L" ;format,line
fljustproc: MATCH 25,1,,"Block",noblockmsg,ctovr44a
ctovr44a: MATCH 25,11,,"Block",noblockmsg,fljustcont
fljustcont: TYPE 0,91, "LJ" ;format,line,justification
flspproc: MATCH 25,1,,"Block",noblockmsg,ctovr45
ctovr45: MATCH 25,11,,"Block",noblockmsg,flspcont
flspcont: TYPE 0,91, "LS" ;format,line spacing
flkrnproc: MATCH 25,1,,"Block",noblockmsg,ctovr46
ctovr46: MATCH 25,11,,"Block",noblockmsg,flkrncont
flkrncont: TYPE 0,91, "OPK" ;format,other,printer functions,kerning
fllrmgnproc: MATCH 25,1,,"Block",noblockmsg,ctovr47
ctovr47: MATCH 25,11,,"Block",noblockmsg,fllrmgncont
fllrmgncont: TYPE 0,91, "LM" ;format,line,margins
flmgnrelproc: MATCH 25,1,,"Block",noblockmsg,ctovr48
ctovr48: MATCH 25,11,,"Block",noblockmsg,flmgnrelcont
flmgnrelcont: TYPE 0,113, "MGNREL",ENTER ;shift tab (<mar rel) macro
charfproc: EXECUTE styleproc ;styleproc
docfproc: MATCH 25,1,,"Block",noblockmsg,ctovr49
ctovr49: MATCH 25,11,,"Block",noblockmsg,docfcont
docfcont: TYPE 0,91,"D" ;format,document
otherfproc: MATCH 25,1,,"Block",noblockmsg,ctovr50
ctovr50: MATCH 25,11,,"Block",noblockmsg,otherfcont
otherfcont: TYPE 0,91,"O" ;format,other
tabalignproc: MATCH 25,1,,"Block",noblockmsg,ctovr51
ctovr51: MATCH 25,11,,"Block",noblockmsg,tabaligncont
tabaligncont: TYPE 0,99 ;tab align
fontmenu: POPUP 2,37,INVERSE
TEXT "┌[Font]──────────┐"
TEXT "│Style │█"
TEXT "│Font... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,macfont
SELECT 2,2,20,styleproc
SELECT 3,2,20,fontproc
PEND
macfont: EXECUTE macmenu
styleproc: POPUP 3,44,INVERSE
TEXT "┌[Style]─────────┐"
TEXT "│Sizes... │█"
TEXT "│Plain Text │█"
TEXT "│Bold │█"
TEXT "│Underline │█"
TEXT "│Italics │█"
TEXT "│Outline │█"
TEXT "│Shadow │█"
TEXT "│Superscript │█"
TEXT "│Subscript │█"
TEXT "│Overstrike │█"
TEXT "│Strikeout │█"
TEXT "│Redline │█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│Double Underline │█"
TEXT "│Styles... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,fontmenu
SELECT 2,2,20,sizemenu
SELECT 3,2,20,ptproc
SELECT 4,2,20,boproc
SELECT 5,2,20,unproc
SELECT 6,2,20,itproc
SELECT 7,2,20,otproc
SELECT 8,2,20,shproc
SELECT 9,2,20,spproc
SELECT 10,2,20,sbproc
SELECT 11,2,20,osproc
SELECT 12,2,20,stproc
SELECT 13,2,20,rdproc
SELECT 15,2,20,duproc
SELECT 16,2,20,otherstylesmenu
PEND
sizemenu: POPUP 4,51,INVERSE
TEXT "┌[Sizes]─────────┐"
TEXT "│Fine │█"
TEXT "│Small │█"
TEXT "│Large │█"
TEXT "│Very Large │█"
TEXT "│Extra Large │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,styleproc
SELECT 2,2,20,fineproc
SELECT 3,2,20,smallproc
SELECT 4,2,20,largeproc
SELECT 5,2,20,vlargeproc
SELECT 6,2,20,elargeproc
PEND
fineproc: TYPE 0,101, "SF" ;font,size,fine
smallproc: TYPE 0,101, "SS" ;font,size,small
largeproc: TYPE 0,101, "SL" ;font,size,large
vlargeproc: TYPE 0,101, "SV" ;font,size,vry large
elargeproc: TYPE 0,101, "SE" ;font,size,extra large
ptproc: MATCH 25,1,,"Block",normalfontmsg,ctovr52
ctovr52: MATCH 25,11,,"Block",normalfontmsg,ptcont
ptcont: TYPE 0,101, "N" ;font,normal
boproc: TYPE 0,101, "AB" ;bold
unproc: TYPE 0,101, "AU" ;underline
itproc: TYPE 0,101, "AI" ;italic
otproc: TYPE 0,101, "AO" ;outline
shproc: TYPE 0,101, "Aa" ;shadow
spproc: TYPE 0,101, "Sp" ;superscript
sbproc: TYPE 0,101, "Sb" ;subscript
osproc: MATCH 25,1,,"Block",noblockmsg,ctovr53
ctovr53: MATCH 25,11,,"Block",noblockmsg,oscont
oscont: TYPE 0,91, "OO" ;format,other,overstrike
stproc: TYPE 0,101, "AS" ;strikeout
rdproc: TYPE 0,101, "AR" ;redline
duproc: TYPE 0,101, "AD" ;double underline
otherstylesmenu: TYPE 0,111 ;style
fontproc: TYPE 0,101 ;font
specialmenu: POPUP 2,43,INVERSE
TEXT "┌[Special]───────┐"
TEXT "│Spell │█"
TEXT "│Thesaurus... │█"
TEXT "│Merge... │█"
TEXT "│Merge Codes │█"
TEXT "│Macro │█"
TEXT "│Footnotes │█"
TEXT "│Date │█"
TEXT "│Mark Text │█"
TEXT "│Define Lists │█"
TEXT "│Screen │█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│Math... │█"
TEXT "│Sort... │█"
TEXT "│Graphics... │█"
TEXT "│Line Draw... │█"
TEXT "│Lock Document... │█"
TEXT "│Convert Document... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,macspecial
SELECT 2,2,20,spellproc
SELECT 3,2,20,af1
SELECT 4,2,20,mergeproc
SELECT 5,2,20,mercodeproc
SELECT 6,2,20,macroproc
SELECT 7,2,20,footproc
SELECT 8,2,20,sf5
SELECT 9,2,20,mrktxtproc
SELECT 10,2,20,deflstproc
SELECT 11,2,20,scrproc
SELECT 13,2,20,af7
SELECT 14,2,20,cf9
SELECT 15,2,20,af9
SELECT 16,2,20,linedrawproc
SELECT 17,2,20,lockdocproc
SELECT 18,2,20,cf1 ;GO TO DOS THEN RUN CONVERT.EXE
;TYPE 'EXIT' TO RETURN TO WP5
PEND
macspecial: EXECUTE macmenu
spellproc: POPUP 3,50,INVERSE
TEXT "┌[Spell]─────────┐"
TEXT "│Speller... │█"
TEXT "│Check Selection(Blk)│█"
TEXT "│Check Page... │█"
TEXT "│Check Document... │█"
TEXT "│Change Dictionary...│█"
TEXT "│Count... │█"
TEXT "│Lookup... │█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│Check Word... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,specialmenu
SELECT 2,2,20,spellerproc
SELECT 3,2,20,chkselproc
SELECT 4,2,20,chkpageproc
SELECT 5,2,20,chkdocproc
SELECT 6,2,20,changedictproc
SELECT 7,2,20,countproc
SELECT 8,2,20,lookupproc
SELECT 10,2,20,chkwordproc
PEND
spellerproc: TYPE 0,95 ;spell
chkselproc: MATCH 25,1,,"Block",chkselcont,ctovr58a
ctovr58a: MATCH 25,11,,"Block",chkselcont,blockmsg
chkselcont: TYPE 0,95 ;spell
chkpageproc: TYPE 0,95, "P" ;spell,page
chkdocproc: TYPE 0,95, "D" ;spell,document
changedictproc: TYPE 0,95, "N" ;spell,new sup. dict.
countproc: TYPE 0,95, "C" ;spell,count
lookupproc: TYPE 0,95, "L" ;spell,lookup
chkwordproc: TYPE 0,95, "W" ;spell,word
thesproc: MATCH 25,1,,"Block",noblockmsg,ctovr54
ctovr54: MATCH 25,11,,"Block",noblockmsg,thescont
thescont: TYPE 0,104 ;thesaurus
mergeproc: MATCH 25,1,,"Block",noblockmsg,ctovr55
ctovr55: MATCH 25,11,,"Block",noblockmsg,mergecont
mergecont: TYPE 0,102, "M" ;merge,merge
mercodeproc: MATCH 25,1,,"Block",noblockmsg,ctovr56
ctovr56: MATCH 25,11,,"Block",noblockmsg,mercodecont
mercodecont: POPUP 6,50,INVERSE
TEXT "┌[Merge Codes]───┐"
TEXT "│From Keyboard ^C│█"
TEXT "│Date ^D│█"
TEXT "│End of Record ^E│█"
TEXT "│Retrieve Field ^Fn│█"
TEXT "│Invoke Macro ^G│█"
TEXT "│Next Record ^N│█"
TEXT "│New Primary ^P│█"
TEXT "│Stop Merge ^Q│█"
TEXT "│End of Field ^R│█"
TEXT "│New Secondary ^S│█"
TEXT "│To Printer ^T│█"
TEXT "│Update Screen ^U│█"
TEXT "│Transfer Codes ^V│█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│Status Line Msg ^O│█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,specialmenu
SELECT 2,2,20,frmkbdproc
SELECT 3,2,20,dtproc
SELECT 4,2,20,eorproc
SELECT 5,2,20,rfproc
SELECT 6,2,20,improc
SELECT 7,2,20,nrproc
SELECT 8,2,20,npproc
SELECT 9,2,20,smproc
SELECT 10,2,20,eofproc
SELECT 11,2,20,nsproc
SELECT 12,2,20,tpproc
SELECT 13,2,20,usproc
SELECT 14,2,20,tcproc
SELECT 16,2,20,stlnmproc
PEND
frmkbdproc: TYPE 0,92, "C" ;keyboard
dtproc: TYPE 0,92, "D" ;date
eorproc: TYPE 0,92, "E" ;end of record
rfproc: TYPE 0,92, "F" ;merge from field <n>
improc: TYPE 0,92, "G" ;invoke macro <macroname>
nrproc: TYPE 0,92, "N" ;next record
npproc: TYPE 0,92, "P" ;new primary file
smproc: TYPE 0,92, "Q" ;stop merge
eofproc: TYPE 0,92, "R" ;end of field
nsproc: TYPE 0,92, "S" ;new secondary file
tpproc: TYPE 0,92, "T" ;to printer
usproc: TYPE 0,92, "U" ;update screen
tcproc: TYPE 0,92, "V" ;transfer codes
stlnmproc: TYPE 0,92, "O" ;status line message
macroproc: POPUP 7,50,INVERSE
TEXT "┌[Macro]─────────┐"
TEXT "│Define Macro... │█"
TEXT "│Execute macro... │█"
TEXT "│Chain Macro... │█"
TEXT "│Macro Delay... │█"
TEXT "│Macro Input... │█"
TEXT "│Pause Macro... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,specialmenu
SELECT 2,2,20,defmacproc
SELECT 3,2,20,exemacproc
SELECT 4,2,20,chainmacproc
SELECT 5,2,20,macdelayproc
SELECT 6,2,20,macinpproc
SELECT 7,2,20,pausemacproc
PEND
defmacproc: TYPE 0,103 ;macro define
exemacproc: TYPE 0,113 ;macro
chainmacproc: TYPE 0,103 ;macro define (see manual)
macdelayproc: EXECUTE macinpproc
macinpproc: MATCH 25,1,,"Selection: a",macinpcont,checkcapa
checkcapa: MATCH 25,1,,"Selection: A",macinpcont,macroeditmsg
macinpcont: TYPE 0,132 ;macro commands(^PgUp)
pausemacproc: EXECUTE macinpproc
footproc: MATCH 25,1,,"Block",noblockmsg,ctovr57
ctovr57: MATCH 25,11,,"Block",noblockmsg,footcont
footcont: POPUP 8,50,INVERSE
TEXT "┌[Footnotes]─────┐"
TEXT "│Create... │█"
TEXT "│Edit... │█"
TEXT "│New Number... │█"
TEXT "│Options... │█"
TEXT "│Create Endnote... │█"
TEXT "│Edit Endnote... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,specialmenu
SELECT 2,2,20,crftntproc
SELECT 3,2,20,edtftntproc
SELECT 4,2,20,nfnproc
SELECT 5,2,20,foptproc
SELECT 6,2,20,crendntproc
SELECT 7,2,20,edtendntproc
PEND
crftntproc: TYPE 0,100,"FC" ;footnote,create
edtftntproc: TYPE 0,100,"FE" ;footnote,edit
nfnproc: TYPE 0,100,"FN" ;footnote,new number
foptproc: TYPE 0,100,"FO" ;footnote,options
crendntproc: TYPE 0,100,"EC" ;endnote,create
edtendntproc: TYPE 0,100,"EE" ;endnote,edit
dateproc: MATCH 25,1,,"Block",noblockmsg,ctovr61a
ctovr61a: MATCH 25,11,,"Block",noblockmsg,datecont
datecont: TYPE 0,100 ;date/outline
mrktxtproc: POPUP 10,50,INVERSE
TEXT "┌[Mark Text]─────┐"
TEXT "│List... (Block)│█"
TEXT "│Table of Contents...│█"
TEXT "│Index... (Block)│█"
TEXT "│Remove... │█"
TEXT "│Generate... │█"
TEXT "├─<WP 5.0>──────────┤█"
TEXT "│Master/Sub Document │█"
TEXT "│Auto Reference... │█"
TEXT "│Table of Authorities│█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,specialmenu
SELECT 2,2,20,mtlistproc
SELECT 3,2,20,mttocproc
SELECT 4,2,20,mtinproc
SELECT 5,2,20,mtrmproc
SELECT 6,2,20,mtgnproc
SELECT 8,2,20,mtmsdproc
SELECT 9,2,20,mtarproc
SELECT 10,2,20,mttoaproc
PEND
mtlistproc: MATCH 25,1,,"Block",mtlcont,ctovr58
ctovr58: MATCH 25,11,,"Block",mtlcont,blockmsg
mtlcont: TYPE 0,108, "L" ;block mark text,lists
mttocproc: MATCH 25,1,,"Block",mttoccont,ctovr59
ctovr59: MATCH 25,11,,"Block",mttoccont,blockmsg
mttoccont: TYPE 0,108, "C" ;block mark text,ToC
mtinproc: MATCH 25,1,,"Block",mtincont,ctovr60
ctovr60: MATCH 25,11,,"Block",mtincont,blockmsg
mtincont: TYPE 0,108, "I" ;block mark text,index
mtrmproc: MATCH 25,1,,"Block",noblockmsg,ctovr61
ctovr61: MATCH 25,11,,"Block",noblockmsg,mtrmcont
mtrmcont: TYPE 0,108, "GR" ;mark text,generate,remove
mtgnproc: MATCH 25,1,,"Block",noblockmsg,ctovr62
ctovr62: MATCH 25,11,,"Block",noblockmsg,mtgncont
mtgncont: TYPE 0,108, "G" ;mark text,generate
mtmsdproc: MATCH 25,1,,"Block",noblockmsg,ctovr63
ctovr63: MATCH 25,11,,"Block",noblockmsg,mtmsdcont
mtmsdcont: TYPE 0,108, "S" ;mark text,subdocument
mtarproc: MATCH 25,1,,"Block",noblockmsg,ctovr64
ctovr64: MATCH 25,11,,"Block",noblockmsg,mtarcont
mtarcont: TYPE 0,108, "R" ;mark text,auto reference
mttoaproc: TYPE 0,108, "A" ;mark text,table of auth (block on/off)
deflstproc: MATCH 25,1,,"Block",noblockmsg,ctovr65
ctovr65: MATCH 25,11,,"Block",noblockmsg,deflstcont
deflstcont: POPUP 11,50,INVERSE
TEXT "┌[Define Lists]──┐"
TEXT "│List 1... │█"
TEXT "│List 2... │█"
TEXT "│List 3... │█"
TEXT "│List 4... │█"
TEXT "│List 5... │█"
TEXT "│Table of Contents...│█"
TEXT "│Index... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,specialmenu
SELECT 2,2,20,dfl1proc
SELECT 3,2,20,dfl2proc
SELECT 4,2,20,dfl3proc
SELECT 5,2,20,dfl4proc
SELECT 6,2,20,dfl5proc
SELECT 7,2,20,dftocproc
SELECT 8,2,20,dfinproc
PEND
dfl1proc: TYPE 0,108, "DL1" ;mark text,define,lists,1
dfl2proc: TYPE 0,108, "DL2" ;mark text,define,lists,2
dfl3proc: TYPE 0,108, "DL3" ;mark text,define,lists,3
dfl4proc: TYPE 0,108, "DL4" ;mark text,define,lists,4
dfl5proc: TYPE 0,108, "DL5" ;mark text,define,lists,5
dftocproc: TYPE 0,108, "DC" ;mark text,define,ToC
dfinproc: TYPE 0,108, "DI" ;mark text,define,index
scrproc: POPUP 12,50,INVERSE
TEXT "┌[Screen]────────┐"
TEXT "│Full/Split Window │█"
TEXT "│Show/Hide PositionNA│█"
TEXT "│Display Justif. NA│█"
TEXT "│Colors... │█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,specialmenu
SELECT 2,2,20,fullwinproc
SELECT 3,2,20,showposproc
SELECT 4,2,20,dispjustproc
SELECT 5,2,20,colorsproc
PEND
fullwinproc: TYPE 0,96, "W" ;screen,window
showposproc: EXECUTE notpossmsg
dispjustproc: EXECUTE notpossmsg
colorsproc: MATCH 25,1,,"Block",noblockmsg,ctovr66
ctovr66: MATCH 25,11,,"Block",noblockmsg,colorscont
colorscont: TYPE 0,84, "DCS" ;setup,display,colors,screen
mathproc: MATCH 25,1,,"Block",noblockmsg,ctovr67
ctovr67: MATCH 25,11,,"Block",noblockmsg,mathcont
mathcont: TYPE 0,110 ;math/columns
sortproc: TYPE 0,102 ;merge/sort
graphproc: MATCH 25,1,,"Block",noblockmsg,ctovr68
ctovr68: MATCH 25,11,,"Block",noblockmsg,graphcont
graphcont: TYPE 0,112 ;graphics
linedrawproc: MATCH 25,1,,"Block",noblockmsg,ctovr69
ctovr69: MATCH 25,11,,"Block",noblockmsg,linedrawcont
linedrawcont: TYPE 0,96, "L" ;screen,line draw
lockdocproc: MATCH 25,1,,"Block",noblockmsg,ctovr70
ctovr70: MATCH 25,11,,"Block",noblockmsg,lockdoccont
lockdoccont: TYPE 0,98, "P" ;text in/out,password
windowsmenu: POPUP 2,52,INVERSE
TEXT "┌[Windows]───────┐"
TEXT "│Cycle Windows │█"
TEXT "│Show Clipboard NA│█"
TEXT "└────────────────────┘█"
TEXT "███████████████████████"
SELECT 1,2,4,macwindows
SELECT 2,2,20,wincycproc
SELECT 3,2,20,notpossmsg
PEND
macwindows: EXECUTE macmenu
wincycproc: MATCH 25,1,,"Block",noblockmsg,ctovr71
ctovr71: MATCH 25,11,,"Block",noblockmsg,wincyccont
wincyccont: TYPE 0,86 ;switch to doc 2
blockmsg: POPUP 9,27,INVERSE
TEXT "╔══════════════════════╗"
TEXT "║ SELECT BLOCK FIRST! ║█"
TEXT "║ ┌────────┐ ║█"
TEXT "║ │ CANCEL │ ║█"
TEXT "║ └────────┘ ║█"
TEXT "╚══════════════════════╝█"
TEXT "█████████████████████████"
SELECT 4,10,6,exitcancel
PEND
exitcancel: EXECUTE f7,f1
noblockmsg: POPUP 9,27,INVERSE
TEXT "╔══════════════════════╗"
TEXT "║ BLOCK MUST BE ║█"
TEXT "║ OFF BEFORE USING ║█"
TEXT "║ THIS COMMAND ║█"
TEXT "║ ┌────────┐ ║█"
TEXT "║ │ CANCEL │ ║█"
TEXT "║ └────────┘ ║█"
TEXT "╚══════════════════════╝█"
TEXT "█████████████████████████"
SELECT 6,10,6,exitcancel
PEND
macroeditmsg: POPUP 9,25,INVERSE
TEXT "╔══════════════════════════╗"
TEXT "║ YOU MUST BE EDITING ║█"
TEXT "║ A MACRO'S ACTION TO USE ║█"
TEXT "║ THIS COMMAND! ║█"
TEXT "║ ┌────────┐ ║█"
TEXT "║ │ CANCEL │ ║█"
TEXT "║ └────────┘ ║█"
TEXT "╚══════════════════════════╝█"
TEXT "█████████████████████████████"
SELECT 6,12,6,exitcancel
PEND
normalfontmsg: POPUP 9,23,INVERSE
TEXT "╔══════════════════════════════╗"
TEXT "║ USE SHOW/HIDE CODES TOGGLE ║█"
TEXT "║ THEN ADD OR DELETE CODES AS ║█"
TEXT "║ REQUIRED FOR PLAIN TEXT ║█"
TEXT "║ ┌────────────────────────┐ ║█"
TEXT "║ │ GO TO EDIT MENU │ ║█"
TEXT "║ │(TO SELECT <SHOW CODES>)│ ║█"
TEXT "║ └────────────────────────┘ ║█"
TEXT "╚══════════════════════════════╝█"
TEXT "█████████████████████████████████"
SELECT 6,9,15,editmenu
PEND
notpossmsg: POPUP 9,24,INVERSE
TEXT "╔════════════════════════════╗"
TEXT "║ THIS WP MAC 1.0.1 FUNCTION ║█"
TEXT "║ HAS NO EXACT EQUIVALENT ║█"
TEXT "║ IN WORDPERFECT 5.0 ║█"
TEXT "║ ┌─────────────────────┐ ║█"
TEXT "║ │ RETURN TO MAIN MENU │ ║█"
TEXT "║ └─────────────────────┘ ║█"
TEXT "╚════════════════════════════╝█"
TEXT "███████████████████████████████"
SELECT 6,6,19,macmenu
PEND
aboutmsg: POPUP 1,24,INVERSE
TEXT "╔═════════════════════════════╗"
TEXT "║ ** WP5MACMENU 3.1 (c) ** ║█"
TEXT "║ WPMAC 1.0.2/Windows(R)-like ║█"
TEXT "║ menu system for ║█"
TEXT "║ WordPerfect 5.0 (R) and ║█"
TEXT "║ MICROSOFT(R) 2 button mouse ║█"
TEXT "║by Dave Petherick (73627,226)║█"
TEXT "║**REGISTER THIS SHAREWARE!!**║█"
TEXT "║ ┌────────┐ ║█"
TEXT "║ MAY/89 │ RETURN │ Ver. 3.1 ║█"
TEXT "║ └────────┘ ║█"
TEXT "║ Windows (R) is a ║█"
TEXT "║ registered trademark of ║█"
TEXT "║ Microsoft Corporation ║█"
TEXT "║ Redmond, WA, U.S.A. ║█"
TEXT "║ WordPerfect (R) is a ║█"
TEXT "║ registered trademark of ║█"
TEXT "║ WordPerfect Corporation ║█"
TEXT "║ Orem, Utah, U.S.A. ║█"
TEXT "║ LOGITECH (R) is a ║█"
TEXT "║ registered trademark of ║█"
TEXT "║ LOGITECH U.S.A. ║█"
TEXT "║ Fremont,CA, U.S.A. ║█"
TEXT "╚═════════════════════════════╝█"
TEXT "████████████████████████████████"
SELECT 8,4,25,sharewaremsg
SELECT 10,13,6,helpmenu1
PEND
sharewaremsg: POPUP 2,21,INVERSE
TEXT "╔════════════════════════════════════╗"
TEXT "║ Please help encourage the ║█"
TEXT "║ development of this and ║█"
TEXT "║ similar software by registering ║█"
TEXT "║ your copy. Feel free to copy ║█"
TEXT "║ and distribute this software ║█"
TEXT "║ (UNMODIFIED) and if you find ║█"
TEXT "║ it of value, support it! ║█"
TEXT "║ ║█"
TEXT "║ For $10, register your copy ║█"
TEXT "║ of WP5MACMENU and you will ║█"
TEXT "║ be entitled to free periodic ║█"
TEXT "║ updates and an UNLIMITED ║█"
TEXT "║ SITE LICENCE for corporate users!! ║█"
TEXT "║ ┌────────┐ ║█"
TEXT "║ │ NEXT │ ║█"
TEXT "║ └────────┘ ║█"
TEXT "║ Source .DEF file included free! ║█"
TEXT "║ ║█"
TEXT "╚════════════════════════════════════╝█"
TEXT "███████████████████████████████████████"
SELECT 16,18,4,sharenextmsg
PEND
sharenextmsg: POPUP 3,21,INVERSE
TEXT "╔════════════════════════════════════╗"
TEXT "║***SUPPORT THE SHAREWARE CONCEPT****║█"
TEXT "║ Send check or money order along ║█"
TEXT "║ with your mouse type,diskette size,║█"
TEXT "║ WP5MACMENU version number and ║█"
TEXT "║ your mailing address to: ║█"
TEXT "║ ║█"
TEXT "║ Dave Petherick ║█"
TEXT "║ P.O. Box 1002 ║█"
TEXT "║ Tottenham, Ontario ║█"
TEXT "║ CANADA L0G 1W0 ║█"
TEXT "║ ║█"
TEXT "║ LOGITECH (R) 2 and 3 ║█"
TEXT "║button mouse versions also available║█"
TEXT "║ ┌────────┐ ║█"
TEXT "║ │ RETURN │ ║█"
TEXT "║ └────────┘ ║█"
TEXT "╚════════════════════════════════════╝█"
TEXT "███████████████████████████████████████"
SELECT 16,17,6,helpmenu1
PEND