home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_B.d64 / farbstern (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  355b  |  19 lines
  1. 0 if a=0 then a=1:load"sound.s",8,1
  2. 1 print"[147]      ** farbstern ** by phuture":d=10:poke55,255:poke56,129:sys33322
  3. 2 get a$:if a$="" then 2
  4. 3 print"[147]"
  5. 4 print""
  6. 5 d=d-2:poke53280,d:poke53281,d
  7. 6 if d=0  then d=10:goto 2
  8. 10 for i=1to19
  9. 20 for j=1to40
  10. 30 if i<=10 then y=10-i
  11. 40 if i>10 then y=i-10
  12. 50 if j<=20 then x=20-j
  13. 60 if j>20 then x=j-20
  14. 70 c=(x*y)/d
  15. 75 poke 646,c
  16. 80 print" [146]";
  17. 90 next:next
  18. 101 goto 4
  19.