SUBROUTINE PLW.FROM.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 * O = '' S = SRC * LOOP T = INDEX(S,'&',1) WHILE T DO O = O : S[1,T-1] BEGIN CASE CASE S[T,5] = '&' O = O : '&' S = S[T+5,BIG.STR] CASE S[T,4] = '<' O = O : '<' S = S[T+4,BIG.STR] CASE S[T,4] = '>' O = O : '>' S = S[T+4,BIG.STR] CASE S[T,6] = '"' O = O : '"' S = S[T+6,BIG.STR] CASE S[T,6] = ' ' O = O : ' ' S = S[T+6,BIG.STR] CASE YES O = O : '&' S = S[T+1,BIG.STR] END CASE REPEAT * O = O : S * RETURN END