 
*  F8TXBE/S      Apr / 28 / 95
*------------------------------
*  French command text file
 
*  Text for Command Mode headlines, RS verify & Command entries
*  Assemble, load as Opt 4 Object file followed by FWTXMAKE
*--------------------------------------------------------------
*  Expands TAB assist in CPU after loading
 
*  LANG identification EQUates
*--------------------------------------
*  Make sure ID at end is set correctly
 
AUST   EQU  0
BRIT   EQU  1
FRAN   EQU  2
DEUT   EQU  3
ITAL   EQU  4
SVER   EQU  5
NEDL   EQU  6
ESPN   EQU  7
 
 
       AORG >A050             Push above Mailbox
 
       DEF  TEXT,TEXTND,TYPE,LANG
 
TEXT   EQU  $
 
*  Message/data offset pointer table
*-----------------------------------------
*  Referred to by EQUates in main program
*  Assume same order as here - DO NOT ALTER
 
       DATA '52'              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 MST               Save temp
       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               Marker set
       DATA MMT               Tabs
       DATA CMLLT             Command line entries
       DATA RSMS              RS verify
       DATA HPT               Hard path
       DATA WLD               Wildcard
       DATA PST               Paste
       DATA EDT               Edit ring
       DATA PLW               Please wait
 
*  Text messages
*---------------
*  All messages must be 80 chr or less
*            -  preferably 74 at most
 
MODEX  BYTE  MODEL                      Main Command line
       TEXT 'Edition,'
       TEXT 'Fichiers,Lignes,'
       TEXT 'reCHerche,'
       TEXT 'Tab''n,VOir,AIde,'
       TEXT 'COpier,RAppeler,'
       TEXT ' ou Quitter ?'
MODEL  EQU  $-MODEX-1
MODE   EQU  MODEX-TEXT
 
MSVX   BYTE MSVL                        SF
       TEXT 'Sauvegarder un Fichier: '
       TEXT 'nom du fichier?'
MSVL   EQU  $-MSVX-1
MSV    EQU  MSVX-TEXT
 
MLFX   BYTE MLFL                        LF
       TEXT 'Lire un Fichier: '
       TEXT 'nom du fichier?'
MLFL   EQU  $-MLFX-1
MLF    EQU  MLFX-TEXT
 
MPFX   BYTE  MPFL                       PF
       TEXT 'Imprimer un Fichier: '
       TEXT 'nom de l''unit?'
MPFL   EQU  $-MPFX-1
MPF    EQU  MPFX-TEXT
 
MLTX   BYTE MLTL                        LT
       TEXT 'Lire Temporaire: '
MLTL   EQU  $-MLTX-1
MLT    EQU  MLTX-TEXT
 
MSTX   BYTE MSTL
       TEXT 'Sauvegarder Temporaire:'      LT
MSTL   EQU  $-MSTX-1
MST    EQU  MSTX-TEXT
 
MDPX   BYTE  MDPL                       DP
       TEXT 'a-R Imprimante: '
       TEXT 'nom de l''unit?'
MDPL   EQU  $-MDPX-1
MDP    EQU  MDPX-TEXT
 
MQEX   BYTE MQEL                        Q
       TEXT 'QUITTER: '
       TEXT 'Vidage ou Terminer ?'
MQEL   EQU  $-MQEX-1
MQE    EQU  MQEX-TEXT
 
MODFX  BYTE MODFL                       Lines sub-command line
       TEXT 'LireF,Sauve..F,'
       TEXT 'ImprimerF,'
       TEXT 'LireT,Sauv..T'
       TEXT 'AffichageR{pertoire,'
       TEXT 'HardDisk,'
       TEXT 'aR-Impr.,'
       TEXT 'Vidage:'
MODFL  EQU  $-MODFX-1
MODF   EQU  MODFX-TEXT
 
 
HPTX   BYTE HPTL
       TEXT 'Pathname:'
HPTL   EQU  $-HPTX-1
HPT    EQU  HPTX-TEXT
 
MODLX  BYTE MODLL                       L
       TEXT 'Transf{rerL,CopierL,'
       TEXT 'D{truireL,AffichageL'
       TEXT ' ou MArquer:'
MODLL  EQU  $-MODLX-1
MODL   EQU  MODLX-TEXT
 
MODSX  BYTE MODSL                       SH
       TEXT 'LocalisationCha'
       BYTE >9C
       TEXT 'ne,'
       TEXT 'RemplacementCha'
       BYTE >9C
       TEXT 'ne,Wildcard?'
MODSL  EQU  $-MODSX-1
MODS   EQU  MODSX-TEXT
 
 
MFSX   BYTE MFSL                        FS
       TEXT 'LOCALISER /cha'
       BYTE >9C
       TEXT 'ne/ ?'
MFSL   EQU  $-MFSX-1
MFS    EQU  MFSX-TEXT
 
MRSX   BYTE MRSL                        RS
       TEXT 'REMPLACER: '
       TEXT '/ancienne/nouvelle cha'
       BYTE >9C
       TEXT 'ne/ ?'
