home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / amiga_e-2.1b.lha / Amiga_E-2.1b / Sources / Examples / Ereq.e < prev    next >
Encoding:
Text File  |  1993-10-05  |  555 b   |  18 lines
  1. /* Thanks to E lists, it's *that* simple ... */
  2.  
  3. OPT OSVERSION=37
  4.  
  5. PROC main()
  6.   DEF r
  7.   r:=request('Ahem...','Sure|Nope',NIL)
  8.   request('Your selection: \d','what do i care ...',[r])
  9.   request('More requesters coming up','sigh..',NIL)
  10.   r:=request('What will it be:','1|2|3|4|5',NIL)
  11.   request('Your selection: \d','what do i care ...',[r])
  12.   request('execbase is at $\z\h[8]','Really...',[execbase])
  13.   request('Done!','Aaaaaaaaaaaaaaaaaaaaaaaaaargh!',NIL)
  14. ENDPROC
  15.  
  16. PROC request(body,gadgets,args)
  17. ENDPROC EasyRequestArgs(0,[20,0,0,body,gadgets],0,args)
  18.