home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / OASSAM41.ZIP / SAMPLE1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-03-29  |  1.1 KB  |  38 lines
  1. {$R-}    {Range checking off}
  2. {$B+}    {Boolean complete evaluation on}
  3. {$S+}    {Stack checking on}
  4. {$I+}    {I/O checking on}
  5. {$N-}    {No numeric coprocessor}
  6. {$M 65500,16384,655360} {Turbo 3 default stack and heap}
  7.  
  8.  
  9. PROGRAM first;
  10. {$V-}                {Disables Length Checks for Strings. Mandatory for SCL}
  11.  
  12. Uses
  13.   Crt,
  14.   printer,
  15.   Dos,
  16.   scl;
  17.  
  18. var x:string;
  19.  
  20. PROCEDURE handle_first;   {This Procedure handles format 'first'}
  21. BEGIN;
  22.   Select_Format('first'); {Loads the format from disk}
  23.   Display_Format(0,0);    {Displays it in the upper left corner of the Screen.}
  24.   REPEAT
  25.     Handle_Format;        {Complete Loop to handle format input}
  26.   UNTIL Format_Done;      {Either completely filled in or abort pressed}
  27.   x:=g_cont(7);
  28.   write(lst,x);
  29. END;
  30.  
  31.  
  32. BEGIN; {of main}
  33.   Select_Format_File('sample1');      {initializes SCL and loads the format
  34.                                    {file 'Sample1'}
  35.   handle_first;                    {load,display and handle the format}
  36.   Close_Formats;                   {terminate SCL}
  37. END.  {of main}
  38.