SUBROUTINE PLW.FROM.HTML(SRC,O)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
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