@bbcmicrobot
#bbcmicrobot
MODE 1
FOR Y%=1 TO 255
FOR X%=1 TO 319
Z%=X%-160
IF (Z%*64)MOD Y%=0 PLOT&45,X%*4,1024-Y%*4
NEXT,
MOVE 0,0:VDU 5
@bbcmicrobot
#bbcmicrobot
MODE 1
FOR Y%=1 TO 255
FOR X%=1 TO 319
Z%=X%-160
IF (Z%*64)MOD Y%=0 PLOT&45,X%*4,1024-Y%*4
NEXT,
MOVE 0,0:VDU 5
@bbcmicrobot
#bbcmicrobot
MODE 1
FOR Y%=0 TO 255
FOR X%=0 TO 320
K%=X% EOR Y%
IF K% MOD 5=0 GCOL1,1:PLOT&45,X%*4,Y%*4
IF K% MOD 17=0 GCOL1,2:PLOT&45,X%*4,Y%*4
IF K% MOD 33=0 GCOL1,4:PLOT&45,X%*4,Y%*4
NEXT,
@bbcmicrobot
#bbcmicrobot
MODE 0
FOR Y=0 TO 255
FOR X=0 TO 640
IF(X EOR Y)MOD 9=0 PLOT&45,X*2,Y*4
NEXT,
@bbcmicrobot #bbcmicrobot
MODE 2
GRID_WIDTH = 1280
GRID_HEIGHT = 1024
THIRD_HEIGHT = GRID_HEIGHT / 3
GCOL 0, 2
MOVE 0, 0
PLOT 101, GRID_WIDTH, THIRD_HEIGHT
GCOL 0, 7
MOVE 0, THIRD_HEIGHT
PLOT 101, GRID_WIDTH, 2 * THIRD_HEIGHT
GCOL 0, 1
MOVE 0, 0
PLOT 80, 0, 0
PLOT 85, GRID_WIDTH/2, GRID_HEIGHT/2
PLOT 85, 0, GRID_HEIGHT
PRINT "free palestine"