;
;           DO NOT CHANGE ANYTHING ON THIS PAGE
;

title RGMSG		;report generator text messages

;
; Externally referenced symbols
;

entry	mstart,messln,refile,rpfile,srcbuf,fnameb,fncnt,fname,ind1st
entry	chname,chainm,rptm01,rptm02,rptm03,rptm04,rptm05
entry	statm1,statm2,statm3,bdcmsg,charbf
entry	helpm0,helpm1,helpm2,helpm3,helpm4,helpm5,helpm6,helpm7,helpm8,helpm9
entry	filem1,filem2,filem3,filem4
entry	fldm01,fldm02,fldm03,fldm04,fldm05,fldm06,fldm07,fldm08,fldm09
entry	summ01,summ02,summ03,summ04,summ05,summ06
entry	exitm1,exitm2,indlst,ctinit,chars1,char2a,char2b,char3a,char3b,crlfms
entry	snameb,ctflag,pgflag,rpflag,dtamsg
entry	mxtype,mntype,frstcl,msgdsk
entry	rptx01,rptx02,rptx03,rptx04,rptx05,rptx06,rptx07,rptx08
entry	abtms1,abtms2,abtms3,abtms4,abtms5,eddec1,eddec2,intmsg,noname,nofldn
entry	endcom,memory,edmin,copym1,copym2
;
; equates
;
nx	equ 1		;next message
cx	equ 4		;message continues but don't add base
al	equ 3		;answer list follows
ul	equ 5		;line of ====
pc	equ 6		;put cursor here after message
st	equ 8		;skip to line following
ct	equ 9		;clear to line following
lf	equ 0AH
cr	equ 0DH

ctla	equ 1
ctlc	equ 3
ctld	equ 4
ctle	equ 5
ctlf	equ 6
ctlg	equ 7
ctlh	equ 8
ctlj	equ 10
ctlk	equ 11
ctll	equ 12
ctlm	equ 13
ctln	equ 14
ctlp	equ 16
ctls	equ 19
ctlt	equ 20
ctlv	equ 22
ctlw	equ 23
ctlx	equ 24
ctlz	equ 26
nope	equ 080H

fnamel	equ 11
fieldl	equ 32
;
;           DO NOT CHANGE ANYTHING ON THIS PAGE
;
;
; Total length and length of message portion only
;
mstart:	dw modend-mstart	;module length
messln:	dw msgend-mstart	;message protion length
;
; File names of other ReportStar modules
; Used by RGEN for chaining
;
refile:	db 0,'REDIT   COM',0,0,0,0
rpfile:	db 0,'REPORT  COM',0,0,0,0
dtamsg:	db 'DTA',0,0
;
; File name for DataStar form search
;
srcbuf:	db 0
	db '????????DEF',0,0,0,0
;
; buffer for form name request
;
fnameb:	db fnamel	;maximum length
fncnt:	ds 1		;actual length
fname:	ds fnamel
	db 0		;name end
;
; summary name buffer
;
chname:
snameb:	ds fieldl
	db 0
;
; disk drive for error messages
;
msgdsk:	ds 1
	db ':',0
;
; bad character buffer
;
charbf:	ds 3
;
; count array
;
ctinit:	db 'N   '
;
; edit mask characters for decimal point, minus sign
;
eddec1:	db '.'
eddec2:	db '.'
edmin:	db '-'
;
;           DO NOT CHANGE ANYTHING ON THIS PAGE
;

;
; ok characters
;
chars1:	db ctla,ctlc,ctld,ctle
	db ctlf,ctlh,ctlj,ctlk
	db ctll,ctlm,nope,ctlp
	db ctls,nope,nope,ctlw
	db ctlx,ctlz,0FFH

char2a:	db ctla,ctlc,ctld,ctle
	db ctlf,ctlh,ctlj,ctlk
	db ctll,ctlm,ctln,ctlp
	db ctls,nope,nope,ctlw
	db ctlx,ctlz,0FFH

char2b:	db ctla,ctlc,ctld,ctle
	db ctlf,ctlh,ctlj,ctlk
	db ctll,nope,ctln,ctlp
	db ctls,ctlt,ctlv,ctlw
	db ctlx,ctlz,0FFH

