home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / reqs / reqdemo.e < prev    next >
Text File  |  2001-03-31  |  580b  |  21 lines
  1. /* Another demo how to use other librarys from E.
  2.    a requester from the req.library.                  */
  3.  
  4. MODULE 'Req'
  5.  
  6. PROC main()
  7.   IF reqbase:=OpenLibrary('req.library',2)
  8.     IF request('This is some standard requester ...','Positive','Negative')
  9.       request('I guessed that ...','Sure!','Get Real!')
  10.     ELSE
  11.       request('Try to be more positive!','I will','Why should I?')
  12.     ENDIF
  13.     CloseLibrary(reqbase)
  14.   ELSE
  15.     WriteF('Could not open req.library!\n')
  16.   ENDIF
  17. ENDPROC
  18.  
  19. PROC request(messy,yes,no)
  20. ENDPROC TextRequest([messy,0,0,0,yes,no,'Huh?',0,0,$2FFFF,0,0])
  21.