Cool Place

TO STRINGART
  REPEAT 10 [
    PENUP
    SETXY (REPCOUNT * 10) 0
    PENDOWN
    SETXY 0 (110 - REPCOUNT * 10)
  ]
END

TO STRINGART2
  REPEAT 10 [
    PENUP
    SETXY (REPCOUNT * 10) 0
    PENDOWN
    SETXY 0 (-110 - REPCOUNT * -10)
  ]
END

TO STRINGART3
  REPEAT 10 [
    PENUP
    SETXY (REPCOUNT * -10) 0
    PENDOWN
    SETXY 0 (110 - REPCOUNT * 10)
  ]
END

TO STRINGART4
  REPEAT 10 [
    PENUP
    SETXY (REPCOUNT * -10) 0
    PENDOWN
    SETXY 0 (-110 - REPCOUNT * -10)
  ]
END

to max
stringart  setpc random 15
stringart2 setpc random 15
stringart3 setpc random 15
stringart4 setpc random 15
end

max