(Continued from previous message)
'This subprogram reads one LZW code from the data stream.
FUNCTION ReadCode (CodeSize)
    SHARED Powers2()
    Code = 0
    FOR Aa = 0 TO CodeSize - 1
        Code = Code + Getbit * Powers2(Aa)
    NEXT
    ReadCode = Code
END FUNCTION
SUB Mode13(Bool)
        IF Bool THEN
                REG 1, &H0013
         ELSE
                REG 1, &H0003
        END IF
        CALL INTERRUPT &H10
END SUB
---
 * QMPro 1.53 * WOMAN.ZIP - Great program, no documentation!
--- GEcho 1.20/Pro
---------------