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