home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / starfield.amos / starfield.amosSourceCode < prev   
AMOS Source Code  |  1990-12-28  |  527b  |  26 lines
  1. Flash Off 
  2. Curs Off 
  3. Paper 0
  4. Hide 
  5. Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  6. Cls 0
  7. Locate ,10
  8. Centre "DAVID BOUCHERS"
  9. Print 
  10. Centre "STARFIELD"
  11. Fade 10 To -1
  12. Double Buffer 
  13. Randomize Timer
  14. A$="A 0,(1,10)(2,5)(3,5)(4,5)(5,5)(4,5)(3,5)(2,5);A:M 20,0,   ;I X>319 J B;J A;B:L X=-10;J A"
  15. For A=0 To 10
  16.    Bob A,Rnd(300)+10,Rnd(180)+10,1
  17.    Channel A To Bob A
  18.    Mid$(A$,56,2)=Str$(Rnd(70)+19)
  19.    Amal A,A$
  20.    Wait 2
  21.    Amal On A
  22. Next 
  23. Wait Key 
  24. Fade 10,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  25. Wait 160
  26. Amal Off