home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TS_CONFG.ZIP / CFG_DEM1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-01  |  2.4 KB  |  83 lines
  1. PROGRAM Config_Demo;
  2.  
  3. USES Crt,TS_Confg;
  4.  
  5. TYPE  ConfigRec1 = RECORD
  6.         RegFee   : real;
  7.         CDate    : string;
  8.         Version  : string;
  9.       END;
  10.  
  11.       ConfigRec2 = RECORD
  12.         Company  : string;
  13.         Address  : string;
  14.         CSZip    : string;
  15.         Phone    : string[12];
  16.       END;
  17.  
  18. CONST Config1 : ConfigRec1 =
  19.               ( RegFee  : 25.00       ;
  20.                 CDate   : '03/31/89'  ;
  21.                 Version : '01.01.00' );
  22.  
  23.       Config2 : ConfigRec2 =
  24.               ( Company : 'Shenandoah Valley Software' ;
  25.                 Address : 'P.O. Box 1456             ' ;
  26.                 CSZip   : 'Winchester, Va 22601      ' ;
  27.                 Phone   : '123-456-7890'              );
  28.  
  29. VAR ch   : char;
  30.     oops : integer;
  31.  
  32. BEGIN
  33.  
  34.   REPEAT
  35.     Writeln;
  36.     Writeln('1. Show Config1 Data');
  37.     Writeln('2. Show Config2 Data');
  38.     Writeln('3. Edit Config1 Data');
  39.     Writeln('4. Edit Config2 Data');
  40.     Writeln('5. Quit');
  41.     REPEAT
  42.       ch := ReadKey;
  43.     UNTIL ch in ['1'..'5'];
  44.     CASE ch of
  45.  
  46.       '1' : BEGIN
  47.               Writeln;
  48.               Writeln('Registration Fee .. ',Config1.RegFee:10:2);
  49.               Writeln('Copyright Date .... ',Config1.CDate);
  50.               Writeln('Version Number .... ',Config1.Version);
  51.             END;
  52.  
  53.       '2' : BEGIN
  54.               Writeln;
  55.               Writeln('Company Name ...... ',Config2.Company);
  56.               Writeln('Address ........... ',Config2.Address);
  57.               Writeln('City, State, Zip .. ',Config2.CSZip);
  58.               Writeln('Phone Number ...... ',Config2.Phone);
  59.             END;
  60.  
  61.       '3' : BEGIN
  62.               Writeln;
  63.               Write('Registration Fee .. '); Readln(Config1.RegFee);
  64.               Write('Copyright Date .... '); Readln(Config1.CDate);
  65.               Write('Version Number .... '); Readln(Config1.Version);
  66.               TS_Config ( 'CFG_DEMO', seg(Config1), ofs(Config1), @Config1, SizeOf(Config1), Oops);
  67.             END;
  68.  
  69.       '4' : BEGIN
  70.               Writeln;
  71.               Write('Company Name ...... '); Readln(Config2.Company);
  72.               Write('Address ........... '); Readln(Config2.Address);
  73.               Write('City, State, Zip .. '); Readln(Config2.CSZip);
  74.               Write('Phone Number ...... '); Readln(Config2.Phone);
  75.               TS_Config ( 'CFG_DEMO', seg(Config2), ofs(Config2), @Config2, SizeOf(Config2), Oops);
  76.             END;
  77.  
  78.     END;
  79.  
  80.   UNTIL ch = '5';
  81.  
  82. END.
  83.