;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 (3 BUTTON MOUSE), 25 LINE DISPLAY ;(c) D.PETHERICK (73627,226) MAY 31/89 version 3.1 ;FOR 35,40,43,50 (ie. XX) LINE DISPLAYS, REPLACE WITH ;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.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 "³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 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 ;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 "³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.1 (c) ** ºÛ" TEXT "º WPMAC 1.0.2/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 "º 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 "º Microsoft (R) and Logitech (R) two ºÛ" TEXT "ºbutton mouse versions also availableºÛ" TEXT "º ÚÄÄÄÄÄÄÄÄ¿ ºÛ" TEXT "º ³ RETURN ³ ºÛ" TEXT "º ÀÄÄÄÄÄÄÄÄÙ ºÛ" TEXT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼÛ" TEXT "ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ" SELECT 16,17,6,helpmenu1 PEND