You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
125 lines
4.9 KiB
125 lines
4.9 KiB
;======================= START OF SPECIFICATIONS =========================
|
|
;
|
|
; MODULE NAME: EDLMES.FIL
|
|
;
|
|
; DESCRIPTIVE NAME: EDLIN MESSAGES
|
|
;
|
|
; FUNCTION: PROVIDES A SET OF MESSAGES FOR EDLIN.
|
|
;
|
|
; ENTRY POINT: NA
|
|
;
|
|
; INPUT: NA
|
|
;
|
|
; EXIT NORMAL: NA
|
|
;
|
|
; EXIT ERROR: NA
|
|
;
|
|
; INTERNAL REFERENCES: NA
|
|
;
|
|
; EXTERNAL REFERENCES: NA
|
|
;
|
|
;
|
|
; NOTES: THIS MODULE IS TO BE PREPPED BY FASTBLD.EXE.
|
|
;
|
|
; REVISION HISTORY:
|
|
;
|
|
; VERSION 4.00 - CREATED FOR DOS 4.00
|
|
;
|
|
;======================= END OF SPECIFICATIONS ===========================
|
|
|
|
;=========================================================================
|
|
; edlin utility message file
|
|
;=========================================================================
|
|
|
|
:util EDLIN ;utility name
|
|
:class 1
|
|
|
|
:class A ;system messages
|
|
:use 1 COMMON1 ;"Incorrect DOS version",CR,LF
|
|
:use 2 COMMON2 ;"Insufficient memory",CR,LF
|
|
:use 3 COMMON3 ;"Error loading messages",CR,LF
|
|
|
|
:def 300 "edlin /? help",cr,lf
|
|
:def 301 "edlin ? help",cr,lf
|
|
:def 302 "edlin ? help",cr,lf
|
|
:def 303 "edlin ? help",cr,lf
|
|
:def 304 "edlin ? help",cr,lf
|
|
:def 305 "edlin ? help",cr,lf
|
|
:def 306 "edlin ? help",cr,lf
|
|
:def 307 "edlin ? help",cr,lf
|
|
|
|
:use 8001 COMMON39 ;"Incorrect DOS version",CR,LF
|
|
:use 8002 COMMON40 ;"Insufficient memory",CR,LF
|
|
:use 8003 COMMON41 ;"Error loading messages",CR,LF
|
|
:def 8300 "edlin /? help",cr,lf
|
|
:def 8301 "edlin ? help",cr,lf
|
|
:def 8302 "edlin ? help",cr,lf
|
|
:def 8303 "edlin ? help",cr,lf
|
|
:def 8304 "edlin ? help",cr,lf
|
|
:def 8305 "edlin ? help",cr,lf
|
|
:def 8306 "edlin ? help",cr,lf
|
|
:def 8307 "edlin ? help",cr,lf
|
|
|
|
:class B ;utility messages
|
|
:def 6 "*" ;prompt_ptr
|
|
:def 7 "Invalid drive or file name",CR,LF ;baddrv_ptr
|
|
:def 8 "File name must be specified",CR,LF ;ndname_ptr
|
|
:def 10 "File is READ-ONLY",CR,LF ;ro_err_ptr
|
|
:def 11 "File Creation Error",CR,LF ;bcreat_ptr
|
|
:def 12 "Too many files open",CR,LF ;too_many_ptr
|
|
:def 13 "Read error in:",CR,LF,"%1",CR,LF ;read_err_ptr
|
|
:def 14 "Cannot edit .BAK file--rename file",CR,LF ;nobak_ptr
|
|
:def 15 "No room in directory for file",CR,LF ;nodir_ptr
|
|
:def 16 "Disk full. Edits lost.",CR,LF ;dskful_ptr
|
|
:def 18 "Entry error",CR,LF ;badcom_ptr
|
|
:def 19 "New file",CR,LF ;newfil_ptr
|
|
:def 20 "Not found",CR,LF ;nosuch_ptr
|
|
|
|
:def 8006 "*" ;prompt_ptr
|
|
:def 8007 "Invalid drive or file name",CR,LF ;baddrv_ptr
|
|
:def 8008 "File name must be specified",CR,LF ;ndname_ptr
|
|
:def 8010 "File is READ-ONLY",CR,LF ;ro_err_ptr
|
|
:def 8011 "File Creation Error",CR,LF ;bcreat_ptr
|
|
:def 8012 "Too many files open",CR,LF ;too_many_ptr
|
|
:def 8013 "Read error in:",CR,LF,"%1",CR,LF ;read_err_ptr
|
|
:def 8014 "Cannot edit .BAK file--rename file",CR,LF ;nobak_ptr
|
|
:def 8015 "No room in directory for file",CR,LF ;nodir_ptr
|
|
:def 8016 "Disk full. Edits lost.",CR,LF ;dskful_ptr
|
|
:def 8018 "Entry error",CR,LF ;badcom_ptr
|
|
:def 8019 "New file",CR,LF ;newfil_ptr
|
|
:def 8020 "Not found",CR,LF ;nosuch_ptr
|
|
|
|
:class C ;utility messages
|
|
:def 21 "O.K.? " ;ask_ptr
|
|
:def 22 "Line too long",CR,LF ;toolng_ptr
|
|
:def 23 "End of input file",CR,LF ;eof_ptr
|
|
:def 24 "Abort edit (Y/N)? " ;qmes_ptr
|
|
:def 25 "Must specify destination line number",CR,LF ;dest_ptr
|
|
:def 26 "Not enough room to merge the entire file",CR,LF ;mrgerr_ptr
|
|
:def 27 CR,LF ;crlf_ptr
|
|
:def 28 LF ;lf_ptr
|
|
:def 29 "Continue (Y/N)?" ;cont_ptr
|
|
:def 30 "Unable to print message",CR,LF ;fatal_error
|
|
:def 31 "%1" ;arg_buf_ptr
|
|
:def 32 "%1:%2" ;line_num_buf_ptr
|
|
:def 33 "Cannot merge - Code page mismatch",CR,LF ;cp_err_ptr
|
|
|
|
:def 8021 "O.K.? " ;ask_ptr
|
|
:def 8022 "Line too long",CR,LF ;toolng_ptr
|
|
:def 8023 "End of input file",CR,LF ;eof_ptr
|
|
:def 8024 "Abort edit (Y/N)? " ;qmes_ptr
|
|
:def 8025 "Must specify destination line number",CR,LF ;dest_ptr
|
|
:def 8026 "Not enough room to merge the entire file",CR,LF ;mrgerr_ptr
|
|
:def 8027 CR,LF ;crlf_ptr
|
|
:def 8028 LF ;lf_ptr
|
|
:def 8029 "Continue (Y/N)?" ;cont_ptr
|
|
:def 8030 "Unable to print message",CR,LF ;fatal_error
|
|
:def 8031 "%1" ;arg_buf_ptr
|
|
:def 8032 "%1:%2" ;line_num_buf_ptr
|
|
:def 8033 "Cannot merge - Code page mismatch",CR,LF ;cp_err_ptr
|
|
|
|
:end
|
|
|
|
;=========================================================================
|
|
;=========================================================================
|
|
|