home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / chaos_vec_r.amos / chaos_vec_r.amosSourceCode < prev   
AMOS Source Code  |  1991-06-13  |  1KB  |  40 lines
  1. Screen Open 1,320,200,16,Lowres : Autoback 0 : Curs Off : Cls 0 : Flash Off 
  2. Paper 0
  3. Centre "-------------------" : Cdown 
  4. Centre "- ADT PRODUCTIONS -" : Cdown 
  5. Centre "-------------------" : Cdown : Cdown 
  6. Centre "" : Cdown 
  7. Centre "- CHAOS VECTOR DEMO -" : Cdown 
  8. Centre "" : Cdown 
  9. Centre "Intro Routine" : Cdown 
  10. Screen Open 0,320,200,16,Lowres : Double Buffer : Autoback 0
  11. Curs Off : Cls 0 : Flash Off 
  12. Music 1
  13.  Extension_4_04D6 "chaos:objects/"
  14.  Extension_4_0016 "vector"
  15.  Extension_4_0016 "chaos"
  16.  Extension_4_0548 
  17.  Extension_4_0054 200
  18.  Extension_4_0036 1,"vector",0,0,5000,1000,-6500,7000
  19.  Extension_4_0036 2,"chaos",0,0,5000,-10000,-6500,7000
  20.  Extension_4_0318 
  21. Z=6000
  22. C=0
  23.     Extension_4_0164 1,"(1,-900,9)L"
  24.     Extension_4_0164 2,"(1,1000,9)L"
  25. Do 
  26.        Extension_4_00EC 1,0,-500,Z
  27.        Extension_4_00EC 2,0,500,Z
  28.    If C>100
  29.       Z=Z-100
  30.        Extension_4_00EC 1,0,-500,Z
  31.        Extension_4_00EC 2,0,500,Z
  32.    End If 
  33.     Extension_4_053C 
  34.     Extension_4_0318 
  35.     Extension_4_049E 1,0,0,320,200 To 0,0
  36.    Screen Swap 
  37.    Wait Vbl 
  38.    Inc C
  39.    If Z=0 Then End 
  40. Loop