read.txt

来自「H++编译器: 一个仿Pascal语言的编译器」· 文本 代码 · 共 20 行

Program(Read,Dos.MZ);
  Var(Name,String[30]);
  Var(Age,String[4]);
  Var(Char,Byte);
Begin
  Write('What'+Quote.Single+'s your name? ');
  Name = ReadLn();
  Write('How old are you? ');
  Age = ReadLn();
  WriteLn('Hey '+Name+'! You are '+Age+' years old.');

  WriteLn(CrLf+'Do you want to try once more? (y or n)');
  Char = Read;

  If Char = 'y' Goto Start;
  If Char = 'Y' Goto Start;

  WriteLn('Bye then!');
  Wait;
End;