home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PBFIXES2.ZIP / TEST.BAS < prev   
BASIC Source File  |  1994-01-06  |  678b  |  25 lines
  1. $OPTION CNTLBREAK OFF
  2. $LIB ALL OFF
  3. $DEBUG MAP ON
  4. DEFINT A-Z
  5. DECLARE FUNCTION CbrkDisable%()
  6.  
  7. IF CbrkDisable% THEN
  8.   CLS
  9.   PRINT "OK to press ^C OR ^Break now!"
  10.   OPEN "TESTFILE" FOR OUTPUT AS #1
  11.   FOR lcv% = 1 TO 200
  12.     PRINT #1, lcv%
  13.   NEXT lcv%
  14.  
  15.   'You MUST CLOSE all files before issuing the END command !
  16.   'because SetOnExit calls our CbrkRestore routine, which could turn DOS
  17.   'BREAK checking back on.  If this happens and there are files that
  18.   'have not yet been closed by PowerBASIC, a crash can occur when
  19.   'PowerBASIC calls DOS to close them.
  20.   CLOSE #1
  21. ELSE
  22.   PRINT "Eight procedures have already been defined"
  23. END IF
  24. END
  25. $LINK "CTRLC.PBU"