home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 53 / 64er_Magazin_Sonderheft_53_19xx_Markt__Technik_de_Side_A.d64 / demo.line (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  235 b   |  16 lines
  1. 1 rem grafik 2001
  2. 2 rem demo line
  3. 3 rem 2.90/bl
  4. 10 (NULL)
  5. 11 (NULL)8,0
  6. 12 poke53280,0
  7. 13 (NULL)1
  8. 15 x=160
  9. 70 (NULL)0,1,2,2,1,16,0,180,"line"
  10. 100 fori=1to180
  11. 110 x1=x-sin(i)*160:x2=x-cos(i)*160
  12. 120 (NULL)0,x1,10,x2,180
  13. 130 next
  14. 140 poke53280,1
  15. 1000 poke198,0:wait198,1:(NULL)0:end
  16.