unit Test;
interface
Var
Programm :
array[0..131071]
of byte = (
$54, $a6, $4f, $b3, $
cc, $56, $50, $f6, $50, $56, $50, $56, $50, $56, $50, $56,
$50, $56, $50, $56, $50, $56, $50, $56, $50, $56, $50, $56, $50, $56, $50, $56,
$50, $56, $50, $56, $50, $56, $50, $56, $50, $56, $50, $56, $50, $56, $50, $56,
$50, $56, $50, $f6, $af, $a9, $af, $09, $24, $56, $50, $f6, $af, $a9, $af, $a9,
$74, $56, $cf, $b3, $4c, $46, $cf, $b3, $50, $56, $c0, $b3, $51, $56, $00, $b7,
.......