10
REM > TestCard1
20
MODE
2
30
FOR
X=0
TO
7
40
FOR
Y=0
TO
7
50
GCOL
0,(X+Y)
AND
7
60
MOVE
X*160,Y*128:
MOVE
(X+1)*160,Y*128:
PLOT
85,X*160,(Y+1)*128:
PLOT
85,(X+1)*160,(Y+1)*128
70
NEXT
:
NEXT
80
IF
GET
Download TestCard1
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.