10 OVRD 2000

20 ' USTALENIE PARAMETROW 1 '
30 A = 100
40 N = 1
50 C = 30

60 B = 100
70 D = 1

80 MOV P6
90 P2 = P6
100 ' PETLA RYSUJACA KRZYWA LISSAJOUS 2 RAZY
110 FOR M1=0 TO 720 STEP 8
120 P2.Z = P6.Z  + A*SIN(RAD(N*M1)+RAD(C))
130 P2.Y = P6.Y  + B*SIN(RAD(D*M1))
140 MOV P2
150 NEXT M1

160 ' USTALENIE PARAMETROW 2 '
170 A = 100
180 N = 1
190 C = 0

200 B = 100
210 D = 2

220 MOV P6
230 P2 = P6
240 ' PETLA RYSUJACA KRZYWA LISSAJOUS 2 RAZY
250 FOR M1=0 TO 720 STEP 8
260 P2.Z = P6.Z  + A*SIN(RAD(N*M1)+RAD(C))
270 P2.Y = P6.Y  + B*SIN(RAD(D*M1))
280 MOV P2
290 NEXT M1

300 ' USTALENIE PARAMETROW 3 '
310 A = 100
320 N = 9
330 C = 0

340 B = 100
350 D = 8

360 MOV P6
370 P2 = P6
380 ' PETLA RYSUJACA KRZYWA LISSAJOUS 2 RAZY
390 FOR M1=0 TO 720 STEP 1
400 P2.Z = P6.Z  + A*SIN(RAD(N*M1)+RAD(C))
410 P2.Y = P6.Y  + B*SIN(RAD(D*M1))
420 MOV P2
430 NEXT M1

440 ' ZAPETLENIE PROGRAMU '
450 GOTO 30