Artifact 619838df2e928839a0323a6975d9542208bd6f8bdd9215978a82872ed7f669bd:

• File psl-1983/3-1/tests/pascal-support.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1059) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/tests/pascal-support.red — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1059) [annotate] [blame] [check-ins using]

{ XXX Support Routines, Test Version 
  M. L. Griss, and S. Lowder 9 July 1982 
}

 Var  Ctime:Integer;             { For CPU Time }

 Procedure XXX_Init(var c:integer);
  begin
    WriteLn(Output, ' Init the XXX package ',c);
    Ctime :=10*SysClock;  { First Call on Timer }
  end;

 Procedure XXX_PutC(var c:integer);
  begin
    Write(Output,chr(c));
  end;

 Procedure XXX_GetC(var c:integer);
  var ch:char;
  begin
    read(keyboard,ch);
    c := ord(ch);
  end;

 Procedure XXX_TimC(var c:integer);
  var i:integer;
  begin
    i:=10* SysClock;      {Call timer again}
    c := i-Ctime;
    Writeln(Output,' Ctime ', i, c);
    Ctime := i;
  end;

 Procedure XXX_Quit(var c:integer);       { close files, cleanup and exit }
  begin
    Writeln(Output,' Quitting ');
    ESCAPE(0);    { "normal" exit, ie HALT}
  end;

 Procedure XXX_Err(var c:integer);
  begin
    Writeln(Output,' XXX Error call Number: ', c);
    ESCAPE(c);
  end;

 Procedure XXX_PutI(var c:integer);   { Print an Integer }
  begin
    Writeln(Output,' PutI: ', c);
  end;


end.