home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / pascal / 7594 < prev    next >
Encoding:
Internet Message Format  |  1992-12-21  |  1.3 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!darwin.sura.net!haven.umd.edu!mimsy!nmrdc1!cbda8.apgea.army.mil.!adm!news
  2. From: MOSER@wcsub.ctstateu.edu (If addressee has moved, do not forward)
  3. Newsgroups: comp.lang.pascal
  4. Subject: 10 MB of data, coming up!
  5. Message-ID: <34763@adm.brl.mil>
  6. Date: 21 Dec 92 02:20:51 GMT
  7. Sender: news@adm.brl.mil
  8. Lines: 33
  9.  
  10. >Date: 18 Dec 1992 12:51:36 -0500 (EST)
  11. >From: Alan Turner <ATURNER@rcnvms.rcn.mass.edu>
  12. >Subject: wanted: back issues of info-pascal
  13. >To: info-pascal@BRL.MIL
  14. >Message-id: <01GSGMIWN4VMBB2NQK@RCNVMS.RCN.MASS.EDU>
  15. >
  16. > I need about 10 megs of raw data and am looking for info-pascal archives.
  17. > Do they exist? ...and if so could someone please direct me to where I can
  18. > find them.
  19. >-=Alan Turner=-                
  20. >-=Email: aturner@ecn.mass.edu=-
  21.  
  22. Alan,
  23. I wish everyone made such easy requests to fulfil. Try the following
  24. program. With minor changes, it will supply you with almost any amount
  25. of data for which you could ask.
  26.  
  27. Program GenerateData (Data);
  28. Const AmountOfDataWanted = 1.0E7;
  29. Var   Data :file of byte;
  30.       Count:real;
  31. BEGIN
  32. Assign(Data,'Data.10M');
  33. Rewrite(Data);
  34. Count:=0.0;
  35. While Count < AmountOfDataWanted do begin
  36.   Write(Data,Random(256)); (* smile *)
  37.   Count:=Count+1
  38.   end;
  39. Close(Data)
  40. END.
  41. Merry Christmas.
  42. Duane Moser    Moser@WCSU.CtStateU.edu
  43.