• PRG62 - ��� y�p��� ��뫪� �� ���y���y�騥 �p���� � ������� REXX?

    From FAQServer@2:5020/181 to All on Mon Jun 30 07:37:12 2025
    [Q]: ��� y�p��� ��뫪� �� ���y���y�騥 �p���� � ������� REXX?

    [A]: Yegor Dolzhikov (2:463/5050); Stas Mishchenkov (2:460/58)

    ==== Cut [clnfonts.cmd] ====
    /*
    ��p��� y��p��� �� OS2.INI ��뫪� �� ���y���y�騥 �p����.
    ��� �����⠫��樨 ������-���� �p��� �p��� ��p�� ��� 䠩� ��
    ��᪥ � ���y��� ��� �p���.
    */
    call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
    call SysLoadFuncs
    Call directory sysBootDrive()||'\'
    call SysIni 'USER', 'PM_Fonts', 'ALL:', 'st'
    if st.0=0 then exit
    do i=1 to st.0
    filename = SysIni('USER', 'PM_Fonts', st.i)
    if stream(filename, 'c', 'query exists')='' then
    call SysIni 'USER', 'PM_Fonts', st.i, 'DELETE:'
    end
    ==== eof [clnfonts.cmd] ====

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