TITLE WSMSG2.MAC - EMBEDDED MESSAGES 07/29/80
;
;       FOR WordStar 2.0 and 2.1  JULY, 1980
;
;************************************************************************
;* WSMSG2.MAC - CONTAINS THE MESSAGES THAT ARE EMBEDDED WITHIN WORDSTAR *
;*									*
;*		THESE TEXTS ARE INCORPORATED INTO WordStar BY RUNNING	*
;*		THE SPECIAL PROGRAM RETEXT.  MAKE CERTAIN YOU HAVE 	*
;*		WSMSG2.COM, WSU.COM, WSOVLY1.OVR, AND (OPTIONAL)	*
;*		MERGPRIN.OVR ON CURRENT DRIVE BEFORE RUNNING RETEXT.	*
;*		WSMSG2.COM IS NOT USED EXCEPT BY RETEXT.		*
;*									*
;************************************************************************
;

;
; ASSEMBLY OPTIONS OF INTEREST TO THE USER
;
TBASE	EQU	100H	;WHERE PROGRAMS LOAD FOR NORMAL CP/M
			;(CP/M IS A TRADEMARK OF DIGITAL RESEARCH.)
		;CHANGE TBASE AS REQUIRED FOR TRS-80, ETC: SHOULD BE
		;CORRECT VALUE FOR SYSTEM ASSEMBLED AND LOADED ON.
		;NEED NOT MATCH SYSTEM WHERE WordStar IS RUN.
;
; ASCII CHARACTERS
;
CR	EQU	0DH
LF	EQU	0AH
TAB	EQU	09H
FF	EQU	0CH


	ASEG			;SAY ABSOLUTE ASSEMBLY
	ORG	TBASE		;START AT 100 HEX OR AS EQU'D

	PAGE 65		;SETS ASSEMBLY LISTING PAGE LENGTH
;************************************************************************
;* TEXTS - OVERLAY # 0  (PART OF WSU.COM)				*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR "ROOT"
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 236 HEX
;
	DW ETEXTS-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING
;
; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
;
 ;CIO
	DW FOMSG-$
	DW MC16F-$
	DW MC16D-$
	DW MC17A-$	
	DW MC17B-$
	DW MC17C-$
	DW M5OFF-$
	DW M5ON-$
	DW CRTXT-$
	DW MC10T-$
	DW MC11T-$
	DW MC12T-$
	DW MC13T-$
	DW MC14T-$
	DW MC15T-$
;INITA
	DW SOND-$	;SIGN-OÎ INDENÔ
	DW TOLME-$
	DW NDTMS-$
;STAL1 (STATUS LINE)
	DW XTDSWT-$
	DW XTSLPP-$
	DW XTFINL-$
	DW XTSNPF-$
	DW XTSLNF-$
	DW XTDIR0-$
	DW XTDIR1-$
	DW XTDIR2-$
	DW XTDIR3-$
;WMERR
	DW XTHESC-$
	DW XTINTE-$
	DW XTER-$
	DW XTIER-$
	DW XTFER-$
	DW XTCOSP-$		;COLON-SPACE TEXT USED IN WMERR.MAC
	DW XTSPA-$		;SPACE TEXT USED IN WMERR.MAC
	DW ANUL-$		;USED IN WMERR, WMV2D

	; POINTER AREA CONTINUES ON NEXT PAGE

;CLOOP.MAC
	DW XTERA3-$

	DW 0		;SPARE POINTER
	DW 0		;SPARE POINTER
;
; *****  CHARACTERS FOR "YES" AND "NO", FOR GENERAL USE  *****
;
;	MUST BE HERE (AT END OF POINTERS) FOR USER CHANGE VIA RETEXT PROGRAM,
;	AND ABSOLUTE (NO POINTER) REFERENCE BY WORDSTAR.
;
;	B4 TESTING AGAINST THESE, INPUT CHAR IS MADE UPPER CASE, NON-CONTROL.
;
YESCHR: DB 'Y'
NOCHR:  DB 'N'	;NOCHR MUST BE AT .YESCHR+1: ALL REFERENCES RELATIVE TO YESCHR.

