home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / push_button.amos / push_button.amosSourceCode
AMOS Source Code  |  1991-06-13  |  658b  |  24 lines
  1. ' This Procedure will Push your box which has been previously set up 
  2. ' with Draw. You will also need to set up the screen with the proc 
  3. ' Screen_Set_Up. 
  4. '
  5. ' X and Y is the position of the top left hand corner  
  6. ' X1 and Y1 is the position of the bottom right hand corner  
  7. ' Texx and Texy is the position of the text  
  8. ' Message$ is the name of the button 
  9. '
  10. Procedure PUSH_[X,Y,X1,Y1,TEXX,TEXY,MESSAGE$]
  11. ' Procedure Written by Brett George
  12.    Ink 0
  13.    Box X-1,Y-1 To X1+1,Y1+1
  14.    Ink 2
  15.    Bar X,Y To X1,Y1
  16.    Ink 3
  17.    Draw X1,Y1 To X,Y1
  18.    Draw X1,Y1 To X1,Y
  19.    Ink 4
  20.    Draw X,Y To X1,Y
  21.    Draw X,Y To X,Y1
  22.    Ink 0,2
  23.    Text TEXX,TEXY,MESSAGE$
  24. End Proc