Artifact c0c0fce80273d4d59315857d24ed9757cc74acc6:

• Executable file qrscan.in — part of check-in [025d57f800] at 2018-03-09 15:22:13 on branch trunk — Convert QRs to textures (user: bernd size: 295)

#! @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