Category : DeskTop Publishing in the 1990's
Archive   : WPMAC.ZIP
Filename : WPMM303L.DEF
;USE THE WINDOWS/MACINTOSH CONCEPT OF BLOCK SELECTION PRIOR TO COMMAND
;SELECTION WHERE APPROPRIATE (3 BUTTON MOUSE), 25 LINE DISPLAY
;(c) D.PETHERICK (73627,226) DEC. 21/88 version 3.0
;FOR 35,40,43,50 (ie. XX) LINE DISPLAYS, REPLACE
;THROUGHOUT THIS .DEF FILE THEN RECOMPILE USING NEWMENU.EXE
BEGIN af4,macmenu,nul,mousel,mouser,mouseu,moused,64,64
mousel: TYPE 0,75 ;left
mouser: TYPE 0,77 ;right
mouseu: TYPE 0,72 ;up
moused: TYPE 0,80 ;down
; LMB LRB MRB ALLB
CHORDS f7,entr,f1,quitsave
entr: TYPE ENTER
nul: NOTHING
quitsave: TYPE 0,65 ;exit
macmenu: POPUP 1,3,INVERSE
; 23456789012345678901234567890123456789012345678901234567
TEXT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍ»"
TEXT "ºHelp File Edit Search Format Font Special Windows º*WP5MACMENU*ºÛ"
TEXT "ÇÄÂÄÂÄÂÄÂÄÂÄÂÄÄÂÄÄÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍ[3.0]ͼÛ"
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 "³Logitech Mouse Help³Û"
TEXT "³About WP5MACMENU... ³Û"
TEXT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
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 f3,helpmenu2
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
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 -
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 ;control-Fn 1-10
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 ;control-V
af1: TYPE 0,104 ;alt-Fn 1-10
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 ;shift-Fn 1-10
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 ;Fn 1-10
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 "Ú[Logitech Mouse Help]ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
TEXT "³ Mouse Button Help ³Û"
TEXT "³ L M R - ( Û = Pressed, ° = Released) ³Û"
TEXT "ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û"
TEXT "³ Û ° ° - Block On/Off ³Û"
TEXT "³ ³Û"
TEXT "³ ° Û ° - Main Menu ³Û"
TEXT "³ ³Û"
TEXT "³ ° ° Û - Select Menu Item ³Û"
TEXT "³ ³Û"
TEXT "³ Û Û ° - WP5 Exit Function (F7) ³Û"
TEXT "³ ³Û"
TEXT "³ Û ° Û - Enter Key ³Û"
TEXT "³ ³Û"
TEXT "³ ° Û Û - WP5 Cancel Function (F1) ³Û"
TEXT "³ ³Û"
TEXT "³ Û Û Û - Quit WP5, SAVE IF NECESSARY ³Û"
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
;IBM equivalent selections
newproc: TYPE 0,65, "NN" ;exit,no,no
closeproc: TYPE 0,65, "Y" ;exit,yes...
saveselproc: MATCH 25,1,,"Block",f10,ctovr7
ctovr7: MATCH 25,11,,"Block",f10,blockmsg
;save (block)
savecopyproc: MATCH 25,1,,"Block",noblockmsg,ctovr8
ctovr8: MATCH 25,11,,"Block",noblockmsg,cf5
;text in/out(save as other...)
printoptproc: POPUP 12,16,INVERSE
TEXT "Ú[Print Options]Ä¿"
TEXT "³Page Setup... ³Û"
TEXT "³Print Preview... ³Û"
TEXT "³Print Selection... ³Û"
TEXT "³Postscript... NA³Û"
TEXT "ÃÄ
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,sf7
SELECT 5,2,20,notpossmsg
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,ctovr11a
ctovr11a: 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
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,sf1
SELECT 3,2,20,backoptproc
SELECT 4,2,20,beepoptproc
SELECT 5,2,20,deffoldproc
SELECT 6,2,20,measproc
PEND
;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
quitproc: 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 "ÃÄ
TEXT "³Delete ³Û"
TEXT "³Move/Copy Item ³Û"
TEXT "³Comment... ³Û"
TEXT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SELECT 1,2,4,macmenu
SELECT 2,2,20,notpossmsg
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,composehlp
SELECT 11,2,20,selectproc
SELECT 12,2,20,af3
SELECT 14,2,20,deleteproc
SELECT 15,2,20,movecopyproc
SELECT 16,2,20,cf5
PEND
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,notpossmsg
SELECT 3,2,20,afileproc
PEND
afileproc: TYPE 0,97, "BA" ;move,block,append...
undelproc: MATCH 25,1,,"Block",noblockmsg,ctovr24
ctovr24: MATCH 25,11,,"Block",noblockmsg,f1
;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
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,notpossmsg
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
sentproc: EXECUTE getsent,f1
getsent: TYPE 0,97, "SA" ;move,sentence,append,cancel
paraproc: EXECUTE getpara,f1
getpara: TYPE 0,97, "PA" ;move,paragraph,append,cancel
pageproc: EXECUTE getpage,f1
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
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,editmenu
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: TYPE 0,113, "DELWORD",ENTER ;^backspace macro
deleolproc: TYPE 0,117 ;^end
deleopproc: 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
searchmenu: POPUP 2,21, INVERSE
TEXT "Ú[Search]ÄÄÄÄÄÄÄÄ¿"
TEXT "³Forward... ³Û"
TEXT "³Backward... ³Û"
TEXT "³Replace... ³Û"
TEXT "³Goto... ³Û"
TEXT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SELECT 1,2,4,macmenu
SELECT 2,2,20,f2
SELECT 3,2,20,sf2
SELECT 4,2,20,af2
SELECT 5,2,20,gotoproc
PEND
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 "ÃÄ
TEXT "³Document... ³Û"
TEXT "³Other... ³Û"
TEXT "³Tab Align ³Û"
TEXT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SELECT 1,2,4,macmenu
SELECT 2,2,20,rulerproc
SELECT 3,2,20,notpossmsg
SELECT 4,2,20,colfproc
SELECT 5,2,20,pagefproc
SELECT 6,2,20,parafproc
SELECT 7,2,20,linefproc
SELECT 8,2,20,styleproc
SELECT 10,2,20,docfproc
SELECT 11,2,20,otherfproc
SELECT 12,2,20,cf6
PEND
rulerproc: MATCH 25,1,,"Block",noblockmsg,ctovr35
ctovr35: MATCH 25,11,,"Block",noblockmsg,rulercont
rulercont: TYPE 0,91,"1T" ;format,line,tab set
colfproc: 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,af7
PEND
colonproc: TYPE 0,110, "C" ;math/columns on/off toggle
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,fppglayproc
SELECT 4,2,20,fpsfproc
SELECT 5,2,20,fppglayproc
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
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
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",sf8,ctovr40
ctovr40: MATCH 25,11,,"Block",sf8,blockmsg
;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,f4
SELECT 6,2,20,sf4
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
linefproc: POPUP 8,36,INVERSE
TEXT "Ú[Line]ÄÄÄÄÄÄÄÄÄÄ¿"
TEXT "³Center ³Û"
TEXT "³Flush Right ³Û"
TEXT "³Tabs... ³Û"
TEXT "³Hyphenation... ³Û"
TEXT "³Spacing... ³Û"
TEXT "³Kerning... ³Û"
TEXT "ÃÄ
TEXT "³L/R Margin... ³Û"
TEXT "³
TEXT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SELECT 1,2,4,formatmenu
SELECT 2,2,20,sf6
SELECT 3,2,20,af6
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: TYPE 0,113, "MGNREL",ENTER ;shift tab (
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
fontmenu: POPUP 2,37,INVERSE
TEXT "Ú[Font]ÄÄÄÄÄÄÄÄÄÄ¿"
TEXT "³Style ³Û"
TEXT "³Font... ³Û"
TEXT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SELECT 1,2,4,macmenu
SELECT 2,2,20,styleproc
SELECT 3,2,20,cf8
PEND
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 "ÃÄ
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,af8
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
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 "ÃÄ
TEXT "³Math... ³Û"
TEXT "³Sort... ³Û"
TEXT "³Graphics... ³Û"
TEXT "³Line Draw... ³Û"
TEXT "³Lock Document... ³Û"
TEXT "³Convert Document... ³Û"
TEXT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SELECT 1,2,4,macmenu
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
PEND
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 "ÃÄ
TEXT "³Check Word... ³Û"
TEXT "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ"
TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SELECT 1,2,4,specialmenu
SELECT 2,2,20,cf2
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
chkselproc: MATCH 25,1,,"Block",cf2,ctovr58a
ctovr58a: MATCH 25,11,,"Block",cf2,blockmsg
;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
mergeproc: MATCH 25,1,,"Block",noblockmsg,ctovr55
ctovr55: MATCH 25,11,,"Block",noblockmsg,mergecont
mergecont: TYPE 0,102, "M" ;merge,merge
mercodeproc: 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 "ÃÄ
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
improc: TYPE 0,92, "G" ;invoke macro
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,cf10
SELECT 3,2,20,af10
SELECT 4,2,20,cf10
SELECT 5,2,20,macinpproc
SELECT 6,2,20,macinpproc
SELECT 7,2,20,macinpproc
PEND
macinpproc: MATCH 25,1,,"Selection: a",macinpcont,checkcapa
checkcapa: MATCH 25,1,,"Selection: A",macinpcont,macroeditmsg
macinpcont: TYPE 0,132 ;macro commands(^PgUp)
footproc: 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
mrktxtproc: POPUP 10,50,INVERSE
TEXT "Ú[Mark Text]ÄÄÄÄÄ¿"
TEXT "³List... (Block)³Û"
TEXT "³Table of Contents...³Û"
TEXT "³Index... (Block)³Û"
TEXT "³Remove... ³Û"
TEXT "³Generate... ³Û"
TEXT "ÃÄ
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,notpossmsg
SELECT 4,2,20,notpossmsg
SELECT 5,2,20,colorsproc
PEND
fullwinproc: TYPE 0,96, "W" ;screen,window
colorsproc: TYPE 0,84, "DCS" ;setup,display,colors,screen
linedrawproc: 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,macmenu
SELECT 2,2,20,wincycproc
SELECT 3,2,20,notpossmsg
PEND
wincycproc: MATCH 25,1,,"Block",noblockmsg,ctovr71
ctovr71: MATCH 25,11,,"Block",noblockmsg,sf3
;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
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.0 (c) ** ºÛ"
TEXT "º WPMAC 1.0.1/Windows(R)-like ºÛ"
TEXT "º menu system for ºÛ"
TEXT "º WordPerfect 5.0 (R) and ºÛ"
TEXT "º LOGITECH (R) 3 button mouse ºÛ"
TEXT "ºby Dave Petherick (73627,226)ºÛ"
TEXT "º**REGISTER THIS SHAREWARE!!**ºÛ"
TEXT "º ÚÄÄÄÄÄÄÄÄ¿ ºÛ"
TEXT "º DEC/88 ³ RETURN ³ Ver. 3.0 ºÛ"
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 "º Microsoft (R) and Logitech (R) two ºÛ"
TEXT "ºbutton mouse versions also availableºÛ"
TEXT "º ÚÄÄÄÄÄÄÄÄ¿ ºÛ"
TEXT "º ³ RETURN ³ ºÛ"
TEXT "º ÀÄÄÄÄÄÄÄÄÙ ºÛ"
TEXT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼÛ"
TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ"
SELECT 16,17,6,helpmenu1
PEND
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/