圆和圆的位置关系演示
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语言运行通过)