 
*  EE7/MESGS    40-col        Jan / 15 / 93
*---------------------
*  All Characters
 
*  Text for Command Mode headlines
*  Pointers offset for VDP storage
*---------------------------------
*  Fill out blank line after loading
*  -->> allow more space in VDP
 
*  Message pointer table offsets
*-------------------------------
*  Now located in ED0/EQUS file
 
TEXT   EQU  $
 
*  Pointer table to VDP address oddsets of length bytes
 
       DATA '50'              Version #
       DATA TXTVDL            Text length to VDP
       DATA MODE              Edit...
       DATA MSV               Save File
       DATA MLF               Load File
       DATA MPF               Print file
       DATA MLT               Load temp
       DATA MSD               Enter dr#
       DATA MDP               SDir print
       DATA MQE               Quit
       DATA MODF              LF,...
       DATA MODL              Move,..
       DATA MODS              Find,Repl
       DATA MFS               Find
       DATA MRS               Replace
       DATA MML               Move
       DATA MCL               Copy
       DATA MSL               Show
       DATA MDL               Delete
       DATA MPG               Purge
       DATA IOER              IO error
       DATA TBF               TB full
       DATA MTS               Tab select
       DATA EML               Mark line
       DATA MMT               Tabs
       DATA CMLLT             Command line entries
       DATA RSMS              RS verify
       DATA WLD               Wildcard
       DATA HPT               Hard path
 
*  Text messages
*---------------
 
MODEX  BYTE  MODEL
       TEXT 'Edit,'
       TEXT 'Files,Lines,SearcH,'
       TEXT 'Tabs,Help,'
       TEXT 'Quit:'
MODEL  EQU  $-MODEX-1
MODE   EQU  MODEX-TEXT
 
MSVX   BYTE MSVL
       TEXT 'SAVE FILE, enter filename:'          SF
MSVL   EQU  $-MSVX-1
MSV    EQU  MSVX-TEXT
 
MLFX   BYTE MLFL
       TEXT 'LOAD FILE, enter filename:'          LF
MLFL   EQU  $-MLFX-1
MLF    EQU  MLFX-TEXT
 
MPFX   BYTE  MPFL
       TEXT 'PRINT FILE, enter devicename:'       PF
MPFL   EQU  $-MPFX-1
MPF    EQU  MPFX-TEXT
 
MLTX   BYTE MLTL
       TEXT 'LOAD TEMP, temporary filename:'      LT
MLTL   EQU  $-MLTX-1
MLT    EQU  MLTX-TEXT
 
MSDX   BYTE MSDL                                  SD
       TEXT 'Enter drive number:'
MSDL   EQU  $-MSDX-1
MSD    EQU  MSDX-TEXT
 
MDPX   BYTE  MDPL
       TEXT 'SD Printer, enter devicename:'       DP
MDPL   EQU  $-MDPX-1
MDP    EQU  MDPX-TEXT
 
MQEX   BYTE MQEL
       TEXT 'QUIT enter Save, Purge, or Exit:'    Q
MQEL   EQU  $-MQEX-1
MQE    EQU  MQEX-TEXT
 
MODFX  BYTE MODFL
       TEXT 'LoadF,SaveF,PrintF,'                 F
       TEXT 'LoadTemp,'
       TEXT 'ShowDirectory,'
       TEXT 'sDPrinter,'
       TEXT 'HardDisk,'
       TEXT 'Purge:'
MODFL  EQU  $-MODFX-1
MODF   EQU  MODFX-TEXT
 
MODLX  BYTE MODLL
       TEXT 'Move,Copy,Delete,Show lines:'        L
MODLL  EQU  $-MODLX-1
MODL   EQU  MODLX-TEXT
 
MODSX  BYTE MODSL
       TEXT 'FindString or ReplaceString,'        SH
       TEXT 'WildCard:'
MODSL  EQU  $-MODSX-1
MODS   EQU  MODSX-TEXT
 
MFSX   BYTE MFSL
       TEXT 'FIND enter /string/ :'               FS
MFSL   EQU  $-MFSX-1
MFS    EQU  MFSX-TEXT
 
MRSX   BYTE MRSL
       TEXT 'REPLACE enter '                      RS
       TEXT '/old string/new string/ :'
MRSL   EQU  $-MRSX-1
MRS    EQU  MRSX-TEXT
 
