;SAVE#D:bcalc.pt6
;
Y40L	    18
Y40H	    18
TWINL	.BYTE  <TXTWIN
	.BYTE  <[TXTWIN+$28]
	.BYTE  <[TXTWIN+$50]
	.BYTE  <[TXTWIN+$78]
TWINH	.BYTE  >TXTWIN
	.BYTE  >[TXTWIN+$28]
	.BYTE  >[TXTWIN+$50]
	.BYTE  >[TXTWIN+$78]
CREDIT	.SBYTE +$80," B-Calc (c)"
	.SBYTE +$80," 1987   AA01  "
	.SBYTE +$80," TYPE:        "
	.SBYTE +$80," "
	.BYTE EOL
CREDTF	.SBYTE +$80," B-Calc by "
	.SBYTE +$80,"Barry Kolbe & "
	.SBYTE +$80,"Bryan Schappel"
	.SBYTE +$80," "
	.BYTE EOL
;input tables	;!!!!!!!! INVERSE CHARS !!!!!!!!
INTABL	.BYTE  <ZAPST
	.BYTE  <INDEL
	.BYTE  <INCTDL
	.BYTE  <ININS
	.BYTE  <INUP
	.BYTE  <INDWN
	.BYTE  <INLEFT
	.BYTE  <INRT
	.BYTE  <ININLN
	.BYTE  <INDLLN
	.BYTE  <INDO
	.BYTE  <INDO
	.BYTE  <INDO
INTABH	.BYTE  >ZAPST
	.BYTE  >INDEL
	.BYTE  >INCTDL
	.BYTE  >ININS
	.BYTE  >INUP
	.BYTE  >INDWN
	.BYTE  >INLEFT
	.BYTE  >INRT
	.BYTE  >ININLN
	.BYTE  >INDLLN
	.BYTE  >INDO
	.BYTE  >INDO
	.BYTE  >INDO
;
INSPC	.BYTE $7D,$7E,$FE,$FF
	.BYTE $1C,$1D,$1E,$1F
	.BYTE $9D,$9C,$7F,$9E
	.BYTE $9F
;
;commnd mode tables	;!!!!!!!! INVERSE CHARS !!!!!!!!
CMTAB	.BYTE "DIR"
	.BYTE "GOT" 	;GOTO cell
	.BYTE "SAV" 	;SAVE Sheet
	.BYTE "LOA" 	;LOAD Sheet
	.BYTE "SET" 	;CROSS reference
	.BYTE "WID" 	;set col WIDTH
	.BYTE "LIS" 	;LIST to disk
	.BYTE 0
;
COML	.BYTE  <DIR, <GOTO
	.BYTE  <SAVE, <LOAD
	.BYTE  <SETREF, <WIDTH
	.BYTE  <LIST
;
COMH	.BYTE  >DIR, >GOTO
	.BYTE  >SAVE, >LOAD
	.BYTE  >SETREF, >WIDTH
	.BYTE  >LIST
;
SPCKEY	.BYTE $1C,$1D,$1E,$1F
	.BYTE $08,$14,$0B
	.BYTE $04,$03,$0D
	.BYTE $05,$06,$07
	.BYTE $0F,$12,$10
	.BYTE $01
;
SPECL	.BYTE  <CU, <CD, <CL, <CR
	.BYTE  <HOME, <FORCE
	.BYTE  <KILLCL, <DELETE
	.BYTE  <COPY, <MOVEB
	.BYTE  <EDITM, <FORMC
	.BYTE  <GLOBAL, <RONOF
	.BYTE  <RCFLP, <PRNT
	.BYTE  <ARECL
;
SPECH	.BYTE  >CU, >CD, >CL, >CR
	.BYTE  >HOME, >FORCE
	.BYTE  >KILLCL, >DELETE
	.BYTE  >COPY, >MOVEB
	.BYTE  >EDITM, >FORMC
	.BYTE  >GLOBAL, >RONOF
	.BYTE  >RCFLP, >PRNT
	.BYTE  >ARECL
