Example:
1 (,
op
en
1,
4,
7
20
print#l,
chd;
(27)
"C"cht~$
(6)
3('
fOt~
n=
1
to
3
4';:'
pt~int#l,
"Name"
50
pt~int#l,
"Addt~ess"
60
print#l,"City,
State"
70
print#1,chr$(12)
8';:' ne:·: t n
9')
close
1
Name
Addt~ess
City~
State
[3
Lines]
Name
Addl·~ess
City,
State
[3
Lines] ,
Name
Addt~ess
City,
State
You
can also set page
length
in
Commodore
mode
by
using secon-
dary
address 3 along
with
the
control
codes chr$(147) to
turn
paging
on
and
chr$(19)
to
turn
paging off. Send chr$(147) first to
turn
paging
on;
if
you
don't
include a secondary address
of
3,
page
length
defaults to 60 lines (so 6 blank lines are left at the
bottom
of
the page).
The
number
given
with
the file
in
the
OPEN
statement
with
the secondary address
of
3 (chr$(56) in line
40)
specifics the
number
of
lines per page. So the statements
H'
open
4,4,7
2'3
open
2,4,3
30
print#4,chr$(147)
40
print#2,chr$(56)
50
close2:close4
set the page length to 56 lines.
To
turn
paging
off, send the prill"·)
dlr$(l<J).
There's
a little
more
on
using chr$(147) and chr$(I())
Oil
selling the
top
and
bottom
margins later in this chapter.
4-13
To Next Page
Loading...
