DD’³· N·.4 ¶IĪ700CĒ Ē¶IĪ  ą  ą’’’’’’’’’’’’’’’’,ķę’’’’’’’’’’’’’’’’’’’’’’’’’’’’C D’³· 4 C C D¦’¤’¤ ©ø’¦°’ P·—”³³ ¢’¦—– œ¦’ A°£’°œ„°— œ’ S’–-G”ž˜¦© C GOTO 10 20 IARG=IR*IR-IZ*IZ IF (IARG) ,21, IT=IFIX(SQRT(FLOAT(IARG))) RETURN 21 IT=0 RETURN 10 IX=40 IY=25 WRITE($16.A1) IR=0 30 IR=IR+5 DO 40 IZ=0,IR CALL 20 SETG(IY+IT,IX+IZ) SETG(IY-IT,IX+IZ) SETG(IY+IT,IX-IZ) SETG(IY-IT,IX-IZ) 40 CONTINUE IF (IR-25) 30,, PAUSE END