 STTL STYTEXT
 PAG
*EQUATE FOR STYFIX
TXTBEG EQU $403 ------------ ENTER TXTBEG VALUE HERE -----------

 ORG TXTBEG
*ESCAPE CHARACTER CONSTANTS
ESCTBL EQU *
CURUC FCC 'I' CURSOR UP
 FCC 'L' CURSOR RIGHT
CURDC FCC ',' CURSOR DOWN
 FCC 'J' CURSOR LEFT
 FCC 'U' SCROLL UP
 FCC 'M' SCROLL DOWN
 FCC 'F' FIND CHARACTERS
 FCC 'R' REPLACE CHARACTERS
 FCC ';' ENTER TEXT
 FCC 'W' WITHDRAW RESERVED TEXT
 FCC 'Z' BLOCK DELETE
 FCC 'S' RESERVE BLOCK OF TEXT
 FCC '/' COMMAND MODE
 FCC 'D' DUPLICATE
 FCC 'O' MOVE SCREEN UP
 FCC '.' MOVE SCREEN DOWN
CURLRC FCC 'K' MOVE CURSOR LEFT-RIGHT
PAGC FCC 'P' MOVE TO PAGE #
 FCC '}' SET MARKER CHARACTER
 FCB $14 ^T TAB CHARACTER
 FCC '-' DUMMY
 FCC '7' SCROLL LEFT
 FCC '9' SCROLL RIGHT
 FCC '1' OVERWRITE 1
 FCC '^' INSERT 1

*CHARACTER MOD CHARACTERS (ALSO CONTROL)
ULMCHR FCB $15 ^U UNDERLINE
OLMCHR FCB $F ^O OVERLINE
BFMCHR FCB 2 ^B BOLDFACE
SPMCHR FCB 9 ^I SUPERSCRIPT
SBMCHR FCB $B ^K SUBSCRIPT
ENMODC FCB $7F END MOD
 FCB $20 CURSOR RIGHT
BSC FCB $08 BS CHR FROM KEYBOARD


*CONTROL CHARACTER CONSTANTS
CTRTBL EQU *
LNDELC FCB $18 ^X LINE DELETE
 FCB $13 ^S CHARACTER DELETE
 FCB $17 ^W WORD + SPACE DELETE
 FCB $6 ^F FORMAT DISPLAY TOGGLE
NMERC FCB $0E ^N NAME ERROR
 FCB $16 ^V VIEW MODS
PAGSTC FCB $10 ^P PAGE STATUS
 FCB $07 ^G SOFT HYPHEN (GHOST)
 FCB $12 ^R SET TAB
 FCB $19 ^Y CLEAR TAB
 FCB $1E ^^ TOGGLE UPPER CASE LOCK
 FCB $01 ^A HELP, ASSISTANCE
 PAG

*MISC. CHARACTER CONSTANTS
ESCC FCB $1B ESCAPE CHARACTER
TABC FCB $14 ^T TAB CHARACTER
FLDCHR FCB $15 ^U UPPER/LOWER CASE FOLD
INSFIL FCC '-' FILL CHR ON INSERT
CRCHR FCC '|' CR SCREEN CHARACTER
PRCCHR FCC ',' PROC COMMAND CHARACTER
MRKCHR FCC '}' MARKER CHARACTER
PNCHR FCC '#' PAGE NUMBER MARKER
STMODC FCC '|' START MOD
RARCHR FCC '>' RIGHT ARROW
LARCHR FCC '<' LEFT ARROW
YCHR FCC 'Y' YES
NCHR FCC 'N' NO
SCHR FCC 'S' STOP
ACHR FCC 'A' ALL, "REPLACE" RESPONSE
PSCHR FCC 'S' PRINTER STOP
PTCHR FCC 'T' PRINTER TAB
PBCHR FCC 'B' PRINTER BACKSPACE
CTMCHR FCC 'T' COMMAND LINE TERM OPTION
CPTCHR FCC 'P' COMMAND LINE PRINTER OPTION
CPGCHR FCC 'M' COMMAND LINE MAX PAGE
OPTCHR FCC '+' COMMAND LINE OPTION PREFIX
RBCHR FCC '}' FIND/REPLACE BRACKET
LBCHR FCC '{' FIND/REPLACE BRACKET


