home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaMiscModsCD3.iso / _PROGRAMME / PLAYER / GUI / EasyPlayer.lha / EYP / Source / modsrc / vbsigtest.e < prev   
Encoding:
Text File  |  1999-03-20  |  336 b   |  18 lines
  1. MODULE 'dos/dos',
  2. '*test'
  3.  
  4. PROC main()
  5. DEF vbsigobj:PTR TO vbsig,wakeupsigs
  6.  
  7.     NEW vbsigobj.vbsig(10,-60)
  8.  
  9.     IF vbsigobj.vbint
  10.         REPEAT
  11.             wakeupsigs:=Wait(vbsigobj.mainsig OR SIGBREAKF_CTRL_C)
  12.             IF wakeupsigs AND vbsigobj.mainsig THEN WriteF('Signalled by vbsig\n')
  13.         UNTIL wakeupsigs AND SIGBREAKF_CTRL_C
  14.     ENDIF
  15.  
  16.     END vbsigobj
  17. ENDPROC
  18.