home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 July
/
1987-07.d64
/
animator.basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
390b
|
15 lines
10 rem copyright 1987 compute! publications, inc. - all rights reserved
20 poke55,255:poke56,31
30 ifa=1then60
40 ifa=2then130
50 a=1:load"animator",8,1
60 print"[147]copyright 1987 compute! pub., inc."
70 printtab(9)"all rights reserved"
80 input"background color";b:print
90 input"line color";l:print
100 poke49153,b:poke49176,16*l+b
110 input"data file name";f$
120 a=2:load f$,8,1
130 sys49152
140 poke53280,14:poke53281,6:printchr$(147);chr$(154);