home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd602 / pic_star.amos / pic_star.amosSourceCode < prev    next >
AMOS Source Code  |  1993-02-25  |  781b  |  32 lines
  1. Screen Open 0,320,200,16,Lowres
  2. Cls 0
  3. Print "YOUR TEXT" : Print "OR PICCY HERE" : Print "no what i mean!"
  4. RemLoad Iff "billybutt.iff",0
  5. RemLoad "stuff/stars.abk"
  6. Hide 
  7. Synchro Off 
  8. Colour 17,$555 : Colour 21,$555 : Colour 25,$555 : Colour 29,$555
  9. Colour 18,$AAA : Colour 22,$AAA : Colour 26,$AAA : Colour 30,$AAA
  10. Colour 19,$FFF : Colour 23,$FFF : Colour 27,$FFF : Colour 31,$FFF
  11. For N=8 To 49
  12.    Channel N To Sprite N
  13.    S=Rnd(2)
  14.    Sprite N,250,Rnd(200)+70,S+1
  15.    If S=2 Then Move X N,"(1,4,50)(1,-200,1)L"
  16.    If S=1 Then Move X N,"(1,3,66)(1,-198,1)L"
  17.    If S=0 Then Move X N,"(1,2,100)(1,-200,1)L"
  18.    Move On N
  19.    For M=0 To 3
  20.       Wait Vbl 
  21.       Synchro 
  22.    Next M
  23. Next N
  24. Repeat 
  25.    Wait Vbl 
  26.    Synchro 
  27. Until Mouse Key=1
  28. Fade 2
  29. For N=0 To 29
  30.    Wait Vbl 
  31.    Synchro 
  32. Next N