;
; ** TEXT PRINTED IN PLACE OF DISK TEXTS WHEN WSMSGS.OVR NOT FOUND (CIO.MAC) **
;
FOMSG:	DB ' @@@@ ',0	;USED FROM CIO.MAC. 


;
; *****  TEXTS USED IN CIO.MAC IN EXPANDING IMBEDDED CNTROL CHARACTERS  *****
;
  ; 2 TEXTS FOR 05H CODE
M5OFF:	 DB ' on (','O'+80H,'F'+80H,'F'+80H,')',0	;"OFF" hilighted
M5ON:	 DB ' off (','O'+80H,'N'+80H,')',0		;"ON" hilited

CRTXT:	 DB CR,LF,0
MC11T:	 DB ' INTERNAL '	;FALL THRU TO PRINT "ERROR"
MC10T:	 DB 'ERROR',0
MC12T:	 DB 'FATAL',0
MC13T:	 DB 0A0H,0A0H,0A0H,0	;A0=SPACE + 80H: INVERT VIDEO (ANOTHER TIME)
MC14T:	 DB ' NAME OF ',15H,' TO ',0	;RECURSIVE "FILE"
MC15T:	 DB 'FILE',0

 ; 2 TEXTS FOR 16H CODE
MC16F: DB 'MERGE-'	;PRINTED FOR 16H IF FINAL PRINT.
				; NB ANOTHER "MERGE-" TEXT AT TXFINL.
MC16D: DB 0		;PRINTED FOR 16H IF DRAFT PRINT: NULL TEXT.

; THREE TEXTS FOR 17H.  ALL SAME LENGTH: 15 COLS.
MC17A:	 DB 'Print a file  ',0

MC17B: ;DB ' STOP PRINT   ' WITH 80H ADDED TO EACH CHARACTER TO 
			    ; REVERSE HIGHLIGHTING SO IT STANDS OUT
	 DB ' '+80H,'S'+80H,'T'+80H,'O'+80H,'P'+80H,' '+80H
	 DB 'P'+80H,'R'+80H,'I'+80H,'N'+80H,'T'+80H,' '+80H,'  ',0

MC17C:	;DB 'CONTINUE PRINT',0 WITH 80H ADDED TO EACH CHAR FOR HILITING
	 DB 'C'+80H,'O'+80H,'N'+80H,'T'+80H,'I'+80H,'N'+80H,'U'+80H
	 DB 'E'+80H,' '+80H,'P'+80H,'R'+80H,'I'+80H,'N'+80H,'T'+80H,0

;
; *****  TEXTS FOR INITA.MAC (INITALIZE) *****
;

; TEXT USED TO INDENT BEFORE TERMINAL TYPE ETC IN SIGNON
SOND:	DB 13H,13H,13H,13H,0	;13H=3 SPACES. 12 SPACES TOTAL.

; TEXT DISPLAYED IF THERE IS NOT EVEN ENOUGH MEMORY TO INITIALIZE ENOUGH
;  TO USE WS'S NORMAL ERROR MECHANISM AND DISK TEXTS. THIS IS A SHORTENED FORM
;  OF "ETNEM" MESSAGE (WSMSGS.MAC) FOR WMERR.MAC. 
;  NOTE THAT ERROR NUMBER SHOULD MATCH "ENEM" PARAMETER IN WMERR AND INIT,
;  AND FORMAT OF MESSAGE SHOULD MATCH FORMATTING PRODUCED BY WMERR.MAC.

TOLME:	 DB CR,LF,'*** FATAL ERR F25: NOT ENUF MEMORY',CR,LF,'$',0
		;$ AT END TERMINATES OUTPUT FOR CP/M "PRINT STRING" CALL.

; TEXT DISPLAYED AT STARTUP OR AT EACH NO-FILE COMMAND 
;   WHEN DISK TEXT FILE NOT FOUND.	DO NOT PUT ON DISK !!!!

NDTMS:	DB 0EH
   ;DB ' File WSMSGS.OVR not found.		'  FOR SPACING
    DB ' File ',19H,' not found.  Menus & ',0EH
    DB ' messages will display as @@@@ only. ',0EH,0
