2.10. ЗАБАВА «АНАГЛИФ» (DaunANG.BAS

DEFINT I-N, R, X-Z

DIM yc(l TO 100), xr(l TO 100), xl(l TO 100) AS INTEGER

DIM points(1 TO 100) AS STRING

R! = 240: D! =30: scl! = .375

var% = 2

DO

SCREEN 0

CLS

LOCATE 1: COLOR 7 'вывод меню

PRINT "ВЫБОР ВАРИАНТА <Space> ИСПОЛНЕНИЕ <Enter>"

PRINT " Тетраэдр"

PRINT " Октаэдр"

PRINT " Икосаэдр"

PRINT " Куб"

PRIMT " Додекаэдр"

PRINT " ВЫХОД"

LOCATE var%, 1: PRINT ">";

key$ = INKEY$: key$ = ""

DO 'выбор пункта меню key$ = INKEY$ IF key$ = CHR$(13) THEN

EXIT DO ELSE

IF key$ = CHR$(32) THEN

LOCATE var%, 1: PRINT " ";

var% = var% + 1: IF var% > 7 THEN var% = 2 LOCATE var%, 1: PRINT ">";

END IF END IF LOOP IF var% = 7 THEN

EXIT DO 'выход из программы ELSE

SELECT CASE var% 'выбор названия файла CASE 2: name$ = "tet" CASE 3: name? = "oct" CASE 4: name$ = "ico" CASE 5: name$ = "cub" CASE 6: name? = "dod" END SELECT npoints = 0 SCREEN 12 OPEN name$ + ".ang" FOR INPUT AS #1

DO UNTIL EOF(l) 'чтение очередной строки файла LINE INPUT #1, сошш$

DO 'цикл разбора строки parsed$ = сошш$: delim$ = " " GOSUB scissors 'выделение описания conatt$ = parsed$