13 lines
297 B
Text
13 lines
297 B
Text
int Hi, Lo;
|
|
[SetHexDigits(2);
|
|
Text(0, " ");
|
|
for Hi:= 2 to 7 do
|
|
[HexOut(0, Hi*16); Text(0, " ")];
|
|
CrLf(0);
|
|
for Lo:= 0 to $F do
|
|
[HexOut(0, Lo); Text(0, " ");
|
|
for Hi:= 2 to 7 do
|
|
[ChOut(0, Hi*16+Lo); Text(0, " ")];
|
|
CrLf(0);
|
|
];
|
|
]
|