home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / prelude.amos / prelude.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1991-06-11  |  2.0 KB  |  93 lines
  1. Rem Prelude
  2. Rem by JAG 
  3. Rem
  4. DEMO
  5. Procedure DEMO
  6. '
  7. ' YO LAMER!!  JUST GET THE FUCK OUT OF MY PROGRAMS, OKAY???
  8. '
  9. Screen Open 0,320,256,8,Lowres : Flash Off : Curs Off : Hide On : Cls 0 : Get Sprite Palette 
  10. Close Workbench : Close Editor : Led Off : Music 1 : Break Off 
  11. Dim C(8)
  12. Screen 0
  13. Double Buffer 
  14. Degree 
  15. A$="Loop:  Let Y=R0; Jump Loop;"
  16. B$="Let X=1; Let Y=0; Jump Loop; Restart:  Let Y=Y-255; Pause; Loop:  Let Y=Y+5; If Y>255 then Jump Restart; Pause; Jump Loop;"
  17. For F=1 To 8
  18. Set Bob F,1,,
  19. Bob F,(F*19)+60,,F
  20. Channel F-1 To Bob F
  21. Amal F-1,A$
  22. Next F
  23. Amal On 
  24. M=10
  25. Do 
  26. XA=XA+20 : If XA>360 Then XA=XA-360
  27. Amreg(0,0)=(Sin(XA)*M)+60
  28. Amreg(1,0)=(Sin(XA+10)*M)+60
  29. Amreg(2,0)=(Sin(XA+20)*M)+60
  30. Amreg(3,0)=(Sin(XA+30)*M)+60
  31. Amreg(4,0)=(Sin(XA+40)*M)+60
  32. Amreg(5,0)=(Sin(XA+50)*M)+60
  33. Amreg(6,0)=(Sin(XA+60)*M)+60
  34. Amreg(7,0)=(Sin(XA+70)*M)+60
  35. Wait Vbl 
  36. If Mouse Key=1 Then Goto MDEMO4
  37. Loop 
  38. MDEMO4:
  39. Amal Off 
  40. Fade 3 : Wait 45
  41. For F=1 To 8
  42. Bob Off F
  43. Next F
  44. Screen Open 0,320,256,8,Lowres : Flash Off : Curs Off : Cls 0 : Hide On 
  45. Unpack 7 To 1 : Screen To Back 1
  46. Screen 0 : Get Palette 1
  47. Screen 1
  48. Palette 0,0,0,0,0,0,0,0
  49. Screen 0
  50. Wait Vbl 
  51. Dual Playfield 0,1
  52. Screen 0
  53. Get Disc Fonts 
  54. Set Font 6
  55. For F=8 To 15
  56. Colour(F),Colour(F-8)
  57. Next F
  58. Channel 8 To Screen Offset 1
  59. Amal 8,B$ : Amal On 8
  60. Colour 2,$0 : Pen 1 : Ink 2 : Gr Writing 0 : Paper 0
  61. Text 100,200,"Presents..."
  62. Set Rainbow 0,2,64,"(2,1,15)","","(2,1,15)"
  63. For F=300 To 215 Step -1
  64. Rainbow 0,0,F,30
  65. Wait Vbl 
  66. Next F
  67. Repeat 
  68. Until Mouse Key=1
  69. For F=215 To 340 Step 1
  70. Rainbow 0,0,F,30
  71. Wait Vbl 
  72. Next F
  73. Fade 3 : Wait 45
  74. Unpack 6 To 0 : Screen Hide 0
  75. Screen Open 1,320,256,32,Lowres : Flash Off : Curs Off : Cls 0 : Hide On 
  76. For F=0 To 31 : Colour(F),$0 : Next F
  77. Screen Copy 0,0,0,320,256 To 1,0,0
  78. Screen 1
  79. Fade 5 To 0 : Wait 75
  80. Screen Close 0
  81. Repeat 
  82. Until Mouse Key=1
  83. Fade 5 : Wait 75
  84. Set Rainbow 0,0,16,"","",""
  85. Rainbow 0,0,340,0
  86. Screen Close 1
  87. For F=63 To 0 Step -1
  88. Mvolume F : For T=0 To 1000 : Next T : Next F
  89. Music Off 
  90. Mvolume 63
  91. Screen Open 0,320,256,2,Lowres : Hide On : Cls 0
  92. Run "Intro.AMOS"
  93. End Proc