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 WITH ;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 º (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 - or 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 "ÃÄÄÄÄÄÄÄÄÄÄÄ´Û" 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 "ÃÄÄÄÄÄÄÄÄÄÄÄ´Û" 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 "ÃÄÄÄÄÄÄÄÄÄÄÄ´Û" 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 "ÃÄÄÄÄÄÄÄÄÄÄÄ´Û" TEXT "³L/R Margin... ³Û" 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,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 "ÃÄÄÄÄÄÄÄÄÄÄÄ´Û" 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 "ÃÄÄÄÄÄÄÄÄÄÄÄ´Û" 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 "ÃÄÄÄÄÄÄÄÄÄÄÄ´Û" 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,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 "ÃÄÄÄÄÄÄÄÄÄÄÄ´Û" 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 )³ ºÛ" 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