10 REM > TestCard1
   20 MODE2
   30 FOR X=0 TO 7
   40   FOR Y=0 TO 7
   50     GCOL 0,(X+Y)AND7
   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 IFGET