loop.txt

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

Program(Loop,Dos.MZ);
  var(input,byte);
  var(char,byte);
Begin
  Write('Type a number (between 2 and 9): ');
  input = Read();
  IfNot input in ['2'..'9'] Goto Err;

  Write(CrLf+'Countdown: '+input);
  input =- $31;
  Count.Set(input);
  Do:
    char = Count.Get() + 48;
    Write(','+char);
  Loop(Do);
  Jump(Exit);

  Err:
    WriteLn(CrLf+'I said a number between 2 and 9!!!');

  Exit:
    Wait;
End;