!EDIT BY WENJINGL
!DATE 2007-9-15

INPUT "PLEASE INPUT FREQUENCY",flag1
FRE = flag1
INPUT "PLEASE INPUT MTF",flag2
MTF = flag2
SETVECSIZE(1000)
GRAPHICS
FORMAT 2.2

FLDX(1)=0
FLDY(1)=MAXF()
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2+1500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF)THEN COLOR 4
IF (VEC1(1)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2+1650,0,VEC1(1)

FLDX(1)=0
FLDY(1)=MAXF()*0.7
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2+1000,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF)THEN COLOR 4
IF (VEC1(1)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2+1150,0,VEC1(1)

FLDX(1)=0
FLDY(1)=MAXF()*0.5
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2+500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF)THEN COLOR 4
IF (VEC1(1)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2+650,0,VEC1(1)

FLDX(1)=0
FLDY(1)=MAXF()*0.3
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2+150,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF)THEN COLOR 4
IF (VEC1(1)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2+300,0,VEC1(1)

FLDX(1)=MAXF()*0.3
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-900,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-900,YMAX()/2-350,0,VEC1(1)

FLDX(1)=MAXF()*0.5
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-1500,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-1500,YMAX()/2-350,0,VEC1(1)

FLDX(1)=MAXF()*0.7
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-2100,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-2100,YMAX()/2-350,0,VEC1(1)

FLDX(1)=MAXF()
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-2700,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-2700,YMAX()/2-350,0,VEC1(1)

FLDX(1)=-MAXF()*0.3
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2+300,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2+300,YMAX()/2-350,0,VEC1(1)

FLDX(1)=-MAXF()*0.5
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2+900,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2+900,YMAX()/2-350,0,VEC1(1)

FLDX(1)=-MAXF()*0.7
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2+1500,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2+1500,YMAX()/2-350,0,VEC1(1)

FLDX(1)=-MAXF()
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2+2100,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2+2100,YMAX()/2-350,0,VEC1(1)

FLDX(1)=0
FLDY(1)=-MAXF()*0.3
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-1150,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-1000,0,VEC1(1)

FLDX(1)=0
FLDY(1)=-MAXF()*0.5
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-1500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-1350,0,VEC1(1)

FLDX(1)=0
FLDY(1)=-MAXF()*0.7
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-2000,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-1850,0,VEC1(1)

FLDX(1)=0
FLDY(1)=-MAXF()
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-2500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-2350,0,VEC1(1)

FLDX(1)=-MAXF()*0.3/1.414
FLDY(1)=MAXF()*0.3/1.414
UPDATE
GETMTF FRE,0,1,2,1,1

IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+600/1.414,YMAX()/2-500+500/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+600/1.414,YMAX()/2-350+500/1.414,0,VEC1(1)

FLDX(1)=-MAXF()*0.5/1.414
FLDY(1)=MAXF()*0.5/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+1200/1.414,YMAX()/2-500+1000/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+1200/1.414,YMAX()/2-350+1000/1.414,0,VEC1(1)

FLDX(1)=-MAXF()*0.7/1.414
FLDY(1)=MAXF()*0.7/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+1800/1.414,YMAX()/2-500+1500/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+1800/1.414,YMAX()/2-350+1500/1.414,0,VEC1(1)

FLDX(1)=-MAXF()/1.414
FLDY(1)=MAXF()/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+2400/1.414,YMAX()/2-500+2000/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+2400/1.414,YMAX()/2-350+2000/1.414,0,VEC1(1)

FLDX(1)=MAXF()*0.3/1.414
FLDY(1)=MAXF()*0.3/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-600/1.414,YMAX()/2-500+500/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-600/1.414,YMAX()/2-350+500/1.414,0,VEC1(1)

FLDX(1)=MAXF()*0.5/1.414
FLDY(1)=MAXF()*0.5/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-1200/1.414,YMAX()/2-500+1000/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-1200/1.414,YMAX()/2-350+1000/1.414,0,VEC1(1)

FLDX(1)=MAXF()*0.7/1.414
FLDY(1)=MAXF()*0.7/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-1800/1.414,YMAX()/2-500+1500/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-1800/1.414,YMAX()/2-350+1500/1.414,0,VEC1(1)

FLDX(1)=MAXF()/1.414
FLDY(1)=MAXF()/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-2400/1.414,YMAX()/2-500+2000/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-2400/1.414,YMAX()/2-350+2000/1.414,0,VEC1(1)

FLDX(1)=-MAXF()*0.3/1.414
FLDY(1)=-MAXF()*0.3/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+600/1.414,YMAX()/2-500-500/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+600/1.414,YMAX()/2-350-500/1.414,0,VEC1(1)

FLDX(1)=-MAXF()*0.5/1.414
FLDY(1)=-MAXF()*0.5/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+1200/1.414,YMAX()/2-500-1000/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+1200/1.414,YMAX()/2-350-1000/1.414,0,VEC1(1)

FLDX(1)=-MAXF()*0.7/1.414
FLDY(1)=-MAXF()*0.7/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+1800/1.414,YMAX()/2-500-1500/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+1800/1.414,YMAX()/2-350-1500/1.414,0,VEC1(1)

FLDX(1)=-MAXF()/1.414
FLDY(1)=-MAXF()/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+2400/1.414,YMAX()/2-500-2000/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300+2400/1.414,YMAX()/2-350-2000/1.414,0,VEC1(1)

FLDX(1)=MAXF()*0.3/1.414
FLDY(1)=-MAXF()*0.3/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-600/1.414,YMAX()/2-500-500/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-600/1.414,YMAX()/2-350-500/1.414,0,VEC1(1)

FLDX(1)=MAXF()*0.5/1.414
FLDY(1)=-MAXF()*0.5/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-1200/1.414,YMAX()/2-500-1000/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-1200/1.414,YMAX()/2-350-1000/1.414,0,VEC1(1)

FLDX(1)=MAXF()*0.7/1.414
FLDY(1)=-MAXF()*0.7/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-1800/1.414,YMAX()/2-500-1500/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-1800/1.414,YMAX()/2-350-1500/1.414,0,VEC1(1)

FLDX(1)=MAXF()/1.414
FLDY(1)=-MAXF()/1.414
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-2400/1.414,YMAX()/2-500-2000/1.414,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300-2400/1.414,YMAX()/2-350-2000/1.414,0,VEC1(1)

FLDX(1)=0
FLDY(1)=0
UPDATE
GETMTF FRE,0,1,2,1,1
IF (VEC1(0)>=MTF)
COLOR 2
ELSE
IF (VEC1(0)<MTF)THEN COLOR 4
IF (VEC1(0)<0.1)THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-500,0,VEC1(0)
IF (VEC1(1)>=MTF)
COLOR 2
ELSE
IF (VEC1(1)<MTF) THEN COLOR 4
IF (VEC1(1)<0.1) THEN COLOR 5
ENDIF
GTEXT XMAX()/2-300,YMAX()/2-350,0,VEC1(1)
XMX = XMAX()
XMN = XMIN()
YMX = YMAX()
YMN = YMIN()
XWIDTH = XMX-XMN-250
YWIDTH = YMX-YMN-850
R=320

gosub round1
R=850
GOSUB ROUND2
R=1450
GOSUB ROUND1
R=2050
GOSUB ROUND1
R=2650
GOSUB ROUND1
d=2.4
m=120
l=1000
gosub frame

d=-2.4
m=120
l=1000
gosub frame

d=0.32
m=320
l=3000
gosub frame

d=-0.32
m=320
l=3000
gosub frame

COLOR 0
GDATE
GLENSNAME
GTITLE
closewindow

GRAPHICS OFF

SUB round1
b=0.85

FOR x=xwidth/2-R,XWIDTH+R,R/80
x1=X+R/80
IF (R*R-(X1-XWIDTH/2)*(X1-XWIDTH/2))<0
goto 1
ENDIF
Y=YWIDTH/2+b*SQRT(R*R-(X-XWIDTH/2)*(X-XWIDTH/2))
Y2=YWIDTH/2-b*SQRT(R*R-(X-XWIDTH/2)*(X-XWIDTH/2))
Y1=YWIDTH/2+b*SQRT(R*R-(X1-XWIDTH/2)*(X1-XWIDTH/2))
Y3=YWIDTH/2-b*SQRT(R*R-(X1-XWIDTH/2)*(X1-XWIDTH/2))
COLOR 7
LINE x,y,x1,y1
LINE x,y2,x1,y3
NEXT
LABEL 1
RETURN

SUB round2
b=0.95

FOR x=xwidth/2-R,XWIDTH+R,R/80
x1=X+R/80
IF (R*R-(X1-XWIDTH/2)*(X1-XWIDTH/2))<0
goto 2
ENDIF
Y=YWIDTH/2+b*SQRT(R*R-(X-XWIDTH/2)*(X-XWIDTH/2))
Y2=YWIDTH/2-b*SQRT(R*R-(X-XWIDTH/2)*(X-XWIDTH/2))
Y1=YWIDTH/2+b*SQRT(R*R-(X1-XWIDTH/2)*(X1-XWIDTH/2))
Y3=YWIDTH/2-b*SQRT(R*R-(X1-XWIDTH/2)*(X1-XWIDTH/2))
COLOR 7
LINE x,y,x1,y1
LINE x,y2,x1,y3
NEXT
LABEL 2
RETURN

sub frame
for x=xwidth/2-l,xwidth/2+l,l/100
if (x>=xwidth/2+m)|(x<=xwidth/2-m)
y=ywidth/2+d*(x-xwidth/2)
x1=x+l/100
y1=ywidth/2+d*(x1-xwidth/2)
line x,y,x1,y1
endif
next
return