home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 101-125 / apd122 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1990-01-02  |  3KB  |  123 lines
  1. '*****************************************************************     
  2. '* AMOS Jukebox #1 - Written by Jon of Electrolyte on 28/12/1990 *     
  3. '*   Thanks to Steve Richards for help with the Equaliser        *     
  4. '*                   Hi to Everyone I know                       *   
  5. '*****************************************************************   
  6. '
  7. Close Workbench : Close Editor 
  8. Dir$="AMOS JUKEBOX #1:"
  9. '
  10. Get Disc Fonts 
  11. Dim Y(3)
  12. Led Off : Erase 3 : Hide On 
  13. Unpack 6 To 0
  14. Screen Display 0,112,18,,
  15. Double Buffer 
  16. Set Rainbow 0,1,65,"(4,1,15)","(5,1,15)","(4,1,15)"
  17. Gr Writing 0
  18. '
  19. Rainbow 0,1,212,65
  20. '
  21. A$=A$+"AUtotest(Let R1=Vu(R0)*3; If R1=0 eXit else Direct Start)"
  22. A$=A$+"Start: Anim 1,(13,3)(12,4)(11,4)(10,4)(9,4)(8,4)(7,4)(6,4)(5,4)(4,4)(3,4)(2,4)(1,4); P; W;"
  23. '
  24. Amreg(0)=194
  25. Amreg(1)=25
  26. For N=0 To 3
  27.    Channel N To Bob N
  28.    Bob N,97+N*50,Amreg(0),1
  29.    Amal N,"Let R0="+Str$(N)+A$
  30. Next N
  31. Amal On 
  32. Set Font 1
  33. '
  34. Do 
  35.    CHECK:
  36.    If Key State(80)=True Then Gosub FIRST
  37.    If Key State(81)=True Then Gosub SECOND
  38.    If Key State(82)=True Then Gosub THIRD
  39.    If Key State(83)=True Then Gosub FOURTH
  40.    If Key State(84)=True Then Gosub FIFTH
  41.    If Key State(85)=True Then Gosub SIXTH
  42.    If Key State(86)=True Then Gosub SEVENTH
  43.    If Key State(87)=True Then Gosub EIGHTH
  44.    If Key State(88)=True Then Gosub NINTH
  45.    If Mouse Key=3 Then Gosub FDE : Erase 3 : Show On : Edit 
  46.    If Mouse Key=2 Then Bchg 1,$BFE001
  47. Loop 
  48. '
  49. FIRST:
  50. Gosub LD : FL$="F1..FRIENDSHIP..F1"
  51. Music Off : Erase 3 : Load "Friendship.ABK"
  52. Gosub PL : Music 1 : Volume 63
  53. Return 
  54. '
  55. SECOND:
  56. Gosub LD : FL$="F2..INTROBEAT..F2"
  57. Music Off : Erase 3 : Load "Introbeat.ABK"
  58. Gosub PL : Music 1 : Volume 63
  59. Return 
  60. '
  61. THIRD:
  62. Gosub LD : FL$="F3..MAD MAZE..F3"
  63. Music Off : Erase 3 : Load "Mad-Maze.ABK"
  64. Gosub PL : Music 1 : Volume 63
  65. Return 
  66. '
  67. FOURTH:
  68. Gosub LD : FL$="F4..PIANO PLINKER..F4"
  69. Music Off : Erase 3 : Load "Piano-Plinker.ABK"
  70. Gosub PL : Music 1 : Volume 63
  71. Return 
  72. '
  73. FIFTH:
  74. Gosub LD : FL$="F5..SMOKE..F5"
  75. Music Off : Erase 3 : Load "Smoke.ABK"
  76. Gosub PL : Music 1 : Volume 63
  77. Return 
  78. '
  79. SIXTH:
  80. Gosub LD : FL$="F6..STARWORX..F6"
  81. Music Off : Erase 3 : Load "StarWorx.ABK"
  82. Gosub PL : Music 1 : Volume 63
  83. Return 
  84. '
  85. SEVENTH:
  86. Gosub LD : FL$="F7..STRANGE LOADER..F7"
  87. Music Off : Erase 3 : Load "Strange-Loader.ABK"
  88. Gosub PL : Music 1 : Volume 63
  89. Return 
  90. '
  91. EIGHTH:
  92. Gosub LD : FL$="F8..TELEPHONE..F8"
  93. Music Off : Erase 3 : Load "Telephone.ABK"
  94. Gosub PL : Music 1 : Volume 63
  95. Return 
  96. '
  97. NINTH:
  98. Gosub LD : FL$="F9..THE EXPERIMENT..F9"
  99. Music Off : Erase 3 : Load "The-Experiment.ABK"
  100. Gosub PL : Music 1 : Volume 63
  101. Return 
  102. '
  103. LD:
  104. Cls 0,1,268 To 356,280
  105. T$="...LOADING MUSIC..."
  106. Ink 6 : Text 170-Len(T$)*4,276,T$
  107. Ink 2 : Text 168-Len(T$)*4,275,T$
  108. Gosub FDE
  109. Return 
  110. '
  111. PL:
  112. Cls 0,1,268 To 356,280
  113. T$="NOW PLAYING:   "+FL$
  114. Ink 6 : Text 170-Len(T$)*4,276,T$
  115. Ink 2 : Text 168-Len(T$)*4,275,T$
  116. Return 
  117. '
  118. FDE:
  119. For V=63 To 0 Step -1
  120.    Volume V
  121.    Wait Vbl 
  122. Next 
  123. Return