标题圆和圆的位置关系演示

　　20 FOR I=1 TO 5:READ A$(I):NEXT
　　30 DATA 内含，内切，相交，外切，外离
　　40 LOCATE 5，25:PRINT“圆和圆的位置关系演示”
　　50 FOR I=F TO 330 STEP 5
　　60 CIRCLE (F，F)，60，6:CIRCLE(I-5，F)，30，0
　　70 LINE (F，F)-(I，F)，7:D=I-F:M=90:N=30
　　80 K=-((D<N)+2*(D=N)+3*(N<D AND D<M)+4*(D=M)+5*(D>M)
　　90 CIRCLE(I，F)，30，3:LOCATE 20，25
　　100 PRINT “两圆的位置关系为”；A$(K)
　　110　IF K=2 OR K=4 THEN W=10000 ELSE　W=5000
　　120 FOR T=1 TO W:NEXT T，I
　　130 SCREEN 0:END
　　(注：程序在长城GWBASIC语言运行通过)