to labirint cs setpensize [4 4] rt 90 pu fd 25 ppt fd 400 lt 90 fd 300 lt 90 fd 800 lt 90 fd 50 pu bk 50 rt 90 ppt fd 50 lt 90 fd 300 lt 90 fd 400 lt 90 pu fd 50 ppt lt 90 fd 350 rt 90 fd 150 pu bk 150 rt 90 fd 300 ppt fd 450 lt 90 fd 200 pu fd 50 lt 90 fd 50 lt 90 ppt fd 200 rt 90 fd 300 pu fd 50 ppt fd 300 rt 90 fd 50 lt 90 fd 50 pu bk 50 rt 90 ppt fd 150 rt 90 pu fd 100 rt 90 ppt fd 100 rt 90 fd 50 rt 90 fd 50 bk 100 rt 90 fd 550 lt 90 fd 50 pu fd 50 ppt fd 50 lt 90 pu fd 50 lt 90 ppt fd 100 rt 90 fd 200 pu fd 50 ppt fd 150 rt 90 fd 50 pu fd 50 rt 90 fd 100 rt 90 ppt fd 100 pu bk 50 lt 90 ppt fd 250 pu bk 350 lt 90 ppt fd 50 pu rt 90 fd 50 rt 90 fd 50 setfc [170 255 255] fill rt 90 fd 50 rt 90 fd 3 pe fd 44 pu home ppt setpensize [1 1] end