home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / turbopas / tpuobj.arc / PROSUM.PRO < prev    next >
Text File  |  1988-04-04  |  481b  |  20 lines
  1. project "prosum"
  2.  
  3. Global Predicates
  4.  
  5.   saveBP                                        language pascal
  6.   restoreBP                                     language pascal
  7.   tpsys                                         language asm
  8.   tpinit                                        language pascal
  9.   sum(integer,integer,integer) - (i,i,o)        language pascal
  10.  
  11.   goal
  12.    saveBP,
  13.    tpsys,
  14.    restoreBP,
  15.    tpinit,
  16.    sum(7,6,X),
  17.    write("Sum=", X),
  18.    readchar(_).
  19.  
  20.