home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / tmpas / demo.pt < prev    next >
Encoding:
Text File  |  1990-10-02  |  1018 b   |  53 lines
  1. .. File: demo.pt
  2. .. Demonstration of use of tm Pascal library
  3. .insert democonf.t
  4. program tmdemoprog( input, output );
  5.  
  6. type
  7.     int = integer;
  8. .include $(libpath)$(pathsep)pastype.pt
  9.  
  10. var
  11.     root: plot;
  12.     err: boolean;
  13. .include $(libpath)$(pathsep)pasvar.pt
  14. .include $(libpath)$(pathsep)pasgvar.pt
  15.  
  16. .include $(libpath)$(pathsep)paslib.pt
  17.  
  18. { Functions for primitive types }
  19. procedure Rfreint( var n: int );
  20. begin
  21.     n:=0;
  22. end;
  23.  
  24. procedure Writeint( var f: text; n: int );
  25. begin
  26.     writeln( f, '(', n:1, ')' );
  27. end;
  28.  
  29. function Copyint( i: int ): int;
  30. begin
  31.     Copyint := i;
  32. end;
  33.  
  34. function Readint( var f, rf: text; var n: int ): boolean;
  35. begin
  36.     Readint := Readinteger( f, rf, n );
  37. end; { Readint }
  38.  
  39. .include $(libpath)$(pathsep)pascode.pt
  40.  
  41. begin
  42.     Init$(basename);
  43.     tmgetc( input );
  44.     err := Readplot( input, output, root );
  45.     if err then begin
  46.         writeln( 'Read error encountered, STOP.' );
  47.     end
  48.     else begin
  49.         Writeplot( output, root );
  50.         Stat$(basename)( output );
  51.     end;
  52. end.
  53.