%BEGIN
%ROUTINE A
%EXTERNALBYTEINTEGER BYTE=99
%EXTERNALHALFINTEGER NUTS=100
%EXTERNALINTEGER WORD=101
%EXTERNALREAL RIEE=2
%EXTERNALLONGREAL LIEE=3
%EXTERNALLONGLONGREAL QIEE=4
%EXTERNALSTRING(20) STR="AABBCCDDEEFF"
%END
%ROUTINE B
%EXTERNALBYTEINTEGERSPEC BYTE
%EXTERNALHALFINTEGERSPEC NUTS
%EXTERNALINTEGERSPEC WORD
%EXTERNALREALSPEC RIEE
%EXTERNALLONGREALSPEC LIEE
%EXTERNALLONGLONGREALSPEC QIEE
%EXTERNALSTRING(20)%SPEC STR
      %IF BYTE=99 %AND NUTS=100 %AND WORD=101 %AND RIEE=2 %AND LIEE=3 %C
         %AND QIEE=4 %AND STR="AABBCCDDEEFF" %THEN PRINTSTRING("TEST OK") %C
         %ELSE %START
         PRINTSTRING("WRONG ANSWERS")
         WRITE(BYTE,5)
         WRITE(NUTS,5)
         WRITE(WORD,5)
         NEWLINE
         PRINT FL(RIEE,2)
         PRINT FL(LIEE,2)
         PRINT FL(QIEE,2)
         SPACE
         PRINTSTRING(STR)
      %FINISH
%END
B
%ENDOFPROGRAM
