home *** CD-ROM | disk | FTP | other *** search
/ Quick Study Spanish / DISK_1_QSSP.iso / tlc.z / SIGNIN.MPS < prev    next >
Text File  |  1997-06-26  |  260b  |  23 lines
  1. yield on
  2.  
  3. SceneBlack 4000
  4. bids=HGButtonID
  5.  
  6. #define    SIGN_IN_INFO            1
  7. set bids ButtonID 1
  8. get bids X1Pos X1
  9. get bids Y1Pos Y1
  10. get bids X2Pos W
  11. get bids Y2Pos F
  12. si=hgsignin X1 Y1 W F 3
  13. set si done goDone
  14.  
  15. wait
  16.  
  17. procedure goDone
  18. [
  19.      exit
  20. ]
  21.  
  22.  
  23.