PICTURE House   
   SET AREA COLOR 15                           
   PLOT AREA:  0,1; 0,0; 2,0; 2,1                        ! 빮     
   SET AREA COLOR 2                   
   PLOT AREA: -0.6,1; 2.6,1; 2,2; 0,2                    ! 돫뜧             
   SET AREA COLOR 10
   PLOT AREA: 0.1,0; 0.1,0.8; 0.5,0.8; 0.5,0             ! 긤귺              
   SET AREA COLOR 5
   PLOT AREA: 1.4,0.4; 1.9,0.4; 1.9,0.8; 1.4,0.8         ! 몝 
   SET AREA COLOR 12
   PLOT AREA: 1.7,2; 1.7,2.3; 1.5,2.3; 1.5,2             ! 뎹벺
END PICTURE                                                
! 븸멹릶꺙=a+bi귩뾭궋궲,빾듂 z겏꺙z 귩렳뛱궥귡갃
INPUT PROMPT "a,b=":a,b
LET theta=angle(a,b)
LET r=SQR(A^2+B^2)
SET WINDOW -10,10,-10,10                                       
DECLARE EXTERNAL PICTURE axes                              
DRAW grid  
DRAW House WITH SCALE(r)*ROTATE(theta)
END                                                        
