Sharp MZ-700 Basic Manual page 23

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