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

15 DEF FN f(x,y)=SIN(x+3*y)*COS(y)*16+85
210 DIM x(9): DIM y(9)
315 LET t=0
420 FOR i=1 TO 9: LET x(i)=FN f(i,t): NEXT i
550 FOR i=1 TO 8
660 PLOT (i-1)*32,x(i): DRAW 31,x(i+1)-x(i)
770 NEXT i
875 LET t = t + 0.2
980 FOR i=1 TO 9
1090 LET y(i)=FN f(i,t)
11100 NEXT i
12110 FOR i = 1 TO 8
13115 LET s = (i-1)*32
14120 PLOT OVER 1; s,x(i): DRAW OVER 1;31,x(i+1)-x(i)
15130 PLOT s,y(i): DRAW 31,y(i+1)-y(i)
16150 NEXT i
17160 FOR i = 1 to 9: LET x(i)=y(i): NEXT i
18170 GO TO 75