|
|
| version 1.1.1.1, 2025/01/19 02:04:04 | version 1.2, 2025/03/10 00:38:15 |
|---|---|
| Line 1 | Line 1 |
| %ulstring ; STRING library - version 0.5.0.1 | %ulstring ;VCL/SNW-STRING LIBRARY; 03/09/25 06:30 PM |
| ; | ;0.0;FreeM;****FREEM**;Serena Willis @2025 |
| ; Unless otherwise noted, the code below | ; |
| ; was approved in document X11/95-11 | ; $Id$ |
| ; | ; String library |
| ; If corrections have been applied, | ; |
| ; first the original line appears, | ; |
| ; with three semicolons at the beginning of the line. | ; Author: Serena Willis <snw@coherent-logic.com> |
| ; | ; Copyright (C) 1998 MUG Deutschland |
| ; Then the source of the correction is acknowledged, | ; Copyright (C) 2023, 2025 Coherent Logic Development LLC |
| ; then the corrected line appears, followed by a | ; |
| ; line containing three semicolons. | ; |
| ; | ; This file is part of FreeM. |
| ; | ; |
| ; | ; FreeM is free software: you can redistribute it and/or modify |
| ; it under the terms of the GNU Affero Public License as published by | |
| ; the Free Software Foundation, either version 3 of the License, or | |
| ; (at your option) any later version. | |
| ; | |
| ; FreeM is distributed in the hope that it will be useful, | |
| ; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| ; GNU Affero Public License for more details. | |
| ; | |
| ; You should have received a copy of the GNU Affero Public License | |
| ; along with FreeM. If not, see <https://www.gnu.org/licenses/>. | |
| ; | |
| ; $Log$ | |
| ; Revision 1.2 2025/03/10 00:38:15 snw | |
| ; Phase 3 of REUSE compliance and header reformatting | |
| ; | |
| ; | |
| ; SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC | |
| ; SPDX-License-Identifier: AGPL-3.0-or-later | |
| ; | |
| ; STRING library - version 0.5.0.1 | |
| ; | |
| ; Unless otherwise noted, the code below | |
| ; was approved in document X11/95-11 | |
| ; | |
| ; If corrections have been applied, | |
| ; first the original line appears, | |
| ; with three semicolons at the beginning of the line. | |
| ; | |
| ; Then the source of the correction is acknowledged, | |
| ; then the corrected line appears, followed by a | |
| ; line containing three semicolons. | |
| ; | |
| ; | |
| ; | |
| PRODUCE(IN,SPEC,MAX) ; | PRODUCE(IN,SPEC,MAX) ; |
| NEW VALUE,AGAIN,P1,P2,I,COUNT | NEW VALUE,AGAIN,P1,P2,I,COUNT |
| SET VALUE=IN,COUNT=0 | SET VALUE=IN,COUNT=0 |