 
drawit.txt      ׀ 8"`J  JЗٹپtP   ׀ATEXTR*ch         5  ~CW                       j  Prgm3:drawit

:fpart a*10->b
:ipart a->a
:z*x-xscl->x
:{THETA}*y-yscl->y
:if a=0
:end
:if a!=0
:goto a
:line(x,y+5,x+xscl,y+5
:line(x+8,y,x+8,y+yscl
:end
:lbl a
:if a!=2
:goto b
:line(x+2,y,x+2,y+3
:line(x+8,y,x+8,y+3
:line(x+5,y+6,x+9,y+3
:line(x+5,y+6,x+1,y+3
:line(x+12,y,x+12,y+b
:end
:lbl b
:if a!=3
:goto c
:line(x+3,y,x+3,y+5
:line(x+9,y,x+9,y+5
:line(x+3,y+5,x+9,y+5
:pt-on(x+7,y
:line(x+12,y,x+12,y+b
:end
:lbl c
:if a!=4
:goto {THETA}
:line(x+2,y,x+2,y+2
:line(x+2,y+2,x+9,y+5
:line(x+9,y,x+9,y+7
:line(x+12,y,x+12,y+b                                                                                L   L   2                                                                                                                                                                                                                                                   H 	Monaco                             - 	 - 	V                L   L   2V    2  MPSR   
    @  