home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / amosfactory / ext / lha / intui.lha / examples / ellipse2.AMOS / ellipse2.amosSourceCode
Encoding:
AMOS Source Code  |  1996-04-06  |  1.3 KB  |  62 lines
  1. Amos To Back 
  2.  Extension_25_02BE $100,0,0,0,0,0,0,0
  3.  Extension_25_021E $400,0,0,0,0,0,0,0,0
  4.  Extension_25_0070 $1000,$800,,,,,,,
  5. Repeat 
  6. Inc B
  7.  Extension_25_02F6 0,$0,$F00,$F05,$F0F,$A00,$AF5,$1F5,$50F
  8.  Extension_25_02F6 1,$0,$F00,$FFF,$184,$58F,$F11,$1F2,$11F
  9.  Extension_25_0282 0,0,0,320,256,4,0,1,$0
  10.  Extension_25_0006 0,0,10,320,240,150,50,320,240
  11.  Extension_25_0318 16
  12. For A=0 To 299
  13.  Extension_25_01BA Rnd(14)+1
  14. X=Rnd(290)+5
  15. Y=Rnd(190)+5
  16. X2=Rnd(20)+5
  17. Y2=Rnd(20)+5
  18.  Extension_25_01E0 X,Y,X2,Y2
  19. Next A
  20. '
  21.  Extension_25_02F6 0,$0,$F0,$F05,$F0F,$A00,$AF5,$1F5,$50F
  22.  Extension_25_02F6 1,$0,$F0,$FFF,$184,$58F,$F11,$1F2,$11F
  23. '
  24.  Extension_25_0282 1,0,60,320,256,4,0,1,$0
  25.  Extension_25_0006 1,0,10,320,240,150,50,320,240
  26.  Extension_25_0318 16
  27. For A=0 To 299
  28.  Extension_25_01BA Rnd(14)+1
  29. X=Rnd(290)+5
  30. Y=Rnd(190)+5
  31.  Extension_25_01E0 X,Y,10,10
  32. Next A
  33. '
  34.  Extension_25_02F6 0,$0,$F,$F05,$F0F,$A00,$AF5,$1F5,$50F
  35.  Extension_25_02F6 1,$0,$F,$FFF,$184,$58F,$F11,$1F2,$11F
  36. '
  37. '
  38.  Extension_25_0282 2,0,120,320,256,4,0,1,$0
  39.  Extension_25_0006 2,0,10,320,240,150,50,320,240
  40.  Extension_25_0318 16
  41. For A=0 To 299
  42.  Extension_25_01BA Rnd(14)+1
  43. X=Rnd(290)+5
  44. Y=Rnd(200)+5
  45.  Extension_25_01E0 X,Y,X+10,Y+10
  46. Next A
  47. '
  48. '
  49. '
  50. Wait 200
  51. '
  52. '
  53.  Extension_25_002C 0
  54.  Extension_25_002C 1
  55.  Extension_25_002C 2
  56.  Extension_25_02A8 0
  57.  Extension_25_02A8 1
  58.  Extension_25_02A8 2
  59. Until B=2
  60. Amos To Front 
  61. '
  62. End