home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 53 / 64er_Magazin_Sonderheft_53_19xx_Markt__Technik_de_Side_A.d64 / demo.circle2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  278b  |  16 lines
  1. 1 rem grafik 2001
  2. 2 rem demo circle/2
  3. 3 rem 2.90/bl
  4. 10 (NULL)
  5. 11 (NULL)5,0
  6. 12 poke53280,0
  7. 13 (NULL)1
  8. 20 a=96:b=a:fori=0to49:ifa<0thena=0
  9. 30 (NULL)0,160,100,a,b:a=a-2
  10. 40 next
  11. 50 a=24:b=a:fori=1to13:ifa<0thena=0
  12. 60 (NULL)0,50,26,a,b:a=a-2
  13. 65 next:poke53280,13
  14. 70 (NULL)0,1,2,4,0,16,0,170,"[195]ircle"
  15. 1000 poke198,0:wait198,1:(NULL)0:end
  16.