##-
# Author: Brian Tiffin
# Dedicated to the public domain
#
# Date: September, 2016
# Modified: 2016-10-03/22:40-0400
##+
#
# class.icn, demonstrate a class declaration
#
# THIS CODE IS UNFINISHED BUSINESS

$define space ' '
class creator(field)
    method show(f)
        write(image(r := (\f | field)))
        return r
    end
end

procedure p()
    r := "abc"
    return r
end

procedure main()
    c := creator("name")
    write(type(c), " ", image(c))
    a := c.show()
    b := c.show('a')
    pr := p()
    write(image(a), space, image(b), space, image(pr))
end
#$include "abstract.icn"