home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / task1.bas < prev    next >
BASIC Source File  |  1988-05-22  |  286b  |  15 lines
  1. 2     scnclr
  2. 5     on error gosub 100
  3. 10    open "o",1,"testfile"
  4. 20    for i=1 to 50
  5. 25    print i
  6. 30    print #1,"test";i
  7. 40    next i
  8. 50    close 1
  9. 55    print"Waiting..."
  10. 60    for i=1 to 10000:next
  11. 70    goto 10
  12. 100   ' error handler
  13. 110   print "File access blocked"
  14. 120   resume
  15.