home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd129 / m / m.amosSourceCode < prev    next >
AMOS Source Code  |  1990-08-11  |  3KB  |  188 lines
  1. Proc D
  2. Procedure D
  3. S=Screen
  4. If S=1
  5. Fade 2
  6. Wait 30
  7. Screen Close 1
  8. Screen 0
  9. Fade 2
  10. Wait 30
  11. End If 
  12. RS:
  13. Screen Open 0,320,50,16,L
  14. Curs Off 
  15. Cls 0
  16. MS=1
  17. Flash Off 
  18. Hide 
  19. Curs Off 
  20. Unpack 8 To 0
  21. Flash Off 
  22. Double Buffer 
  23. Ink 1
  24. Bar 0,34 To 320,59
  25. Set Rainbow 0,1,27,"","","(2,1,15)"
  26.    Channel 1 To Bob 1
  27. Bob 1,0,0,1
  28. Amal 1,"Loop: Let X=XM-180;Let Y=YM+78;Pause; Jump Loop"
  29. Amal On 
  30. Reserve Zone 3
  31. Set Zone 1,376,48 To 400,58
  32. Set Zone 2,375,63 To 401,74
  33. Set Zone 3,407,48 To 433,71
  34. Rainbow 0,0,76,27
  35. Paste Bob 120,80,3
  36. Paste Bob 120,89,4
  37. Paste Bob 120,98,6
  38. Paste Bob 120,107,8
  39. Paste Bob 120,116,10
  40. Paste Bob 120,125,12
  41. Paste Bob 120,134,14
  42. Do 
  43. Repeat 
  44. If Mouse Key=0
  45. PR=0
  46. End If 
  47. Until Mouse Key=1
  48. If PR=0
  49. On Zone(X Mouse,Y Mouse) Gosub A,B,C
  50. End If 
  51. Loop 
  52. A:
  53. If MS>1
  54. Dec MS
  55. Update Off 
  56. PR=1
  57. Wait Vbl 
  58. Gosub EF
  59.    On MS Gosub A1,A2,A3,A4,A5,A6,A7
  60. Update On 
  61. End If 
  62. Return 
  63. B:
  64. If MS<7
  65. Inc MS
  66. Update Off 
  67. PR=1
  68. Wait Vbl 
  69. Gosub EF
  70. On MS Gosub A1,A2,A3,A4,A5,A6,A7
  71. Update On 
  72. End If 
  73. Return 
  74. A1:
  75. Paste Bob 120,80,3
  76. Return 
  77. A2:
  78. Paste Bob 120,89,5
  79. Return 
  80. A3:
  81. Paste Bob 120,98,7
  82. Return 
  83. A4:
  84. Paste Bob 120,107,9
  85. Return 
  86. A5:
  87. Paste Bob 120,116,11
  88. Return 
  89. A6:
  90. Paste Bob 120,125,13
  91. Return 
  92. A7:
  93. Paste Bob 120,134,15
  94. Return 
  95. EF:
  96. Paste Bob 120,80,2
  97. Paste Bob 120,89,4
  98. Paste Bob 120,98,6
  99. Paste Bob 120,107,8
  100. Paste Bob 120,116,10
  101. Paste Bob 120,125,12
  102. Paste Bob 120,134,14
  103. Return 
  104. C:
  105. Amal 1,"Move 0,200,50"
  106. Amal On 1
  107. Wait 25
  108. Set Rainbow 0,7,16,"","",""
  109. Rainbow 0,0,270,16
  110. Fade 3
  111. Wait 40
  112. If MS=7
  113. Goto RAS
  114. End If 
  115. Screen Open 1,320,15,2,L
  116. Screen Hide 1
  117. Screen Close 0
  118. Unpack 9 To 1
  119. Screen Hide 1
  120. For N=0 To 31
  121. Colour N,0
  122. Next N
  123. Screen Show 1
  124. Fade 2,$0,$F00,$0,$100,$200,$410,$510,$611,$711,$821,$921,$A31,$B42,$C52,$D72,$E82,$E94,$EA6,$EB7,$EC9,$FDB,$FED,$FFF,$F00,$111,$333,$555,$777,$999,$AAA,$CCC,$EEE
  125. Wait 30
  126. Flash 1,"(900,4)(800,4)(700,4)(600,4)(500,4)(400,4)(300,4)(200,4)(100,4)(200,4)(300,4)(400,4)(500,4)(600,4)(700,4)(800,4)"
  127. Wait 10
  128. Plot 0,0,MS+1
  129. Run "d"
  130. Return 
  131. RAS:
  132. Screen 0
  133. Ink 0
  134. Bar 0,34 To 320,60
  135. Bob Off 
  136. Cls 0
  137. Pen 1
  138. Paper 0
  139. Colour 1,0
  140. Centre "**************"
  141. Print 
  142. Centre "SYNTEX" : Print 
  143. Centre "**************"
  144. Print : Print 
  145. Centre "HERE THE LIST OF SYNTEX MEMBERS :"
  146. Print 
  147. Centre "AVORIAZ (CODING & GFX)" : Print 
  148. Centre "BIRD    (MUSICS AND SAMPLING)" : Print 
  149. Centre "MAXIMUM OVERDRIVE (CODING & GFX)" : Print 
  150. Centre "LUX INTERIOR  (MUSICS AND SAMPLING)" : Print 
  151. Print : Print 
  152. Print "INTRO CODED BY MAXIMUM OVERDRIVE"
  153. Print "MENU AND DEMOPLAYER BY AVORIAZ"
  154. Print "MUSICS & SOUNDS, LUX INTERIOR AND BIRD"
  155. Print : Print 
  156. Print "THIS DEMO WAS ENTERLY RELEASED IN AMOS" : Print : Print 
  157. Print "CONTACTS : 3615 RTEL (SYNTEX)"
  158. Set Rainbow 1,1,171,"","",""
  159. D=1
  160. Restore 
  161. A=0
  162.  Do 
  163. For N=0 To 170
  164. D=-D
  165. If Mouse Key=1
  166. Set Rainbow 1,0,17,"","",""
  167. Rainbow 1,0,0,0
  168. Goto RS
  169. End If 
  170. If D<0
  171. Read X
  172. End If 
  173. Rain(1,N)=X
  174. Rainbow 1,N,0,171
  175. Wait Vbl 
  176. Inc A
  177. If A=>96
  178. Restore 
  179. A=0
  180. End If 
  181. Next N
  182. Loop 
  183. End 
  184. Data $F00,$F20,$F40,$F60,$F70,$F90,$FB0,$FD0,$FF0,$DF0,$BF0,$9F0
  185. Data $7F0,$6F0,$4F0,$2F0,$F0,$F2,$F4,$F6,$F7,$F9,$FB,$FD
  186. Data $FF,$DF,$BF,$9F,$7F,$6F,$4F,$2F,$F,$20F,$40F,$60F
  187. Data $70F,$90F,$B0F,$D0F,$F0F,$F0C,$F0A,$F08,$F07,$F05,$F03,$F01
  188. End Proc