home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / scroll_slider.amos / scroll_slider.amosSourceCode
AMOS Source Code  |  1993-03-07  |  966b  |  43 lines
  1. Hslider 0,189 To 307,199,308,0,10
  2. Vslider 308,0 To 319,188,189,0,10
  3. '
  4. U=0 : T=0
  5. '
  6. Flash Off : Curs Off 
  7. Text 0,7,"The EDITOR Plays Up....."
  8. Double Buffer : Autoback 0
  9. '
  10. Reserve Zone 2
  11. '
  12. Set Zone 1,0,189 To 319,199
  13. Set Zone 2,308,0 To 319,188
  14. '
  15. Do 
  16.    If Key State(69) Then QUIT
  17.    While Mouse Zone=1 and Mouse Key=1
  18.       Limit Mouse X Hard(0),Y Hard(189) To X Hard(307),Y Hard(199)
  19.       T=X Screen(X Mouse)
  20.       Cls 
  21.       Text T,U+7,"The EDITOR Plays Up....."
  22.       Hslider 0,189 To 307,199,308,T,10
  23.       Vslider 308,0 To 319,188,189,U,10
  24.       Screen Swap 
  25.       Wait Vbl 
  26.    Wend 
  27.    While Mouse Zone=2 and Mouse Key=1
  28.       Limit Mouse X Hard(308),Y Hard(0) To X Hard(319),Y Hard(188)
  29.       U=Y Screen(Y Mouse)
  30.       Cls 
  31.       Text T,U+7,"The EDITOR Plays Up....."
  32.       Hslider 0,189 To 307,199,308,T,10
  33.       Vslider 308,0 To 319,188,189,U,10
  34.       Screen Swap 
  35.       Wait Vbl 
  36.    Wend 
  37.    Limit Mouse 
  38. Loop 
  39. '
  40. Procedure QUIT
  41.    Default 
  42.    Edit 
  43. End Proc