home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MGTP4.ZIP / WIDGIT.INC < prev    next >
Encoding:
Text File  |  1987-11-11  |  2.8 KB  |  75 lines
  1. Procedure WidgitOEScreen;
  2.  
  3. { MiniGen V1.0 }
  4.  
  5. Type
  6.   Str80  = String[80];
  7.   FldTyp = Record
  8.            Typ             : Char;
  9.            Col,Row,Atr,Len : Byte;
  10.            Txt             : Str80;
  11.            End;
  12.  
  13. Const
  14.   NumFields   = 40;
  15.   FieldsArray : Array[1..NumFields] of FldTyp =
  16.   (
  17.   (Typ:'T';Col:1;Row:1;Atr:20;Len:5;Txt:'DATE:'),
  18.   (Typ:'T';Col:65;Row:1;Atr:20;Len:5;Txt:'TIME:'),
  19.   (Typ:'T';Col:31;Row:3;Atr:31;Len:19;Txt:'MiniGen Demo Screen'),
  20.   (Typ:'T';Col:28;Row:4;Atr:21;Len:26;Txt:'Widgits Order Entry System'),
  21.   (Typ:'T';Col:7;Row:6;Atr:18;Len:14;Txt:'Customer Data:'),
  22.   (Typ:'T';Col:16;Row:7;Atr:18;Len:5;Txt:'Name:'),
  23.   (Typ:'F';Col:22;Row:7;Atr:78;Len:25;Txt:''),
  24.   (Typ:'T';Col:11;Row:8;Atr:18;Len:10;Txt:'Address 1:'),
  25.   (Typ:'F';Col:22;Row:8;Atr:78;Len:30;Txt:''),
  26.   (Typ:'T';Col:11;Row:9;Atr:18;Len:10;Txt:'Address 2:'),
  27.   (Typ:'F';Col:22;Row:9;Atr:78;Len:30;Txt:''),
  28.   (Typ:'T';Col:6;Row:10;Atr:18;Len:15;Txt:'City/State/Zip:'),
  29.   (Typ:'F';Col:22;Row:10;Atr:78;Len:12;Txt:''),
  30.   (Typ:'F';Col:36;Row:10;Atr:78;Len:2;Txt:''),
  31.   (Typ:'F';Col:40;Row:10;Atr:78;Len:5;Txt:''),
  32.   (Typ:'T';Col:17;Row:12;Atr:18;Len:4;Txt:'SSN:'),
  33.   (Typ:'F';Col:22;Row:12;Atr:95;Len:3;Txt:''),
  34.   (Typ:'T';Col:25;Row:12;Atr:16;Len:1;Txt:'-'),
  35.   (Typ:'F';Col:26;Row:12;Atr:95;Len:2;Txt:''),
  36.   (Typ:'T';Col:28;Row:12;Atr:16;Len:1;Txt:'-'),
  37.   (Typ:'F';Col:29;Row:12;Atr:95;Len:4;Txt:''),
  38.   (Typ:'T';Col:10;Row:15;Atr:28;Len:11;Txt:'Order Data:'),
  39.   (Typ:'T';Col:3;Row:16;Atr:28;Len:18;Txt:'Method of Payment:'),
  40.   (Typ:'T';Col:22;Row:16;Atr:23;Len:30;Txt:'Cash ( ) Check ( ) Charge ( ) '),
  41.   (Typ:'F';Col:28;Row:16;Atr:80;Len:1;Txt:''),
  42.   (Typ:'F';Col:38;Row:16;Atr:80;Len:1;Txt:''),
  43.   (Typ:'F';Col:49;Row:16;Atr:80;Len:1;Txt:''),
  44.   (Typ:'T';Col:4;Row:17;Atr:28;Len:17;Txt:'Unit of Purchase:'),
  45.   (Typ:'T';Col:22;Row:17;Atr:31;Len:25;Txt:'Each ( ) Box ( ) Case ( )'),
  46.   (Typ:'F';Col:28;Row:17;Atr:80;Len:1;Txt:''),
  47.   (Typ:'F';Col:36;Row:17;Atr:80;Len:1;Txt:''),
  48.   (Typ:'F';Col:45;Row:17;Atr:80;Len:1;Txt:''),
  49.   (Typ:'T';Col:12;Row:18;Atr:28;Len:9;Txt:'Quantity:'),
  50.   (Typ:'F';Col:22;Row:18;Atr:80;Len:6;Txt:''),
  51.   (Typ:'T';Col:31;Row:18;Atr:28;Len:6;Txt:'Price:'),
  52.   (Typ:'F';Col:38;Row:18;Atr:80;Len:6;Txt:''),
  53.   (Typ:'T';Col:12;Row:19;Atr:28;Len:9;Txt:'Discount:'),
  54.   (Typ:'F';Col:22;Row:19;Atr:80;Len:2;Txt:''),
  55.   (Typ:'T';Col:25;Row:19;Atr:30;Len:1;Txt:'%'),
  56.   (Typ:'T';Col:11;Row:20;Atr:28;Len:10;Txt:'Extension:')
  57.   );
  58.  
  59. Var
  60.   I       : Integer;
  61.   WorkStr : Str80;
  62.  
  63. Begin
  64. For I := 1 to NumFields do
  65.   With FieldsArray[I] do
  66.     Case Typ of
  67.       'T' : WinRite(Txt,Col,Row,Atr);
  68.       'F' : Begin
  69.             FillChar(WorkStr[1],Len,' ');
  70.             WorkStr[0] := Chr(Ord(Len));
  71.             WinRite(WorkStr,Col,Row,Atr);
  72.               End;
  73.       End;
  74. End; {WidgitOEScreen}
  75.