22
Problem 2
Divide, and re-register, the BSD file "ADDRESS LIST" into two: a BSD file which
registers names only and a
BSD file which registers addresses only.
Example solution
500
ROPEN
#6,
" F D 1 :
ADDRESS
LIST"
5 1 0
WOPEN
#7,
" F
D1
:
na
me"
520
WOPEN
#8,
"F
D1
:
address"
530
INPUT
#6,
NA$,
AD$
540
I F E OF
(
#6)
THEN
600
550
PRI
NT
#7,
NA$
560
PRI
NT
#8,
AD$
570
GOTO
530
600
CLOSE
#6,
#7,
#8
610
END
Problem 3
Register the string input by INPUT command in a BSD file. But to close the file, key
input
"CLOSE" and to cancel it, key input "KILL".
Example solution
100
WOPEN
#30,
"FD1:
DATA"
110
I
NPUT
"DATA
=
";A$
120
IF
A$="CLOSE"
THEN
CLOSE
#30:
END
130
IF
A$="KI
LL"
THEN
KI
LL
#30:
END
140
PRINT
#30,A$:GOTO
110
To Next Page
Loading...
