home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 326-350 / apd326 / intro.amos / intro.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1978-11-13  |  708 b   |  23 lines
  1. Change Mouse 2 : Load "hyperball:Music.abk"
  2.    Screen Open 0,320,256,32,Lowres : Cls 0
  3.    Auto View Off : Music 1 : Unpack 5 To 0
  4.    Screen Display 0,130,300,,
  5. View : Auto View On 
  6.    For R=300 To 46 Step -1
  7.    Screen Display 0,130,R,,
  8.    Wait 2
  9.    Next R : XX=2
  10.    For X=80 To 230 : Sprite 1,X,100+X,1
  11.    Wait 3 : Next X : Gosub LOP
  12. PATRIK:
  13.    For X=63 To 0 Step -1 : Wait 2 : Volume X : Next X : Music Off 
  14.    Fade 1 : Run "hyperball:hyperball.AMOS"
  15. LOP:
  16.    Fade 1 : Wait 16
  17.    Unpack XX To 0 : Screen Clone 1 : Screen To Front 0
  18.    Rem set all colours in screen zero to black
  19.    For X=0 To 31 : Colour X,0 : Next X
  20.    View 
  21.    Fade 3 To 1 : Screen Close 1
  22.    Wait 520 : If XX=2 Then XX=4 : Goto LOP
  23. Return