home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l216 / 2.ddi / XMAIL.PRO < prev    next >
Encoding:
Text File  |  1987-03-23  |  1.1 KB  |  35 lines
  1. /*******************************************************************
  2.  
  3.      Turbo Prolog Toolbox
  4.      (C) Copyright 1987 Borland International.
  5.  
  6.         Demo of screen handler
  7.        Entering names and addresses for a mailing list
  8.  
  9.   (In order to run this program, you must define an appropriate 
  10.    screen layout and store the corresponding screen definition 
  11.    file in XMAIL.SCR.)
  12. *******************************************************************/
  13.  
  14. include "hndbasis.pro"
  15.  
  16. GOAL
  17.     consult("xmail.scr"),
  18.     createwindow(on),
  19.     makestatus(112," Fill out the fields"),
  20.     scrhnd(on,_),
  21.     clearwindow,
  22.     value("FirstNames",FName),
  23.     value("LastName",LName),
  24.     value("Street",Street),
  25.     value("City",City),
  26.     value("State",State),
  27.     value("Tel",Tel),
  28.     value("ZipCode",Zip),
  29.     value("Discount",Discount),nl,nl,    
  30.     write("+---------------------------------------------------------------"),nl,
  31.     write( FName," ",LName,"\n",Street,"\n",City,"\n",State,"\n"),nl,
  32.     write("Your reference number will be your telephone number: ",Tel),nl,
  33.     write("You have been granted ",Discount,"% discount."),nl,
  34.     write("+---------------------------------------------------------------").
  35.