home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 251-275 / apd267 / autoexec.amos / autoexec.amosSourceCode next >
AMOS Source Code  |  1991-07-19  |  3KB  |  115 lines
  1. Screen Open 1,640,50,2,Hires : Curs Off : Cls 0
  2. Palette $0,$FFF
  3. Set Rainbow 0,0,280,"","",""
  4. Rainbow 0,0,0,280
  5. Colour Back 175
  6. OOPS$=" ; AU(L R1=Vu(R0) ; I R1=0 X else Direct Start)"
  7. OOPS$=OOPS$+"Start: A 1,(14,1)(13,1)(12,1)(11,1)(10,1)(9,1)(8,1)(7,1)(6,1)(5,1)(4,1)(3,1)(2,1)(1,1) ; Wait"
  8. Screen Open 0,320,56,2,Lowres : Curs Off : Cls 0
  9. Screen Display 0,112,230,,
  10. Channel 0 To Bob 1
  11. Bob 1,75,10,1
  12. Channel 1 To Bob 2
  13. Bob 2,125,10,1
  14. Channel 2 To Bob 3
  15. Bob 3,175,10,1
  16. Channel 3 To Bob 4
  17. Bob 4,225,10,1
  18. Curs Off 
  19. TMP$="L R0=0"
  20. TMP$=TMP$+OOPS$
  21. TMP2$="L R0=1"
  22. TMP2$=TMP2$+OOPS$
  23. TMP3$="L R0=2"
  24. TMP3$=TMP3$+OOPS$
  25. TMP4$="L R0=3"
  26. TMP4$=TMP4$+OOPS$
  27. Amal 0,TMP$
  28. Amal 1,TMP2$
  29. Amal 2,TMP3$
  30. Amal 3,TMP4$
  31. Amal On 
  32. Restore RDATA
  33. For C=0 To 279 : Read CVA : Rain(0,C)=CVA
  34. Next C : View 
  35. Global NAME$
  36. Do 
  37.    Fade 1,,$FFF
  38.    LD
  39.    PL
  40.    INFO
  41.    Hide 
  42.    Repeat 
  43.    Until Mouse Key
  44.    Show 
  45.    OF
  46. Loop 
  47. Procedure LD
  48.    Show 
  49.    NAME$=Fsel$("Df0:*.abk","","Select Music Bank To Load.","")
  50.    If NAME$=""
  51.       Fade 1
  52.       A=0 : B=279
  53.       Repeat 
  54.          Rain(0,A)=0 : Rain(0,B)=0 : View : Wait Vbl 
  55.          Inc A : Dec B
  56.       Until A>140
  57.       Erase 3
  58.       End 
  59.    End If 
  60.    Hide 
  61.    Load NAME$
  62. End Proc
  63. Procedure PL
  64.    Led Off 
  65.    Mvolume 63 : Music 1
  66. End Proc
  67. Procedure OF
  68.    Music Off : Led On 
  69.    Show 
  70. End Proc
  71. Procedure INFO
  72.    Screen 1
  73.    Cls 0
  74.    TMP$="Playing "+NAME$
  75.    Centre TMP$
  76.    Print : Print : Centre "Click Mouse To Load Next Piece."
  77.    Screen 0
  78. End Proc
  79. RDATA:
  80. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  81. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  82. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  83. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  84. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  85. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  86. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  87. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  88. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  89. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  90. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$AF
  91. Data $AF,$AF,$AF,$AF,$AF,$AF,$AF,$1BF
  92. Data $2CF,$3DF,$4EF,$5EF,$7EF,$8EF,$AEF,$9EF
  93. Data $AF,$11F,$11F,$11F,$11F,$11F,$11F,$11F
  94. Data $11F,$E,$F,$E,$F,$E,$E,$E
  95. Data $E,$D,$E,$D,$E,$D,$D,$D
  96. Data $D,$C,$D,$C,$D,$C,$C,$C
  97. Data $C,$B,$B,$C,$B,$C,$B,$B
  98. Data $B,$A,$B,$A,$B,$A,$A,$A
  99. Data $A,$9,$9,$A,$9,$A,$9,$9
  100. Data $9,$8,$9,$8,$8,$9,$8,$8
  101. Data $8,$7,$8,$7,$8,$7,$7,$7
  102. Data $7,$6,$7,$6,$7,$6,$6,$6
  103. Data $6,$5,$6,$5,$5,$6,$5,$5
  104. Data $5,$4,$4,$5,$4,$5,$4,$4
  105. Data $4,$3,$3,$4,$3,$3,$4,$3
  106. Data $3,$2,$2,$3,$2,$2,$3,$2
  107. Data $2,$1,$2,$0,$0,$0,$0,$0
  108. Data $0,$0,$0,$0,$0,$0,$0,$0
  109. Data $0,$0,$0,$0,$0,$0,$0,$0
  110. Data $0,$0,$0,$0,$0,$0,$0,$0
  111. Data $0,$1,$1,$1,$20,$30,$50,$50
  112. Data $50,$60,$60,$60,$70,$70,$70,$80
  113. Data $80,$80,$0,$0,$0,$0,$0,$0
  114. Data $0,$0,$0,$0,$0,$0,$0,$0
  115. Data $0,$0,$0,$0,$0,$0,$0,$0