home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd129 / autoexec.amos / autoexec.amosSourceCode
AMOS Source Code  |  1990-08-11  |  2KB  |  66 lines
  1. Proc SYNTEX
  2. Procedure SYNTEX
  3. Load "ms",3
  4. Load "s1",7
  5. Load "s2",9
  6. Load "s3",10
  7. Load "s4",11
  8. Led Off 
  9. Music 1
  10. Unpack 10 To 1
  11. Screen Display 1,388,270,,
  12. Hide : Flash Off 
  13. Palette $0,$0,$0,$0,$0,$0,$0,$0
  14. '
  15. MAIN:
  16. Screen Open 0,320,200,32,L
  17. Unpack 7 To 0
  18. Screen Display 0,160,150,,
  19. Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  20. Fade 3,$0,$600,$400,$500,$610,$710,$810,$920,$A30,$A40,$B40,$B50,$B60,$C70,$C80,$C90,$DA0,$EB0,$EC0,$ED0,$FF0,$FF1,$FF3,$FF4,$FF6,$FF7,$FF8,$FFA,$FFB,$FFC,$FFD,$FFF
  21. Wait 100
  22. Gosub APPARITION
  23. Wait 260
  24. Fade 3,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  25. Wait 50
  26. Gosub DISPARITION
  27. Wait 50
  28. '
  29. '
  30. '
  31. Unpack 9 To 0
  32. Screen Display 0,128,150,,
  33. Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  34. Fade 3,$0,$FF0,$DD0,$BB0,$990,$770,$550,$330,$4F,$4B,$37,$34,$8,$6,$4,$2,$301,$48B
  35. Wait 270
  36. Fade 3
  37. Wait 60
  38. Gosub DISPARITION
  39. Wait 50
  40. '
  41. '
  42. '
  43. Unpack 11 To 0
  44. Screen Display 0,128,28,,
  45. Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0
  46. Fade 4,$0,$FB7,$D95,$B73,$951,$730,$510,$410,$EEE,$DDD,$EB6,$C84,$A62,$840,$520,$753,$BBB,$AAA,$B6,$333,$555,$B6,$888,$CCC,$F00,$C00,$800,$444,$666,$777,$999,$FFF
  47. Wait 50
  48. Screen Display 1,388,283,,
  49. Gosub APPARITION
  50. Wait 200
  51. Repeat 
  52. Until Mouse Key=1
  53. For N=55 To 0 Step -1
  54. Wait 1
  55. Volume N
  56. Next N
  57. Run "lm"
  58. '
  59. '
  60. APPARITION:
  61. Screen 1 : Fade 3,$0,$F00,$D00,$B00,$900,$700,$500,$400 : Screen 0
  62. Return 
  63. DISPARITION:
  64. Screen 1 : Fade 3 : Screen 0
  65. Return 
  66. End Proc