SLKEY	.BYTE $FF,$FE,$FD,$9F
	.BYTE $9E,$9D,$9C,$9B
	.BYTE $7F,$7E,$7D,$1F
	.BYTE $1E,$1D,$1C,$1B
;
;Special Text
;
DIRTXT	.BYTE "D1:*.*",EOL
FNAME	.BYTE "D1:            ",EOL
ERMES	.SBYTE "Error"
CERR	.BYTE "Error"
DERM	.SBYTE "Error:    Press a key"
;
STT	.SBYTE "File:             "
	.SBYTE "    Free:"
SEG	.SBYTE "Recalc:OFF        "
	.SBYTE "      by:ROW   "
;
ONOFM	.SBYTE "OFFON "
RCMES	.SBYTE "ROW   COLUMN"
ONF	.BYTE 0
RCFLG	.BYTE 0
CMFLG	.BYTE 0
KPY	    1 	;y sav
CPOS	    1
Y9	    1
;
TEXTYP	.SBYTE "Text    "	;!!!!!!!! INVERSE CHARS !!!!!!!!
NUMTYP	.SBYTE "Number  "	;!!!!!!!! INVERSE CHARS !!!!!!!!
FUNTYP	.SBYTE "Function"	;!!!!!!!! INVERSE CHARS !!!!!!!!
	.SBYTE "        "	;!!!!!!!! INVERSE CHARS !!!!!!!!
;
DELMS	.SBYTE "DELETE: Position Cursor, RETURN",SEOL
CPYMES	.SBYTE "COPY: Position Cursor, RETURN",SEOL
MOVMES	.SBYTE "MOVE: Position Cursor, RETURN",SEOL
CMES1	.SBYTE "Upper left of Block",SEOL
CMES2	.SBYTE "Lower right of Block",SEOL
CMES3	.SBYTE "Upper left of Dest.",SEOL
PRITMS	.SBYTE "PRINT: Position Cursor, RETURN",SEOL
LSMES	.SBYTE "LIST: Position Cursor, RETURN",SEOL
;
FMES	.SBYTE "FORMAT   Justify L"
FMA	.SBYTE "Dollar $(D) N"
FMB	.SBYTE "Commas  (,) N"
FMC	.SBYTE "Dec. places 0"
YN	.SBYTE "NY"
LCR	.SBYTE "LRC"
SDEC	.SBYTE "0123456789"
;raw L,C,R
JSKEY	.BYTE $00,$28,$12
REPMES	.SBYTE "File exists, Replace? Y/N",SEOL
;raw 0-9
NKEY	.BYTE $32,$1F,$1E,$1A
	.BYTE $18,$1D,$1B,$33
	.BYTE $35,$30
FCNT	.BYTE 0
TORITE	.BYTE 0
SETROW	.BYTE 0
SETCOL	.BYTE 0
CDIR	.BYTE 0 	;cursor directn
ENKEY	.BYTE EOL,$1C,$1D,$1E,$1F
EOM	    2 	;end of memry
FRCTXT	.BYTE 0
CRSEN	    1
ENDAT	    2
FXS	    1
FXA	    1
STLO	    58
STHI	    58
CTLCMD	.BYTE $0B,$02,$14
AS26	.BYTE "ABC"
N26	.BYTE 0,26,52
DECN	.BYTE "0123456789"
DECM	.BYTE 0,10,20,30,40,50
	.BYTE 60,70,80,90
OPTAB	.BYTE "^*/+-"
FPSTACK	    6*58
ONE	.FLOAT 1
TWO	.FLOAT 2
HALF	.FLOAT .5
REFTAB	.SBYTE "AA"
	.SBYTE "01"
AIT	    256
SPFLG	    1
COLW	    64
FMCOL	    64
RAD	    $80 	;row add tabl
RO1	    $40 	;row data