;
; *****  TEXTS FOR STAL1.MAC (STATUS LINE)  *****
;
 ;CAUTION: NUMBER OF BLANKS AT BEGINNING, END OF FOLLOWING TEXTS VERY CAREFULLY
 ;	   DETERMINED FOR DESIRED STATUS LINE APPEARANCE IN BOTH FULL-LINE AND
 ;	   LOTS-OF-SPACE CASES.  INTERACT WITH "TAB STOPS" USED BEFORE EACH
 ;	   MESSAGE.  CHANGE ONLY AFTER VERY CAREFUL CONSIDERATION AND TESTING
 ;	   AND ONLY AFTER STUDYING PERTINENT CODE IN STAL1.MAC AND STAL2.MAC.

XTDSWT: DB 0A0H,'  WAIT  ',0EH,0   ;0A0H= UNVERSE VIDEO SPACE, 0EH=ERASE TO EOL

 ; FOLLOWING MESSAGES ARE DISPLAYED VIA SPECIAL CODE (STORCH SUBR) IN STALIN
 ; THAT HIGHLIGHTS NON-BLANKS, DISPLAYS CONTROLS AS ^-LETTER, DISPLAYS A \ AS
 ; HIGHLIGHTED BLANK.  SEE CHANGE CAUTION ABOVE.
XTSLPP:	 DB ' PRINT\PAUSED ',0		;\ = I.V. SPACE
XTFINL:	 DB 'merge-',0			; ALSO SEE MOC16F ABOVE	
XTSNPF:	 DB 'printing\',0
XTSLNF:  DB '  \editing\no\file\',0

;
; *****  TEXTS FOR WMV1A.MAC (FILE DIRECTORY DISPLAY)  *****
;
  ;80H IS ADDED TO MOST BYTES FOR NON-INVERSE VIDEO DISPLAY: CANCELS (VIA XOR)
  ; THE INVERSE VIDEO INVOKED IN "STORCH" SUBR IN STALIN.MAC.

XTDIR0:	  DB 'p'+80H,'a'+80H,'r'+80H,'t'+80H,'i'+80H,'a'+80H,'l'+80H,' ',0

XTDIR1:	  DB 'D'+80H,'I'+80H,'R'+80H,'E'+80H,'C'+80H,'T'+80H,'O'+80H,'R'+80H,'Y'+80H
	  DB ' ','o'+80H,'f'+80H,' ','d'+80H,'i'+80H,'s'+80H,'k'+80H,' ',0

XTDIR2:	  DB '  ','^'+80H,'Z'+80H,'='+80H,'s'+80H,'c'+80H,'r'+80H,'o'+80H
	  DB 'l'+80H,'l'+80H,' ','u'+80H,'p'+80H,0

XTDIR3:	  DB ' ','^'+80H,'W'+80H,'='+80H,'s'+80H,'c'+80H,'r'+80H,'o'+80H
	  DB 'l'+80H,'l'+80H,' ','d'+80H,'o'+80H,'w'+80H,'n'+80H,0	
;
; *****  TEXTS FOR WMERR.MAC (ERROR ROUTINES)  *****
;
  ; " HIT ERROR RELEASE KEY" DISPLAYED AFTER MOST ERRORS:

XTHESC:	  DB '*** Press ESCAPE Key ',0		;DO NOT MAKE LONGER

  ; " INTERRUPTED " MESSAGE (^U).

