home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / various / push_button.amos / push_button.amosSourceCode
AMOS Source Code  |  1993-01-08  |  644b  |  22 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. ' X and Y is the position of the top left hand corner  
  5. ' X1 and Y1 is the position of the bottom right hand corner  
  6. ' Texx and Texy is the position of the text  
  7. ' Message$ is the name of the button 
  8. Procedure PUSH_[X,Y,X1,Y1,TEXX,TEXY,MESSAGE$]
  9. ' Written by Brett George
  10.    Ink 0
  11.    Box X-1,Y-1 To X1+1,Y1+1
  12.    Ink 2
  13.    Bar X,Y To X1,Y1
  14.    Ink 3
  15.    Draw X1,Y1 To X,Y1
  16.    Draw X1,Y1 To X1,Y
  17.    Ink 4
  18.    Draw X,Y To X1,Y
  19.    Draw X,Y To X,Y1
  20.    Ink 0,2
  21.    Text TEXX,TEXY,MESSAGE$
  22. End Proc