char3a:	db ctla,ctlc,ctld,ctle
	db ctlf,nope,ctlh,ctlj
	db ctlk,ctlm,ctln,ctlp
	db ctls,ctlw,ctlx,ctlz
	db nope,nope,nope,nope
ctflag:	db 'Y','N',0FFH

char3b:	db ctla,ctlc,ctld,ctle
	db ctlf,ctlg,ctlh,ctlj
	db ctlk,ctlm,ctln,ctlp
	db ctls,ctlw,ctlx,ctlz
	db 'TALS',0FFH

pgflag:	db 'P'
rpflag:	db 'R'

mxtype:	db 'MAX'
mntype:	db 'MIN'
rptx02:	dw msg063-msg062
frstcl:	dw msg071-msg070-1

;
;
;           DO NOT CHANGE ANYTHING ON THIS PAGE
;

;
; message pointers
;
ind1st:	ds 2
chainm:	dw msg000
rptm01:	dw msg001
rptm02:	dw msg002
rptm03:	dw msg003
rptm04:	dw msg004
rptm05:	dw msg005
statm1:	dw msg006
statm2:	dw msg007
statm3:	dw msg008
helpm0:	dw msg010
helpm1:	dw msg011
helpm2:	dw msg012
helpm3:	dw msg013
helpm4:	dw msg014
helpm5:	dw msg015
helpm6:	dw msg016
helpm7:	dw msg017
helpm8:	dw msg018
helpm9:	dw msg019
filem1:	dw msg020
filem2:	dw msg021
filem3:	dw msg022
filem4:	dw msg023
crlfms:	dw msg024
intmsg:	dw msg025
noname:	dw msg026
nofldn:	dw msg027
fldm01:	dw msg030
fldm02:	dw msg031
fldm03:	dw msg032
fldm04:	dw msg033
fldm05:	dw msg034
fldm06:	dw msg035
fldm07:	dw msg036
fldm08:	dw msg037
fldm09:	dw msg038
summ01:	dw msg041
summ02:	dw msg042
summ03:	dw msg043
summ04:	dw msg044
summ05:	dw msg045
summ06:	dw msg046
exitm1:	dw msg050
exitm2:	dw msg051
rptx01:	dw msg061
rptx03:	dw msg062
rptx04:	dw msg064
rptx05:	dw msg065
rptx06:	dw msg066
rptx07:	dw msg067
rptx08:	dw msg068
	dw msg069
	dw msg070
	dw msg071
