#! @GFORTHFAST@ \ -*- mode: Forth -*- warnings off \ in production mode, \ we don't want any warnings fpath+ @DATADIR@/gforth/@GFVER@/net2o require qrscan.fs argc @ 1 <= [IF] ." usage: qrscan file[s]" cr ." PNG and JPG files accepted" cr [ELSE] fpath+ ~+ scan-qr [THEN] bye