ProvideX V8.20 > Language Reference > 8. Special Files and Devices

739

The following example illustrates how to open and use *MEMORY* using Format 2:

0010

mmf=HFN

0020

OPEN (mmf)"*memory*;keydef=[1:1:20],[2:1:60],[3:1:20]"

0030

PRINT 'CS'

0040

INPUT "Name (Press F4 to end):",name$

0050

IF CTL=4 THEN GOTO 0100

0060

INPUT "Address:",addr$

0070

INPUT "Position:",pos$

0080

WRITE (mmf)IOL=mmfLst

0090

GOTO 0030

0100

PRINT 'CS'

0110

SELECT IOL=mmfLst FROM mmf,KNO=1 BEGIN "" END "z"

0120

PRINT "Name:",name$

0130

PRINT "Address:",addr$

0140

PRINT "Position:",pos$

0150

PRINT "----------"

0160

NEXT RECORD

0170

END

0180

mmfLst: IOLIST name$,addr$,pos$