diff --git a/forth/hello.fs b/forth/hello.fs index f5118ef..3ce247e 100755 --- a/forth/hello.fs +++ b/forth/hello.fs @@ -3,5 +3,15 @@ \ Sample Hello World! Forth script... \ -.( Hello Forth World! ) cr +: verinfo s" git describe --abbrev=7 --dirty --always --tags" system ; + +\ Obligatory Hello World with some version info +.( Hello Forth World! Version: ) verinfo cr + +\ Show list of command line arguments +: printargs + argc @ 0 do i arg type cr loop ; +.( Command line args: ) cr +printargs + bye