home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd112 / opener.amos / opener.amosSourceCode < prev    next >
AMOS Source Code  |  1978-01-16  |  1KB  |  57 lines
  1. Cls 0
  2. Screen Open 1,320,512,8,Lowres : Flash Off : Curs Off : Cls 0 : Hide 
  3. Screen Open 0,320,512,8,Lowres : Flash Off : Curs Off : Cls 0 : Hide 
  4. Screen Display 0,128,50,320,256
  5. Screen Display 1,128,50,320,256
  6. Wait Vbl 
  7. Dual Playfield 0,1
  8. Load "musak6.abk"
  9. Screen 0 : For Z=0 To 31 : Colour Z,$0 : Next Z
  10. Screen 1 : Load Iff "happyfront"
  11. Screen Copy 1 To 0
  12. Screen Copy 1,0,0,320,255 To 0,0,256
  13. Screen 1
  14. Cls 0
  15. Load Iff "happyback"
  16. Screen Copy 1,0,0,320,255 To 1,0,256
  17. Screen 0
  18. Fade 5,$0,$F00,$E00,$D00,$C00,$B00,$A00,$900,$0,$40A,$D0D,$B0B,$909,$707,$505,$303
  19. Wait 75
  20. Channel 1 To Screen Offset 1
  21. Channel 2 To Screen Offset 0
  22. Amal 1,"S: M 0,256,512 ; L Y=0 ; J S"
  23. Amal 2,"S: M 0,256,256 ; L Y=0 ; J S"
  24. Amal On 1 : Amal On 2
  25. Music 1 : Tempo 17 : Mvolume 63
  26. For Z=16 To 31 Step 4
  27. Colour Z,$0
  28. Colour Z+1,$F0
  29. Colour Z+2,$C0
  30. Colour Z+3,$A0
  31. Next Z
  32. X=1 : XX=360
  33. COUNTER=3330
  34. F=350
  35. Restore DAT
  36. Degree 
  37. A=0
  38. ST:
  39. Do 
  40. For COUNT=X To XX Step 23
  41. X#=Cos(COUNT)
  42. Y#=Cos(COUNTER)
  43. Read X
  44. Sprite A,X Hard(COUNT),Y Hard(Y#*100+F),X
  45. Add COUNTER,23
  46. Add A,2
  47. Next COUNT
  48. Add F,-1
  49. If F<128 Then F=128
  50. Restore DAT
  51. A=0
  52. If Mouse Key=1 Then Goto TEND
  53. Loop 
  54. DAT:
  55. Data 6,7,8,8,9,10,1,2,3,4,6,5,7,9,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  56. TEND:
  57. Sprite Off : Screen 0 : Sprite Off : Wait Vbl : Erase 1 : Fade 5 : Wait 75 : For Z=63 To 0 Step -1 : Wait Vbl : Mvolume Z : Next Z : Screen Close 0 : Screen Close 1 : Erase 3 : Run "ste.amos"