SRC" PLASMA.4TH"
SRC" CONIO.4TH"
SRC" TURTLE.4TH"
" LINES" LOADMOD"  "
LOOKUP SETLINEPLOT PLASMA SETLINEPLOT
PFA PLOT SETLINEPLOT

: SHOW

  GR
  40 40 [ LOOKUP LINE ] LITERAL INITTURTLE
;

: SQUARE
    DUP MOVE 90 TURN
    DUP MOVE 90 TURN
    DUP MOVE 90 TURN
        MOVE 90 TURN
;

: SPIN
    361 0 DO
        I COLOR
        15 SQUARE
        I TURNTO
    10 +LOOP
;

SHOW SPIN