Author: | Muzzleflash |
---|---|
Mode: | factor |
Date: | Mon, 23 Mar 2009 21:19:52 |
! Copyright (C) 2009 Your name. ! See http://factorcode.org/license.txt for BSD license. USING: kernel io math.parser ; IN: mytest : ask ( -- ) "I'm asking something?" print ; : get-input ( -- ) readln drop ; : print-text ( -- ) "I don't really care what I read!" print ; : wait-key ( -- ) "Press enter to exit!" print readln drop ; : program ( -- ) ask get-input print-text wait-key ; MAIN: program