Follow

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

@josipretrobits @bitartbot Looks good! I’ll give it a try. Can you give me little bit more code? How do loop it?

@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

Sign in to participate in the conversation
Qoto Mastodon

QOTO: Question Others to Teach Ourselves
An inclusive, Academic Freedom, instance
All cultures welcome.
Hate speech and harassment strictly forbidden.