THERMAL BARCODE PRINTER SERIES 49
TEXT 10,10,"3",0,1,1,"*****READ COMMAND TEST*****"
TEXT 10,50,"3",0,1,1,"OPEN-READ DATA"+STR$(I+1)
ITEM$=""
READ I,ITEM$,P,Q
TEXT 10,Y,"2",0,1,1,ITEM$+"$"+STR$(P)
BARCODE 10,Y+25,"39",40,1,0,2,4,"PRICE*"+STR$(Q)+"="+STR$(P*Q)
Y=Y+100
PRINT 1
Y=100
IF I<=1 THEN
IF EOF(I)=1 THEN
I=I+1
GOTO Start
ELSE
GOTO Start
ENDIF
ELSE
END
ENDIF
EOP
DEMO
See Also
DOWNLOAD, EOP, OPEN, EOF, LOF, SEEK, FREAD$()
50. SEEK
Description
This command is used to shift the specified file pointer to a certain position.
Syntax
SEEK file handle, offset
Parameter Description
File handle 0 or 1.
offset the offset characters which are shifted to the
beginning of a new position