home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l196 / 3.ddi / TIMER.BA$ < prev    next >
Encoding:
Text File  |  1990-06-24  |  581 b   |  28 lines
  1. ' Declare external MASM procedures.
  2. DECLARE SUB SetInt
  3. DECLARE SUB RestInt
  4.  
  5. ' Install new interrupt service routine.
  6. CALL SetInt
  7.  
  8. ' Set up the BASIC event handler.
  9. ON UEVENT GOSUB SpecialTask
  10. UEVENT ON
  11.  
  12. DO
  13. ' Normal program operation occurs here.
  14. ' Program ends when any key is pressed.
  15. LOOP UNTIL INKEY$ <> ""
  16.  
  17. ' Restore old interrupt service routine before quitting.
  18. CALL RestInt
  19.  
  20. END
  21.  
  22. ' Program branches here every 4.5 seconds.
  23. SpecialTask:
  24. ' Code for performing the special task goes here, for example:
  25. PRINT "Arrived here after 4.5 seconds."
  26. RETURN
  27.  
  28.