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 / putget.bas < prev    next >
BASIC Source File  |  1993-11-09  |  422b  |  23 lines
  1. rem PUTGET.BAS -- Test PUT and GET statements
  2. open "r", 1, "test.dat", 48
  3. field 1, 20 as r1$, 20 as r2$, 8 as r3$
  4. for l = 1 to 2
  5. line input "name: "; n$
  6. line input "address: "; m$
  7. line input "phone: "; p$
  8. lset r1$ = n$
  9. lset r2$ = m$
  10. lset r3$ = p$
  11. put #1, l
  12. next l
  13. close #1
  14. open "r", 1, "test.dat", 48
  15. field 1, 20 as r1$, 20 as r2$, 8 as r3$
  16. for l = 1 to 2
  17. get #1, l
  18. print r1$, r2$, r3$
  19. next l
  20. close #1
  21. kill "test.dat"
  22. end
  23.