Experiment
#4
Reading a Cassette File
In this experiment, the cassette data file which you created in Experiment 3 will be
read and displayed. Load program
"EXP2"
from RAM using the command
LOAD"
EXP2"
(ENTER)
and change line 500 to
500
CLS:oPEN"CAS:NAMES"
FOR
INPUT
AS
1
List the program
to
verify that it
is
500
CLS
: oPEN"CAS :
NAMES"
FOR
INPUT
AS
1
510
INPUT
#1,
N$
: PRINT
N$
520
IF
NOT
EoF(l)
GoTo
510
530
CLOSE
Rewind the tape, press PLAY and execute the program. The cassette recorder will
start and you will hear some sound coming from computer speaker. When the last
name is read from the tape, the recorder and the sound will stop and the names will be
displayed.
Joan
Smith
Patty
~olf
Allison
T.
Cornpone
Jill
Shoe
SallY
Ma!tnet
Roxanne
o/ShacK
OK
I
The only change required
to
change from a RAM file
to
a cassette file was to change
the device specifier to
"CAS:"
in the OPEN statement in line 500.
Experiment
#5
Transfer Data from RAM
to Cassette
Suppose that you have created a data file in RAM and would like
to
transfer it
to
cassette. You might like
to
do this
to
make a backup copy or perhaps
to
allow you
to
kill the RAM file to increase available memory.
The following program will allow you
to
transfer the file "NAMES.DO" that you
created before, to cassette storage:
Clear memory with the NEW command and enter this program from the keyboard.
100
MAXFILES=2
:
CLS
110
OPEN
"RAM:NAMES"
FOR
INPUT
AS
1
120
OPEN
"CAS:NAMES"
FOR
OUTPUT
AS
2
130
INPUT
#1
,N$:PRINT
#2,N$:PRINT
N$
140 IF
NOT
EoF(I)
GoTo
130
150
CLOSE
127
To Next Page
Loading...
