InfixHex (lines 699-705)
Back to List
Browsing infix.h
0699 [ InfixHex x y;
0700 y = (x & $7f00) / $100;
0701 if (x<0) y=y+$80;
0702 x = x & $ff;
0703 print (Infixhexdigit) y/$10, (Infixhexdigit) y,
0704 (Infixhexdigit) x/$10, (Infixhexdigit) x;
0705 ];
Last updated 27 February 2004.
This site is no longer supported; information may be out of date.
Maintained as a historical archive by the Interactive Fiction Technology Foundation.
Copyright 1993-2018 IFTF, CC-BY-SA unless otherwise noted.
This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.