程 序 源 代 码
旋涡折线
    说明：从屏幕中心出发，每画一条直线，顺时针转９１度，再前进的直线距离又每次递增１个单位。如此反复进行，当一次前进的距离达到２５０时则停止程序运行。所画图的效果即为一种旋涡折线。改变转角大小可画出不同效果的旋涡折线。显示分辨率为640X320。		 
　　
REM "PR068:漩涡折线"
SCREEN 9: COLOR 0, 0
s = 1: a = 0
PSET (320, 160), 2
DO
a = a - 91
IF a <= -360 THEN a = a + 360
DRAW "U" + STR$(s)
DRAW "TA" + STR$(a)
s = s + 1
LOOP UNTIL s >= 250
END