Revision as of 17:12, 5 October 2018 (view source) rosettacode>Lacika No edit summary ← Older edit		Revision as of 20:53, 5 October 2018 (view source) rosettacode>Lacika (→‎{{header\|IS-BASIC}}) Newer edit →
Line 218: 120 GRAPHICS HIRES 4 130 SET PALETTE BLUE,CYAN,YELLOW,BLACK 140 ~~SET~~PLOT ~~INK~~640,700,ANGLE 1288; 150 ~~PLOT~~FOR ~~640,700,ANGLE~~I=1 ~~288;~~TO 5 ~~170~~160 PLOT FORWARD 700,RIGHT 144;▼ ~~160 FOR I=1 TO 5~~ 170 NEXT ▲170 PLOT FORWARD 700,RIGHT 144; 180 ~~NEXT~~SET INK 3 190 SET ~~INK~~BEAM 3OFF:PLOT 0,0,PAINT</lang> ~~200 SET BEAM OFF:PLOT 0,0,PAINT</lang>~~ =={{header\|J}}==

Pentagram: Difference between revisions

Pentagram (view source)