Some freshly baked art on Commodore 64
inspired by: @bitartbot
REM loop x and y
120 a = (x + x*y):f=a-int(a/9)*9
REM poke f as color
#c64 #retrocomputing #basic #patterns #algorithm #commodore64
@frankbutterbrodt @bitartbot
10 print chr$(147)
20 p=0
100 for y=1 to 25
110 for x=1 to 40
120 a = (x + x*y):f=a-int(a/9)*9
220 poke 1024+p,160
230 poke 55296+p,f
240 p=p+1
250 next x
260 next y
300 goto 300
@josipretrobits @bitartbot fantastic! It works really fine! Looks very good. Thank you 😀!!
@josipretrobits @bitartbot thanx!!! I’ll try it later on my c64