#!perl -lw
# Version 0.01
use RISCOS::Text::PrettyPrint ':DEFAULT', '@default_dict';

foreach $entry (0 .. $#default_dict)
{
    print prettyprint_expand (sprintf ("%2d: \c[%c", $entry, $entry),
			      '<Special string>');
}

# Now, I don't know what the kernel dictionary is. But it's not the same

@kernel_dict =
  eval {read_riscosdict ('Resources:$.Resources.Kernel.Dictionary')};

exit if $@;

print '';

foreach $entry (0 .. $#kernel_dict)
{
    print prettyprint_expand (sprintf ("%2d: \c[%c", $entry, $entry),
			      '<Special string>', @kernel_dict);
}
