CLS
OPEN "test1.tst" FOR INPUT AS #1
DIM p(0 TO 100, 0 TO 100)
DO UNTIL EOF(1)
INPUT #1, (1)$
INPUT #1, (t2)$
n = len(x1,y1): m = len(x2,y2)
FOR i = 0 TO n: p(0, 1) = i: NEXT i'(t1)
FOR i = 0 TO m: p(1, 0) = i: NEXT i'(t2)