1: CLS 2: SCREEN 12 3: LINE INPUT "Metafilename-->"; file$ 4: ON ERROR GOTO erro 5: OPEN file$ FOR INPUT AS #1 6: q = 0 7: DO UNTIL EOF(1) 8: INPUT #1, x%, y% 9: y% = y% - 150 10: IF q = 0 THEN x2% = x%: y2% = y% 11: FOR qqq = 100 TO 0 STEP -10 12: LINE (x%, y% - qqq)-(x2%, y2% - qqq) 13: NEXT qqq 14: FOR qqq = 0 TO 100 STEP 10 15: LINE (x%, y% + qqq)-(x2%, y2% + qqq) 16: NEXT qqq 17: x2% = x%: y2% = y% 18: q = q + 1 19: LOOP 20: END 21: erro: 22: PRINT "*************ERROR************" 23: END 24: |