 CALL SHAND
     BC=$200
     A=B CALL SHAND A=C CALL SHAND
     HL=$F200
     DO
   