home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / subroutines / gadget.amos / gadget.amosSourceCode
AMOS Source Code  |  1990-11-08  |  1KB  |  33 lines

  1. '*            GADGETS   By Gary Fearn  (1/10/90)             * 
  2. '* A Gadget procedure to use in your own programs.           * 
  3. '************************************************************* 
  4. '
  5. 'Get Disc Fonts  
  6. 'Set Font 3
  7. Reserve Zone 4
  8. GADGET[1,100,100,"Gadget1",1,0]
  9. GADGET[2,30,30,"Gadget2",0,0]
  10. GADGET[3,160,160,"Gadget3",1,1]
  11. GADGET[4,30,170,"Gadget4",0,1]
  12. Wait Key : Edit 
  13. '
  14. '
  15. '******************************************************* 
  16. '* znum= zone number                                   * 
  17. '* if bordflg =0 then no border                        * 
  18. '* if reverse =1 then in inverse text mode             * 
  19. '*                                                     *         
  20. Procedure GADGET[ZNUM,X,Y,TXT$,BORDFLG,REVERSE]
  21.    Memorize X : Memorize Y 
  22.    TX=X Text(X) : TY=Y Text(Y)
  23.    If REVERSE>0 Then Gr Writing 4
  24.    If BORDFLG=0
  25.       Text X,Y,TXT$ : Set Zone ZNUM,X,Y To X+Text Length(TXT$),Y+9
  26.    Else 
  27.       Text X,Y,TXT$ : Box X-1,Y-8 To X+1+Text Length(TXT$),Y+3
  28.       Set Zone ZNUM,X-1,Y-8 To X+1+Text Length(TXT$),Y+3
  29.    End If 
  30.    If REVERSE>0 Then Gr Writing 1
  31.    Remember X : Remember Y 
  32. End Proc
  33. '*******************************************************