Polyspiral: Difference between revisions

Content added Content deleted

Inline

@@ Line 879: / Line 879: @@
 Link to live demo: https://dc25.github.io/rosettaCode__Polyspiral_haskell/
+=={{header|IS-BASIC}}==
+<lang IS-BASIC>100 PROGRAM "PolySp.bas"
+OPTION ANGLE DEGREES
+LET CH=2
+SET VIDEO X 40:SET VIDEO Y 27:SET VIDEO MODE 1:SET VIDEO COLOR 0
+OPEN #1:"video:"
+OPEN #2:"video:"
+WHEN EXCEPTION USE POSERROR
+FOR ANG=40 TO 150 STEP 2
+IF CH=2 THEN
+LET CH=1
+ELSE
+LET CH=2
+END IF
+CLEAR #CH
+PLOT #CH:640,468,ANGLE 180;
+FOR D=12 TO 740 STEP 4
+PLOT #CH:FORWARD D,RIGHT ANG;
+NEXT
+DISPLAY #CH:AT 1 FROM 1 TO 27
+NEXT
+END WHEN
+HANDLER POSERROR
+LET D=740
+CONTINUE
+END HANDLER</lang>
 =={{header|J}}==