0 MODE(1):FORX=-8TO4:FORY=-8TO4:D=ABS(X):E=ABS(Y):H=D<5ORE<5
1 I=32+E:J=32-E
2 IFABS(D-E)<5ANDHSET(64+D,I):SET(64-D,I):SET(64+D,J):SET(64-D,J)
3 NEXT:NEXT
4 GOTO4
