;=================
;   SCR.CONST     
; SCREEN-EDITOR   
; VERSION C-128   
;=================
;                 
;10.9.1986        
;                 
;=================
;GLOBALE TEXT-    
;KONSTANTEN       
;=================
;                 
ORG $DB00         
;=================
;                 
TXT5              
DFD "1.COL:",0    
TXT6              
DFD "SCROLL:",0   
TXT7 DFD "HALF",0 
TXT8 DFD "PAGE",0 
TXT9 DFD "COL=",0 
TXT10 DFD "MSK=",0
TXT11 DFD "BND=",0
TXT12 DFD "TAB=",0
TXT13             
DFD "SYSTEM ERR"  
DFD "OR NR:",0    
TXT14             
DFD " TIMES FOUND"
DFD 0             
TXT15             
DFD " CHANGED",0  
TXT16             
DFD " ERRORS",0   
;=================
<OFFSET EQU 19    
;                 
TXTTAB            
DFD "LINE-COMM."  
DFD "IGNORED ",0  
DFD "COMMAND CO"  
DFD "NFLICT  ",0  
DFD "OUT OF MEM"  
DFD "ORY     ",0  
DFD "BLOCK TOO "  
DFD "LONG    ",0  
DFD "ILLEGAL BO"  
DFD "UNDS    ",0  
DFD "MOVE ERROR"  
DFD "        ",0  
DFD "ILLEGAL CO"  
DFD "MMAND   ",0  
DFD "ENTER A ST"  
DFD "RING!   ",0  
DFD "ILLEGAL CO"  
DFD "LUMN    ",0  
DFD "STRING FOU"  
DFD "ND      ",0  
DFD "**BOTTOM R"  
DFD "EACHED**",0  
DFD "STRING NOT"  
DFD " FOUND  ",0  
DFD "KEY IS NOT"  
DFD " ACTIVE ",0  
;=================
MSG0              
DFD "SELECT KEY-" 
DFD "NUMBER "     
DFD "(1-4)",0     
MSG1              
DFD 19,19         
DFD 9,142,147     
DFD "PASCAL-"     
DFD "MENU",13     
DFD "-------"     
DFD "----",13     
DFD 13,13         
DFD "SELECT "     
DFD "OPTION:",13  
DFD 13            
DFD "NAME  EDIT " 
DFD "NEW DATASET" 
DFD 13            
DFD "'?'   RESUME"
DFD " EDIT",13    
DFD "'$'   COMPI" 
DFD "LE DATASET"  
DFD 13            
DFD "'@'   SHOW " 
DFD "DIRECTORY"   
DFD 13            
DFD "'*'   EXIT " 
DFD "TO BASIC",13 
DFD 13,"==>",0    
MSG2              
DFD 147,13,13     
DFD "THIS IS A "  
DFD "NEW’ DATA"  
DFD "SET!",13,13  
DFD "ENTER LINE"  
DFD " LENGTH:"    
DFD 13,13         
DFD "[RANGE:1.."  
DFD "136]",13     
DFD "['*' OR '?"  
DFD "' RETURN TO" 
DFD " MENU]"      
DFD 13,13         
DFD "==>",0       
;=================
MSG3              
DFD 147           
DFD "COPY D"      
DFD "ATASET",13   
DFD "------"      
DFD "------"      
DFD 13,13,13      
DFD "ENTER DATA"  
DFD "SET-NAME:",13
DFD "['*' OR '?"  
DFD "' FOR END]"  
DFD 13,13         
DFD "==>",0       
MSG4              
DFD 147,13,13     
DFD "THIS DATAS"  
DFD "ET HAS A ",13
DFD "DIFFERENT’ "
DFD "RECORD-SIZE!"
DFD 13,13         
DFD "CONFIRM COPY"
DFD " WITH 'C'!"  
DFD 13,13         
DFD "==>",0       
MSG5              
DFD 147,13,13     
DFD "FIRST LINE " 
DFD "COPIED:",13  
DFD "['*' OR '?' "
DFD "TO COPY ALL]"
DFD 13            
DFD "==>",0       
MSG6              
DFD 13,13         
DFD "LAST LINE "  
DFD "COPIED:",13  
DFD "==>",0       
;                 
MSG7              
DFD 147,13,13     
DFD "DEVICE NUM"  
DFD "BER:",13     
DFD "['*' OR '?"  
DFD "' FOR END]"  
DFD 13,"==>",0    
MSG8              
DFD 13            
DFD "SEK. ADDRESS"
DFD ":",13        
DFD "['*' OR '?' "
DFD "FOR NONE]",13
DFD "==>",0       
MSG9              
DFD 13            
DFD "FILE NAME:"  
DFD 13            
DFD "==>",0       
MSG10             
DFD 13            
DFD "CODE OF DE"  
DFD "LIMITER:",13 
DFD "['*' OR '?' "
DFD "FOR NONE]",13
DFD "==>13??",0   
MSG11             
DFD 13            
DFD "TRUNCATE "   
DFD "TRAILING",13 
DFD "SPACES? ("   
DFD "Y’ES OR N’"
DFD "O)",13       
DFD "==>Y?",0     
ENDCONST          
;                 
EXP *             
;                 
END