EC-3150 THERMAL BARCODE PRINTER
52
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