ware.pas

来自「汉字区位码查询程序」· PAS 代码 · 共 12 行

uses Dos, Xcall, Kbd, Xcrt, Crt;
const Barlen = 26; Clen: Byte = 18;
  Ll = 5; L1 = 26; L2 = L1 + 2;
var I: Word;
  T, Ward: Byte;
  R: Registers;
  P: string;
  F: file;
label 10;
const Fr: array[1..4] of string[52] = (
    '谀穆哪履穆哪履穆哪履穆哪履穆哪履穆哪履穆哪履穆哪履目',
    '