home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Pascal / TSCRSYS.ZIP / ENTRY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-16  |  543 b   |  30 lines
  1. {
  2. Turbo-Screen V1.00A testcode generation --- 7-10-1988 20:14:24
  3. note memory allocations. Increase stack as needed for user programs.
  4.  }
  5. {$M 30500,0,655360}
  6. Program entry_generated_code;
  7.  
  8. Uses CRT,DOS,TSSLIB;       { your code needs these units }
  9. {Uses CRT,DOS,TSSLIB;}
  10.  
  11. {$I entry.con}
  12.  
  13. {$I entry.prc}
  14.  
  15. begin
  16.      NUMBEGGS:=1;
  17.      NUMPCAKES:=3;
  18.      NUMCERL:=1;
  19.     sccn:=[cpcall,cvcall,cpret,cvret,upmsg,upvar];
  20. entry(
  21.     sccn,
  22.     cerr,
  23.     nfld,
  24.     ret_key,
  25.     NUMBEGGS,
  26.     NUMPCAKES,
  27.     NUMCERL);
  28.  
  29. end.
  30.