home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / CODEGEN.ZIP / TEST.INC < prev   
Text File  |  1989-12-15  |  2KB  |  40 lines
  1. PROCEDURE testScreen;
  2. BEGIN
  3.   GoToXY(1,4);
  4.   Write('╔══════════════════════════════════════════════════════════════════════════╗');
  5.   GoToXY(1,5);
  6.   Write('║ THIS TEST SCREEN WAS DRAWN WITH A TEXT EDITOR.  THE CODE GENERATORS CAN  ║');
  7.   GoToXY(1,6);
  8.   Write('║ PROCESS IT INTO TURBO PASCAL OR TURBO C, FOR USE AS A DATA ENTRY SCREEN. ║');
  9.   GoToXY(1,7);
  10.   Write('╚══════════════════════════════════════════════════════════════════════════╝');
  11.   GoToXY(10,11);
  12.   Write('╔═══════════════════════════════════════════════════════════╗');
  13.   GoToXY(10,12);
  14.   Write('║  Name                                                     ║');
  15.   GoToXY(10,13);
  16.   Write('║  Street & Number                                          ║');
  17.   GoToXY(10,14);
  18.   Write('║  City                      State    ZIP Code      -       ║');
  19.   GoToXY(10,15);
  20.   Write('║  Telephone #  (   )    -                                  ║');
  21.   GoToXY(10,16);
  22.   Write('╚═══════════════════════════════════════════════════════════╝');
  23.   GoToXY(1,19);
  24.   Write('┌─────────────────────────────────────────────────────────────────────────────┐');
  25.   GoToXY(1,20);
  26.   Write('│ WATCH THIS LINE FOR MESSAGES ══>                                            │');
  27.   GoToXY(1,21);
  28.   Write('└─────────────────────────────────────────────────────────────────────────────┘');
  29. {  DATA FIELD COORDINATES AND LENGTHS }  {  50-column data field at (18,12)  }
  30.   {  39-column data field at (29,13)  }
  31.   {  19-column data field at (18,14)  }
  32.   {  2-column data field at (45,14)  }
  33.   {  5-column data field at (57,14)  }
  34.   {  4-column data field at (63,14)  }
  35.   {  3-column data field at (27,15)  }
  36.   {  3-column data field at (32,15)  }
  37.   {  4-column data field at (36,15)  }
  38.   {  41-column data field at (36,20)  }
  39. END;  { PROCEDURE testScreen }
  40.