geoffl on Nostr: #bbcmicrobot š MO.2:V.5 $@%="05306" FORH=1TO23 FORJ=0TO20 Z=16+RND(7)-4 IFH ...
#bbcmicrobot š MO.2:V.5
$@%="05306"
FORH=1TO23
FORJ=0TO20
Z=16+RND(7)-4
IFH MOD4=0Z=0
Z=Z*16
A=512+J*84-H*48:B=1696-J*84-H*48
C=2^(RND(3)-1):D=C?@%-48
FORS=0TO(RND(6)+2)*8STEP8
X=A-S:Y=B-S
GCOL0,C:MOVEX,Y+Z:MOVEX,Y:PLOT85,X+64,Y+Z-32:PLOT85,X+64,Y-32:GCOL0,D+(S=0)*D:DRAWX+64,Y+Z-32:GCOL0,7+(S=0)*7:DRAWX,Y+Z:GCOL0,0:DRAWX,Y
N.,,
$@%="05306"
FORH=1TO23
FORJ=0TO20
Z=16+RND(7)-4
IFH MOD4=0Z=0
Z=Z*16
A=512+J*84-H*48:B=1696-J*84-H*48
C=2^(RND(3)-1):D=C?@%-48
FORS=0TO(RND(6)+2)*8STEP8
X=A-S:Y=B-S
GCOL0,C:MOVEX,Y+Z:MOVEX,Y:PLOT85,X+64,Y+Z-32:PLOT85,X+64,Y-32:GCOL0,D+(S=0)*D:DRAWX+64,Y+Z-32:GCOL0,7+(S=0)*7:DRAWX,Y+Z:GCOL0,0:DRAWX,Y
N.,,