program syschk;
begin
  writeln('あなたの９８は５ＭＨｚ系列？(^_^)');
  writeln('      それとも８ＭＨｚ系列？(;_;)を調べるツール Ver1.00');
  writeln('                            Programmed by T.Suzuki Sep.6.1993');
  writeln;
  write('このマシンは・・・');
  if ((port[$42] shr 5)and 1=1) and (mem[0:$501] shr 7=1)
  then writeln('８ＭＨｚ系ですね(;_;)ｼｸｼｸ')
  else if ((port[$42] shr 5)and 1=0) and (mem[0:$501] shr 7=0)
    then writeln('５ＭＨｚ系ですね(^_^)ﾖｶｯﾀﾈ')
    else begin
      writeln('あらら５／８ＭＨｚ系列なのか判らないです(^_^;)');
      writeln('システム共通域を書き換えてませんか？それともハイレゾ？');
      write('一応・・・');
      if mem[0:$501] shr 7=1 then write('８') else write('５');
      writeln('ＭＨｚ系列だと思う(^_^;)');
    end;
end.