SUBROUTINE PLW.TO.HTML(SRC,O)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
******************************************************************************
******************************************************************************
*** ***
*** (C) Copyright 1990-2005 Doug Dumitru, All Rights Reserved. ***
*** ***
*** This program is licensed under the terms of the GNU General Public ***
*** License, version 2.0 with attached notices. ***
*** ***
*** The full text can be found in the LICENSE.TXT file in the ***
*** PLIP.BP database file (the /usr/qmweb/PLIP.BP/PLIP.BP directory). ***
*** ***
******************************************************************************
******************************************************************************
*
INCLUDE SYS.TYPE.INCLUDE
*
S1 = '&':VM:'<':VM:'>':VM:'"'
S2 = '&':VM:'<':VM:'>':VM:'"'
*
O = SRC
I1 = DCOUNT(S1,VM)
FOR I = 1 TO I1
S = O
O = ''
LOOP
T = INDEX(S,S2<1,I>,1)
WHILE T DO
O = O : S[1,T-1] : S1<1,I>
S = S[T+LEN(S2<1,I>),BIG.STR]
REPEAT
O = O : S
NEXT I
*
RETURN
END