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)

0000: 23 21 20 40 47 46 4f 52 54 48 46 41 53 54 40 0a  #! @GFORTHFAST@.
0010: 5c 20 2d 2a 2d 20 6d 6f 64 65 3a 20 46 6f 72 74  \ -*- mode: Fort
0020: 68 20 2d 2a 2d 0a 0a 77 61 72 6e 69 6e 67 73 20  h -*-..warnings 
0030: 6f 66 66 20 5c 20 69 6e 20 70 72 6f 64 75 63 74  off \ in product
0040: 69 6f 6e 20 6d 6f 64 65 2c 0a 5c 20 77 65 20 64  ion mode,.\ we d
0050: 6f 6e 27 74 20 77 61 6e 74 20 61 6e 79 20 77 61  on't want any wa
0060: 72 6e 69 6e 67 73 0a 0a 66 70 61 74 68 2b 20 40  rnings..fpath+ @
0070: 44 41 54 41 44 49 52 40 2f 67 66 6f 72 74 68 2f  DATADIR@/gforth/
0080: 40 47 46 56 45 52 40 2f 6e 65 74 32 6f 0a 0a 72  @GFVER@/net2o..r
0090: 65 71 75 69 72 65 20 71 72 73 63 61 6e 2e 66 73  equire qrscan.fs
00a0: 0a 61 72 67 63 20 40 20 31 20 3c 3d 20 5b 49 46  .argc @ 1 <= [IF
00b0: 5d 0a 20 20 20 20 2e 22 20 75 73 61 67 65 3a 20  ].    ." usage: 
00c0: 71 72 73 63 61 6e 20 66 69 6c 65 5b 73 5d 22 20  qrscan file[s]" 
00d0: 63 72 0a 20 20 20 20 2e 22 20 20 20 50 4e 47 20  cr.    ."   PNG 
00e0: 61 6e 64 20 4a 50 47 20 66 69 6c 65 73 20 61 63  and JPG files ac
00f0: 63 65 70 74 65 64 22 20 63 72 0a 5b 45 4c 53 45  cepted" cr.[ELSE
0100: 5d 0a 20 20 20 20 66 70 61 74 68 2b 20 7e 2b 0a  ].    fpath+ ~+.
0110: 20 20 20 20 73 63 61 6e 2d 71 72 0a 5b 54 48 45      scan-qr.[THE
0120: 4e 5d 0a 62 79 65 0a                             N].bye.