home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / demos / start.amos / start.amosSourceCode < prev   
AMOS Source Code  |  1986-08-03  |  1KB  |  39 lines
  1. MENU
  2. Procedure MENU
  3.    Load "Dreamers3:Mag.Files/WTD",10
  4.    Unpack 10 To 1
  5.    Hide 
  6.    Screen Display 1,140,42,,138
  7.    Unpack 10 To 0 : Erase 10
  8.    Screen Display 0,140,210,,138
  9.    Screen Offset 0,,160
  10.    Palette ,,,,$202,$303,$404,$505,$606,$707,$808,$909,$A0A,$B0B,$C0C,$D0D
  11.    Screen Hide 0
  12.    Screen To Front 1
  13.    Load "Dreamers3:Mag.Files/song1.abk"
  14.    Led Off 
  15.    VU2
  16.    Screen Show 0
  17.    Music 1
  18.    Tempo 16
  19.    Repeat : Until Mouse Key=1
  20.    Music Off : Screen 0 : Fade 5 : Wait 75 : Screen Close 0 : Screen 1 : Fade 5 : Wait 75 : Screen Close 1
  21.    Erase 3
  22.    Run "Dreamers3:DreamersMag.Amos"
  23. End Proc
  24. Procedure VU2
  25.    Double Buffer 
  26.    Channel 4 To Screen Display 1
  27.    A$=A$+"       AUtotest(Let R1=Vu(R0)*1.8; If R1=0 eXit else Direct Start)"
  28.    A$=A$+"Start: Let R2=R1; Let X=R0*95; Let Y=168; Pause;"
  29.    A$=A$+"       Move 0,R2,RB; Wait;"
  30.    B$="Loop:M 0,30,30;M 0,-30,30:Jump Loop"
  31.    Amal 4,B$
  32.    Amreg(0)=180 : Amreg(1)=30
  33.    For N=0 To 3
  34.       Bob N,N*95,Amreg(0),1
  35.       Channel N To Bob N
  36.       Amal N,"Let R0="+Str$(N)+A$
  37.    Next N
  38.    Amal On 
  39. End Proc