home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1991 September / 1991-09.d64 / medres.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  569b  |  23 lines
  1. 100 rem driver demonstration
  2. 110 rem copyright 1991 - compute publications intl ltd - all rights reserved
  3. 120 rem make sure driver is in memory!
  4. 122 if cg=0 then cg=7:load"medden",8,1
  5. 130 :
  6. 135 pi=3.14159
  7. 140 poke 53280,11:poke 53281,11
  8. 150 printchr$(147)chr$(5)
  9. 160 printtab(11)"lissajous figures"chr$(17)
  10. 170 print"press any key after viewing figure"
  11. 180 printchr$(17)"enter any two numbers, each"
  12. 190 input"with values less than 5";x,y
  13. 200 if x>5 or y>5 then 180
  14. 210 printchr$(147)
  15. 220 fl=1:gosub 260
  16. 230 poke 198,0:wait 198,1
  17. 240 fl=0:gosub 260
  18. 250 end
  19. 260 for t=1 to 2*pi*100+(10*pi*(x+y))
  20. 270 sys 828,(1+sin(x*t))*40,(1+cos(y*t))*25,fl,c
  21. 280 next
  22. 290 return
  23.