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