home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / OASSAM41.ZIP / SAMPLE2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-12  |  2.5 KB  |  23 lines
  1. TELN(Lst);                     {Blank line}
  2.       WRITELN(Lst,G_Cont(5));           {the street}
  3.       WRITELN(Lst,Capital(G_Cont(6)));  {the city}
  4.       WRITELN(Lst,Charstring('=',LENGTH(G_Cont(6)))); {underline the city}
  5.       WRITELN(Lst);
  6.       WRITELN(Lst);               {Two blank lines}
  7.     END;          {for loop}
  8. END;    {procedure print_labels}
  9.  
  10.  
  11.  
  12. BEGIN; {of main}
  13.   Select_Format_File('Sample2');   {initializes SCL and loads the format
  14.                                    {file 'Sample2'}
  15.   Scl_Defaults;                    {an example how to change SCL defaults}
  16.   REPEAT                           {stay in loop until 'Abort' is pressed}
  17.     Get_Data;                      {display format and obtain data}
  18.     IF NOT Format_Aborted THEN     {if format has been filled in completely}
  19.       Print_Labels;                {then print the desired labels}
  20.   UNTIL Format_Aborted;            {If 'F10' key was pressed then}
  21.   Close_Formats;                   {terminate SCL}
  22. END.  {of main}
  23. ÷÷÷                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                äüüüüüüéééééé con:CON:prn:PRN:lst:LST:lpt:LPT:lpt1:LP