home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 126-150 / apd144 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1992-05-20  |  4KB  |  111 lines
  1. MEMORY_CHECK:
  2. Screen Open 0,320,200,2,Lowres : Hide On : Curs Off : Flash Off : Cls 0 : Palette $0,$F00
  3. Close Workbench : Close Editor 
  4. Locate 5,10 : Pen 1 : Centre "PLEASE NOTE!"
  5. Locate 5,12 : Pen 1 : Centre "THIS MUSIC PLAYER NEEDS 1 MEG OF MEMORY"
  6. Locate 5,14 : Pen 1 : Centre "PRESS LEFT MOUSE BUTTON TO CONTINUE"
  7. While Mouse Key<>1 : Wend 
  8. Fade 5,$0,$0 : Wait 60 : Cls 0
  9. Fade 5,$0,$F0
  10. If Fast Free=0 Then Locate 5,12 : Pen 1 : Centre "FAST RAM IS NOT ACTIVE" : Locate 5,14 : Pen 1 : Centre "PLEASE TRY AGAIN WITH FAST RAM ACTIVE" : Wait 200 : Stop 
  11. Hide On : Cls 0 : Screen Close 0
  12. SCRN_SETUPS:
  13. TUNE=0 : VOL=63
  14. Dir$="AMOS MUSIC PLAYER:"
  15. Screen Open 1,320,200,16,Lowres : Curs Off : Flash Off : Cls 0 : Unpack 6 To 1 : Screen Hide 1 : Erase 6
  16. Screen Open 4,320,200,16,Lowres : Curs Off : Flash Off : Cls 0 : Screen Display 4,64,300,0,0 : Screen Copy 1,0,0,320,200 To 4,0,0 : Get Palette 1 : For N=-180 To 10 Step 1 : Screen Display 4,134,N,320,200 : Wait 1 : Next N : Screen Close 1
  17. Double Buffer 
  18. Wait 20
  19. Screen Open 3,320,60,2,Lowres : Curs Off : Flash Off : Cls 0 : Palette $0,$0 : Screen Display 3,134,300,320,60
  20. Screen 3 : Locate 6,1 : Paper 0 : Pen 1 : Print "LEFT BUTTON: QUIT"
  21. Screen 3 : Locate 6,3 : Paper 0 : Pen 1 : Print "RIGHT BUTTON: LOAD NEXT TUNE"
  22. Screen 3 : Locate 6,5 : Paper 0 : Pen 1 : Print "PLAYING: ";TUNE$
  23. Gosub RNBOW
  24. For N=300 To 220 Step -1 : Screen Display 3,134,N,320,60 : Wait 1 : Next N
  25. Screen Open 2,100,110,16,Lowres
  26. Screen Display 2,64,0,0,0
  27. Curs Off : Flash Off : Cls 0
  28. Get Sprite Palette 
  29. Wait 50
  30. Screen 4 : Locate 13,12 : Paper 0 : Pen 7 : Print "DISK ACCESS..."
  31. Load "ARTII.abk",3
  32. Wait 10
  33. TUNE$="ART II"
  34. Screen 3 : Locate 15,5 : Paper 0 : Pen 1 : Print TUNE$
  35. Music 1
  36. Do 
  37. Gosub LEDS
  38. Tempo 17
  39. If Mouse Key=1 Then Gosub HAD_ENOUGH
  40. If Mouse Key=2 Then Gosub CLEANUP : Erase 3 : Gosub NXTTUNE : Wait 10 : Gosub RESTART
  41. Volume VOL
  42. If Key State(80)=True and VOL>1 Then Clear Key : Dec VOL
  43. If Key State(81)=True and VOL<63 Then Clear Key : Inc VOL
  44. Wait Vbl 
  45. Loop 
  46. LEDS:
  47. X1=Vumeter(0)
  48. X2=Vumeter(1)
  49. X3=Vumeter(2)
  50. X4=Vumeter(3)
  51. If X1>V1 Then V1=X1
  52. If X2>V2 Then V2=X2
  53. If X3>V3 Then V3=X3
  54. If X4>V4 Then V4=X4
  55. Screen 2
  56. Bob 1,0,45,V1+1
  57. Bob 2,8,45,V2+1
  58. Bob 3,16,45,V3+1
  59. Bob 4,24,45,V4+1
  60. Screen Copy 2,0,45,32,106 To 4,96,81
  61. Screen Copy 2,0,45,32,106 To 4,128,81
  62. Screen Copy 2,0,45,32,106 To 4,160,81
  63. Screen Copy 2,0,45,32,106 To 4,192,81
  64. Screen 4
  65. Dec V1 : Dec V1 : Dec V1 : If V1<0 Then V1=0
  66. Dec V2 : Dec V2 : Dec V2 : If V2<0 Then V2=0
  67. Dec V3 : Dec V3 : Dec V3 : If V3<0 Then V3=0
  68. Dec V4 : Dec V4 : Dec V4 : If V4<0 Then V4=0
  69. Return 
  70. NXTTUNE:
  71. TUNE=TUNE+1
  72. If TUNE=1 Then Load "NEVERENDING STORY.ABK",3 : TUNE$="NEVERENDING STORY"
  73. If TUNE=2 Then Load "FROZEN DAY.ABK",3 : TUNE$="FROZEN DAY"
  74. If TUNE=3 Then Load "WHAT I AM.ABK",3 : TUNE$="WHAT I AM"
  75. If TUNE=4 Then Load "NO INSPIRATION.ABK",3 : TUNE$="NO INSPIRATION"
  76. If TUNE=5 Then Load "CONANS FIRST.ABK",3 : TUNE$="CONANS FIRST"
  77. If TUNE=6 Then Load "DALEY.ABK",3 : TUNE$="DALEY"
  78. If TUNE=7 Then Load "WOWEE ZOWEE.ABK",3 : TUNE$="WOWEE ZOWEE"
  79. If TUNE=8 Then Load "ARTII.ABK",3 : TUNE$="ART II"
  80. If TUNE=9 Then TUNE=0 : Goto NXTTUNE
  81. Screen 3 : Locate 15,5 : Paper 0 : Pen 1 : Print Space$(18) : Locate 15,5 : Paper 0 : Pen 1 : Print TUNE$
  82. Return 
  83. CLEANUP:
  84. For VOL=63 To 0 Step -1 : Wait 2 : Volume VOL : Gosub LEDS : Next VOL
  85. V1=0 : V2=0 : V3=0 : V4=0 : Gosub LEDS : Screen 4 : Locate 13,12 : Paper 0 : Pen 7 : Print "DISK ACCESS..."
  86. Return 
  87. RESTART:
  88. VOL=63
  89. Wait 5
  90. Music 1
  91. Return 
  92. HAD_ENOUGH:
  93. For N=60 To 0 Step -1 : Screen Display 3,134,220,320,N : Gosub LEDS : Next N
  94. For N=200 To 0 Step -1 : Screen Display 4,134,10,320,N : Gosub LEDS : Next N
  95. For VOL=63 To 0 Step -2 : Volume VOL : Wait 2 : Next VOL : End 
  96. RNBOW:
  97. Set Rainbow 2,1,220,"","",""
  98. Rainbow 2,0,213,220
  99. Colour Back 0
  100. Restore RDATA3
  101. For C=15 To 78 : Read CVA : Rain(2,C)=CVA
  102. Next C : View : Return 
  103. RDATA3:
  104. Data $F,$2F,$4F,$7F,$9F,$BF,$DF,$FF
  105. Data $FD,$FA,$F8,$F6,$F4,$F2,$F0,$2F0
  106. Data $4F0,$6F0,$8F0,$AF0,$BF0,$DF0,$FF0,$FD0
  107. Data $FB0,$F90,$F70,$F60,$F40,$F20,$F00,$F00
  108. Data $F20,$F40,$F60,$F70,$F90,$FB0,$FD0,$FF0
  109. Data $DF0,$BF0,$AF0,$8F0,$6F0,$4F0,$2F0,$F0
  110. Data $F2,$F4,$F6,$F8,$FA,$FD,$FF,$DF
  111. Data $BF,$9F,$7F,$4F,$2F,$F,$F,$2F