home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / ZCAT / ZIPFILES / ZCAT-010.ZIP / TPTOOL19.LBR / TEST86.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-31  |  512b  |  22 lines
  1. program test86;
  2. { test module for os-cpm86.pas }
  3.  
  4. const
  5.   MAXSTR = 100; stdout=0; endstr=0; newline=0; { dummy declarations }
  6. type
  7.   xstring= array [1..MAXSTR] of 0..255;
  8.  
  9. procedure putstr(s:xstring; n:integer);
  10. var i: integer;
  11. begin i:=1;
  12.   while s[i] <> endstr do begin write(chr(s[i])); i:=i+1; end;
  13.   writeln;
  14. end;
  15. procedure putc(i:integer); begin end;
  16.  
  17. {$I os-cpm86.pas }
  18.  
  19. begin
  20.   listcat
  21. end.
  22.