CLS SCREEN 12 'set pon's DIM SHARED CTR AS SINGLE DIM SHARED PONX(1 TO 2000), PONY(1 TO 2000) DIM SHARED REW(1 TO 2000) AS SINGLE OPEN "A:\LOGO.DAT" FOR INPUT AS #1 FOR CTR = 1 TO 508 INPUT #1, PONX(CTR), PONY(CTR), REW(CTR) 'PRINT PONX(CTR), PONY(CTR) NEXT CTR CLOSE #1 ENDFLAG$ = "NO" SET = 1 OFFSET = 2 DO WHILE ENDFLAG$ = "NO" IF PONX(SET) = 0 OR PONX(OFFSET) = 0 THEN SET = SET + 1 OFFSET = OFFSET + 1 ELSE LINE (PONX(SET), PONY(SET))-(PONX(OFFSET), PONY(OFFSET)), 4 SET = SET + 1 OFFSET = OFFSET + 1 LOCATE 24, 10: PRINT "("; SET; OFFSET; ")" LOCATE 25, 10: INPUT "HIT ENTER YO CONTINUE"; ENTER$ END IF IF OFFSET > 508 THEN ENDFLAG$ = "ANDREW" END IF LOOP GOSUB STRAITS END STRAITS: LINE (PONX(142), PONY(142))-(PONX(270), PONY(270)), 4 LINE (PONX(144), PONY(144))-(PONX(398), PONY(398)), 4 LINE (PONX(274), PONY(274))-(PONX(400), PONY(400)), 4 LINE (PONX(173), PONY(173))-(PONX(302), PONY(302)), 4 LINE (PONX(175), PONY(175))-(PONX(430), PONY(430)), 4 LINE (PONX(306), PONY(306))-(PONX(432), PONY(432)), 4 LINE (PONX(205), PONY(205))-(PONX(334), PONY(334)), 4 LINE (PONX(208), PONY(208))-(PONX(461), PONY(461)), 4 LINE (PONX(337), PONY(337))-(PONX(463), PONY(463)), 4 LINE (PONX(237), PONY(237))-(PONX(365), PONY(365)), 4 LINE (PONX(239), PONY(239))-(PONX(493), PONY(493)), 4 LINE (PONX(369), PONY(369))-(PONX(495), PONY(495)), 4 RETURN SUB STRETCH (A.X, A.Y, Z.X, Z.Y, CTR, GROWFACT) 'IF A.X(CTR) > Z.X THEN : A.X(CTR) = A.X(CTR) + GROWFACT 'IF A.X(CTR) < Z.X THEN : A.X(CTR) = A.X(CTR) - GROWFACT 'IF A.Y(CTR) > Z.Y THEN : A.Y(CTR) = A.Y(CTR) + GROWFACT 'IF A.Y(CTR) < Z.Y THEN : A.Y(CTR) = A.Y(CTR) - GROWFACT END SUB