DIM J0(20,2),J2(20,2)
PRINT
PRINT "‚QŽŸ•û’öŽ® ‚Ì ˆö�”•ª‰ð"
PRINT "   (aƒÔ�{b)(cƒÔ�{d)"
PRINT "       �– ‚½‚¾‚µ�Aa, c, b, d ‚Í ‚OˆÈŠO‚Ì�®�”"
PRINT
INPUT PROMPT "  a �� ":a
INPUT PROMPT "  b �� ":b
INPUT PROMPT "  c �� ":c
INPUT PROMPT "  d �� ":d
PRINT
LET T2=a*c
LET T1=a*d+b*c
LET T0=b*d
IF T2>0 AND T1>0 AND T0>0 THEN
   PRINT "  ";ABS(T2);"ƒÔ^2  �{ ";ABS(T1);"ƒÔ �{ "; ABS(T0);
ELSEIF T2>0 AND T1>0 AND T0<0 THEN
   PRINT "  ";ABS(T2);"ƒÔ^2  �{ ";ABS(T1);"ƒÔ �| "; ABS(T0);
ELSEIF T2>0 AND T1<0 AND T0>0 THEN
   PRINT "  ";ABS(T2);"ƒÔ^2  �| ";ABS(T1);"ƒÔ �{ "; ABS(T0);
ELSEIF T2>0 AND T1<0 AND T0<0 THEN
   PRINT "  ";ABS(T2);"ƒÔ^2  �| ";ABS(T1);"ƒÔ �| "; ABS(T0);
ELSEIF T2<0 AND T1>0 AND T0>0 THEN
   PRINT " �|";ABS(T2);"ƒÔ^2  �{ ";ABS(T1);"ƒÔ �{ "; ABS(T0);
ELSEIF T2<0 AND T1>0 AND T0<0 THEN
   PRINT " �|";ABS(T2);"ƒÔ^2  �{ ";ABS(T1);"ƒÔ �| "; ABS(T0);
ELSEIF T2<0 AND T1<0 AND T0>0 THEN
   PRINT " �|";ABS(T2);"ƒÔ^2  �| ";ABS(T1);"ƒÔ �{ "; ABS(T0);
ELSEIF T2<0 AND T1<0 AND T0<0 THEN
   PRINT " �|";ABS(T2);"ƒÔ^2  �| ";ABS(T1);"ƒÔ �| "; ABS(T0);
