-FOR z = -500 TO 500 STEP 50\r
-\r
-d = d + 1\r
-xn(nump + d) = x\r
-valem x / 50, z / 50, y\r
-yn(nump + d) = y * 50\r
-zn(nump + d) = z\r
-IF z > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 1\r
-col(numl + e) = c\r
-END IF\r
-\r
-IF x > -500 THEN\r
-e = e + 1\r
-point1(numl + e) = nump + d\r
-point2(numl + e) = nump + d - 21\r
-col(numl + e) = c\r
-END IF\r
-\r
-NEXT z\r
+ FOR z = -500 TO 500 STEP 50\r
+\r
+ d = d + 1\r
+ xn(nump + d) = x\r
+ valem x / 50, z / 50, y\r
+ yn(nump + d) = y * 50\r
+ zn(nump + d) = z\r
+ IF z > -500 THEN\r
+ e = e + 1\r
+ point1(numl + e) = nump + d\r
+ point2(numl + e) = nump + d - 1\r
+ col(numl + e) = c\r
+ END IF\r
+\r
+ IF x > -500 THEN\r
+ e = e + 1\r
+ point1(numl + e) = nump + d\r
+ point2(numl + e) = nump + d - 21\r
+ col(numl + e) = c\r
+ END IF\r
+\r
+ NEXT z\r