Graphics
Programming
in
BASIC
213
90
POKE1351,128
100
POKE65301,65
110
POKE65302,0:POKE65303,93
120
PORI=0TO47:READA:POKE8512+IfA:NEXT
130
PRINTCHR$(147)CHR$(154)11
Butterflies
Fly
Free"
140
PRINTCHR$(13);CHR$(144)"
Hit
key
for
standard
characters"
150
Y=24:Y1=24
160
GETK$:IFK$O""THENPRINTCHR$(144)
:QOTO220
170
A$="()":GOSUB270
180
A$=lf*+":GOSUB270
190
A$=",-II:GOSUB270
200
A$="*+":GOSUB270
210
GOTO160
220
POKE65299,(PEEK(65299)AND3)OR208
230
POKE65298,PEEK(65298)OR4
240
POKE65287,PEEK(65287)AND239
250
POKE1351,0
260
END
270
CHAR1,12,Y1,"
"
280
CHAR1,12,Y,CHR$(154)+A$
290
CHARl,22,Yl,M
"
300
CHAR1,22,Y,CHR$(153)+A$
310
Yl=Y:Y=Y-l:IFY<0THENY=24
320
RETURN
330
DATA196,241,237,237,253,253,241,193
340
DATA76,60,236,236,252,252,60,12
350
DATA52,49,57,61,61,49,49,49
360
DATA112,48,176,240,240,48,48,48
370
DATA4,3,3,3,3,3,3,3
380
DATA64,0,0,0,0,0,0,0
Notes
130
There
is
a
space
between
the
opening
quotation
mark
and
the
shifted
B.
There
are
two
spaces
between
the
words
Butterflies
and
Fly.
140
There
is
a
space
between
the
opening
quotation
mark
and
the
shifted
H.
There
are
two
spaces
between
the
words
for
and
standard,
and
between
the
words
standard
and
characters.
270
There
are
two
spaces
between
the
pair
of
quotation
marks.
290
There
are
two
spaces
between
the
pair
of
quotation
marks.
Line-by-Line
Explanation
10
Disable
switch
to
RAM
of
subroutine
called
by
PEEK.
20
Start
loop
to
copy
first
90
characters.
30
Move
upper/lower
case
characters
to
RAM
starting
at
location
8192.
To Next Page
Loading...
