3  SCREEN 7
5  WINDOW (-20, 35)-(20, -20)
10 REM DEFINE DX/DT=D1=F(T,X,Y,Z) IN LINE 140
15 REM DEFINE DY/DT=D2=F(T,X,Y,Z) IN LINE 150
17 REM DEFINE DZ/DT=D3=F(T,X,Y,Z) IN LINE 155
18 PRINT "D1 = -Y - Z"
19 PRINT "D2 = x + Y / 5"
20 PRINT "D3 = 1 / 5 + Z * (x - 5.7)"
24 r = 1
45 d = 550
47 T1 = 1
48 T2 = 200
50 x = 0
51 Y = 0
52 Z = 0
53 N = 20000
110 FOR T9 = T1 TO T2 STEP d
130 FOR T = T9 TO T9 + d STEP d / N
135 COLOR (RND(r) * 10)
140 D1 = -Y - Z
150 D2 = x + Y / 5
155 D3 = 1 / 5 + Z * (x - 5.7)
160 x = x + D1 * d / N
170 Y = Y + D2 * d / N
175 Z = Z + D3 * d / N
176 PSET (x, Y + Z)
180 NEXT T
190 NEXT T9