home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / UTILITYS / PUDD.ARC / PUDD-06.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-11  |  3KB  |  88 lines
  1. procedure ChooseOne(var AnyOne:typicalstring);
  2. var i    :integer;
  3. begin
  4.  i := random(11);
  5.  case i of
  6.  0: AnyOne := 'sliced bread';
  7.  1: AnyOne := 'apple pie';
  8.  2: Anyone := 'sex';
  9.  3: Anyone := 'Beer and cheese';
  10.  4: Anyone := 'puppies';
  11.  5: Anyone := 'chocolate';
  12.  6: anyone := 'indoor plumbing';
  13.  7: Anyone := 'Mother''s milk';
  14.  8: Anyone := 'toilet paper';
  15.  9: Anyone := 'Rock & Roll';
  16.  10: Anyone := 'no-wax floors';
  17.  end; {.....case}
  18. end;
  19.  
  20. procedure writeletter;
  21. var megaBucks :integer;
  22.     response  :string[5];
  23.     i         :integer;
  24.     SillySaying:string[15];
  25. begin
  26.  ChooseOne(sillySaying);
  27.  ClrScr;
  28.  gotoXY(10,10);
  29.  clreol;
  30.  write(' Enter any integer....');
  31.  read(response);
  32.  val(response,megabucks,i);
  33.  while megaBucks < 8 do
  34.   begin
  35.     gotoXY(10,10);
  36.     clreol;
  37.     write(^G);
  38.     write(' Number not big enough !');
  39.     delay(1200);
  40.     gotoXY(10,10);
  41.     clreol;
  42.     write(' Try again.....');
  43.     read(response);
  44.     val(response,megabucks,i);
  45.   end;
  46.  gotoXY(10,10);
  47.  write('Make certain printer is on-line ');
  48.  writeln(lst,' ');
  49.  writeln(lst,' ');
  50.  writeln(lst,'to: Greg Jackson');
  51.  writeln(lst,'    1616 Capital Ave.');
  52.  writeln(lst,'    Madison, WI  53705');
  53.  writeln(lst,'');
  54.  writeln(lst,'re: Pudd (PUblic Domain Draw)');
  55.  writeln(lst,'');
  56.  writeln(lst,'');
  57.  writeln(lst,'Dear Greg,');
  58.  writeln(lst,'');
  59.  writeln(lst,'I just wanted to send along this little note to let you know how much I like');
  60.  write(lst,'the Pudd program. It''s the greatest thing since ');
  61.  write(lst,SillySaying);
  62.  writeln(lst,'. I am also');
  63.  write(lst,'enclosing a check for $');
  64.  write(lst,megabucks);
  65.  writeln(lst,'.00 as a small token of my appriciation.  I realize');
  66.  writeln(lst,'this isn''t much but it''s all I can afford at this moment.  I''ll send ');
  67.  writeln(lst,'more as soon as soon as I win the New York state lottery.  I promise.');
  68.  writeln(lst,'I understand that since my check is for more than $8.00 I will receive');
  69.  writeln(lst,'the next version of the program in the mail as soon as it becomes ');
  70.  writeln(lst,'available.  I have put my mailing address on the upper right hand corner');
  71.  writeln(lst,'of this sheet.  I also realize that the program is still public domain ');
  72.  writeln(lst,'and I might find the next version on an RBBS sometime, but sent it to ');
  73.  writeln(lst,'me anyway just to make sure I get it as soon as possible.  I will   ');
  74.  writeln(lst,'also feel free to share it with other Televideo people at no cost to them.     ');
  75.  writeln(lst,'');
  76.  writeln(lst,'As a final note I have a few suggestions and comments concerning improvements');
  77.  writeln(lst,'and/or future features of Pudd.  Such as ..........');
  78.  gotoXY(10,10);
  79.  write('Now fill that sucker out and mail it !');
  80.  for i := 1 to 41 do
  81.   writeln(lst);
  82.  gotoXY(10,12);
  83.  write('  press any key.....');
  84.  repeat
  85.  until keypressed;
  86. end;
  87.  
  88.