home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
sourcecode
/
subroutines
/
gadget.amos
/
gadget.amosSourceCode
Wrap
AMOS Source Code
|
1990-11-08
|
1KB
|
33 lines
'* GADGETS By Gary Fearn (1/10/90) *
'* A Gadget procedure to use in your own programs. *
'*************************************************************
'
'Get Disc Fonts
'Set Font 3
Reserve Zone 4
GADGET[1,100,100,"Gadget1",1,0]
GADGET[2,30,30,"Gadget2",0,0]
GADGET[3,160,160,"Gadget3",1,1]
GADGET[4,30,170,"Gadget4",0,1]
Wait Key : Edit
'
'
'*******************************************************
'* znum= zone number *
'* if bordflg =0 then no border *
'* if reverse =1 then in inverse text mode *
'* *
Procedure GADGET[ZNUM,X,Y,TXT$,BORDFLG,REVERSE]
Memorize X : Memorize Y
TX=X Text(X) : TY=Y Text(Y)
If REVERSE>0 Then Gr Writing 4
If BORDFLG=0
Text X,Y,TXT$ : Set Zone ZNUM,X,Y To X+Text Length(TXT$),Y+9
Else
Text X,Y,TXT$ : Box X-1,Y-8 To X+1+Text Length(TXT$),Y+3
Set Zone ZNUM,X-1,Y-8 To X+1+Text Length(TXT$),Y+3
End If
If REVERSE>0 Then Gr Writing 1
Remember X : Remember Y
End Proc
'*******************************************************