10 CLS
DIM fs(1 TO 2000)
DIM f(1 TO 2000)
DIM ny(1 TO 2000)
DIM nx(1 TO 2000)
SCREEN 12
LINE INPUT "Metafilename-->"; file$
ON ERROR GOTO erro
20 OPEN file$ FOR INPUT AS #1
lns = 0
q = 0
qqq = 380
DO UNTIL EOF(1)
LINE INPUT #1, a$
lns = lns + 1
LOOP
num = lns * 2
rt% = lns
30 CLOSE #1
40 OPEN file$ FOR INPUT AS #1
DO UNTIL EOF(1)
50 INPUT #1, x%, y%
60 FOR rt% = 1 TO num - 1
70 tx = nx(rt%): ty = (240 - ny(rt%)) + f(rt%)
80 tx2 = nx(rt% + 1): ty2 = (240 - ny(rt%)) + f(rt%)
90 LINE (tx, ty)-(tx2, ty2), (ty + tx2) - (tx + ty2)
LOCATE 1, 1: PRINT rt%; tx2; tx;
100 NEXT rt%
110 q = 1
120 LOOP
130 END
erro:
PRINT "*************ERROR************"; ERL
END