home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 42 / af042b.adf / afdemo.lha / AFDemo.AMOS / AFDemo.amosSourceCode
AMOS Source Code  |  1992-11-18  |  446b  |  22 lines
  1. Curs Off : Hide 
  2. Track Load "df0:mod.newbigones",3
  3. Load "df0:AFSprites.abk"
  4. Load "df0:AFDemopic.abk"
  5. Unpack 6 To 0
  6. Track Loop On 
  7. Track Play 
  8. '
  9. Channel 1 To Bob 1
  10. Channel 2 To Bob 2
  11. Channel 3 To Bob 3
  12. '
  13. Do 
  14.    Bob 1,0,0,1
  15.    Bob 2,50,0,2
  16.    Bob 3,0,50,3
  17.    Amal 1,"M 20,20,10 ; M -10,-10,100 ; M 180,180,10"
  18.    Amal 2,"M 50,50,10 ; M -10,-10,100 ; M 100,150,50"
  19.    Amal 3,"M 100,100,100 ; M -10,-10,100 ; M 100,50,20"
  20.    Amal On 
  21.    Wait 300
  22. Loop