Advertisement
- - - - - - - - - - - - - - - - - - - - - - - U T I L I T Y
1315 IFZ't,="Y"ORZ$="
y"
THEN
13212lELSE I Fz1;,c,
"N
"Oh:Zt,,: "n "T
HEN14(2J(2JELSE131lll
l 321Zl CLS: F'R I NT T$: F'R I NT" Data
i
<..,
'c:,aved to
L\[Hi.
Pnc:?
ss RETURN key when L~pe i. s n.:?i::l.dy"
133(21 Z$=INKEY$
1340 IF Z$()CHR$C13>
THEN
1330
1350 OPEN "CASl2l:DOSDATA" FTlr-~ OUTPUT A~-=-; Hl
1360
PR I
NT#
1 , A<t;; " , " ; C
l 371Zl FOR I= 1 TO C: F'R
J.
NT H 1 , I 1't ( I l :
t,tc
X T
I
1380 CLOSE #1
1400 CLS:INPUT"Do you ch,.3.rHJe
tlit:, 11·uml:JLs1·
c,-f
cl;,.,;;~;"
; Z$
141121 IF Z$=="Y"
or.;:
7.$:::"y"TI-IE:1'1 7(1)0 D.~,ElT
1~
0
"1•-1'"
~Jh:
Z$="n"THEN END ELSEl'l-'210
UST 2
112.!
PRINT"Printr Ready <Push any key>"
20 IF INKEY$="" THEN 20
30
FOR I=l TO C
40 LPRINT USING"No.
=#tttt
tttttttttt#";
I; I< I)
50
NEXT I
60 ENO
When the number of data items exceeds 100, data input is automatically termi-
nated. To prevent this, change the subscript for the array variable IN in the DIM
tatement in line 100 (the number 100 in parentheses) and the value of the right
ide of the IF conditional statement in line 350 to the appropriate number of data
tems.
A 'MOUNT error' may occur when reading data from, or writing data to, a cassette
ape. This occurs if a greater number of external files than the preset number of
uffers was opened.
ince the number of buffers is set to O after a RESET, the processing of a file
must be performed after reserving a file buffer by executing a MOUNT statement
n direct mode. This program has only one file to be opened. Hence, the 'MOUNT
rror' problem can be prevented by executing MOUNT 1.
The number of buffers set by the MOUNT statement is retained even after the
ower is turned off.
Note, however, that executing a MOUNT statement erases all current variables,
equiring re-inpu
0
t of the appropriate data.
Advertisement