abtms1:	dw msg081
abtms2:	dw msg082
abtms3:	dw msg083
abtms4:	dw msg084
abtms5:	dw msg085
bdcmsg:	dw msg090
copym1:	dw msg998
copym2:	dw msg999
indlst:
;
;
;     THE LENGTH OF ANY TEXT ON THIS PAGE MAY BE VARIED
;
;   Both content and length of any text within quotes (')
;   may be freely modified as long as the resultant number of
;   characters per line does not exceed screen width minus one.
;
msg000:
db ul
db '** Error 07 **',cr
'    ',nx
dw chname
'.COM is not present on drive ',nx
dw msgdsk
db cr,'    Specify which drive (A-P) to try next: ',pc,cr,cr,ul,0

msg001:
'Please enter your report name here (or press RETURN): ',0


msg002:	db cr,cr
msg02a:	db cr,cr
"  Enter 1-8 letters and/or numbers.  If you don't want the report stored on",cr
'  the logged drive, enter the new disk drive (A:-P:) before the report name.',cr,cr,cr
'Press ESC key to re-enter the report name or ^C to exit. ',0

msg003:
db ul,cr
'** Error 08 **',cr,cr
'    The report, ',nx
dw fname
', already exists.  You may:',cr
'        E = Edit/examine it, or',cr
'        G = Generate a new report (with a different name).',cr
'    Press E or G: ',pc,cr,cr,ul,al,'GGE',ctlc,0

msg004:
db '** Error 09 **',cr,cr
db '    "',nx
dw charbf
db '" is not allowed in a report name.  ',nx
dw msg02a
db 0

msg005:
db '** Error 10 **',cr,cr
db '    "',nx
dw charbf
db ':" is not a legal disk drive. ',nx
dw msg02a
db 0

msg006:	'Report name: ',0
msg007:	'    File name: ',0
msg008:	'    Number of columns used: ',0

msg010:	'__________'
    '____________________________________________________________________',cr,0

msg011:	'CURSOR:   '
    '^A=left item        ^S=left char    ^D=right char      ^F=right item',cr,0

msg012:	'          '
     '^E=up line          ^X=down line',cr,0

msg014:	'SCREEN:   '
     '^P=previous screen  ^C=exit         ^W=scroll down    ^Z=scroll up',cr,0

msg015:	'SCREEN:   '
     '^P=previous screen  ^N=next screen  ^W=scroll down    ^Z=scroll up',cr,0

msg016:	'HELP:     '
     '^J=remove/restore this menu         ^K=remove/restore message below',cr,0

msg017:	'OTHER:    '
     'RETURN=enter selection              ^L=change logged disk',cr,0

msg018:	'OTHER:    '
     'RETURN=enter selection              ^L=toggle 2 <-> 4 column display',cr,0

msg019:	'OTHER:    '
     'RETURN=enter selection              ^G=delete selected character',cr,0

msg013:	'OTHER:    '
     '^V=replace selection                ^T=remove selection',cr,0

;
;
;     THE LENGTH OF ANY TEXT ON THIS PAGE MAY BE VARIED
;
;   Both content and length of any text within quotes (')
;   may be freely modified as long as the resultant number of
;   characters per line does not exceed screen width minus one.
;
msg020:
db cr
'Select the datafile for this report.  To select a file:',cr
'     Move the cursor to the file name below and press RETURN, or',cr
'     Type enough characters to uniquely identify the file and press RETURN.'
msg024:
db cr,0

msg021:
db cr
'Your choice of files on logged drive (',nx
dw msgdsk
') is:',cr,cr,0


msg022:
db ul,cr
'    The current logged disk is ',nx
dw msgdsk
db cr
'    To change the logged disk, enter the new drive name (A-P) here: '
db pc,cr,cr,cr,ul,0

msg023:	db ul
'** Error 11 **',cr
'    There are no file definitions on drive ',nx
dw msgdsk
db cr
'    Please enter the name (A-P) of an alternate drive to use: ',pc,cr,cr,cr,ul,0

msg025:
db msg026-msg025-1		;length MUST NOT be more than 16
'(intermediate)'		;must start with '('

msg026:
db msg030-msg026-1		;length MUST NOT be more than 16
'FIELD #'
msg027:
'001'	



msg030:
db cr
'Select the fields you want on this report.',cr
'THE FIELDS WILL APPEAR ON THE REPORT IN THE ORDER SELECTED.',cr,cr

'To select a field:',cr
'    Move the cursor to the field name below and press RETURN, or',cr
'    Type enough characters to uniquely identify the field and press RETURN.',cr,0

msg031:
db cr
'Your field choices are:',cr,cr,0


msg032:
cr,'You have selected:',cr,cr,0

msg033:
'** Error 12 **',cr
'     The maximum report width is 255 columns.',cr
'     The enter command is being ignored.',cr
'      Press ESC key. ',0

msg034:
'** Error 13 **',cr
'     The file selected has no fields.',cr
'     Press ESC key to enter an alternate file name. ',0

msg035:
'** Error 14 **',cr
'     The maximum number of fields (250) has been exceeded.',cr
'     The enter command is being ignored.',cr
'      Press ESC key. ',0

msg036:
'** Error 15 **',cr
'     You must select at least one field to create a report.',cr
'      Press ESC key. ',0

msg037:
'** Warning 16 **',cr
'    The command just entered, ^P, will return you to the file selection step.',cr
'    This will erase all the field and summary selections that you have made.',cr,cr
'    Is it OK to proceed with this command? (Y/N) ',al,'YYN',0

msg038:
'** Error 17 **',cr
'     The file selected has no key fields.',cr
'     Press ESC key to enter an alternate file name. ',0


;
;
;     THE LENGTH OF ANY TEXT ON THIS PAGE MAY BE VARIED
;
;   Both content and length of any text within quotes (')
;   may be freely modified as long as the resultant number of
;   characters per line does not exceed screen width minus one.
;

msg041:
db cr,cr,cr
'Do you want a record count by ',nx
dw snameb
'? (Y/N) ',0

msg042:
db cr
'To select summaries by ',nx
dw snameb
':',cr
'   Enter any/none of the following letters and press RETURN:',cr
'   T(Total), A(Average), L(Largest value), S(Smallest value). ',0

msg043:
db cr,cr
'Summaries selected:                 ',0

msg044:
cr
'                     Record count:  ',0

msg045:
'PAGE',0

msg046:
'REPORT',0

msg050:
db ul
'The report specification is now complete.  You may:',cr,cr
' A=Abandon form->  start over or exit     S=Save form ->  make another or exit',cr
' L=save form   ->  edit report Layout     F=save form ->  edit File definition',cr
' SPACE=no save ->  field selection        R=save form ->  Run the report',cr
'                                            (A/S/L/F/R/SPACE): ',pc,cr,ul
db al,'RA RSLF',0


msg051:
db cr,cr
'    Abandon report generation without saving form? (Y/N) ',pc,cr,cr,cr,cr
db al,'NYN',0

;
;
;     THE LENGTH OF ANY TEXT ON THIS PAGE MAY BE VARIED
;
;   Both content and length of any text within quotes (')
;   may be freely modified as long as the resultant number of
;   characters per line does not exceed screen width minus one.
;

msg061:	db '.PO 0',cr,'P',cr,'P',0
msg062:	db ' REPORT'
msg063:	db 0
msg064:	db ' = ',0
msg065:	db ' Summary for ',0
msg066:	db ' (Count = ',0
msg067:	db ')',0
msg068:	db '  Total',0
msg069:	db '  Average',0
msg070:	db '  Maximum',0
msg071:	db '  Minimum',0

;
;
;     THE LENGTH OF ANY TEXT ON THIS PAGE MAY BE VARIED
;
;   Both content  and length of any text within quotes (')
;   may be freely modified as long as the resultant number of
;   characters per line does not exceed screen width minus one.
;

msg081:	db '** Error 01 **',cr
	db "    Can't read form definition file.",cr
	db '    Press ESC key. ',0

msg082:	db ul
	db '** Error 02 **',cr
	db '    Fatal progam error; please report occurrence.',cr
	db '    Report generation abandoned.',cr
	db '    Press RETURN. ',pc,cr,cr,ul,0

msg083:	db ul
	db '** Error 03 **',cr
	db '    Insufficient memory.',cr
	db '    Report generation abandoned.',cr
	db '    Press RETURN. ',pc,cr,cr,ul,0

msg084:	db ul
	db '** Error 04 **',cr
	db '    Directory on disk ',nx
	dw msgdsk
	db ' full.',cr
	db '    Report generation abandoned.',cr
	db '    Press RETURN. ',pc,cr,cr,ul,cr,0
;
msg085:	db ul
	db '** Error 05 **',cr
	db '    Disk ',nx
	dw msgdsk
	db ' full.',cr
	db '    Report generation abandoned.',cr
	db '    Press RETURN. ',pc,cr,cr,ul,cr,0
;
msg090:	'** Error 06 **',cr,cr
	'     ',nx
	dw charbf
	db ' - illegal character.',cr
	db '      Press ESC key. ',0

msg998:
'This  software has been  provided pursuant to a License  Agreement  containing',cr
'restrictions on its use.  The  software  contains  valuable  trade secrets and',cr
'proprietary information of MicroPro International Corporation and is protected',cr
'by federal copyright law.   It may not be copied or distributed in any form or',cr
'medium, disclosed to third parties,  or used in any manner not provided for in',cr,0
msg999:
'said  License Agreement except with prior written authorization from MicroPro.',0

msgend:				;end of messages
;
; additional code for I/O routines may be inserted here
;
modend: 
memory:
endcom:
	end