%print?(SELF>0?(nprint SELF)

        SELF=0?(disp_48)

        disp_21. nprint 0-SELF) )

    'For floating point stuff see FLOAT'

to disp x i (

    %_?(:x is string?(for i to x length (disp_x[i])) CODE 23)

    %clear?() %sub?(:x eval))

    'Writes a character or string to the bootstrap printer.

    Later it will redefined as a ·display frame.·'

to cr (disp_13)

to sp (disp_32)

to ev (repeat (cr read eval print))

0