FORTH
* Copyright PPC Paris 1986
        WORD   'DRAW'
        C=0    A 
        A=0    A
        D1=D1+ 5
        C=DAT1 B 
        D1=D1+ 5
        A=DAT1 B
        D1=D1- 10
        R2=C
        CD0EX
        R0=C
        C=B    A
        R1=C
        LCHEX  #83
        ?C<A   B
        GOYES  EXIT
        AR2EX
        LCHEX  #07
        ?C<A   B
        GOYES  EXIT
        AR2EX
        GOTO   P0
EXIT    C=0   A
        D1=D1+ 10
        DAT1=C A
        GOTO   OUT
P0      LCHEX  #0005D
        D0=(5) #2E244
        ?C<A   A
        GOYES  P1
        D0=(4) #E1A4
P1      LCHEX  #2D
        ?C<A   A
        GOYES  P2
        D0=(4) #E104
P2      CD0EX
        C=C+A  A
        C=C+A  A
        CD0EX
        A=DAT0 B
        C=R2
        B=C    B
        C=0    W
        LCHEX  #1
NEXT    ?B=0   B
        GOYES  RIGHTB
        C=C+C  B
        B=B-1  B
        GOTO   NEXT
RIGHTB  D=C    B
        C=C&A  B
        R2=A
        A=DAT1 B
        D1=D1+ 10
        DAT1=C B
        B=A    B
        C=D    B
        A=R2
        ?B=0   B
        GOYES  CLEAR
SET     A=A!C  B
        GOTO   OK
CLEAR   C=-C-1 B
        A=A&C  B
OK      DAT0=A B
OUT     C=R0
        CD0EX
        C=R1
        B=C    A
        RTNCC
        END