home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / d1.amos / d1.amosSourceCode < prev    next >
AMOS Source Code  |  1990-10-14  |  3KB  |  102 lines
  1. '
  2. ' VU-METER demonstratie 1
  3. '
  4. ' gemaakt door Jurgen Valks
  5. '
  6. '
  7. Shared T$,TLENGTE
  8. Proc INIT_SCHERM
  9. Proc INIT_VU
  10. Proc ZET_KLEUREN
  11. Proc INIT_SCROLL
  12. '--------------------------------------------
  13. Do 
  14.  If Mouse Click=1 Then Proc EINDE
  15.  Inc TELLER : If TELLER>TLENGTE Then TELLER=1
  16.  TEKST$=Mid$(T$,TELLER,1)
  17.  Text 250,6,TEKST$
  18.  For PAUZE=1 To 5
  19.   Scroll 1 : Multi Wait 
  20.  Next PAUZE
  21. Loop 
  22. '--------------------------------------------  
  23. Procedure INIT_SCHERM
  24.  Break Off : Erase 3 : Mvolume 63
  25.  Screen Open 0,320,200,16,Lowres : Flash Off : Curs Off : Palette $0,$0,$FFF
  26.  Close Workbench : Close Editor 
  27.  Load "df0:MUSIC/MOD.LOTUS"
  28.  Screen Open 1,400,250,2,Lowres
  29.  Screen Display 1,130,60,,
  30.  Palette $0,$0, : Led Off : Hide On : Curs Off 
  31.  Get Rom Fonts : Set Font 1
  32. End Proc
  33. Procedure INIT_VU
  34.  A1$=A1$+"AUtotest(Let R1=Vu(R0); If R1=0 eXit else Direct Start)"
  35.  A1$=A1$+"Start: Let R2=R1; Let X=R0*60+80; Let Y=240-R1; Pause;"
  36.  A1$=A1$+"Move 0,R2,40; Wait;"
  37.  For N=0 To 3
  38.   Bob N,N*60+80,240,7
  39.   Channel N To Bob N
  40.   Amal N,"Let R0="+Str$(N)+A1$
  41.  Next N
  42.  Amal On 
  43.  Music 1
  44. End Proc
  45. Procedure ZET_KLEUREN
  46.  Set Rainbow 0,1,80,"(1,1,0)","",""
  47.  Rainbow 0,1,243,80 : Rain(0,5)=$FB0
  48.  Rain(0,6)=$FA0 : Rain(0,7)=$F90
  49.  Rain(0,8)=$F80 : Rain(0,9)=$F70
  50.  Rain(0,10)=$F60 : Rain(0,11)=$F50
  51.  Rain(0,12)=$F40 : Rain(0,13)=$F30
  52.  Rain(0,14)=$F20 : Rain(0,15)=$F10
  53.  Rain(0,16)=$F00 : Rain(0,17)=$F10
  54.  Rain(0,18)=$F20 : Rain(0,19)=$F30
  55.  Rain(0,20)=$F40 : Rain(0,21)=$F50
  56.  Rain(0,22)=$F60 : Rain(0,23)=$F70
  57.  Rain(0,24)=$F80 : Rain(0,25)=$F90
  58.  Rain(0,26)=$FA0 : Rain(0,27)=$FB0
  59.  Rain(0,28)=$FC0 : Rain(0,29)=$FD0
  60.  Rain(0,30)=$FE0 : Rain(0,31)=$FF0
  61.  Rain(0,32)=$EF0 : Rain(0,33)=$DF0
  62.  Rain(0,34)=$CF0 : Rain(0,35)=$BF0
  63.  Rain(0,36)=$AF0 : Rain(0,37)=$9F0
  64.  Rain(0,38)=$8F0 : Rain(0,39)=$7F0
  65.  Rain(0,40)=$6F0 : Rain(0,41)=$5F0
  66.  Rain(0,42)=$4F0 : Rain(0,43)=$3F0
  67.  Rain(0,44)=$2F0 : Rain(0,45)=$1F0
  68.  Rain(0,46)=$F0 : Rain(0,47)=$F1
  69.  Rain(0,48)=$F2 : Rain(0,49)=$F3
  70.  Rain(0,50)=$F4 : Rain(0,51)=$F5
  71.  Rain(0,52)=$F6 : Rain(0,53)=$F7
  72.  Rain(0,54)=$F8 : Rain(0,55)=$F9
  73.  Rain(0,56)=$FA : Rain(0,57)=$FB
  74.  Rain(0,58)=$FC : Rain(0,59)=$FD
  75.  Rain(0,60)=$FE : Rain(0,61)=$FF
  76.  Rain(0,62)=$EF : Rain(0,63)=$DF
  77.  Rain(0,64)=$CF : Rain(0,65)=$BF
  78. End Proc
  79. Procedure INIT_SCROLL
  80.  Screen 0
  81.  Def Scroll 1,80,0 To 320,9,-2,0
  82.  T$=T$+"...And here is a new real-time vu-meter made in AMOS. This one was made"
  83.  T$=T$+" by Jurgen Valks for the AMOS CLUB. I made this"
  84.  T$=T$+" demonstration in 10 minutes. First i was a assembly coder"
  85.  T$=T$+" but now i code only in AMOS !!! I made 2 music disks (the second"
  86.  T$=T$+" will be finished within 1 day !). call me if you are stuck with"
  87.  T$=T$+" AMOS, the number is 04105-14347, but call after 19:00 pm !!! "
  88.  T$=T$+" See ya in my next demo's, intro's, games, music disks !!     "
  89.  TLENGTE=Len(T$)
  90. End Proc
  91. Procedure EINDE
  92.  Screen 0 : Cls 
  93.  For V=63 To 0 Step -1
  94.   Mvolume V
  95.   Wait 2
  96.  Next V
  97.  Bob Off : Erase 3
  98.  Set Rainbow 0,0,16,"","",""
  99.  Rainbow 0,0,0,0
  100.  Screen Close 1
  101.  Run "df0:menu.AMOS"
  102. End Proc