Entering The Program - Epson FX-80 User Manual

121~
DATA
~,
126, 1,
~,
126, 1,-5,
~, ~,
1,2,4,9,18,36,-
16,8,32,4,32,4,16,8,~,128
122~DATA~,~,~,64,32,16,72,36,-3,16,4,34,65,~,~,65,34,-
8,16,4,18,9,4,2,1,~,-9,~,~,128
123~
DATA
-8,~,~,64,32,16,72,36,16,-
7,4,16,36,65,~,~,1,66,36,16,-3,4,16,4,18,9,4,2,1,-
2,~,~,128
124~DATA~,32,16,64,8,64,-15,8,32,72,16,32,,64,­
,~,~,127,~,~,127,~,~,~,128
125~DATA-7,~,~,~,8,4,16,2,16,-15,2,8,18,36,72,16,32,
64,-2,~,~,128
1299 '
«(
BOX DATA)
»
13~~ DATA a,j ,f,b,k," ",k,k,g,j ,i,h,k," ",k,k, d,j ,e,c
131~
DATA 11,8, " ACCOUNT NO. " , "DATE"
132~DATAj,j,f,j,"
"," ",k," ",j,j,i,j," ","
If,
k,"
",j,j ,e,j
133~ DATA 11, 11,2~,8, 8, 15, "DATE" , "INVOICE NO."
134~
DATA "DESCRIPTION", "CHARGES", "PAYMENTS", "BALANCE"
135~DATAj,j,f,j,"
"," ",k," ",j,j,i,j, ""," ",k,"
",j,j,e,j
136~
DATA 22,11,11,12,18
137~
DATA "CURRENT",
"3~
DAYS" ,
"6~
DAYS",
"9~
DAYS", "AMOUNT
DUE"
Entering the program
You could enter the entire program straight from the listing, but it's
much easier to start with the BARCHART program from the first half
of this chapter. Many of the lines in the BARCHART program that
have accumulated from previous chapters need no changes. These
include:
110, 120, 150, and 390
699
to 740
799 to 1250
So let's get started. First,
DELETE 1(.3-9(.3
Some of the lines require slight changes. Make those now:
1(.3(.3 DIM A(18): LPRINT CHR$(27)"1";CHR$(27)"U1";
1~5
' May need to change line spacing to
CHR$(27)"3"CHR$(2(.3);
13~
LPRINT CHR$(27)"&"CHR$(.3)"at";
14(.3 FOR Y=l TO
2~:
LPRINT CHR$(139);
16~
NEXT Y: LPRINT CHR$(27)"C"CHR$(66);: GOSUB
7(.3~
233