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 |