\ 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