CLS
SCREEN 12
LINE INPUT "Metafilename-->"; file$
ON ERROR GOTO erro
OPEN file$ FOR INPUT AS #1
q = 0
DO UNTIL EOF(1)
INPUT #1, x%, y%
y% = y% - 150
IF q = 0 THEN x2% = x%: y2% = y%
FOR qqq = 100 TO 0 STEP -10
LINE (x%, y% - qqq)-(x2%, y2% - qqq)
NEXT qqq
FOR qqq = 0 TO 100 STEP 10
LINE (x%, y% + qqq)-(x2%, y2% + qqq)
NEXT qqq
x2% = x%: y2% = y%
q = q + 1
LOOP
END
erro:
PRINT "*************ERROR************"
END