$rom_sources/base.ual
$rom_sources/string.ual
$rom_sources/memory.ual

:FSTR 16 zero_alloc :
'%I   %X   %B %C' FSTR 16 copy
:X 5 zero_alloc :
0 33 33 33 33 X 5 STV
:X2 5 zero_alloc :
0 80 80 80 80 X2 5 STV
'DEC  HEX  BIN    CHAR  DEC  HEX  BIN    CHAR\n' *>>
@PRINT_LOOP
    FSTR X f*>>
    '     ' *>>
    FSTR X2 f*>>
    '\n' *>>
    0 X LFA ++ DUP DUP DUP X 5 STV
    0 X2 LFA ++ DUP DUP DUP X2 5 STV
X ++ LFA 80 #PRINT_LOOP JNE
END