1: 10 CLS 2: DIM fs(1 TO 2000) 3: DIM f(1 TO 2000) 4: DIM ny(1 TO 2000) 5: DIM nx(1 TO 2000) 6: SCREEN 12 7: LINE INPUT "Metafilename-->"; file$ 8: ON ERROR GOTO erro 9: 20 OPEN file$ FOR INPUT AS #1 10: lns = 0 11: q = 0 12: qqq = 380 13: DO UNTIL EOF(1) 14: LINE INPUT #1, a$ 15: lns = lns + 1 16: LOOP 17: num = lns * 2 18: rt% = lns 19: 30 CLOSE #1 20: 40 OPEN file$ FOR INPUT AS #1 21: DO UNTIL EOF(1) 22: 50 INPUT #1, x%, y% 23: 60 FOR rt% = 1 TO num - 1 24: 70 tx = nx(rt%): ty = (240 - ny(rt%)) + f(rt%) 25: 80 tx2 = nx(rt% + 1): ty2 = (240 - ny(rt%)) + f(rt%) 26: 90 LINE (tx, ty)-(tx2, ty2), (ty + tx2) - (tx + ty2) 27: LOCATE 1, 1: PRINT rt%; tx2; tx; 28: 100 NEXT rt% 29: 110 q = 1 30: 120 LOOP 31: 130 END 32: erro: 33: PRINT "*************ERROR************"; ERL 34: END 35: |