0 MODE(1):FORX=-8TO4:FORY=-8TO4:D=ABS(X):E=ABS(Y):H=D<5ORE<5
1 I=32+E:J=32-E:K=16+E:L=16-E:M=48+E:N=48-E
2 IF NOT((ABS(D-E)<5)ANDH),20
3 COLOR2:SET(64+D,I):SET(64-D,I):  SET(64+D,J):SET(64-D,J)
5 COLOR4:SET(48+D,K):SET(48-D,K):  SET(48+D,L):SET(48-D,L)
6 SET(48+D,M):SET(48-D,M):         SET(48+D,N):SET(48-D,N)
7 SET(80+D,K):SET(80-D,K):         SET(80+D,L):SET(80-D,L)
8 SET(80-D,M):SET(80+D,M):         SET(80-D,N):SET(80+D,N)
9 COLOR3:SET(32+D,I):SET(32-D,I):  SET(32+D,J):SET(32-D,J)
10 SET(96+D,I):SET(96-D,I):        SET(96+D,J):SET(96-D,J)
11 SET(16+D,K):SET(16-D,K):        SET(16+D,L):SET(16-D,L)
12 SET(112+D,K):SET(112-D,K):      SET(112+D,L):SET(112-D,L)
13 SET(16+D,M):SET(16-D,M):        SET(16+D,N):SET(16-D,N)
14 SET(112+D,M):SET(112-D,M):      SET(112+D,N):SET(112-D,N)
20 NEXT:NEXT
21 GOTO21
