SET WINDOW -1,9,-1,9
SET LINE WIDTH 3
FOR i=0 TO 8
   PLOT LINES: i,0;i,8
   PLOT LINES: 0,i;8,i
NEXT i
SET LINE WIDTH 1
SET LINE COLOR 2
FOR i=0 TO 8
   PLOT LINES: O,i;8-i,8
NEXT i
FOR i=0 TO 8
   PLOT LINES: i,0;8,8-i
NEXT i
SET LINE COLOR 4
FOR i=0 TO 8
   PLOT LINES: O,i;i,0
NEXT i
FOR i=0 TO 8
   PLOT LINES: i,8;8,i
NEXT i
DRAW disk WITH SCALE(0.3)*SHIFT(0.5,7.5)
DRAW disk WITH SCALE(0.3)*SHIFT(1.5,3.5)
DRAW disk WITH SCALE(0.3)*SHIFT(2.5,0.5)
DRAW disk WITH SCALE(0.3)*SHIFT(3.5,2.5)
DRAW disk WITH SCALE(0.3)*SHIFT(4.5,5.5)
DRAW disk WITH SCALE(0.3)*SHIFT(5.5,1.5)
DRAW disk WITH SCALE(0.3)*SHIFT(6.5,6.5)
DRAW disk WITH SCALE(0.3)*SHIFT(7.5,4.5)
END



#####################################################################



SET WINDOW -1,9,-1,9
SET LINE WIDTH 3
FOR i=0 TO 8
   PLOT LINES: i,0;i,8
   PLOT LINES: 0,i;8,i
NEXT i
LET  B=30
SET TEXT FONT "‚l‚r ƒSƒVƒbƒN",B
PLOT TEXT,AT 0.2,7.2:"‚Q"
FOR i=0 TO 1
   PLOT TEXT,AT 0.2+i,6.2+i:"‚R"
NEXT i
FOR i=0 TO 2
   PLOT TEXT,AT 0.2+i,5.2+i:"‚S"
NEXT i
FOR i=0 TO 3
   PLOT TEXT,AT 0.2+i,4.2+i:"‚T"
NEXT i
FOR i=0 TO 4
   PLOT TEXT,AT 0.2+i,3.2+i:"‚U"
NEXT i
FOR i=0 TO 5
   PLOT TEXT,AT 0.2+i,2.2+i:"‚V"
NEXT i
FOR i=0 TO 6
   PLOT TEXT,AT 0.2+i,1.2+i:"‚W"
NEXT i
FOR i=0 TO 7
   PLOT TEXT,AT 0.2+i,0.2+i:"‚X"
NEXT i
FOR i=0 TO 6
   PLOT TEXT,AT 1.2+i,0.2+i:"10"
NEXT i
FOR i=0 TO 5
   PLOT TEXT,AT 2.2+i,0.2+i:"11"
NEXT i
FOR i=0 TO 4
   PLOT TEXT,AT 3.2+i,0.2+i:"12"
NEXT i 
FOR i=0 TO 3
   PLOT TEXT,AT 4.2+i,0.2+i:"13"
NEXT i
FOR i=0 TO 2
   PLOT TEXT,AT 5.2+i,0.2+i:"14"
NEXT i
FOR i=0 TO 1
   PLOT TEXT,AT 6.2+i,0.2+i:"15"
NEXT i
PLOT TEXT,AT 7.2,0.2:"16"
END