home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 69 / 64er_Magazin_Sonderheft_69_19xx_Markt__Technik_de_Side_B.d64 / farbumlauf (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  296b  |  17 lines
  1. 4 poke53280,0:poke53281,0:print"[147]"
  2. 5 for f=0 to 15
  3. 10 for i=0 to 39
  4. 20 poke 1024+i,42:poke 55296+i,f
  5. 30 next i
  6. 40 for k=0 to 960 step 40
  7. 50 poke 1024+39+k,42:poke 55296+39+k,f
  8. 60 next k
  9. 70 for i=39 to 0 step-1
  10. 80 poke 1024+960+i,42:poke 55296+960+i,f
  11. 90 next i
  12. 100 for k=960 to 0 step-40
  13. 110 poke 1024+k,42:poke 55296+k,f
  14. 120 next k
  15. 130 next f
  16. 140 goto 5
  17.