: main
    ." APPLICATION is started "
    CR ." ------------------- " CR
    BEGIN
        QUERY
        #TIB @ 1 = IF TIB C@ ASCII . = IF EXIT THEN THEN
        TIB #TIB @ TYPE s" ! " TYPE CR
    AGAIN
;

' main APPLICATION !

.( APPLICATION is set ) 
CR .( --------------  ) CR




