if.txt

来自「一个编译器源代码。用法看里面的“使用说明”」· 文本 代码 · 共 13 行

Program(If,Dos.MZ);
  var(info,word,1);
  var(char,word);
Begin
  Do:
    info = info + 1;
    char = info + 47;
    WriteLn('Number '+char);
  While info <= 4 Goto Do;

  WriteLn('Done.');
  Wait;
End;