§ Код программы

5 DEF FN f(x,y)=SIN(x+3*y)*COS(y)*16+85
10 DIM x(9): DIM y(9)
15 LET t=0
20 FOR i=1 TO 9: LET x(i)=FN f(i,t): NEXT i
50 FOR i=1 TO 8
60 PLOT (i-1)*32,x(i): DRAW 31,x(i+1)-x(i)
70 NEXT i
75 LET t = t + 0.2
80 FOR i=1 TO 9
90 LET y(i)=FN f(i,t)
100 NEXT i
110 FOR i = 1 TO 8
115 LET s = (i-1)*32
120 PLOT OVER 1; s,x(i): DRAW OVER 1;31,x(i+1)-x(i)
130 PLOT s,y(i): DRAW 31,y(i+1)-y(i)
150 NEXT i
160 FOR i = 1 to 9: LET x(i)=y(i): NEXT i
170 GO TO 75