%BEGIN
%RECORDFORMAT PF(%BYTEINTEGER SER, REP, %INTEGER A, %INTEGERNAME B, %C
%INTEGER C)
%INTEGER I, J
%CONSTBYTEINTEGERNAME ID = K'160030'
%INTEGERARRAY BUFF(0:256)
%RECORD (PF) P

%ROUTINE READ BL(%INTEGER BLOCK)
   P_SER = 8; P_REP = ID
   P_A = 0; P_B == BUFF(0); P_C = BLOCK
   PONOFF(P)
   %IF P_A # 0 %START
      PRINTSTRING("READ FAILS "); WRITE(P_A, 1); NEWLINE
   %FINISH
%END

PROMPT("WRITE BLOCK?")
READ(I)
%CYCLE J = 0, 1, 255; BUFF(J) = I+100; %REPEAT
P_SER = 8; P_REP = ID
P_A = 1; P_B == BUFF(0); P_C = 100+I
PONOFF(P)
WRITE(P_A, 1); NEWLINE
READBL(100+I)
%CYCLE J = 0, 1, 127
  %IF BUFF(J) # 100+I %START
     PRINTSTRING("DATA ERROR ON "); WRITE(J, 1); WRITE(BUFF(J), 1); WRITE(100+I, 1)
    NEWLINE
    %EXIT
 %FINISH
%REPEAT
%ENDOFPROGRAM