The following program will do it.
100 REMark Phone numbers
110 OPEN NEW #6,mdv1_phone
120 FOR record = 1 TO 7
130 INPUT name$,num$
140 PRINT #6;name$;num$
150 END FOR record
160 CLOSE #6
Type RUN and enter a name followed by the ENTER key and a number followed by the ENTER key.
Repeat this seven times.
Notice that the data is 'buffered'. It is stored internally until the system is ready to transfer a batch to
the Microdrive. The Microdrive is only accessed once, as you can tell from looking and listening.
COPY A FILE
Once a file is established, it should be copied immediately as a back-up. To do this type:
COPY mdv1_phone TO mdv2_phone
READ A FILE
You need to be certain that the file exists in a correct form so you should read it back from a
Microdrive and display it on the screen. You can do this easily using:
COPY mdv2_phone TO scr
The output to the screen will not provide spaces automatically between the name and the number but
it will provide a 'newline' at the end of each record. The output will be:
RON678462
GEOFF896487
ZOE249386
BEN584621
MEG482349
CATH438975
WENDY982387
You can get a more controlled presentation of the data with the following program.
100 REMark Read Phone Numbers
110 OPEN_IN #5,mdv1_phone
120 FOR record = 1 TO 7
130 INPUT #5,rec$
140 PRINT,rec$
To Next Page
Loading...
