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