iX Computer Systems - Edition 1 (32715-90001)

5-43

40 D = WORD("c,a.t","a") !D = 3

WRD

The WRD function returns the number of the word indicated by the file's

word pointer. The result is of type INTEGER.

Syntax

WRD(

fnum

)

Parameters

fnum

The file number by which HP Business BASIC/XL identifies

the file. It is a numeric expression that evaluates to

a positive short integer.

Fnum

must specify a BASIC

DATA file. An optional # can precede

fnum

Examples

10 CREATE "File1",RECSIZE=5,FILESIZE=10 !BDATA file; 10 5-wd recs.

11 ASSIGN "File1" TO #1

12 PRINT #1,9,2; 36 !Print 36 on record 9, word 2;

13 ! move pointer to word 3.

14 PRINT #1,9,4; 567 !Print 567 on record 9, word 4;

15 ! move pointer to record 5.

16 DISP WRD(#1) !Display 5.

17 PRINT #1,9,5; 98 !Print 98 on record 9, word 5;

18 ! move pointer to record 10, word 1

19 DISP WRD(#1) !Display 1.

99 END