$DEBUG PAGELENGTH(50) /*********************/ /* */ /* M E S S A G E S */ /* */ /*********************/ MESSAGES: DO; /****************************************************/ /* */ /* COMMON MESSAGES. ALL END WITH ASCII NULL ( 0 ). */ /* */ /* */ /* LAST UPDATED - 23.5.82 DROR */ /* */ /****************************************************/ $NOLIST $INCLUDE(COMMON.DCL) $LIST DECLARE MSG$FILL$IN(*) BYTE PUBLIC DATA( CLR$EOS, 'DIRECTIONS: 1. Fill in the blank spaces with missing parameters.',CR,LF, ' 2. After each parameter, type RETURN.',CR,LF, ' 3. If you want to return to the first menu, press INTERRUPT 6.', CR,LF, '----------------------------------------', '----------------------------------------', 0); DECLARE MSG$OPTIONS(*) BYTE PUBLIC DATA( CR,LF, LF, 'Special options (y/n) ? ', 0); DECLARE MSG$FILE$OR$RETURN(*) BYTE PUBLIC DATA( '.............. ( Type RETURN if no more files )',CR, 0); DECLARE MSG$CLR$AFTER$FNAME(*) BYTE PUBLIC DATA( C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT, ' ', ' ',CR, 0); DECLARE MSG$C$LFT(*) BYTE PUBLIC DATA( BS,BS,BS,BS, BS,BS,BS,BS, BS,BS,BS,BS, BS,BS, 0); DECLARE MSG$C$RGT(*) BYTE PUBLIC DATA( C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT, 0); DECLARE MSG$C$RGT1(*) BYTE PUBLIC DATA( C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT,C$RGT,C$RGT, C$RGT,C$RGT, 0); DECLARE MSG$SEGMENTS(*) BYTE PUBLIC DATA( LF, LF, ' SEGMENT NAMES AND ADDRESSES, IN ORDER',CR,LF, ' -------------------------------------',CR,LF, 0); DECLARE MSG$SEGMENT(*) BYTE PUBLIC DATA( 'SEGMENT ...............................', ' ( Type RETURN if no more segments )',CR, C$RGT,C$RGT,C$RGT,C$RGT,C$RGT,C$RGT,C$RGT,C$RGT, 0); DECLARE MSG$ADDRESS(*) BYTE PUBLIC DATA( 'ADDRESS ..............', ' ( Type RETURN if immidiately after previous segment )', C$UP,C$RGT,C$RGT,C$RGT,C$RGT,C$RGT,C$RGT,C$RGT,C$RGT,C$RGT, 0); DECLARE MSG$BEWARE(*) BYTE PUBLIC DATA( CR,LF, LF, LF, 'BEWARE !!!',CR,LF, ' All files currently on output disk will be deleted.',CR,LF, ' Do you want to continue (y/n) ? ', 0); DECLARE MSG$CONVENTIONS(*) BYTE PUBLIC DATA( ' ', ' | NOTATION : APPERCASE - Entered as shown |', ' ', ' | lowercase - Variable parameter |', ' ', ' | [ ] - Option |', ' ', ' | ... - May be repeated |', 0); DECLARE MSG$NOT$EXISTS(*) BYTE PUBLIC DATA( CR,LF, ' Program is not available.',CR,LF, LF, 0); END MESSAGES;