home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / task2.bas < prev    next >
BASIC Source File  |  1988-05-22  |  319b  |  16 lines
  1. 2     scnclr
  2. 5     on error gosub 100
  3. 10    open "i",1,"testfile"
  4. 20    while not eof(1)
  5. 25    g$=getkey$:if g$="Q" then end
  6. 30    input #1,a$
  7. 40    print a$
  8. 50    wend
  9. 60    close 1
  10. 65    print "waiting..."
  11. 70    for i=1 to 10000:next
  12. 80    goto 10
  13. 100   ' error handler
  14. 110   print "File access blocked"
  15. 120   resume
  16.