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 >
Wrap
BASIC Source File
|
1988-05-22
|
394b
|
19 lines
100 k1% = 0
110 open "n",1,"df0:basic/data1"
120 field #1, 4 as a1$, 22 as a2$
130 input "vec, val";a1%,x$:_
if a1% < 0 then 150 else_
if a1% = 0 then a1% = k1% + 1
140 lset a1$ = mki$(a1%):_
lset a2$ = x$:_
rput #1,a1%:_
goto 130
150 close #1
155 end
160 open "r",1,"df0:basic/data1"
300 input "rec"; a1%:_
if a1% <= 0 then end else_
rget #1,a1%:_
print "val";a2$:_
goto 300