*START PARAMETERS
STLM FCB 0 START LEFT MARGIN
STLL FCB 0 LINE LENGTH, 0= DEFAULT TO NC
STMS FCB 0 SINGLE SPACE
STHFLL FCB 0 H/F LINE LENGTH, 0= DEFAULT TO NC
STJU FCB 0 JUSTIFICATION
STPL FCB 66 PAGE LENGTH
STCS FCB 12 CHARACTERS/INCH
STVS FCB 6 VERTICAL SPACING
STBFS FCB 4 BOLDFACE STRIKE COUNT
STPS FCB 0 NON-PROPORTIONAL SPACE
STPADC FCC 0 NON PADDABLE SPACE CHARACTER
STMMC FCC 0 MAIL-MERGE CHARACTER
STPC FCC 0 PRINTER CHARACTER

*VECTORS FOR THE STRINGS

FMTTBL FDB XFMTTBL
ERRTBL FDB XERRTBL
BELS1 FDB XBELS1
BAVM1 FDB XBAVM1
PAGS1 FDB XPAGS1

PGMS1 FDB XPGMS1
PGMS6 FDB XPGMS6
PGM50 FDB XPGM50
PGM51 FDB XPGM51
PGM52 FDB XPGM52
PGM53 FDB XPGM53
PGM54 FDB XPGM54
PGM55 FDB XPGM55

PGBS1 FDB XPGBS1

SAVM1 FDB XSAVM1
SAVMB FDB XSAVMB
SAVM2 FDB XSAVM2
SAVM3 FDB XSAVM3
SAVM4 FDB XSAVM4
SAVM5 FDB XSAVM5

SVMS1 FDB XSVMS1

DSTM1 FDB XDSTM1
DSTM2 FDB XDSTM2
DSTM3 FDB XDSTM3
DSTM5 FDB XDSTM5
DSTM6 FDB XDSTM6

TTYS1 FDB XTTYS1
SPCLS1 FDB XSPCLS1
OSPS1 FDB XOSPS1
OSPS2 FDB XOSPS2
EXTM1 FDB XEXTM1
EXTM2 FDB XEXTM2
ERMM1 FDB XERMM1

PSWS1 FDB XPSWS1
PSWS2 FDB XPSWS2
PSWS3 FDB XPSWS3
PSWS4 FDB XPSWS4
PSWS5 FDB XPSWS5

STYS1 FDB XSTYS1
PRNS1 FDB XPRNS1
PRNS2 FDB XPRNS2
PRNS3 FDB XPRNS3
PRNS4 FDB XPRNS4
OTXS1 FDB XOTXS1
OTXS2 FDB XOTXS2
OTXS3 FDB XOTXS3
OTXS4 FDB XOTXS4
SPLS1 FDB XSPLS1
PSQS1 FDB XPSQS1

NEWM1 FDB XNEWM1
NEWM3 FDB XNEWM3
NEWM4 FDB XNEWM4
NEWM5 FDB XNEWM5
NEWM6 FDB XNEWM6
NEWM7 FDB XNEWM7
NEWM8 FDB XNEWM8
NEWM9 FDB XNEWM9

FNDS1 FDB XFNDS1
FNDS2 FDB XFNDS2
FNDS3 FDB XFNDS3
RPLS1 FDB XRPLS1
RPLS2 FDB XRPLS2
RPLS3 FDB XRPLS3
BDLS1 FDB XBDLS1
BDLS2 FDB XBDLS2

SUPS1 FDB XSUPS1
HLPS1 FDB XHLPS1
HLPS2 FDB XHLPS2
HLPS3 FDB XHLPS3
HLPS4 FDB XHLPS4
HLPS5 FDB XHLPS5
HLPS6 FDB XHLPS6
HLPS7 FDB XHLPS7

*FORMAT COMMAND TABLE
XFMTTBL EQU *
 FCC 'CE',0
 FCC 'LL',0
 FCC 'PL',0
 FCC 'JU',0
 FCC 'RJ',0
 FCC 'NJ',0
 FCC 'LM',0
 FCC 'SP',0
 FCC 'SS',0
 FCC 'HD',0
 FCC 'FT',0
 FCC '*',0
 FCC 'PN',0
 FCC 'PG',0
 FCC 'SI',0
 FCC 'IN',0
 FCC 'VT',0
 FCC 'CS',0
 FCC 'VS',0
 FCC 'PS',0
 FCC 'NPS',0
 FCC 'PC',0
 FCC 'MMC',0
 FCC 'PADC',0
 FCC 'NL',0
 FCC 'PP',0
 FCC 'PPSI',0
 FCC 'PPSP',0
 FCC 'PPNL',0
 FCC 'TF',0
 FCC 'BFS',0
 FCB 0 END OF TABLE


