home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 076-100 / apd099 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1994-01-01  |  3KB  |  156 lines
  1. Load "crsong2.abk"
  2. Degree 
  3. Dim SY(360),SX(360),CH(20)
  4. Dim SY1(360),SX1(360),CH1(20)
  5. For I=0 To 359
  6.    SX(I)=(40*Sin(I))
  7.    SY(I)=20+(18*Cos(I))
  8. Next I
  9. For I=0 To 359
  10.    SX1(I)=(60*Sin(I))
  11.    SY1(I)=(40*Cos(I))
  12. Next I
  13. For I=1 To 8
  14.    Sprite I+10,0,0,I
  15.    CH(I)=(I-1)*20
  16. Next I
  17. Music 1
  18. Screen Open 0,320,255,2,0
  19. Palette $FFF,0
  20. Hide 
  21. Curs Off 
  22. Hide 
  23. Cls 0
  24. Fade 2,0
  25. Wait 190
  26. Screen Open 0,320,80,2,0
  27. Palette $0,0,0,0,0,0,0,0,$C40,$310
  28. Curs Off 
  29. Flash Off 
  30. Screen Open 1,320,80,2,0
  31. Curs Off 
  32. Flash Off 
  33. Screen Display 0,,170,,60
  34. Screen Display 1,,170,,60
  35. Wait Vbl 
  36. Dual Playfield 0,1
  37. Screen Open 2,640,16,2,Hires
  38. Curs Off 
  39. Cls 0
  40. Palette $0,$FFF
  41. Screen Display 2,,48,,
  42. Pen 1
  43. Paper 0
  44. Text 140,9,"Press Left Mouse Button During Demo To Continue"
  45. Flash Off 
  46. Screen Open 3,320,90,2,0
  47. Palette 0,0
  48. Screen Display 3,,46+16,,
  49. Curs Off 
  50. Flash Off 
  51. Cls 1
  52. Screen 0
  53. Palette $0,$FFF
  54. Curs Off : Flash Off : Hide 
  55. Def Scroll 1,0,0 To 320,71,-2,-1
  56. Def Scroll 2,0,0 To 320,71,-2,1
  57. Def Scroll 3,0,8 To 320,52,0,-1
  58. Def Scroll 4,0,8 To 320,52,0,1
  59. Screen 0
  60. Set Rainbow 1,1,64,"","",""
  61. Restore RN
  62. For F=0 To 63
  63.    Read A
  64.    Rain(1,F)=A
  65. Next F
  66. Set Rainbow 2,1,82,"","",""
  67. Restore TP
  68. For F=0 To 81
  69.    Read A
  70.    Rain(2,F)=A
  71. Next F
  72. Screen 1
  73. SC=250
  74. Screen 0
  75. Ink 1
  76. TX=1
  77. AD=1
  78. TX$="Welcome               to the BENSON demo.            Written in AMOS by Leslie Benzies    "
  79. TX$=TX$+"        Mouse to Continue                   !"
  80. Screen 2
  81. For I=1 To 200
  82.    BL=BL+AD
  83.    If BL=31 Then AD=-1
  84.    If BL=0 Then AD=1
  85.    Wait Vbl 
  86.    Palette BL/2
  87. Next I
  88. Rainbow 1,0,169,64
  89. Rainbow 2,0,48+17,82
  90. Sprite Update Off 
  91. AA=-40
  92. Screen 3
  93. Palette 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,$0,$FFF,$666,$0,0,$FFF,$666,$0,0,$FFF,$666,$0,0,$FFF,$666,$0
  94. Do 
  95.    For GL=1 To 8
  96.       Add AA,1,-40 To 320+128
  97.       For I=1 To 8
  98.          Add CH(I),6,0 To 359
  99.          Sprite I+10,SX(CH(I))+AA+I*16,SY(CH(I))+78,
  100.       Next I
  101.       If Mouse Key=1 Then Goto FINITO
  102.       BL=BL+AD
  103.       If BL=31 Then AD=-1
  104.       If BL=0 Then AD=1
  105.       Screen 0
  106.       Wait Vbl 
  107.       Scroll 1
  108.       Scroll 3
  109.       Screen 1
  110.       Scroll 2
  111.       Scroll 4
  112.       Screen Copy 0,0,0,300,1 To 1,0,0
  113.       Screen Copy 1,0,58,280,61 To 0,0,58
  114.       Screen 2
  115.       Palette BL/2
  116.       Sprite Update 
  117.    Next GL
  118.    Screen 0
  119.    If Mid$(TX$,TX,1)="!"
  120.       TX=1
  121.    End If 
  122.    Text 310,68,Mid$(TX$,TX,1)
  123.    Inc TX
  124. Loop 
  125. RN:
  126. Data $0,$100,$200,$310,$410,$520,$620,$730,$830,$940,$A40,$B50,$C50,$D60,$E60,$F70
  127. Data $F70,$F80,$F80,$F90,$F90,$FA0,$FA0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FB0,$FA0,$FA0,$F90,$F90,$F90,$F90,$F80
  128. Data $F70,$E60,$D60,$C50,$B50,$A40,$940,$830,$730,$620,$520,$410,$310,$200,$100,$0,0,0,0
  129. Data $100,$200,$300,$400,$500,$600,$700,$800,$900,$A00,$B00,$C00,$D00,$E00,$F00
  130. TP:
  131. Data $200,$400,$600,$800,$A00,$C00,$F00,$C00,$A00,$800,$600,$400,$200
  132. Data $F10,$F20,$F30,$F40,$F50,$F60,$F70,$F80,$F90,$FA0,$FB0,$FC0,$FD0,$FE0,$FF0
  133. Data $EF0,$DF0,$CF0,$BF0,$AF0,$9F0,$8F0,$7F0,$6F0,$5F0,$4F0,$3F0,$2F0,$1F0,$F0
  134. Data $F1,$F2,$F3,$F4,$F5,$F6,$F7,$F8,$F9,$FA,$FB,$FC,$FD,$FE,$FF
  135. 'Data $EF,$DF,$CF,$BF,$AF,$9F,$8F,$7F,$6F,$5F,$4F,$3F,$2F,$1F,$F 
  136. Data $EF,$DF,$CF,$BF,$AF,$9F,$8F,$7F,$6F
  137. Data 0,$100,$200,$400,$600,$800,$A00,$C00,$F00,$C00,$A00,$800,$600,$400,$200
  138. FINITO:
  139. Screen Close 0
  140. Screen Close 1
  141. Screen Close 2
  142. Screen Close 3
  143. Erase 3
  144. Set Rainbow 1,0,16,"","",""
  145. Set Rainbow 2,0,16,"","",""
  146. Rainbow 1,0,300,1
  147. Rainbow 2,0,300,1
  148. Sprite Update On 
  149. Update On 
  150. For I=1 To 8
  151.    Sprite I+10,50,0,0
  152. Next I
  153. Sprite Off 
  154. Update 
  155. Wait Vbl 
  156. Run "dropzone.amos"