 4  DIM $ST[20],$SH[20]
 5  $ST[0]="0123456789ABCDEF"
 10  FOR Y=-12 TO 12
 20   FOR X=-39 TO 39
 30    CA=X*0.0458
 40    CB=Y*0.08333
 50    A=CA
 60    B=CB
 70    FOR I=0 TO 15
 80     T=A*A-B*B+CA
 90     B=2*A*B+CB
 100     A=T
 110     IF (A*A+B*B)>4 THEN GOTO 200
 120    NEXT I
 130    PRINT " ";
 140    GOTO 210
 200    REM
 205    $SH[0]=$ST[0;(I+1)],1
 206    PRINT $SH[0];
 210   NEXT X
 220   PRINT
 230  NEXT Y
 250  STOP

