home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 551-575 / apd559 / amoner3 / equaliser.amos / equaliser.amosSourceCode < prev    next >
AMOS Source Code  |  1993-11-29  |  1KB  |  48 lines
  1. Rem *******************
  2. Rem ** Equaliser     **
  3. Rem **      18/07/91 **
  4. Rem *******************
  5. '
  6. SETUP
  7. NUMETER
  8. Do 
  9.   Exit If Mouse Key<>0
  10. Loop 
  11. ' the next lines added for the amoner disk. Remove for a 
  12. ' stand alone program. 
  13. ' Head of added lines: 
  14. Default 
  15. Show On 
  16. Run "Autoexec.Amos"
  17. ' End of added lines:
  18. '
  19. Procedure SETUP
  20.   Screen Open 0,640,256,16,Hires : Cls 0
  21.   Unpack 5
  22.   Get Sprite Palette 
  23.   Flash Off 
  24.   Hide On 
  25.   Double Buffer 
  26.   Shift Up 4,11,15,1
  27. End Proc
  28. Procedure NUMETER
  29.   Bob 0,105,210,1
  30.   Bob 1,130,217,1
  31.   Bob 2,155,224,1
  32.   Bob 3,180,231,1
  33. '
  34.   A$="    Loop:    Let R2=Vu(R0)+1; Let R2=R2/4"
  35.   A$=A$+"          If R2>R1 then Jump Assign else Jump Test"
  36.   A$=A$+" Test:    If R2<R1 then Jump Bassign else Jump Show"
  37.   A$=A$+" Assign:  Let R1=R2; Jump Show"
  38.   A$=A$+" Bassign: If R1=1 then Jump Show else Let R1=R1-1; Jump Show"
  39.   A$=A$+" Show:    Let A=R1; M 0,0,0; Pause; Jump Loop"
  40. '
  41.   For N=0 To 3
  42.     Channel N To Bob N
  43.     Amal N,"Let R0="+Str$(N)+A$
  44.   Next N
  45. '
  46.   Music 1
  47.   Amal On 
  48. End Proc