XERRTBL EQU *
 FCC 2,'L/R SCROLL OUT OF BOUNDS',0
 FCC 3,'INVALID ESCAPE COMMAND ENTERED',0
 FCC 7,'TOP OF TEXT REACHED',0
 FCC 10,'BOTTOM OF TEXT REACHED',0
 FCC 11,'MAXIMUM PAGE LIMIT',0
 FCC 12,'INVALID FORMAT COMMAND',0
 FCC 13,'FORMAT VALUE OUT OF BOUNDS',0
 FCC 14,'ILLEGAL HEADER OR FOOTER COMMAND',0
 FCC 15,"CURSOR ON FORMAT LINE - CAN'T BUNDLE",0
 FCC 16,"HEADER OR FOOTER TOO LONG FOR PAGE",0
 FCC 17,"CAN'T BACKSPACE TO BUNDLED FORMAT LINE",0
 FCC 18,"ILLEGAL DELETE",0
 FCC 20,"CAN'T DELETE - NOT BRACKETED BY RETURNS",0
 FCC 21,"CAN'T FIND MARKER",0
 FCC 22,"TEXT ALREADY SAVED",0
 FCC 23,"NOT ENOUGH MEMORY TO DO COMMAND",0
 FCC 24,"NO TEXT SAVED, CAN'T WITHDRAW OR DUPLICATE",0
 FCC 25,"WARNING - MEMORY NEARLY FULL",0
 FCC 26,"MEMORY FULL",0
 FCC 27,"TOO MANY TABS",0
 FCC 28,"NO MORE TABS SET",0
 FCC 29,"CAN'T TAB",0
 FCC 30,"WARNING - NONSTANDARD CHARACTER SPACING",0
 FCC 31,"STRING OVERFLOW",0
 FCC 32,"STRING NOT FOUND",0
 FCC 33,"ILLEGAL PAGE NUMBER",0
 FCC 34,'WARNING - NO "PS-TABLE" SET',0
 FCB 0 END OF TABLE

XBELS1 FCC 'NO ERROR',0

XBAVM1 FCC "CANNOT MOVE TO LAST PAGE, TOO MANY PAGES",0

XPAGS1 FCC "*********** PAGE=",0

*MESSAGES AND NUMBER AREAS
XPGMS1 FCC '- PAGE STATUS -',0
XPGM2A FCC 'READ FILE = ',0
XPGMS2 FCC 'WRITE FILE = ',0
XPGMS4 FCC '------- NONE ---------',0
XPGMS6 EQU *
 FCC 'SERIAL PAGE # ---------',0
 FCC 'PRINTED PAGE # --------',0
 FCC 'LINE # ----------------',0
 FCB 0 SKIP A LINE
 FCC 'PAGE LENGTH ----------- ,PL',0
 FCC 'HEADER LINES ---------- ,HD ,,',0
 FCC 'FOOTER LINES ---------- ,FT ,,',0
 FCC 'SPACING --------------- ,SS',0
 FCC 'LINES/INCH ------------ ,VS',0
 FCB 0
 FCC 'LINE LENGTH ----------- ,LL',0
 FCC 'H/F LINE LENGTH ------- ,LL',0
 FCC 'LEFT MARGIN ----------- ,LM',0
 FCC 'INDENT ---------------- ,IN',0
 FCC 'CHARACTERS/INCH ------- ,CS',0

 FCC 'PARAGRAPH INDENT ------ ,PPSI',0
 FCC 'PARAGRAPH SPACE ------- ,PPSP',0
 FCC 'PARAGRAPH NEED LINES -- ,PPNL',0
 FCB 0
 FCC 'JUSTIFIED ------------- ,JU/,NJU',0
 FCC 'PROPORTIONAL SPACED --- ,PS/,NPS',0
 FCB 0
 FCC 'PRINTER CHARACTER ----- ,PC',0
 FCC 'SPACE PAD CHARACTER --- ,PADC',0
 FCC 'MAIL-MERGE CHARACTER -- ,MMC',0
 FCB 0
 FCC 'ROOM LEFT',0
 FCB 0,0,0,0,0
XPGM50 FCC 'READ FILE:   ',0
XPGM51 FCC 'WRITE FILE:  ',0
XPGM52 FCC '---NONE---',0
XPGM53 FCC 'STATUS:     ',0
XPGM54 FCC 'OPEN',0
XPGM55 FCC 'CLOSED',0

XPGBS1 FCC 'PAGE',0
XSAVM1 FCC 'Save under file name "',0
XSAVMB FCC '" (Y*/N)? ',0
XSAVM2 FCC 'NO TEXT SAVED',0
XSAVM3 FCC 'PART OR ALL OF TEXT NOT SAVED',0
XSAVM4 FCC 'Delete backup file (Y*/N)? ',0
XSAVM5 FCC 'File name? ',0

