home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / check-gadget.amos / check-gadget.amosSourceCode
Encoding:
AMOS Source Code  |  1991-06-13  |  768 b   |  30 lines
  1. NZONES=10
  2. Dim GXY(NZONES,6)
  3. Global GXY()
  4. Y=10 : Cls 0
  5. Reserve Zone NZONES
  6. For X=1 To NZONES
  7.    Add Y,15
  8.    Proc IGAD[X,20,Y,10,10,0,0,5]
  9. Next X
  10. CGAD
  11. Procedure IGAD[Z,X,Y,W,H,S,CC,HC]
  12.    Box X,Y To X+W,Y+H
  13.    Set Zone Z,X,Y To X+W,Y+H
  14.    GXY(Z,0)=X : GXY(Z,1)=Y : GXY(Z,2)=W : GXY(Z,3)=H : GXY(Z,4)=S
  15.    GXY(Z,5)=CC : GXY(Z,6)=HC
  16. End Proc
  17. Procedure CGAD
  18.    M:
  19.    Repeat 
  20.       MZ=Mouse Zone : MC=Mouse Click
  21.    Until MZ>0 and MC=1
  22.    If GXY(MZ,4)=1
  23.       Ink GXY(MZ,5) : Polyline GXY(MZ,0)+2,GXY(MZ,1)+6 To GXY(MZ,0)+4,GXY(MZ,1)+8 To GXY(MZ,0)+8,GXY(MZ,1)+2
  24.       GXY(MZ,4)=0 : Goto M
  25.    End If 
  26.    If GXY(MZ,4)=0
  27.       Ink GXY(MZ,6) : Polyline GXY(MZ,0)+2,GXY(MZ,1)+6 To GXY(MZ,0)+4,GXY(MZ,1)+8 To GXY(MZ,0)+8,GXY(MZ,1)+2
  28.       GXY(MZ,4)=1 : Goto M
  29.    End If 
  30. End Proc