home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / rtest.bas < prev    next >
BASIC Source File  |  1988-05-22  |  394b  |  19 lines
  1. 100   k1% = 0
  2. 110   open "n",1,"df0:basic/data1"
  3. 120   field #1, 4 as a1$, 22 as a2$
  4. 130   input "vec, val";a1%,x$:_
  5. if a1% < 0 then 150 else_
  6. if a1% = 0 then a1% = k1% + 1
  7. 140   lset a1$ = mki$(a1%):_
  8. lset a2$ = x$:_
  9. rput #1,a1%:_
  10. goto 130
  11. 150   close #1
  12. 155   end
  13. 160   open "r",1,"df0:basic/data1"
  14. 300   input "rec"; a1%:_
  15. if a1% <= 0 then end else_
  16. rget #1,a1%:_
  17. print "val";a2$:_
  18. goto 300
  19.