-xp = SIN(frm / 21) * 3\r
-yp = SIN(frm / 18) * 3\r
-\r
-nrk = (3.1412) / 2 + SIN(frm / 35) / 100 + SIN(frm / 21) / 100\r
-rs1 = SIN(nrk)\r
-rc1 = COS(nrk)\r
-\r
-FOR a = 1 TO mitu\r
-x = px(a)\r
-y = py(a)\r
-z = pz(a)\r
-x1 = x / z * 160 + 160\r
-y1 = y / z * 100 + 100\r
-PSET (x1, y1), 0\r
-\r
-x5 = x * rs1 - y * rc1\r
-y5 = x * rc1 + y * rs1\r
-\r
-x = x5\r
-y = y5\r
-\r
-z = z - 3\r
-x = x + xp\r
-y = y + yp\r
-IF z < 10 THEN\r
-z = RND * 300 + 400\r
-x = RND * 800 - 400\r
-y = RND * 800 - 400\r
-END IF\r
-\r
-x1 = x / z * 160 + 160\r
-y1 = y / z * 100 + 100\r
-c = 3000 / z + 15\r
-IF c > 31 THEN c = 31\r
-PSET (x1, y1), c\r
-\r
-px(a) = x\r
-py(a) = y\r
-pz(a) = z\r
-NEXT a\r
-\r
-\r
-IF mituv - mitu > rns THEN galaxy: rns = RND * 800 + 100\r
-\r
-FOR a = 1 TO 2\r
-b = RND * (mitu - 10) + 1\r
-SWAP px(mitu), px(b)\r
-SWAP py(mitu), py(b)\r
-SWAP pz(mitu), pz(b)\r
-\r
-x = px(mitu)\r
-y = py(mitu)\r
-z = pz(mitu)\r
-x1 = x / z * 160 + 160\r
-y1 = y / z * 100 + 100\r
-PSET (x1, y1), 0\r
-mitu = mitu - 1\r
-NEXT a\r
+xp = Sin(frm / 21) * 3\r
+yp = Sin(frm / 18) * 3\r
+\r
+nrk = (3.1412) / 2 + Sin(frm / 35) / 100 + Sin(frm / 21) / 100\r
+rs1 = Sin(nrk)\r
+rc1 = Cos(nrk)\r
+\r
+For a = 1 To mitu\r
+ x = px(a)\r
+ y = py(a)\r
+ z = pz(a)\r
+ x1 = x / z * 160 + 160\r
+ y1 = y / z * 100 + 100\r
+ PSet (x1, y1), 0\r
+\r
+ x5 = x * rs1 - y * rc1\r
+ y5 = x * rc1 + y * rs1\r
+\r
+ x = x5\r
+ y = y5\r
+\r
+ z = z - 3\r
+ x = x + xp\r
+ y = y + yp\r
+ If z < 10 Then\r
+ z = Rnd * 300 + 400\r
+ x = Rnd * 800 - 400\r
+ y = Rnd * 800 - 400\r
+ End If\r
+\r
+ x1 = x / z * 160 + 160\r
+ y1 = y / z * 100 + 100\r
+ c = 3000 / z + 15\r
+ If c > 31 Then c = 31\r
+ PSet (x1, y1), c\r
+\r
+ px(a) = x\r
+ py(a) = y\r
+ pz(a) = z\r
+Next a\r
+\r
+\r
+If mituv - mitu > rns Then galaxy: rns = Rnd * 800 + 100\r
+\r
+For a = 1 To 2\r
+ b = Rnd * (mitu - 10) + 1\r
+ Swap px(mitu), px(b)\r
+ Swap py(mitu), py(b)\r
+ Swap pz(mitu), pz(b)\r
+\r
+ x = px(mitu)\r
+ y = py(mitu)\r
+ z = pz(mitu)\r
+ x1 = x / z * 160 + 160\r
+ y1 = y / z * 100 + 100\r
+ PSet (x1, y1), 0\r
+ mitu = mitu - 1\r
+Next a\r