Sharp MZ-700 Basic Manual page 25

24
11
may be once closed and in the registered.condition, that same file can be made larger.
The random access file "RND 1", for example, in which up to 20 expressions have
been registered, can be enlarged to a file with 30 "boxes" by registering data as 30 new
expressions.
"RND I" "RND I"
1 1
2
Enlargement
2
a In addition, .
data are registered by
-----1~
expression
=
30.
3
possible
3
•
•
20
30
Example:
Let's take an example in which, by using a random access file, a simple stock list file is
to be made. Each product is assigned a fixed number from 1 to 50, and the file will
have four items: product name, unit price, number in stock, total price (unit price x
number in stock) and comments.
In order to register the stock data for each product, first the product number is input,
and then the information to be registered for each item is input.
The program execution is ended, however, when "0" is input.
Registration of stock data
100 XOPEN #5, "STORELIST"
110 INPUT "product no.";K
120 IF K=O THEN 300
130 I NPUT "product name="; N$
140 INPUT "uni t pr ce="; P
150 INPUT "i nventory count
1 6 0 I N PUT " c
0
mme n t ="; C $
170 T =P* S
"
S
180 PRINT #5(K*5-4),N$,P,S,T,C$
190 GOTO 110
300 CLOSE #5
310 END