\ Demo showing the use of binary string constants
\ Copyright 2007, J.L. Bezemer

[hex]
offset wish
  50 c, 72 c, 65 c, 74 c, 74 c,
  69 c, 67 c, 65 c, 20 c, 66 c,
  65 c, 65 c, 73 c, 74 c, 64 c,
  61 c, 67 c, 65 c, 6e c, 20 c,
  65 c, 6e c, 20 c, 65 c, 65 c,
  6e c, 20 c, 67 c, 65 c, 6c c,
  75 c, 6b c, 6b c, 69 c, 67 c,
  20 c, 6e c, 69 c, 65 c, 75 c,
  77 c, 6a c, 61 c, 61 c, 72 c,
  21 c, 20 c, 48 c, 61 c, 6e c,
  73 c, 20 c, 41 c, 67 c, 6e c,
  65 c, 73 c, 00 c,

[decimal]
: wishes 0 begin dup wish dup while emit 1+ repeat drop drop cr ;

wishes