home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol9n04.zip / USEHELP.PAS < prev    next >
Pascal/Delphi Source File  |  1990-01-22  |  1KB  |  53 lines
  1.  
  2. USEHELP.PAS
  3.  
  4. PROGRAM UseHelp;
  5. (* QuickPascal program *)
  6.  
  7. USES Crt,
  8.   help2;
  9. VAR
  10.   H1 : HelpSet;
  11.   N  : word;
  12.   Avail : LongInt;
  13.  
  14.   FUNCTION RandMessage(W:Word):string;
  15.   VAR
  16.     Temp : String;
  17.     N : Byte;
  18.   BEGIN
  19.     Temp := '';
  20.     FOR N := 1 to Random(6)+2 DO
  21.       CASE Random(5) OF
  22.     0: Temp := Temp + ' HELP';
  23.     1: Temp := Temp + ' help';
  24.     2: Temp := Temp + ' assistance';
  25.     3: Temp := Temp + ' m''aidez';
  26.     4: Temp := Temp + ' socorro';
  27.       END;
  28.     RandMessage := Temp + '!';
  29.   END;
  30.  
  31. BEGIN
  32.   Randomize;
  33.   ClrScr;
  34.   WriteLn('Demonstrating "HelpSet" object');
  35.   Avail := MaxAvail;
  36.   New(H1);
  37.   H1.InitHelp(500);
  38.   N := 0;
  39.   REPEAT
  40.     Inc(N);
  41.   UNTIL NOT H1.AddMessage(RandMessage(N));
  42.   Avail := Avail - MaxAvail;
  43.   FOR N := 1 to 10 DO
  44.     BEGIN
  45.       WriteLn('#',2*N:3,' ',H1.GetMessage(2*N));
  46.       WriteLn('#',501-2*N:3,' ',H1.GetMessage(501-2*N));
  47.     END;
  48.   H1.DoneWithHelp;
  49.   Dispose(H1);
  50.   WriteLn('The object used ',Avail,' bytes.');
  51. END.
  52.  
  53.