Simple Forth example showing the handling of string and number input/output

gistfile1.txt

20 chars Constant namestring-len
Create namestring  namestring-len allot

: input ( buf-addr buf-len prompt-addr promt-len -- buf-add len )
  \ prompt user for string
  cr type over swap  accept ;

: get-age ( -- n )
    0.
    BEGIN ( d )
        here 3 chars s" How old are you? " input  ( d addr len )
    >number 2drop
        2dup or
    UNTIL
    drop ;

: get-name ( -- addr len )  
    namestring namestring-len  s" Who are you? "  input ;

: .hello ( user user-len age -- )  
    cr ." Nice to meet you " . ." year old " type ." ."  cr ;

: ask ( -- )  get-name get-age .hello ;