OS/2 FAQ


OS/2 Programming FAQ - пpогpаммиpование. Статья 001

Q Пpимеp кpасивого фоpматиpования на REXX
A
(unknown author)
/* Разметка дискеты. Сергей Посохов   */

/* Запрет вывода команд */
'@Echo off'

/* Запрет курсора */
Call SysCurState Off

/* Очистка окна */
Cls

/* Задание цвета */
Esc = D2C( 27 ); Command = "[1;"; End = "m"
Green_color = Esc || Command || "32" || End
Cyan_color  = Esc || Command || "36" || End
White_color = Esc || Command || "37" || End

/* Установка цвета */
Say Green_color

/* Приглашение */
Say
Say "                Вставьте дискету в дисковод и нажмите Enter."
Say "                    Или нажмите на кнопку закрытия окна."
Say White_color
Say "                    По готовности нажмите любую клавишу."
Say

/* Ожидание ввода */
'Pause > NUL'

/* Установка цвета */
Say Cyan_color

/* Разметка дискеты */
'Format.com A: /ONCE /V:-'
'Copy "wp root. sf" A: > NUL'
'C:\OS2\Attrib.exe +H "A:\wp root. sf"'

К оглавлению раздела | К следующей статье

Вернуться к списку разделов FAQ.

Если у вас есть вопросы или пожелания, пишите, мы будем рады.

Данный FAQ cоставили Ivan Borovicov и Viatcheslav Odintsov (2:5020/181) на основе OS/2 FAQ Дмитрия Завалишина (dz) и материалов переписки в группе эхоконференций su.os2.*. Оформление статей: Николай Королев. Программирование JSP для RU/2: Евгений Кулешов. Благодарности: Дмитрию Максимовичу (MaximDim) за громадную помощь на первых этапах и Дмитрию Бану (banshee) за его помощь при проверке текста.



Новые статьи на нашем сайте:


Комментариев к странице: 0 | Добавить комментарий
Домой | Проект ядро Core/2 | Проект OS/4 Download | Новости | Гостевая книга | Подробно обо всем | Нужные программы | Проекты | OS/2 FAQ | Всячина | За и Против | Металлолом | #OS2Russian | RDM/2 | Весёлые картинки | Наша галерея | Доска объявлений | Карта сайта | ПОИСК | ФОРУМ