END IF
PRINT "  ‚Ì ˆö�”•ª‰ð"
PRINT
CALL PARE(T2,N2,J2)
CALL PARE(T0,N0,J0)
FOR i=1 TO N2
   FOR j=1 TO N0
      IF J2(i,1)*J0(j,2)+J2(i,2)*J0(j,1)=T1 THEN
         LET AA=J2(i,1)
         LET BB=J0(j,1)
         LET CC=J2(i,2)
         LET DD=J0(j,2) 
         LET A=ABS(AA)
         LET B=ABS(BB)
         LET C=ABS(CC)
         LET D=ABS(DD)          
         IF AA>0 AND BB>0 AND CC>0 AND DD>0  THEN
            PRINT "    ( ";A;"ƒÔ �{ ";B;" ) ( ";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA>0 AND BB>0 AND CC>0 AND DD<0  THEN
            PRINT "    ( ";A;"ƒÔ �{ ";B;" ) ( ";C;"ƒÔ �| ";D;" )"
         ELSEIF AA>0 AND BB>0 AND CC<0 AND DD>0  THEN
            PRINT "    ( ";A;"ƒÔ �{ ";B;" ) ( �|";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA>0 AND BB>0 AND CC<0 AND DD<0  THEN
            PRINT "    ( ";A;"ƒÔ �{ ";B;" ) ( �|";C;"ƒÔ �| ";D;" )"
         ELSEIF AA>0 AND BB<0 AND CC>0 AND DD>0  THEN
            PRINT "    ( ";A;"ƒÔ �| ";B;" ) ( ";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA>0 AND BB<0 AND CC>0 AND DD<0  THEN
            PRINT "    ( ";A;"ƒÔ �| ";B;" ) ( ";C;"ƒÔ �| ";D;" )"
         ELSEIF AA>0 AND BB<0 AND CC<0 AND DD>0  THEN
            PRINT "    ( ";A;"ƒÔ �| ";B;" ) ( �|";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA>0 AND BB<0 AND CC<0 AND DD<0  THEN
            PRINT "    ( ";A;"ƒÔ �| ";B;" ) ( �|";C;"ƒÔ �| ";D;" )"
         ELSEIF AA<0 AND BB>0 AND CC>0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �{ ";B;" ) ( ";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA<0 AND BB>0 AND CC>0 AND DD<0  THEN
            PRINT "    ( �|";A;"ƒÔ �{ ";B;" ) ( ";C;"ƒÔ �| ";D;" )"
         ELSEIF AA<0 AND BB>0 AND CC<0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �{ ";B;" ) ( �|";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA<0 AND BB>0 AND CC<0 AND DD<0  THEN
            PRINT "    ( �|";A;"ƒÔ �{ ";B;" ) ( �|";C;"ƒÔ �| ";D;" )"
         ELSEIF AA<0 AND BB<0 AND CC>0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �| ";B;" ) ( ";CC;"ƒÔ �{ ";D;" )"
         ELSEIF AA<0 AND BB<0 AND CC>0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �| ";B;" ) ( ";C;"ƒÔ �| ";D;" )"
         ELSEIF AA<0 AND BB<0 AND CC<0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �| ";B;" ) ( �|";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA<0 AND BB<0 AND CC<0 AND DD<0  THEN
            PRINT "    ( �|";A;"ƒÔ �| ";B;" ) ( �|";C;"ƒÔ �| ";D;" )"
         END IF
         PRINT
      END IF  
   NEXT j
NEXT i
END

EXTERNAL SUB PARE(v1,G,H(,))
DIM Hh(20,2)
LET K=v1
LET G=0
FOR i=1 TO INT(SQR(ABS(v1)))
   IF MOD(ABS(v1),i)=0 THEN
      LET G=G+1
      LET Hh(G,1)=i
      LET Hh(G,2)=ABS(v1)/i
   END IF
NEXT i
IF K>0 THEN
   FOR i=1 TO G
      LET H(i,1)=Hh(i,1)
      LET H(i,2)=Hh(i,2)
   NEXT i
   FOR i=G+1 TO 2*G
      LET H(i,1)=-1*Hh(i-G,1)
      LET H(i,2)=-1*Hh(i-G,2)
   NEXT i
ELSE
   FOR i=1 TO G
      LET H(i,1)=Hh(i,1)
      LET H(i,2)=-1*Hh(i,2)
   NEXT i
   FOR i=G+1 TO 2*G
      LET H(i,1)=-1*Hh(i-G,1)
      LET H(i,2)=Hh(i-G,2)
   NEXT i
END IF
LET G=2*G
END SUB



######################################################################



DIM J0(20,2),J2(20,2)
PRINT
PRINT "aƒÔ^2 �{ bƒÔ �{ c  ‚Ì ˆö�”•ª‰ð"
PRINT "   �i ‚½‚¾‚µ�Aa, b, c ‚Í ‚O ˆÈŠO‚Ì�®�” �j"
PRINT
INPUT PROMPT "a = ":T2
INPUT PROMPT "b = ":T1
INPUT PROMPT "c = ":T0
PRINT
IF T2>0 AND T1>0 AND T0>0 THEN
   PRINT "  ";ABS(T2);"ƒÔ^2  �{ ";ABS(T1);"ƒÔ �{ "; ABS(T0);
ELSEIF T2>0 AND T1>0 AND T0<0 THEN
   PRINT "  ";ABS(T2);"ƒÔ^2  �{ ";ABS(T1);"ƒÔ �| "; ABS(T0);
ELSEIF T2>0 AND T1<0 AND T0>0 THEN
   PRINT "  ";ABS(T2);"ƒÔ^2  �| ";ABS(T1);"ƒÔ �{ "; ABS(T0);
ELSEIF T2>0 AND T1<0 AND T0<0 THEN
   PRINT "  ";ABS(T2);"ƒÔ^2  �| ";ABS(T1);"ƒÔ �| "; ABS(T0);
ELSEIF T2<0 AND T1>0 AND T0>0 THEN
   PRINT " �|";ABS(T2);"ƒÔ^2  �{ ";ABS(T1);"ƒÔ �{ "; ABS(T0);
ELSEIF T2<0 AND T1>0 AND T0<0 THEN
   PRINT " �|";ABS(T2);"ƒÔ^2  �{ ";ABS(T1);"ƒÔ �| "; ABS(T0);
ELSEIF T2<0 AND T1<0 AND T0>0 THEN
   PRINT " �|";ABS(T2);"ƒÔ^2  �| ";ABS(T1);"ƒÔ �{ "; ABS(T0);
ELSEIF T2<0 AND T1<0 AND T0<0 THEN
   PRINT " �|";ABS(T2);"ƒÔ^2  �| ";ABS(T1);"ƒÔ �| "; ABS(T0);
END IF
PRINT "  ‚Ì ˆö�”•ª‰ð"
PRINT
CALL PARE(T2,N2,J2)
CALL PARE(T0,N0,J0)
FOR i=1 TO N2
   FOR j=1 TO N0
      IF J2(i,1)*J0(j,2)+J2(i,2)*J0(j,1)=T1 THEN
         LET AA=J2(i,1)
         LET BB=J0(j,1)
         LET CC=J2(i,2)
         LET DD=J0(j,2) 
         LET A=ABS(AA)
         LET B=ABS(BB)
         LET C=ABS(CC)
         LET D=ABS(DD)          
         IF AA>0 AND BB>0 AND CC>0 AND DD>0  THEN
            PRINT "    ( ";A;"ƒÔ �{ ";B;" ) ( ";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA>0 AND BB>0 AND CC>0 AND DD<0  THEN
            PRINT "    ( ";A;"ƒÔ �{ ";B;" ) ( ";C;"ƒÔ �| ";D;" )"
         ELSEIF AA>0 AND BB>0 AND CC<0 AND DD>0  THEN
            PRINT "    ( ";A;"ƒÔ �{ ";B;" ) ( �|";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA>0 AND BB>0 AND CC<0 AND DD<0  THEN
            PRINT "    ( ";A;"ƒÔ �{ ";B;" ) ( �|";C;"ƒÔ �| ";D;" )"
         ELSEIF AA>0 AND BB<0 AND CC>0 AND DD>0  THEN
            PRINT "    ( ";A;"ƒÔ �| ";B;" ) ( ";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA>0 AND BB<0 AND CC>0 AND DD<0  THEN
            PRINT "    ( ";A;"ƒÔ �| ";B;" ) ( ";C;"ƒÔ �| ";D;" )"
         ELSEIF AA>0 AND BB<0 AND CC<0 AND DD>0  THEN
            PRINT "    ( ";A;"ƒÔ �| ";B;" ) ( �|";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA>0 AND BB<0 AND CC<0 AND DD<0  THEN
            PRINT "    ( ";A;"ƒÔ �| ";B;" ) ( �|";C;"ƒÔ �| ";D;" )"
         ELSEIF AA<0 AND BB>0 AND CC>0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �{ ";B;" ) ( ";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA<0 AND BB>0 AND CC>0 AND DD<0  THEN
            PRINT "    ( �|";A;"ƒÔ �{ ";B;" ) ( ";C;"ƒÔ �| ";D;" )"
         ELSEIF AA<0 AND BB>0 AND CC<0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �{ ";B;" ) ( �|";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA<0 AND BB>0 AND CC<0 AND DD<0  THEN
            PRINT "    ( �|";A;"ƒÔ �{ ";B;" ) ( �|";C;"ƒÔ �| ";D;" )"
         ELSEIF AA<0 AND BB<0 AND CC>0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �| ";B;" ) ( ";CC;"ƒÔ �{ ";D;" )"
         ELSEIF AA<0 AND BB<0 AND CC>0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �| ";B;" ) ( ";C;"ƒÔ �| ";D;" )"
         ELSEIF AA<0 AND BB<0 AND CC<0 AND DD>0  THEN
            PRINT "    ( �|";A;"ƒÔ �| ";B;" ) ( �|";C;"ƒÔ �{ ";D;" )"
         ELSEIF AA<0 AND BB<0 AND CC<0 AND DD<0  THEN
            PRINT "    ( �|";A;"ƒÔ �| ";B;" ) ( �|";C;"ƒÔ �| ";D;" )"
         END IF
         PRINT
      END IF  
   NEXT j
NEXT i
END

EXTERNAL SUB PARE(v1,G,H(,))
DIM Hh(20,2)
LET K=v1
LET G=0
FOR i=1 TO INT(SQR(ABS(v1)))
   IF MOD(ABS(v1),i)=0 THEN
      LET G=G+1
      LET Hh(G,1)=i
      LET Hh(G,2)=ABS(v1)/i
   END IF
NEXT i
IF K>0 THEN
   FOR i=1 TO G
      LET H(i,1)=Hh(i,1)
      LET H(i,2)=Hh(i,2)
   NEXT i
   FOR i=G+1 TO 2*G
      LET H(i,1)=-1*Hh(i-G,1)
      LET H(i,2)=-1*Hh(i-G,2)
   NEXT i
ELSE
   FOR i=1 TO G
      LET H(i,1)=Hh(i,1)
      LET H(i,2)=-1*Hh(i,2)
   NEXT i
   FOR i=G+1 TO 2*G
      LET H(i,1)=-1*Hh(i-G,1)
      LET H(i,2)=Hh(i-G,2)
   NEXT i
END IF
LET G=2*G
END SUB