A := TRUE; PROGRAM PLC_PRG

PROGRAM PLC_PRG VAR i

PROGRAM PLC_PRG VAR str

PLC_PRG VAR di

PLC_PRG VAR x

; PROGRAM PLC_PRG VAR fb

PROGRAM PLC_PRG VAR

PROGRAM PLC_PRG VAR n

:= TRUE; PROGRAM PLC_PRG

PLC_PRG VAR (* That