Return

499 'subroutine: set coordinate to alfabetic a/o numeric format

500 COORDINATES=LEFT$(COORDINATE$, POST%-1):COORDINATE$ = MID$(COORDINA TE$,2)

505 IF ASC(MID$(COORDINATE$,2,1)) =48 AND ASC(MID$(COORDINATE$,2,1)) < =57 THEN COORDINATEOS="0" + LEFT$(COOR DINATES, 1 ):COORDINATER$ = MID$(COOR DINATE$,2) ELSE COORDINATEOS=LEFTS (COORDINATES, 2):COORDINATER$ = MID$ (COORDINATES,3)

510 IF LEN(COORDINATERS) =2 THEN COOR

DINATERS="0" + COORDINATERS

515 IF LEN (COORDINATERS) = 1 THEN COORDI

NATERS = "00" + COORDINATERS

0 0

Post a comment