376
Using
Peripheral
Devices
60
FORI=1T08:P=I*10
70
PRINT#4,CHR$(S7)CHR|;(16)CHR$(0)CHR$(P)A$CHR$(15)//
"
L$(I)CHR$(8)
80
PRIISrT#4,CHR$(27)CHR$(
16)CHR$(0)CHR$(P)GHR$(S55)
90
NEXT
100
CL0SE4
110
DATA255,213,S18,S13,218,S13,S13,213,213,213,213
120
DATA"01i!
say
can
you
see
by
the
dawn's
early
light/'
130
DATA"What
so
proudly
we
hailed
at
the
twilight's
last
gleaming!''
140
DATA"Whose
broad
stripes
and
bright
stars
thro'
the
perilous
fight,"
150
DATA"o'er
the
ramparts
we
watched
were
so
gallantly
streaming;"
160
DATA"And
the
rockets'
red
glare,
the
bombs
bursting
in
air,"
170
TDATA"Gave
proof
thro'
the
night
that
our
flag
was
still
there."
180
DATA"0h!
say
does
that
star
spangled
banner
yet
wave"
190
DATA"0'er
the
land
of
the
free,
and
the
home
of
the
brave."
Line-by-Line
Explanation
10
Open
a
file
to
the
printer
with
upper/lower
case
as
default.
20
Put
the
printer
into
double
width
character
mode,
and
print
out
the
title.
30
Read
the
data
for
the
flag
symbol
and
store
in
A$.
40
Read
the
data
for
the
lyrics
and
store
in
L$.
50
Put
the
printer
into
dot
mode.
60
I
counts
the
lines.
P
is
the
position
to
start
this
line.
Since
I
goes
from
1
to
8,
P
will
go
from
10
to
80,
so
the
high
bit
of
the
position
is
always
0.
70
Position
the
print
head
in
column
P,
print
out
a
flag,
put
the
printer
into
standard
width
character
mode,
print
a
line
of
lyrics,
and
put
the
printer
back
into
dot
mode.
80
Position
the
print
head
in
column
P
again,
and
print
the
flag
pole.
90
Go
on
to
the
next
line.
100
Close
the
printer
file.
110
Data
for
flag
symbol.
120-190
Data
for
lyrics.
To Next Page
