home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / amosfactory / ext / lha / intui.lha / examples / ellipse1.AMOS / ellipse1.amosSourceCode
Encoding:
AMOS Source Code  |  1996-04-06  |  747 b   |  27 lines
  1. Amos To Back 
  2.  Extension_25_02BE $100,0,0,0,0,0,0,0
  3.  Extension_25_0282 0,0,0,320,256,8,0,3,$0
  4.  Extension_25_021E $400,0,0,0,0,0,0,0,0
  5.  Extension_25_0070 $800,$1000,,,,,,,
  6.  Extension_25_0006 0,0,10,320,240,150,50,320,240
  7.  Extension_25_015E 0
  8.  Extension_25_02F6 0,$0,$F00,$F05,$F0F,$A00,$AF5,$1F5,$50F
  9.  Extension_25_02F6 1,$0,$F60,$FFF,$184,$58F,$F11,$1F2,$11F
  10.  Extension_25_0318 16
  11.  Extension_25_014C "Press Any Key",0,10
  12.  Extension_25_014C "   To Quit",0,18
  13.  Extension_25_014C "This Screen Can Be Dragged",110,20
  14. For A=0 To 299
  15.  Extension_25_01BA Rnd(14)+1
  16. X=Rnd(290)+20
  17. Y=Rnd(190)+40
  18. X2=Rnd(20)+5
  19. Y2=Rnd(20)+5
  20.  Extension_25_01E0 X,Y,X2,Y2
  21. Next A
  22. Repeat 
  23. EV= Extension_25_0210 
  24. Until EV=$400
  25.  Extension_25_002C 0
  26.  Extension_25_02A8 0
  27. Amos To Front