home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd109 / autoexec.amos / autoexec.amosSourceCode
AMOS Source Code  |  1990-12-02  |  525b  |  28 lines
  1. Break Off 
  2. Screen Open 0,336,256,8,Lowres
  3. Hide On : Flash Off : Curs Off : Cls 0
  4. Auto View Off 
  5. Get Disc Fonts 
  6. Set Font 1
  7. Set Rainbow 0,0,256,"","",""
  8. Rainbow 0,0,50,256
  9. Wave 0 To 15
  10. TEMP1=1
  11. TEMP2=1
  12. For LOP=89 To 0 Step -1
  13.    Rain(0,LOP)=TEMP2*16
  14.    Rain(0,255-LOP)=TEMP2*16
  15.    Play 96-(20+(LOP/2)),0
  16.    View 
  17.    Add TEMP1,1,1 To 6
  18.    If TEMP1=6 Then Inc TEMP2
  19. Next LOP
  20. Colour 1,$0
  21. T$="Loading"
  22. L=Text Length(T$)
  23. Text(160-L/2)+20,128,T$
  24. T$="Please Wait"
  25. L=Text Length(T$)
  26. Text(160-L/2)+20,160,T$
  27. Wait 100
  28. Run "Birds-of-Prey"