while.txt

H++编译器: 一个仿Pascal语言的编译器

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;