%EXTERNALROUTINE LOAD(%STRING(63) S)
%INTEGER CHS,I,J,K,L
%ROUTINE PB(%INTEGER B)
  CHS=CHS+B
  PRINTCH(B&15+'A')
  PRINTCH(B>>4&15+'A')
%END
%ROUTINE PW(%INTEGER W)
  PB(W&255)
  PB(W>>8&255)
%END
  PRINTCH(1)
  CHS=0
  PW(LENGTH(S))
  READ(I)    ;! LOAD ADDRESS
  PW(I)
  READ(I)    ;! START ADDRESS
  PW(I)
  %CYCLE I=1,1,LENGTH(S)
    PB(CHARNO(S,I))
  %REPEAT
  PW(-CHS)
%END
%ENDOFFILE