home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / amosfactory / ext / lha / intui.lha / examples / window+asl.AMOS / window+asl.amosSourceCode
Encoding:
AMOS Source Code  |  1996-04-06  |  616 b   |  24 lines
  1. Amos To Back 
  2.  Extension_25_021E $200,$400,$0,$0,$0,$0,$0,$0,$0
  3.  Extension_25_0070 $1,$2,$4,$8,$1400,,,,
  4.  Extension_25_0006 0,0,10,640,240,100,50,640,240
  5. Wait 50
  6.  Extension_25_03D6 1
  7.  Extension_25_04A8 "SYS:"
  8.  Extension_25_014C "Press Any Key To Call Up The ASL File Requester",10,20
  9. Repeat 
  10. EV= Extension_25_0210 
  11. If EV=$400
  12. C$= Extension_25_0172("Pick A File","Ok","Cancel",0,1,125,30,310,193)
  13. FILE=1
  14. End If 
  15. If FILE=1
  16. If C$="" : A$="You Pressed Cancel" : End If 
  17. If C$>"" : A$="You Selected "+C$ : End If 
  18.  Extension_25_014C A$+Space$(20),10,50
  19. FILE=0
  20. End If 
  21. Until EV=$200
  22.  Extension_25_002C 0
  23. Amos To Front 
  24. End