XSVMS1 FCC 'Marker not found.',0
XDSTM1 FCC 'WARNING! FILE TOO LARGE - '
XDSTM2 FCC 'ENTIRE FILE MAY NOT BE NOT LOADED!!!',0
XDSTM3 FCC 'FILE NOT LOADED',0
XDSTM5 FCC $D,$A,'ILLEGAL PRINTER, TERMINAL, OR FILE NAME',0
XDSTM6 FCC 'INPUT FILE NOT FOUND',0

XTTYS1 FCC 'Output set for "TTY" printer.',0
XSPCLS1 FCC 'Output set for "Specialty" printer.',0
XOSPS1 FCC 'DOS command:  ',0
XOSPS2 FCC 7,'Command not allowed with files open.',0
XPSQS1 FCC 'Hit any key to restart printer',0

XNEWM1 FCC 'No dump.  Cursor on top page.',0
XNEWM3 FCC "Dump text in memory (Y*/N)? ",0
XNEWM4 FCC '    Dump to output file "',0
XNEWM5 FCC '" (Y*/N)? ',0
XNEWM6 FCC 'Fill from input file (Y*/N)? ',0
XNEWM7 FCC 'No room for fill.',0
XNEWM8 FCC 'DISK ERROR!!!',0
XNEWM9 FCC 'No fill.  Input file empty.',0

XEXTM1 FCC 'Is the text secure? ',0
XEXTM2 FCC 'Are you sure? ',0
XERMM1 FCC 'Erase entire file in memory? ',0

XPSWS1 FCC 'STYPS',0,0,0,0,0,0,0,0,0,0,0,0,0
XPSWS2 FCC 'ERROR - PROPORTIONAL SPACING TABLE NOT LOADED',0
XPSWS3 FCC 'Set proportional spacing table "',0
XPSWS4 FCC '" (Y*,N)? ',0
XPSWS5 FCC 'Table name? ',0

XSTYS1 FCC '/dev/styprint',0
XPRNS1 FCC 'Different printer (Y/N*)? ',0
XPRNS2 FCC 'PRINT DRIVER NOT FOUND',0
XPRNS3 FCC '   Printer name? ',0
XPRNS4 FCC 'Stop for new pages (Y/N*)? ',0
XOTXS1 FCC 'Hit "ESC" to stop, any other key to continue. ',0
XOTXS2 FCC 'Print all pages (Y*/N)? ',0
XOTXS3 FCC '   First page = ',0
XOTXS4 FCC '     Last page = ',0
XSPLS1 FCC 'Spooled output file name? ',0

XFNDS1 FCC '*** FIND    ',0
XFNDS2 FCC '*** STOP (RET) OR CONTINUE (SP)?',0
XFNDS3 FCC ' UPPER/LOWER CASE',0
XRPLS1 FCC '*** REPLACE ',0
XRPLS2 FCC '*** WITH    ',0
XRPLS3 FCC '*** REPLACE (Y-N-A)?',0
XBDLS1 FCC '*** DELETE ',0
XBDLS2 FCC '  CHARACTERS? ',0

XSUPS1 equ *
 FCC 'EDIT ------------ return to ESCAPE mode to edit text',0
 fcc 'PRINT ----------- print the text',0
 FCC 'SAVE & RETURN --- save the text and return to DOS',0
 FCC 'SAVE ------------ save the text',0
 FCC 'SAVE TO MARK ---- save the text from the cursor to the marker',0
 fcc 'RETURN ---------- return to the disk operating system',0
 FCC 'LOAD ------------ insert a file at the cursor position',0
 FCC 'ERASE ----------- erase the present text without saving it',0
 FCC 'SPECIAL---------- use a specialty "letter quality" printer',0
 FCC 'TTY ------------- use a TTY printer',0
 FCC 'PASS ------------ pass a command to the disk operating system',0
 fcc 'SPOOL ----------- output text to the disk for later printing',0
 fcc 'WHEEL ----------- specify a proportional spacing print wheel',0
 FCC 'NEW ------------- new text from input file',0

XHLPS1 FCC 'RETURN',0
 FCC 'ESCAPE Commands',0
 fcc 'CONTROL Commands',0
 FCC 'FORMAT Commands (vertical)',0
 fcc 'FORMAT Commands (horizontal)',0
 FCC 'FORMAT Commands (misc.)',0
 fcc 'Displayed character mods',0
XHLPS2 FCC "STYHLP1",0
XHLPS3 FCC "STYHLP2",0
XHLPS4 FCC "STYHLP3",0
XHLPS5 FCC "STYHLP4",0
XHLPS6 FCC "STYHLP5",0
XHLPS7 FCC "STYHLP6",0