MMLX   BYTE MMLL
       TEXT 'MOVE start line, '                   M
       TEXT 'stop line, after line:'
MMLL   EQU  $-MMLX-1
MML    EQU  MMLX-TEXT
 
MCLX   BYTE MCLL
       TEXT 'COPY start line, '                   C
       TEXT 'stop line, after line:'
MCLL   EQU  $-MCLX-1
MCL    EQU  MCLX-TEXT
 
MSLX   BYTE MSLL
       TEXT 'SHOW enter line number:'             S
MSLL   EQU  $-MSLX-1
MSL    EQU  MSLX-TEXT
 
MDLX   BYTE MDLL
       TEXT 'DELETE enter start line, stop line:' D
MDLL   EQU  $-MDLX-1
MDL    EQU  MDLX-TEXT
 
MPGX   BYTE MPGL
       TEXT 'SaveFile first (No or Yes)?'
MPGL   EQU  $-MPGX-1
MPG    EQU  MPGX-TEXT
 
IOERX  BYTE IOERL
       TEXT 'IO ERROR CODE = '
IOERL  EQU  $-IOERX-1
IOER   EQU  IOERX-TEXT
 
TBFX   BYTE TBFLN
TBF1   TEXT 'TEXT BUFFER FULL'
       TEXT ', save or purge!'
TBFLN  EQU  $-TBF1
TBF    EQU  TBFX-TEXT
 
MTSX   BYTE MTSLL
       TEXT 'Tabset (1-3)?'
MTSLL  EQU  $-MTSX-1
MTS    EQU  MTSX-TEXT
 
EMLX   BYTE EMLL
       TEXT 'MARK enter line number:'
EMLL   EQU  $-EMLX-1
EML    EQU  EMLX-TEXT
 
WLDX   BYTE WLDL
       TEXT 'Wildcard:'
WLDL   EQU  $-WLDX-1
WLD    EQU  WLDX-TEXT
 
HPTX   BYTE HPTL
       TEXT 'Path:'
HPTL   EQU  $-HPTX-1
HPT    EQU  HPTX-TEXT
 
*  This entry must be the last text entry
*-----------------------------------------------------------
*  After reading subsequent data, the program
*  expands this data out in CPU RAM.
*  Actual length loaded to VDP includes this expanded length
 
 
MMTX   BYTE >AC
       TEXT ' TABS  '         7 bytes only
MMT    EQU  MMTX-TEXT
 
TXTVDL EQU  $+>AC-TEXT
 
       EVEN
 
 
*  Command line 2 char entries
*----------------------------------------------
*  Must be in same sequence as previous entries
 
CMLCDS EQU  $
CMLLT  EQU  CMLCDS-TEXT
       TEXT 'SF'              Save File
       TEXT 'LF'              Load File
       TEXT 'PF'              Print File
       TEXT 'LT'              Load Temp
       TEXT 'DP'              Dir Printer device
       TEXT 'SD'              Show directory
       TEXT 'P '              Purge
       TEXT 'E '              Edit
       TEXT 'F '              Files
       TEXT 'L '              Lines
       TEXT 'SH'              SearcH
       TEXT 'T '              Tabs
       TEXT 'Q '              Quit
       TEXT 'QQ'              Quit Immediate
       TEXT 'FS'              Find String
       TEXT 'RS'              Replace String
       TEXT 'M '              Move
       TEXT 'C '              Copy
       TEXT 'S '              Show
       TEXT 'D '              Delete
       TEXT 'MK'              Mark line
       TEXT 'H '              Help
       TEXT 'WC'              Wildcard
       TEXT 'HD'              HardDisk
 
*  Response table
 
       TEXT 'Y'               Yes
       TEXT 'N'               No
       TEXT 'E'               Exit
       TEXT 'A'               All
       TEXT 'S'               Stop
       TEXT 'I'               Indent
       TEXT 'L'               Left
       TEXT 'R'               Right
EOFDAT TEXT 'EoF'             <E>nd
 
 
*  Special message for RS continuation
*-------------------------------------
 
RSMSX  BYTE RSLEN
       TEXT 'REPLACE STRING ('
       TEXT 'Yes,No,All,Stop)'
       TEXT '? '
RSLEN  EQU  $-RSMSX-1
RSMS   EQU  RSMSX-TEXT
 
       EVEN
 
TXTLEN EQU  $-TEXT
 
 
