Plan 9 from Bell Labs’s /usr/web/sources/contrib/fgb/root/sys/src/cmd/4th/examples/demo/bstring.4th

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


\ 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

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].