0  REM (c) 1990 И.Бочаров
10 CLEAR 200,&HDC00             ' Резервируем память для подпр.
20 DIM A$(17)                   ' Определяем массив-меню
30 BLOAD"wnd.obj"               ' Загружаем подпрограмму
40 VDP(13)=&HA4:COLOR = (4,0,0,4)' Устанавливаем цвета окна
50 VDP(14)=&HF0
60 DATA "     Select:"," ===============",Brief,Full,Info,Tree,On/Off        ^F1," ---------------",Name,Extension,Size,Time,UnsORted," --------------",Help infORmation,Exit to main menu,""
70 FOR I=0 TO 16                ' Считываем меню
80    READ A$(I)
90 NEXT
100 DEFUSR=&HDC00               ' Адрес подпрограммы-меню
110 DEFUSR1=&HDC03              ' Подпрограмма очистки экрана
130 :
140 LOCATE 2,1                  ' Устанавливаем координаты окна
150 GOSUB 230                   ' Вызываем подпрограмму
160 LOCATE 20,6
170 GOSUB 230
180 LOCATE 26,0
190 GOSUB 230
200 GOTO 140 ' Зацикливаемся
210 :
230 A=USR1(0) ' Очищаем цвета на экране
240 A=USR(VARPTR(A$(0))) ' Вызываем подпрограмму
250 IF A THEN LOCATE 75,22:PRINT A;:RETURN ELSE CLS:PRINT USR1("<Ctrl><Stop>"):END             ' Обрабатываем результат
260 REM The end.