home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 351-375 / apd369 / d13.amos / d13.amosSourceCode
AMOS Source Code  |  1978-02-21  |  1KB  |  13 lines
  1. Screen Open 1,320,200,16,Lowres : Screen Hide 1 : Curs Off : Cls 0 : N=1
  2. Load "Amos_data:music/funkey.abk" : Wait 1 : Led Off 
  3.  Box 100,50 To 150,80
  4.  For R#=0.55*Pi# To 1.5*Pi# Step Pi#/20 : Draw 125+20*Sin(R#),75+15*Cos(R#) To 125+25*Sin(R#),75+25*Cos(R#) : Next 
  5.  Get Block 1,100,50,51,31 : Ink 5 : Double Buffer 
  6.  For R#=1.5*Pi# To 0.55*Pi# Step -Pi#/25 : Put Block 1,100,50 : Draw 125,79 To 125+20*Sin(R#),80+30*Cos(R#) : Get Bob N,100,50 To 151,81 : N=N+1 : Next 
  7.  Cls 0 : Paper 0 : Bob 1,25,100,1 : Bob 2,95,100,1 : Bob 3,165,100,1 : Bob 4,235,100,1 : Wait 1
  8.  Locate 0,5 : Centre "Vu-Meter" : Locate 0,7 : Centre "Door Emanuel Habets."
  9.  For R=1 To 4 : Channel R To Bob R : Next : For R=1 To 25 Step 5 : Q$=Q$+"("+Str$(R)+",1)" : Next : For R=1 To 25 : Q$=Q$+"("+Str$(26-R)+",1)" : Next 
  10.  A$="AU(L R1=V(0);X);A: A 1,"+Q$+";L: If R1=0 then J L else J A" : B$="AU(L R1=V(1);X);A: A 1,"+Q$+";L: If R1=0 then J L else J A"
  11.  C$="AU(L R1=V(2);X);A: A 1,"+Q$+";L: If R1=0 then J L else J A" : D$="AU(L R1=V(3);X);A: A 1,"+Q$+";L: If R1=0 then J L else J A"
  12.  Screen Show 1 : Amal 1,A$ : Amal 2,B$ : Amal 3,C$ : Amal 4,D$ : Music 1 : Amal On : Wait Key : Amal Off : Bob Off : Wait 4 : Cls 
  13. Erase 1 : Erase 3 : Screen Close 1 : Run "menu.amos"