DIM x AS STRING * 1
DIM y AS STRING * 1
DIM c AS STRING * 1
CLS : LINE INPUT "Filename-->"; f$
OPEN f$ + ".ini" FOR INPUT AS #1: INPUT #1, scr, sx, sy: CLOSE 1: SCREEN scr
OPEN f$ + ".qan" FOR BINARY AS #1
DO UNTIL EOF(1)
GET #1, , x
GET #1, , y
GET #1, , c
PSET (sx + ASC(x), sy + ASC(y)), ASC(c)
LOCATE 10, 1: PRINT ASC(x); ASC(y); ASC(c)
LOOP