262__________________________________________

parsed$ = frst$: delim$ = "," .

GOSUB scissors 'проверка на описание точки IF nscis > 0 THEN pname$ = frst$ GOSUB scissors

IF nscis = 0 THEN PRINT "Нет координаты " + pname$ ksi! = VAL(frst$) GOSUB scissors

IF nscis = 0 THEN PRINT "Нет координаты " + pname$ eta! =VAL(frst$): dzt! = VAL (parsed$) GOSUB addpoints 'добавление точки ELSE

parsed$ = frst$: delim$ = ": " GOSUB scissors

'выделение первой точки в описании ломаной GOSUB getpoint 'поиск первой точки DO

GOSUB scissors 'выделение очередной точки GOSUB getpoint 'поиск очередной точки GOSUB drawl 'построение отрезка IF nscis = О THEN EXIT DO

'выход по концу описания ломаной LOOP END IF IF comm$ = "" THEN EXIT DO

'строка разобрана LOOP LOOP CLOSE SLEEP END IF LOOP STOP

scissors: "подпрограмма выделения части описания nscis = INSTR(parsed$, delim$) IF nscis > 0 THEN

frst$ = MID$(parsed$, 1, nscis - 1) parsed$ = MID$(parsed$, nscis + 1) ELSE

frst$ = parsed$ parsed$ = "" END IF RETUKM

addpoints: 'подпрограмма добавления точки npoints = npoints + 1 points(npoints) = pname$ nu! = I! / ((R! + dzt!) * scl!) alf! = R! * eta! * mu! bat! = R! * ksi! * mu! дат * = О! * dz t! * mu! yc(npoints) = CINT(240 + alf!) xr(npoints) = CINT(320 + bet! + дат!) xl(npoints) = CINT(320 + bet! - дат!) RETUKN