5  REM SHUDDER
10 N = 500
20 DIM A(4,500)
40 PRINT "START"
50 X = 0.01
60 J = 2
70 FOR I = 1 TO N
80 A(1,I) = X
90 Y = SQR(X)
100 A(J,I) = Y
110 Y = SIN(X)
120 A(J+1,I) = Y
130 Y = LOG(X)
140 A(J+2,I) = Y
150 X = X + 0.01
160 NEXT I
180 PRINT "END"
190 PRINT
195 PRINT " #";TAB(7);"X";TAB(22);"SQRT";TAB(37);"SIN";TAB(52);"N-LOG"
200 FOR I = 1 TO 17
210 PRINT I;TAB(5);A(1,I);TAB(20);A(2,I);TAB(35);A(3,I);TAB(50);A(4,I)
215 NEXT I
220 STOP
225 REM UNSHUDDER-1
230 END