• PRG1 - �p���p �p�ᨢ��� �p���p������ �� REXX

    From FAQServer@2:5020/181 to All on Wed Jun 18 07:37:09 2025
    [Q]: �p���p �p�ᨢ��� �p���p������ �� REXX

    [A]: Sergey Posokhov (abc@posokhov.msk.ru)

    /* ���p�� �뢮�� ������ */
    '@Echo off'

    /* ���p�� �yp�p� */
    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

    /* �p����襭�� */
    Say
    Say " ��⠢�� ��᪥�y � ��᪮��� � ������ Enter."
    Say " ��� ������ �� �����y ���p��� ����."
    Say White_color
    Say " �� ��⮢���� ������ ��y� ������y."
    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"'

    --- INN 2.7.3
    * Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)