how to implement DIM AS CODE

[Art]

That would be a lookup table in PBP.

[Art]

and you’d generate patterns like that on the fly

pattern var byte
i var byte
displayram var byte[8]

pattern = %11111111

for i = 0 to 7
pattern = pattern << 1
displayram[7-i] = pattern
next i