XTINTE:	DB 0EH,'*** INTERRUPTED',0

 ; EDITING ERROR BY NUMBER HEADER TEXT (VERNA SUBR IN WMERR, ERROR # IN A)

XTER:	 DB 0EH,'*** ',10H,' E' ;ERR # PRINTS AFTER 'E'. 0EH: ERASE EOL,CR,LF
ANUL:	 DB 0

 ; HEADER TEXT FOR INTERNAL ERROR BY NUMBER (IERR SUBR IN WMERR, ERROR # IN A)

XTIER:	 DB 0EH,'***',11H,' I',0  ;0EH: ERASE EOL,CR,LF. 11H: " INTERNAL ERROR"

 ; HEADER TEXT FOR FATAL ERROR (FER SUBR IN WMERR, ERROR NUMBER IN A)

XTFER:	 DB 0EH,'*** ',12H,' ',10H,' F',0  ;12H = "FATAL", 10H = "ERROR"

XTCOSP:	DB ':'		;COLON-SPACE TEXT. PUT IN OTHER MSGS IF POSSIBLE.
XTSPA:	DB ' ',0	;SPACE TEXT. PUT IN OTHER MSGS IF POSSIBLE.

;
; *****  TEXT FOR CLOOP.MAC (COMMAND LOOP / SCREEN DISPLAY)  *****
;
XTERA3:	DB 0EH,0EH,0EH,0  ;ERASE 3 LINES WHERE QUESTION SPEC CHARS MENU WILL GO


ETEXTS:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 1  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR EDITOR MAIN OVERLAY
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 6A HEX
;
	DW ETEXTA-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW XTSLPA-$
	DW XTSLLI-$
	DW XTSLFC-$
	DW XTSLFL-$
	DW XTSLCO-$
	DW XTSLMR-$
	DW XTSLIS-$
	DW XTDECT-$
	DW 0		;UNUSED (SPARE) POINTER
	DW XTSLLS-$

;
; EMBEDDED TEXTS FOR STAL2.MAC - STATUS LINE
;
  ; FOLLOWING MESSAGES ARE DISPLAYED VIA SPECIAL CODE (STORCH SUBR) IN 
  ; STAL1.MAC THAT HIGHLIGHTS NON-BLANKS, DISPLAYS CONTROLS AS ^-LETTER, 
  ; DISPLAYS A \ AS HIGHLIGHTED BLANK.
XTSLPA:  DB 'PAGE\',0		;\ IS BLANK THAT INVERSE VIDEOS
XTSLLI:  DB ' LINE\',0
XTSLFC:  DB 'FC=',0
XTSLFL:  DB ' FL=',0
XTSLCO:  DB ' COL\',0
XTSLMR:  DB 'MAR\REL',0
XTSLIS:  DB 'INSERT\ON',0	;\ => SPACE WITH INVERSE VIDEO. 
XTDECT:  DB 'decimal',0
XTSLLS:  DB 'LINE\SPACING\',0	;13 CHARS


ETEXTA:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 2  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR NOFILE.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 65 HEX
;
	DW ETEXTB-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW XTSPQU-$
	DW XTNAFD-$
	DW XTREN1-$
	DW XTREN2-$
	DW XTCPY1-$
	DW XTCPY2-$
 
XTSPQU:	DB ' ?',0	;ERROR MESSAGE FOR INVALID DRIVE ENTERED

;
; DELETE FILE COMMAND (^K^J):  "   NAME OF FILE TO DELETE".
;		  13H PRINTS 3 SPACES, 14H PRINTS "NAME OF FILE TO ",
XTNAFD:	  DB 0EH,13H,14H,'DELETE? ',0

;
; EMBEDDED TEXTS FOR RENAME COMMAND
;			; 13H PRINTS AS 3 SPACES, 14H AS "NAME OF FILE TO "
XTREN1:	DB 0EH,13H,14H,'RENAME? ',0
      ;"   NAME OF FILE TO RENAME? "
      ;"		 NEW NAME? "  LEADING SPACE IS 2 TABS + 1 SPACE
XTREN2: DB TAB+80H,TAB+80H,0A0H,' NEW NAME? ',0

;
; EMBEDDED TEXTS FOR COPY COMMAND
;
XTCPY1:	DB 0EH,13H,14H,'COPY FROM? ',0
XTCPY2: DB     13H,14H,'COPY  TO ? ',0

ETEXTB:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 3  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR ENSTAR.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 42 HEX
;
	DW ETEXTC-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW XTQYN-$
	DW XTNAFE-$
	DW XTSAV-$
	DW XTFLSP-$
	DW BKTXT2-$

;
;ABANDON EDIT COMMAND (^K^Q WHEN FILE HAS BEEN CHANGED)
;  " ABANDON EDITED VERSION OF " IS IN WSMSGS.MAC. SAYOUT SUBR PRINTS FILE NAME
;
;  FINAL PART OF THE QUESTION " ABANDON EDITED VERSION OF XXXX.YYY ? (Y/N): ":
XTQYN:	DB ' ? (Y/N): ',0


;EDIT FILE COMMANDS (N AND D)
;  "   NAME OF FILE TO EDIT? ".
XTNAFE:	 DB 0EH,13H,14H,'EDIT? ',0	;TEXT FOR QUESTION
		;0EH=>ERASE LINE,CR,LF; 13H=>INDENT; 14H=>"NAME OF FILE TO "

;FOR "SAYSAV" SUBR, INVOKED BY END EDIT COMMANDS (^KD, ^KX, ^KS):
XTSAV:    DB 0EH,13H,' SAVING ',0	;TXFLSP AND FILE NAME TYPED AFTER THIS

;FOR "SAYOUT" SUBR: "FILE ". 
;  INVOKED BY END EDIT, ABANDON EDIT, ETC.
XTFLSP:	DB 15H,' ',0	;15H->"FILE"

;FOR RENAMING FILE AT END OF EDIT:
BKTXT2:	DB 'BAK'

ETEXTC:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 4  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR ADBLK.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 42 HEX
;
	DW ETEXTD-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW XTNAFR-$
	DW XTNAFW-$


;ADDITIONAL FILE READ COMMAND (^K^R): "   NAME OF FILE TO READ? "
;		13H PRINTS 3 SPACES, 14H PRINTS "NAME OF FILE TO ",
XTNAFR:	DB 0EH,13H,14H,'READ? ',0

;ADDITIONAL FILE WRITE COMMAND (^K^W):
;		"   NAME OF FILE TO WRITE MARKED TEXT ON? "
;		13H=> INDENT, 14H=>"NAME OF FILE TO "
XTNAFW:	DB 0EH,13H,14H,'WRITE MARKED TEXT ON? ',0	;TYPES TEXT FIRST

ETEXTD:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 5  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
;
;  THERE ARE NO EMBEDDED TEXTS FOR ASKPRN.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD = 0
;
	DW	0
;

;************************************************************************
;* TEXTS - OVERLAY # 6  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR FINRP.MAC (FIND/REPLACE)
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 8A HEX
;
	DW ETEXTF-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW XTFIND-$
	DW XTREPL-$	
	DW XTOPTS-$
	DW XTNFE-$
	DW XTSASK-$
	DW XTOPE1-$
	DW XTOPE2-$

 ; FIND AND REPLACE PROMPTS:
			;13H = STANDARD INVERSE INVERSE INDENT: 3 SPACES
XTFIND:	DB 0EH,13H,'FIND? ',0	;.. UPDATE TDLIN, RESTORE CURSOR POSITION.
XTREPL:	DB 13H,'REPLACE WITH? ',0
XTOPTS:	DB 13H,'OPTIONS? (? FOR INFO) ',0

; "NOT FOUND" ERROR MESSAGE.
XTNFE:	DB 0EH,'*** NOT FOUND: "',0	;PROGRAM TYPES FIND STRING AND " HERE.

; SUBSTITUTE-ASK TEXT, USED IN STATUS LINE:
XTSASK:	DB 'REPLACE\(Y/N): ',0	;\= INVERSE VIDEO SPACE (SEE STALIN)

; ERROR MESSAGE FOR INVALID OPTION CHARACTER
XTOPE1:	 DB 13H,0		;13H=3 I.V. BLANKS
	 ; INVALID CHARACTER DISPLAYED HERE
XTOPE2:	 DB ' ???',0		;REST OF INVALID OPTION MESSAGE
;
ETEXTF:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 7  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR MARTB.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 112 HEX
;
	DW ETEXTG-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW XTENLS-$
	DW XTLMC-$
	DW XTRMC-$
	DW XTSTAB-$
	DW XTCTAB-$
TABCON:	DW TBCON-$
TCON2:	DW TCN2-$
TCON3:	DW TCN3-$
PROCON:	DW PRCON-$

; SYMBOLS FOR SOME CONTROLS WHICH MAY BE IMBEDDED IN TEXTS:
CCAL	EQU	02H	;"SUBR CALL" TO TEXT (REL ADDR PTR IN NEXT 2 BYTES)


; FOR "SET LINE SPACING" COMMAND (^O^S):
XTENLS:	DB ' ENTER space OR NEW LINE SPACING (1-9): ',0

; PROMPT TEXTS FOR MARGIN AND TABS QUESTIONS:

; FOR "SET LEFT MARGIN" COMMAND (^O^L):
XTLMC:	DB ' LEFT'
PRCON:	DB ' MARGIN COLUMN NUMBER'
TCN2:	DB CCAL
	  DW TCON3-$
	DB 'umn)? ',0
TCN3:	DB ' (ESCAPE for cursor col',0

; FOR "SET RIGHT MARGIN" COMMAND (^O^R):
XTRMC:	DB ' RIGHT',CCAL
	  DW PROCON-$
	DB 0

; FOR "SET TAB STOP" COMMAND (^O^I):
; " SET TAB AT COLUMN (ESCAPE for cursor column)? "
XTSTAB: DB ' For decimal tab stop enter "#" and decimal point column ',0EH
	DB ' SET',CCAL
	  DW TABCON-$
	DB 'UMN',CCAL
	  DW TCON2-$
	DB 0
TBCON:	DB ' TAB AT COL',0

; FOR "CLEAR TAB STOP / CLEAR ALL TABS" COMMAND (^O^N):
; " CLEAR TAB AT COL (ESCAPE for cursor col; A for all)? "
XTCTAB:	DB ' CLEAR',CCAL
	  DW TABCON-$
	DB CCAL
	  DW TCON3-$
	DB '; A for all)? ',0

ETEXTG:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 8  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR ITED.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 34 HEX
;
	DW ETEXTH-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW GBTXT-$
	DW DLTXT-$
	DW BKTXT-$
	DW XTNF1-$

; NAME OF EDITOR WORK FILE FOR MOVING BACKWARDS ("GO-BACK" FILE OR "GOB")
GBTXT:	DB 'EDBACKUP'	;MUST BE 8 CHARS; DOLTXT MUST FOLLOW.

; FILE TYPE FOR WORK FILES.  MUST IMMEDIATELY FOLLOW GOBTXT.
DLTXT:	DB '$$$'	;MUST BE 3 CHARS

; FILE TYPE FOR BACKUP FILE (WHAT INPUT FILE IS RENAMED TO)
BKTXT:	DB 'BAK'	;MUST BE 3 CHARS. NB DUPLICATED IN ENSTAR.MAC.

; TEXT DISPLAYED UPON INITIATION OF EDIT (N OR D) IF FILE IS NEW.
XTNF1:	  DB 0EH,'NEW FILE',0EH,0EH,0

ETEXTH:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 9  (PART OF WSOVLY1.OVR)				*
;*									*
;************************************************************************
;
;
; THERE ARE NO EMBEDDED TEXTS FOR PTTY.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD = 0
;
	DW	0
;










;************************************************************************
;* TEXTS - OVERLAY # 0A HEX  (PART OF WSOVLY1.OVR)			*
;*									*
;************************************************************************
;
;
;
; THERE ARE NO EMBEDDED TEXTS FOR PDAIS.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD = 0
;
	DW	0

;
;************************************************************************
;* TEXTS - OVERLAY # 0B HEX  (PART OF WSOVLY1.OVR)			*
;*									*
;************************************************************************
;
;
;
; THERE ARE NO EMBEDDED TEXTS FOR POEM.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD = 0
;
	DW	0










;
;************************************************************************
;* TEXTS - OVERLAY # 0C HEX  (PART OF WSOVLY1.OVR)			*
;*									*
;************************************************************************
;
;
; THERE ARE NO EMBEDDED TEXTS FOR PDSK.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD = 0
;
	DW	0

;
;************************************************************************
;* TEXTS - OVERLAY # 0D HEX  (PART OF MERGPRIN.OVR)			*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR MERGE-PRINT OVERLAY
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD <= 1A HEX
;
	DW ETEXTM-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW B4VXT-$
	DW AFVXT-$
;
; EMBEDDED TEXTS USED IN FPDOT.MAC -- MERGE-PRINT DOT COMMANDS
;
 ; TEXT DISPLAYED BEFORE VARIABLE NAME WHEN ASKING FOR VARIABLE AND
 ; USER GAVE NO PROMPT IN .AV COMMAND.
B4VXT:	DB 0	;NOTHING.  COULD CHANGE TO "Enter ", ETC.

 ; TEXT DISPLAYED AFTER VARIABLE NAME WHEN ASKING FOR VARIABLE AND
 ; USER GAVE NO PROMPT IN .AV COMMAND.
AFVXT:	DB '? ',0


ETEXTM:		;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 0E HEX  (PART OF WSOVLY1.OVR)			*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR XPROG.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 0E7 HEX
;
	DW ETEXTN-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW ER3RD-$
	DW XTXPRO-$
	DW XTWHAT-$
	DW XTNF-$
	DW XTPHEL-$

ER3RD:	DB 0FH,0FH,0EH,0		;ERASES 3RD LINE DOWN (ERR MSG LINE)

XTXPRO:	DB 0EH,13H,' COMMAND? ',0	;BLANK LINE, PROMPT ON NEXT LINE

XTWHAT:	DB TAB+80H,' WHAT??? ',0EH,0

XTNF:	DB TAB+80H,' ',19H,' NOT FOUND ',0EH,0

;HELP MESSAGE, LEVELS 2 AND 3 ONLY:
XTPHEL:	DB 0EH
    DB ' Enter name of program you wish to Run,		',0EH
    DB ' optionally followed by appropriate arguments.	',0EH
    DB '    Example (shows disk space):     STAT	',0EH,0

ETEXTN:			;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 0F HEX  (PART OF WSOVLY1.OVR)			*
;*									*
;************************************************************************
;
; EMBEDDED TEXTS FOR XPRUN.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD BE <= 1C1 HEX
;
	DW ETEXTO-$	;LENGTH OF GROUP FOR RETEXT & USER CHECKING

; SELF-RELATIVE POINTERS TO TEXTS IN THIS GROUP
	DW HKTRW-$
	DW XTAGIN-$
	DW XTWSNF-$
	DW XTWSTB-$
	DW XTWSTS-$
	DW XTWSRV-$
	DW RCLF2-$
	DW RCLF-$
	DW CCMS-$
	DW CNRTW-$

HKTRW:	DB CR,LF,'Hit any key to return to WordStar: ',0
;					     d:wordstar.com <- shows spacing
XTAGIN:	DB CR,LF,'Replace diskette with file ',1AH,', hit any key: ',0
XTWSNF:	DB ' *** file ',1AH,' still not found *** ',0
XTWSTB:	DB ' *** file ',1AH,' bad (too big ??!@&*) *** ',0
XTWSTS:	DB ' *** file ',1AH,' bad (too short) *** ',0
;		 d:wordstar.com
XTWSRV:	DB ' *** ',1AH,' found is bad or incompatible version *** ',0
RCLF2:	DB CR,LF
RCLF:	DB CR,LF,0
CCMS:	DB '^C',CR,LF,0

CNRTW:	DB CR,LF,CR,LF
	DB ' Cannot return to WordStar. ',CR,LF
	DB ' Replace system disk (if removed), ',CR,LF
	DB ' Hit any key to return to Operating System: ',0

ETEXTO:		;MUST REMAIN AT END OF GROUP, AFTER ALL TEXT

;************************************************************************
;* TEXTS - OVERLAY # 10 HEX  (PART OF WSOVLY1.OVR)			*
;*									*
;************************************************************************
;
;
; THERE ARE NO EMBEDDED TEXTS FOR INIPRN.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD = 0
;
	DW	0








;
;************************************************************************
;* TEXTS - OVERLAY # 11 HEX  (PART OF WSOVLY1.OVR)			*
;*									*
;************************************************************************
;
;
; THERE ARE NO EMBEDDED TEXTS FOR DELTB.MAC
;
; THE VALUE ASSEMBLED INTO THE FOLLOWING DW SHOULD = 0
;
	DW	0
;
;
	END