4 FOR a = 1 TO SIN(frm / 30) * 3 + 4
\r
7 PRINT "Programmeerimine ***"
\r
11 st = (SIN(frm / 10) + 2) / 3
\r
12 x = SIN(frm / 30) * 50
\r
13 y = COS(frm / 42) * 30
\r
16 FOR a = .1 TO 10 STEP st
\r
17 CIRCLE (160 + x, 100 + y), 80, 2, , , a
\r
26 x2 = SIN(f2 + 6) * 50
\r
27 y2 = COS(f2 + 6) * 30
\r
28 LINE (x1 + 180, y1 + 150)-(x2 + 180, y2 + 150), c
\r
34 PSET (x, y), RND * 15
\r
42 IF frm > 200 THEN GOTO 2
\r
45 CHAIN "KHKDEMO3.BAS"
\r