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