home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / bwbasic-2.10.sit / bwbasic-2.10 / bwbtest / opentest.bas < prev    next >
BASIC Source File  |  1993-11-09  |  328b  |  13 lines
  1. 10 PRINT "OPENTEST.BAS -- Test OPEN, PRINT#, LINE INPUT#, and CLOSE"
  2. 20 OPEN "test.out" FOR OUTPUT AS # 1
  3. 30 PRINT #1,"This is line 1."
  4. 40 PRINT #1, "This is line 2."
  5. 50 CLOSE #1
  6. 60 OPEN "test.out" FOR INPUT AS #1
  7. 70 LINE INPUT #1,A$
  8. 80 LINE INPUT #1,B$
  9. 90 PRINT "Read from file:"
  10. 100 PRINT ">";A$
  11. 110 PRINT ">";B$
  12. 120 CLOSE #1
  13.