home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / amosfactory / ext / lha / intui.lha / examples / window_move.AMOS / window_move.amosSourceCode
Encoding:
AMOS Source Code  |  1996-04-06  |  412 b   |  16 lines
  1. Amos To Back 
  2.  Extension_25_021E $200,$400,,,,,,,
  3.  Extension_25_0070 $1,$2,$4,$8,$400,$1000,,,
  4.  Extension_25_0006 0,0,10,140,50,,,,
  5.  Extension_25_01BA 1
  6.  Extension_25_014C "   Press Any",0,10
  7.  Extension_25_014C "    key to",0,18
  8.  Extension_25_014C "Move The Window",0,26
  9. Repeat 
  10. EV= Extension_25_0210 
  11. If EV=$400
  12. X=Rnd(640)-320 : Y=Rnd(256)-128 : Extension_25_0042 X,Y
  13. Wait 10
  14. End If 
  15. Until EV=$200
  16. Amos To Front