H FFRACTFM CF E WORKSTN E LIN 21 79 E STR 79 1 I '#I*;: ' C CNST1 ISCR1 I LIN01 LIN,1 I LIN02 LIN,2 I LIN03 LIN,3 I LIN04 LIN,4 I LIN05 LIN,5 I LIN06 LIN,6 I LIN07 LIN,7 I LIN08 LIN,8 I LIN09 LIN,9 I LIN10 LIN,10 I LIN11 LIN,11 I LIN12 LIN,12 I LIN13 LIN,13 I LIN14 LIN,14 I LIN15 LIN,15 I LIN16 LIN,16 I LIN17 LIN,17 I LIN18 LIN,18 I LIN19 LIN,19 I LIN20 LIN,20 I LIN21 LIN,21 ILDA DS I 1 50C I 6 209CMPLXI I 21 359CMPLXR * C Z-ADD-1.8 MINR 159 C Z-ADD1 MAXR 159 C Z-ADD-.8 MINI 159 C Z-ADD.8 MAXI 159 * C TOP TAG C CLEARSCR1 * C MAXR SUB MINR RNGR 159 C MAXI SUB MINI RNGI 159 * C RNGR DIV 79 INCR 159 C RNGI DIV 21 INCI 159 * C 1 DO 21 Y 20 C 1 DO 79 X 20 * C X SUB 1 @X 20 C Y SUB 1 @Y 20 * C @X MULT INCR CMPLXR 159 C @Y MULT INCI CMPLXI 159 C ADD MINR CMPLXR C ADD MINI CMPLXI * C EXSR ITER C C DIV 6 C C MVR N 20 C ADD 1 N C MOVE LIN,Y @TMP1 79 C MOVEA@TMP1 STR C 1 SUBSTCNST1:N STR,X C MOVEASTR @TMP1 C MOVE @TMP1 LIN,Y * C ENDDO C WRITESCR1 C ENDDO * C EXFMTSCR1 C SETOF 50 C 1 DO 21 Y C Y SUB 1 @Y 20 * C @Y MULT INCI CMPLXI 159 C ADD MINI CMPLXI C '#' SCAN LIN,Y:1 X 30 C *IN30 IFEQ *ON C X SUB 1 @X 20 C @X MULT INCR CMPLXR 159 C ADD MINR CMPLXR C *IN50 IFEQ *OFF C Z-ADDCMPLXR @CR 159 C Z-ADDCMPLXI @CI 159 C SETON 50 C ELSE C Z-ADDCMPLXR MAXR 159 C Z-ADDCMPLXI MAXI 159 C ENDIF C ENDIF C ENDDO C Z-ADD@CR MINR C Z-ADD@CI MINI C N03 GOTO TOP C SETON LR * C ITER BEGSR C Z-ADD0 C 50 C Z-ADD0 ZR 159 C Z-ADD0 ZI 159 C Z-ADD0 ZM 159 * C C DOUGT1024 C ZM ORGT 4 C Z-ADDZR @ZR 159 C Z-ADDZI @ZI 159 C @ZR MULT @ZR @ZRS 159 C @ZI MULT @ZI @ZIS 159 C @ZRS SUB @ZIS ZR C ADD CMPLXR ZR C 2 MULT @ZR @TMP 159 C @TMP MULT @ZI ZI C ADD CMPLXI ZI C ADD 1 C C @ZRS ADD @ZIS ZM C ENDDO C ENDSR