MRSL   EQU  $-MRSX-1
MRS    EQU  MRSX-TEXT
 
MMLX   BYTE MMLL                        M
       TEXT 'TRANSFERER: '
       TEXT 'premi}re,derni{re '
       TEXT 'apr}s la ligne?'
MMLL   EQU  $-MMLX-1
MML    EQU  MMLX-TEXT
 
MCLX   BYTE MCLL                        C
       TEXT 'COPIER: '
       TEXT 'premi}re,derni{re '
       TEXT 'apr}s la ligne?'
MCLL   EQU  $-MCLX-1
MCL    EQU  MCLX-TEXT
 
MSLX   BYTE MSLL                        S
       TEXT 'AFFICHAGE LIGNE: '
       TEXT  'num{ro de ligne?'
MSLL   EQU  $-MSLX-1
MSL    EQU  MSLX-TEXT
 
MDLX   BYTE MDLL                        D
       TEXT 'DETRUIRE: '
       TEXT 'premi}re et derni}re ligne?'
MDLL   EQU  $-MDLX-1
MDL    EQU  MDLX-TEXT
 
MPGX   BYTE MPGL                        Quit/Recall warning
       TEXT 'Sauvegarder Fichier '
       TEXT 'd''abord (Non ou Oui)?'
MPGL   EQU  $-MPGX-1
MPG    EQU  MPGX-TEXT
 
IOERX  BYTE IOERL                       File error header
       TEXT 'CODE D''ERREUR :'
IOERL  EQU  $-IOERX-1
IOER   EQU  IOERX-TEXT
 
TBFX   BYTE TBFLN                       Memory full
TBF1   TEXT 'MEMOIRE PLEINE, '
       TEXT 'sauvegarder ou vidage!'
TBFLN  EQU  $-TBF1
TBF    EQU  TBFX-TEXT
 
MTSX   BYTE MTSLL
       TEXT 'Tabulation (1-9)?'         Tabset choice
MTSLL  EQU  $-MTSX-1
MTS    EQU  MTSX-TEXT
 
EMLX   BYTE EMLL                        MK
       TEXT 'MArquer ligne:'
EMLL   EQU  $-EMLX-1
EML    EQU  EMLX-TEXT
 
WLDX   BYTE WLDL                        WC
       TEXT 'WildCard:'
WLDL   EQU  $-WLDX-1
WLD    EQU  WLDX-TEXT
 
PSTX   BYTE PSTL
       TEXT 'Coller apr}s ligne:'
PSTL   EQU  $-PSTX-1
PST    EQU  PSTX-TEXT
 
EDRX   BYTE EDRL
       TEXT 'Fichier:'
EDRL   EQU  $-EDRX-1
EDT    EQU  EDRX-TEXT
 
PLWX   BYTE PLWL
       TEXT 'Attendez'
PLWL   EQU  $-PLWX-1
PLW    EQU  PLWX-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
*----------------------------------------------
*  Each entry must have a unique 2 letter command
 
CMLCDS EQU  $
CMLLT  EQU  CMLCDS-TEXT
       TEXT 'SF'              Save File
       TEXT 'LF'              Load File
       TEXT 'IF'              Print File
       TEXT 'LT'              Load Temp
       TEXT 'ST'              Save Temp
       TEXT 'RI'              Dir Printer device
       TEXT 'AR'              Show directory
       TEXT 'V '              Purge               <P>urge
       TEXT 'E '              Edit
       TEXT 'F '              Files
       TEXT 'L '              Lines
       TEXT 'S '              SearcH
       TEXT 'T '              Tabs                <T>ab
       TEXT 'Q '              Quit
       TEXT 'QQ'              Quit Immediate
       TEXT 'LC'              Find String
       TEXT 'RC'              Replace String
       TEXT 'TL'              Move
       TEXT 'CL'              Copy
       TEXT 'AL'              Show
       TEXT 'DL'              Delete
       TEXT 'MA'              MarK
       TEXT 'CO'              COpy  text
       TEXT 'RA'              ReCall text
       TEXT 'AI'              Help
       TEXT 'VO'              View
       TEXT 'HD'              Hard pathname
       TEXT 'WC'              Wildcard char
 
*  Response table used for various entries
 
       TEXT 'O'               <Y>es
       TEXT 'N'               <N>o
       TEXT 'T'               <E>xit
       TEXT 'T'               <A>ll
       TEXT 'S'               <S>top
       TEXT 'R'               <I>ndent
       TEXT 'G'               <L>eft
       TEXT 'D'               <R>ight
       TEXT 'FdF'             <E>nd data also
 
 
*  Special message for RS continuation
*-------------------------------------
 
RSMSX  BYTE RSLEN
       TEXT 'REMPLACEMENT CHAINE ('
       TEXT 'Oui,Non,Toutes,Stop)'
       TEXT '? '
RSLEN  EQU  $-RSMSX-1
RSMS   EQU  RSMSX-TEXT
 
       EVEN
 
 
TXTLEN EQU  $-TEXT
TEXTND EQU  $
TYPE   BYTE '8'
LANG   BYTE FRAN
       END
 
