10 DIM ARRAY(60,60)
20 FOR Y=-30 TO 29
30 FOR X=-30 TO 29
40 V=(X/30)^2+(Y/30)^2
50 IF V>1 THEN NX = X : NY = Y : GOTO 120
60 IF V=0 THEN NX=0 : NY=0 : GOTO 120
70 V = SQR(V)
80 SCALE = TAN(ATN(V)*2)/V
90 IF ABS(SCALE) > 10 THEN NX = X : NY = Y : GOTO 120
100 NX = CINT(SCALE*X/5) : NY = CINT(SCALE*Y/5)
110 IF X=0 THEN PRINT X,Y,NX,NY,SCALE
120 ARRAY(X+30,Y+30) = INT((NY+30)*320+NX+30)
130 NEXT
140 NEXT
150 OPEN "o",1,"fish.tbl"
160 PRINT #1,"dw ";
170 FOR Y=0 TO 59
180 FOR X=0 TO 59
190 PRINT #1,ARRAY(X,Y);
200 B=B+1
210 IF B=8 THEN B=0 : PRINT #1,"" : PRINT #1,"dw "; ELSE PRINT #1,",";
220 NEXT
230 NEXT
240 CLOSE #1
