read.txt

来自「一个编译器源代码。用法看里面的“使用说明”」· 文本 代码 · 共 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;