    ! Edwin module to support cross calling of Imp and C
    ! Mostly for device drivers to set global status within EDWIN's imp section

    from Edwin include Specs

    external routine Set Device Viewport (integer x, y)
       Device Data_MVX  = x
       Device Data_MVY  = y
       Viewport (0, x, 0, y)
    end

    external routine Set Max Colours (integer Max)
       Device Data_MAX COLOUR = Max
    end

    ! C Language specific bits

    external string(31) spec Version,Release,Revision,Fname

    external byte map Application Title
       own string(255) Title String

       Title String = Fname." version ".Version.".".Release
       Title String = Title String.".".Revision if Revision # "0"
       CharNo(Title String, Length(Title String) + 1) = 0
       result == CharNo(Title String, 1)
    end

    external byte map Application Name
       CharNo(Fname, Length(Fname) + 1) = 0
       result == CharNo(Fname, 1)
    end

    end of file