/ MNCOM - COMMON SYSTEM MENU'S XLIST / 037 EMcD 22-Apr-85 Change display for Cuu symbol / 036 WCE 20-AUG-84 ADDED TEXT FOR AUTODIAL DIRECTORY DOCUMENT / 035 WCE 14-AUG-84 CHANGES FOR RD MENU ADDITIONS / 034 WJY 03-AUG-84 Update user dictionary support / 033 HLP 12-JUL-84 Use X05 page for printer messages / 032 JFS 06-JUN-84 FOOTNOTING changes for SBB / 031 WCE 13-MAY-84 Made space in menus by using MXDISP statements / Made changes for BRITISH date and currency / Added SYSTEM wide terminal reset routine / 030 SBB 30-MAR-84 ADDED TEXT FOR FOOTNOTES ETC / 029 TCW 27-MAR-84 Add PHONE capability / 028 WCE 19-FEB-84 SPLIT MNCOM OFF FROM MN1 AND MADE IT SEPARATE / ADDED BLOCKS FOR MXDISP TEXT MENU BLOCKS / CLEANED UP LISTING AND REMOVED OLD EDIT HISTORY / 027 WJY 06-FEB-84 DECmate I compatability / 026 WCE 19-JAN-84 Changed location of MM1S in MN1 / / THIS FILE CONTAINS 3 THINGS - / / - TEXT STRINGS FOR USE WITH THE NEW MXDISP MENU STATEMENT - THIS MENU / OPERATOR WILL ALLOW TWO MENU BLOCKS TO BE IN USE AT THE SAME TIME. / THERE IS A RESTRICTION IN THAT THIS SECOND MENU BLOCK CAN ONLY CONTAIN / TEXT STRINGS THAT HAVE NO PRAMATERS. THAT MEANS THAT YOU CAN NOT / USE ANY OF THE ^ OR ! FUNCTIONS THAT TAKE PRAMETERS. THE ADVANTAGE / IS THAT THE MAIN MENU BLOCK CAN ACT AS A CONTROL BLOCK THAT CALLS / TEXT STATEMENTS TO BE DISPLAYED ON THE SCREEN. / / - MENUS USED BY BOTH PARTS OF THE ASSEMBLY - THESE ARE LIKE A / 'SUBROUTINE' LIBRARY. THIS WORKS BECAUSE ALL REFERENCES TO SYMBOLS IN / OTHER MENUS (OUTSIDE THOSE CONTAINED IN THIS FILE) HAVE BEEN ELIMINATED. / / - SYMBOLS FOR 2 CRITICAL LOCATIONS - WHICH ARE USED THROUGHOUT BOTH PARTS. / THESE CANNOT BE ELIMINATED WITHOUT ASSEMBLING ALL PARTS AT ONCE. WHILE / THE NEED FOR THESE SYMBOLS WAS 'DESIGNED IN', IT SHOULD BE POSSIBLE TO / AVOID FURTHER SUCH SINS. / MM1S=0 / RETURN-TO-MAIN-MENU LOCATION PP2ER=0 / UNABLE-TO-CREATE ERROR, NEEDED FOR MENU / LEVEL 'CREATE' OPERATOR FIELD 1 / FIELD TO BEGIN LOADING MENU'S INTO *0 / LOCATION IN FEILD TO LOAD MENU'S INTO / CANNED ROUTINES MENU START RELOC ADMCR1=. X=DLMCR1 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 /*************************************************************************** /**** SYSTEM WIDE ROUTINE TO SET TERMINAL ESCAPE SEQUENCES **** /*************************************************************************** CR1EEQ, IFDEF ENGLSH < TSTBIT;MNFMAT;MNFM0X!MNFM1X;CR1EQ1 / CHECK IF INITIALIZED /A031 SET;"B&77^100;MNLANG / SET AMERICAN CHARACTER SET /A031 TSTBIT;MNFMAT;MNFM2X;CR1EQ2 / CHECK FOR BRITISH SET /A031 CR1EQ1, SET;"A&77^100;MNLANG / SET BRITISH CHARACTER SET /A031 > / END IFDEF ENGLSH /A031 IFDEF GERMAN < SET;"K&77^100;MNLANG > /A031 IFDEF FRENCH < SET;"R&77^100;MNLANG > /A031 IFDEF CANADA < SET;"3&77^100;MNLANG > /A031 IFDEF ENGCAN < SET;"3&77^100;MNLANG > /A031 IFDEF DUTCH < SET;"4&77^100;MNLANG > /A031 CR1EQ2, DISP;0;TEXT '!E^S&^S^A^S';CR1EQ3;MNLANG;CR1EQ4;CR1EQ5 /A031 RETURN / RETURN TO CALLER /A031 CR1EQ3, IFDEF CONDOR < TEXT '![[62;1"P!CO![(&' > /A031 IFNDEF CONDOR < TEXT '!CO![(&' > /A031 / ESC [ 6 2 ; 1 " p Set level 2 firmware /A031 / CTRL O Shift in to select G0 ROM /A031 / ESC ( & (A,B,K,R,3,4) Load Language set into G0 ROM /A031 CR1EQ4, IFDEF CONDOR < /A031 ESC; "*; 74 / Set G2 as DEC Multinational /A031 ESC; "+; 76 / SET G3 as Technical Character Set > / END IFDEF CONDOR /A031 0 / END OF LIST IDENTIFIER (MUST BE HERE) CR1EQ5, TEXT '![)0![[?3L![[?1;8H![[0M![='/ SEQUENCES DESCRIBED BELOW /A031 / ESC ) 0 Load Graphics ROM /A031 / ESC [ ? 3 l CLEAR 132 COLUMN MODE /A031 / ESC [ ? 1 ; 8 h APPLICATION MODE AUTO REPEAT ENABLED / THESE MUST BE COMBINED TO WORK ON 278 / ESC [ 0 m ATTRIBUTES OFF /A031 / ESC = ENTER ALTERNATE KEYPAD MODE /A031 CR1BR, DISP;2000;TEXT '!E!CG' /M031 MXDISP;2205;X01NKO;DLMX01 / WHEN TYPING, USE NORMAL KEYS ONLY DISP;2305 IFDEF CONDOR < TEXT '&THE &RUBOUT ^A KEY CAN ALSO BE USED.';CR1BRK > / END IFDEF CONDOR IFNDEF CONDOR < TEXT '!&RUB !&CHAR AND !&RUB !&WORD CAN ALSO BE USED.' > / END IFNDEF CONDOR DISP; -1; TEXT ' &A LINE MAY CONTAIN A' MXDISP;2405;X01MAX;DLMX01 / MAXIMUM OF 71 CHARACTERS END WITH RETURN MXDISP;2605;X02PRA;DLMX02 / PRESS RETURN TO TRY AGAIN CR1RD, READ;MNTMP1;CR1BR ARG;CR1RT;MNTMP1 GOTO;CR1BR CR1BRK, 074; 130; 135; 0 /*************************************************************** / / CR1NM IS A SUBROUTINE USED TO PRINT THE RESULTS OF A / READ OPERATION FOLLOWED BY "HAS NO MEANING HERE" / CALLING SEQUENCE: / READ; MNTMP1; LABEL1 / . / . / CALL; CR1MN; LABEL2 / \--WHERE TO GO WHEN RETURN HIT / PARAMETERS: / MNTMP1 POINTER TO ARGUMENT BUFFER / (MNTMP1 IS LOST) / /*************************************************************** CR1NM, DISP;-2717;TEXT '!CG&TYPING "!A" HAS NO MEANING HERE. &TRY AGAIN.' MNTMP1 CR1RT, RETURN /*************************************************************** / / CR1BR IS A SUBROUTINE USED TO PRINT THE MESSAGE / "USE ONLY THE ... KEYS" WHEN ERRONEOUS GOLD HAS BEEN TYPED / CALLING SEQUENCE: / READ; MNTMP1; LABEL / . / . /LABEL, CALL; CR1MN; LABEL1 / \--WHERE TO GO WHEN RETURN HIT / PARAMETERS: / MNTMP1 POINTER TO ARGUMENT BUFFER / (MNTMP1 IS LOST) / /*************************************************************** CR1ND, DISP;2000;TEXT '!E!CG' /M031 IFDEF CONDOR < TSTBIT; MNOPTN; MNRX2X; CR1NW1 / CK. FOR WINCHESTER TRNSFR; CR2CKW; DLMCR2 CR1TS1, TSTBIT; MNOPTN; MNRX3X; CR1NW1 / BRANCH IF DRIVE CR1SET, SET; CR1ARA; CR1STR / CHANGE POINTER > / END IFDEF CONDOR CR1NW1, DISP; 2205; TEXT '&^S !D DOES NOT HAVE A DOCUMENT NAMED !A' CR1STR, CR1DOA; MNDRV; MNFNAM CR1ND1, MXDISP;2505;X02NAM;DLMX02 / PRESS RETURN TO TRY ANOTHER NAME. CR1RD1, READ;MNTMP1;CR1ND ARG;CR1RT;MNTMP1 GOTO;CR1ND CR1DOA, TEXT 'DRIVE' CR1ARA, TEXT 'DEVICE' XTRCR1=400-. IFZERO .-401&4000 /MORE CANED ROUTINES RELOC ADMCR2=. X=DLMCR2 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 / THIS CODE CALLED BY WPCUT MUST BE ON BLOCK BOUNDRY. CR2PE1, SET;0;MNTMP1 GOTO;CR2PE2 CR2PER, SET;1;MNTMP1 CR2PE2, DISP;0;TEXT '!E ' DISP;2505;TEXT '&DOCUMENT (!D.!D) !A IS ' MNDRV;MNDOCN;MNFNAM CASE;MNTMP1 1;CR2PE3 DISP;-1;TEXT 'ALREADY IN USE.' GOTO;CR2PE4 CR2PE3, DISP;-1;TEXT '^S';CR2WTP / SUBSTRING 'WAITING TO PRINT' CR2PE4, MXDISP;-2605;X02NAM;DLMX02 / PRESS RETURN TO TRY ANOTHER NAME. READ;MNTMP1;.+1 CR2RT, RETURN CR2QDE, SET;CR2SSE;CR2STR CR2QD, DISP;0;TEXT '!E ' DISP;1505;TEXT '&UNABLE TO ^S DOCUMENT (!D.!D) !A' CR2STR, .-. ;MNDRV; MNDOCN; MNFNAM CR2QDA, DISP;1705;TEXT '&IT IS^S &PRESS !&RETURN.!CG';CR2WTP CR2QD1, READ;MNTMP1;CR2QDA ARG;CR2RT;MNTMP1 GOTO;CR2QDA CR2SSE, TEXT 'EDIT' CR2SSP, TEXT 'PRINT' CR2SSD, TEXT 'DELETE' CR2WTP, TEXT ' WAITING TO PRINT.' CR2QDP, SET;CR2SSP;CR2STR GOTO;CR2QD CR2QDD, SET;CR2SSD;CR2STR GOTO;CR2QD CR2FQ, DISP;0000;TEXT '!E !CG' DISP;1505;TEXT '&THERE ARE ' CASE;MNQCPY;0;CR2FQ2 DISP;-1;TEXT 'NO ' CR2FQ2, DISP;-1;TEXT 'DOCUMENTS^S';CR2WTP DISP;1705;TEXT '&PRESS !&RETURN.' READ;MNTMP1;.+1 RETURN / WAS GOTO;CR2FQ IFDEF CONDOR < CR2CKW, CASE; MNDRV 0; -1-CR1NW1; DLMCR1 1; -1-CR1TS1; DLMCR1 TRNSFR; CR1SET; DLMCR1 > / END IFDEF CONDOR XTRCR2=400-. IFZERO .-401&4000 /COMMUNICATIONS MENUS RELOC ADMCM1=. X=DLMCM1 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 CM1S, / CALLED FROM "WPCX". COPY;MNFNO;MNTMP2 / Save "remembered file name". SET;0;MNFNO / Clear "remembered file name". SET;5;MNTMP1 / 5 for "RECEIVE THE TEXT" prompt. CALL;CM2DSP;DLMCM2 / Display prompt for doc to put to. COPY;MNTMP2;MNFNO / Restore "remembered file name". CM1RD, READ;MNTMP1;CM1RE FILNAM;CM1RD;CM1ND PQUEUE;CM1PER;.+1 / ERROR IF DOC IN PRINT QUEUE. SET;0;MNTMP4 GOTO;CM1NX CM1PER, CALL;CR2PER;DLMCR2 / DOCUMENT IS WAITING TO PRINT GOTO;CM1S CM1RE, CASE;MNSYSA EDMENU&3777;CM1MM CALL;CR1BR;DLMCR1 GOTO;CM1S CM1ND, SET;3;MNTMP1 RETURN CM1RET, CASE; MNTMP6 /FOR FOOTNOTING, DON'T RETURN /A032 12; CM1MM0 /GO DIRECTLY TO MM. DO NOT PASS WPCUT /A032 CM1MM, SET;2;MNTMP1 CASE;MNTMP4 1;CM1MM0 / 1 MEANS SL OPTION RETURN CM1MM0, TRNSFR;MM1S;DLMMM1 / BACK TO MAIN MENU /CM1NX is called from various MN1 and MN2 locations to display T-B-O menu. CM1RE1, CASE;MNSYSA EDMENU&3777;CM1RET CALL;CR1BR;DLMCR1 CM1NX, DISP;0;TEXT '!E' MXDISP;305;X03DNE;DLMX03 / DOCUMENT NAME ALREADY EXISTS, MXDISP;505;X03HMD;DLMX03 / HOW WOULD YOU LIKE TO MODIFY THIS DOCUMENT? MXDISP;705;X03TOP;DLMX03 / T = ADD TEXT AT THE TOP MXDISP;1105;X03BOT;DLMX03 / B = ADD TEXT TO THE BOTTOM MXDISP;1305;X03OVR;DLMX03 / O = OVERWRITE THE DOCUMENT MXDISP;2320;X03TLR;DLMX03 / TYPE THE LETTER AND PRESS RETURN MXDISP;2520;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU CM1RD1, READ;MNTMP1;CM1RE1 ARG;CM1RD1;MNTMP1 KEYWRD TEXT 'T ';CM1BGN TEXT 'B ';CM1BOT TEXT 'O ';CM1TOP CALL;CR1NM;DLMCR1 GOTO;CM1RD1 CM1BGN, SET;0;MNTMP1 GOTO;CM1RT CM1TOP, SET;-1;MNTMP1 CM1RT, DISP;0;TEXT '!E' CASE;MNTMP4;0;CM1NRS CMND;1;200;CIF CDF 20 CM1NRS, RETURN CM1BOT, SET;1;MNTMP1 GOTO;CM1RT XTRCM1=400-. IFZERO .-401&4000 /COMMUNICATIONS MENU (CONT.) RELOC ADMCM2=. X=DLMCM2 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 CM2FNM, / Routine to check filename for validity COPY; MNPOS; MNTMP2 / Save input pointer. ARG; CM2FOK; MNTMP1 / if no arg then ok. NUMBER; MNTMP1; CM2FOK / if name (not number) then ok. ARG; CM2FOK; MNTMP1 / see if anything follows. if not ok. KEYWRD; TEXT'.';CM2LB1 / see if it's a dot. GOTO; CM2FOK / no dot so ok. CM2LB1, ARG; CM2NFO; MNTMP1 / dot & nothing follows. bad,bad,bad!!! CM2FOK, COPY; MNTMP2; MNPOS / restore filename pointer. SET; 1; MNTMP1 / Return 1 for OK return. RETURN / and return... CM2NFO, MXDISP;-2717;X01DNI;DLMX01 / DOCUMENT NUMBER OR FORMAT INCORRECT /M031 SET; 0; MNTMP1 / Return 0 for not OK return. RETURN / and then return. CM2DSP, DISP;0;TEXT '!E' CM2NCS, SET;1;CM2TXT / SET FLAG TO DISPLAY 'RECALL THE MAIN MENU' MXDISP;1503;X01TND;DLMX01 / TYPE NAME OF DOCUMENT YOU WANT TO /M031 CASE;MNTMP1 / TEST FOR DISPLAY. 0; CM2DS0 / 0 FOR DELETE. 1; CM2DS1 / 1 FOR PRINT. 2; CM2DS2 / 2 FOR EDIT. 3; CM2DS3 / 3 FOR SEND. 4; CM2DS4 / 4 FOR USE (LOGON MENU) 5; CM2DS5 / 5 FOR RECEIVE THE TEXT" (CX TO DOC) 6; CM2DS6 / 6 FOR SPELL CHECK. 7; CM2DS7 / 7 FOR LOAD USER DICTIONARY 10; CM2DS4 / 10 FOR USE (PHONE MENU) /A029 11; CM2DS4 / 11 FOR USE (LOGIN FOR PHONE) /A029 12; CM2D12 / 12 FOR FOOTNOTING /A030 13; CM2D13 / 13 FOR UPDATE USER DIRECTORY /A034 CM2D13, DISP;-1;TEXT 'UPDATE' /A034 GOTO;CM2CNT /A034 CM2D12, DISP;-1;TEXT 'FOOTNOTE' /A030 GOTO;CM2CNT /A030 CM2DS7, DISP;-1;TEXT 'LOAD' GOTO;CM2CNT CM2DS6, DISP;-1;TEXT 'CHECK' GOTO;CM2CNT CM2DS5, DISP;-1;TEXT 'RECEIVE THE TEXT' GOTO;CM2CX / DISPLAY "MENU" INSTEAD OF "MAIN MENU" CM2DS0, DISP;-1;TEXT 'DELETE' GOTO;CM2CNT CM2DS1, DISP;-1;TEXT 'PRINT' GOTO;CM2CNT CM2DS2, DISP;-1;TEXT 'EDIT' GOTO;CM2CNT CM2DS3, DISP;-1;TEXT 'SEND' CM2CX, SET;0;CM2TXT / SET FLAG TO DISPLAY 'RECALL THE MENU' GOTO;CM2CNT / CONTINUE CM2DS4, DISP;-1;TEXT 'USE' CM2CNT, DISP;-1;TEXT ', AND PRESS !&RETURN' CASE;MNFNO 0;CM2F0 MXDISP;1703;X02JPR;DLMX02 / JUST PRESS RETURN IF DOCUMENT DESIRED/M031 DISP;-1;TEXT '(!D.!D) !A';MNDRV;MNDOCN;MNFNAM CM2F0, CASE;CM2TXT / CHECK FOR DISPLAY TYPE 1;CM2F1 / IF 1 THEN DISPLAY 'MAIN' MXDISP;2103;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU. RETURN / RETURN TO CALLER. CM2F1, MXDISP;2103;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU. RETURN / RETURN TO CALLER. CM2TXT, 0 / FLAG FOR DISPLAYING 'THE MENU' OR 'THE MAIN MENU' XTRCM2=400-. IFZERO .-401&4000 / MXDISP TEXT BLOCK NUMBER 1 /*************************************************************************** /**** N O T E **** /**** **** /**** THIS BLOCK IS RESERVED FOR MXDISP TEXT STATEMENTS **** /**** **** /**** DO NOT PUT REGULAR MENU CODE HERE, USE ANOTHER MENU BLOCK **** /*************************************************************************** RELOC ADMX01=. X=DLMX01 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 X01NKO, TEXT '&WHEN TYPING TO THE MENU, USE NORMAL KEYS ON THE KEYBOARD ONLY.' X01MAX, TEXT 'MAXIMUM OF 71 CHARACTERS AND MUST END WITH !&RETURN.' X01DNI, TEXT '&DOCUMENT NUMBER OR FORMAT INCORRECT.' X01TND, TEXT '&TYPE THE NAME OF THE DOCUMENT YOU WANT TO ' X01MAT, TEXT '&D&E&CMATE ' X01WPS, TEXT '&WORD &PROCESSING &SYSTEM' X01DEC, TEXT '&DIGITAL &EQUIPMENT &CORPORATION' X01FLD, TEXT '&FIELD &TEST ' X01VER, TEXT '&SOFTWARE &VERSION ' X01DAT, TEXT '&PLEASE TYPE THE DATE AND TIME AS FOLLOWS:' X01IDV, TEXT '&INTERNAL &DATA &VERSION ' /A035 X01NED, TEXT ' (NEED' /A035 *.-1 /A035 4000+ROMHIG-200 /A035 ROMMID-200^100+ROMLOW-200 /A035 TEXT ' OR HIGHER)' /A035 X01ROM, TEXT '&INTERNAL !&ROM &VERSION ' /A035 X01COR, TEXT '&CORRECT ERRORS BY PRESSING ' /A035 X01DON, TEXT '&WHEN DONE, PRESS !&RETURN.' /A035 XTRX01=400-. IFZERO .-401&4000 / MXDISP TEXT BLOCK NUMBER 2 /*************************************************************************** /**** N O T E **** /**** **** /**** THIS BLOCK IS RESERVED FOR MXDISP TEXT STATEMENTS **** /**** **** /**** DO NOT PUT REGULAR MENU CODE HERE, USE ANOTHER MENU BLOCK **** /*************************************************************************** RELOC ADMX02=. X=DLMX02 RELOC 0 X02APR, TEXT 'AND PRESS !&RETURN' /MX00A X02PGM, TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.' /MX00B X02JPR, TEXT '!&OR &JUST PRESS !&RETURN IF THE DOCUMENT DESIRED IS ' /MX00C X02TLS, TEXT '&TYPE THE LETTER(S) AND THEN PRESS !&RETURN' /C034 /MX00D X02PRM, TEXT '&PRESS !&RETURN TO RECALL THE &MAIN &MENU' /MX00F X02MMM, TEXT '&M = &MORE MAIN MENU SELECTIONS...' /MX00G X02NAM, TEXT '&PRESS !&RETURN TO TRY ANOTHER NAME' /MX00H X02NUM, TEXT '&PRESS !&RETURN TO TRY ANOTHER NUMBER' /MX00I X02PRA, TEXT '&PRESS !&RETURN TO TRY AGAIN' /MX00J XTRX02=400-. IFZERO .-401&4000 / MXDISP TEXT BLOCK NUMBER 3 /*************************************************************************** /**** N O T E **** /**** **** /**** THIS BLOCK IS RESERVED FOR MXDISP TEXT STATEMENTS **** /**** **** /**** DO NOT PUT REGULAR MENU CODE HERE, USE ANOTHER MENU BLOCK **** /*************************************************************************** RELOC ADMX03=. X=DLMX03 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 X03DNE, TEXT '&DOCUMENT NAME ALREADY EXISTS,' /MX01A X03HMD, TEXT '&HOW WOULD YOU LIKE TO MODIFY THIS DOCUMENT?' /C /MX01B X03TOP, TEXT '&T = &ADD TEXT AT THE TOP' /MX01C X03BOT, TEXT '&B = &ADD TEXT TO THE BOTTOM' /MX01D X03OVR, TEXT '&O = &OVERWRITE THE DOCUMENT' /MX01E X03PGM, TEXT '&PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.' /MX01F X03JPR, TEXT '!&OR &JUST PRESS !&RETURN TO RESUME EDITING' /MX01G X03TLR, TEXT '&TYPE THE LETTER AND THEN PRESS !&RETURN ' /C034 /MX00E X03GMM, TEXT '!&OR PRESS &GOLD !&MENU TO RECALL THE MENU.' /MX01H X03GME, TEXT '!&OR PRESS &GOLD !&MENU TO RECALL THE EDITOR MENU.' /MX01I X03PRR, TEXT '&PRESS !&RETURN TO RECALL THE MENU' /MX01J XTRX03=400-. IFZERO .-401&4000 / MXDISP TEXT BLOCK NUMBER 4 /*************************************************************************** /**** N O T E **** /**** **** /**** THIS BLOCK IS RESERVED FOR MXDISP TEXT STATEMENTS **** /**** **** /**** DO NOT PUT REGULAR MENU CODE HERE, USE ANOTHER MENU BLOCK **** /*************************************************************************** RELOC ADMX04=. X=DLMX04 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 X04SCM, TEXT '![(&A-- !&SET !&CONVENTIONS !&MENU --' X04ADD, TEXT '&A = &AUTODIAL &DIRECTORY &DOCUMENT' X04SYM, TEXT '&C = &CURRENCY &SYMBOL' X04DDN, TEXT '&D = &DICTIONARY &DRIVE/&DEVICE &NUMBER' X04ELD, TEXT '&E = &EASYCOM &LOGON &DOCUMENT' X04FOR, TEXT '&F = &DATE &FORMAT' X04MDT, TEXT '&M = &MAIN &DICTIONARY &TYPE' X04PDD, TEXT '&P = &PERSONAL &DICTIONARY &DOCUMENT' X04UDN, TEXT '&U = &UTILITY &SOFTWARE &DRIVE/&DEVICE &NUMBER' X04NON, TEXT '&NONE)' X04BRT, TEXT '&BRITISH)' X04USA, TEXT '&AMERICAN)' X04MAY, TEXT ' &MAY BE 1 TO 9, OR &NONE' X04CER, TEXT ' &C &MAY BE $, OR #' XTRX04=400-. IFZERO .-401&4000 / MXDISP TEXT BLOCK NUMBER 5 /*************************************************************************** /**** N O T E **** /**** **** /**** THIS BLOCK IS RESERVED FOR MXDISP TEXT STATEMENTS **** /**** **** /**** DO NOT PUT REGULAR MENU CODE HERE, USE ANOTHER MENU BLOCK **** /*************************************************************************** RELOC ADMX05=. X=DLMX05 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 X05DMY, TEXT '&DAY/&MONTH/&YEAR' /M035 X05MDY, TEXT '&MONTH/&DAY/&YEAR' /M035 X05YMD, TEXT '&YEAR/&MONTH/&DAY' /M035 X05USD, TEXT ' WITH &AMERICAN &DICTIONARY' /M037 /M035 X05UKD, TEXT ' WITH &BRITISH &DICTIONARY' /M037 /M035 X05ERD, TEXT ' !&DMY = ' /M035 X05ERM, TEXT ', !&MDY = ' /M035 X05ERY, TEXT ', !&YMD = ' /M035 X05NEP, TEXT '&NON EXISTENT PRINTER' XTRX05=400-. IFZERO .-401&4000 / MXDISP TEXT BLOCK NUMBER 6 /*************************************************************************** /**** N O T E **** /**** **** /**** THIS BLOCK IS RESERVED FOR MXDISP TEXT STATEMENTS **** /**** **** /**** DO NOT PUT REGULAR MENU CODE HERE, USE ANOTHER MENU BLOCK **** /*************************************************************************** RELOC ADMX06=. X=DLMX06 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 XTRX06=400-. IFZERO .-401&4000 / MXDISP TEXT BLOCK NUMBER 7 /*************************************************************************** /**** N O T E **** /**** **** /**** THIS BLOCK IS RESERVED FOR MXDISP TEXT STATEMENTS **** /**** **** /**** DO NOT PUT REGULAR MENU CODE HERE, USE ANOTHER MENU BLOCK **** /*************************************************************************** RELOC ADMX07=. X=DLMX07 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 XTRX07=400-. IFZERO .-401&4000 / MXDISP TEXT BLOCK NUMBER 10 /*************************************************************************** /**** N O T E **** /**** **** /**** THIS BLOCK IS RESERVED FOR MXDISP TEXT STATEMENTS **** /**** **** /**** DO NOT PUT REGULAR MENU CODE HERE, USE ANOTHER MENU BLOCK **** /*************************************************************************** RELOC ADMX10=. X=DLMX10 / INDICATE DISK BLOCK WHERE MENU IS LOADED RELOC 0 XTRX10=400-. IFZERO .-401&4000 XLIST