- GOTO SCREEN begin
*>SCREEN begin
- PUT TEXT AT (3,2): "INPUT LONG INTEGER:"
- PUT TEXT AT (5,3): "A1:"
- PUT TEXT AT (21,3): "A2:"
- PUT TEXT AT (8,6): "OUTPUT NUMBER:"
  DIM A%(2)                     :'DO THIS ONCE, TO HAVE
                                 ' AN ARRAY TO HOLD DATA
  CALL PLCINIT(1,1)
- SOFTKEY (1) "AGAIN" GOTO SCREEN toprun
- LABEL toprun
- GET NUMBER d& AT (23,2) USING "-############" DEFAULT d&
  
  'WRITE 32 BIT NUMBER TO PLC
  
  B&=D& AND 65535               :'CONVERT LOWER 16 BITS
  IF BIT(15,B&)=1 THEN B&=(B& AND 32767)-32768
  A%(1)=B&                      :'SAVE LOWER 16 BITS
  C&=INT(D&/65536)              :'CONVERT HIGH 16 BITS
  A%(2)=C&                      :'SAVE HIGH 16 BITS
  CALL PLCWRITE(1,4,33,2,A%(1)) :'WRITE TO PLC
  
- PUT NUMBER a%(1) AT (9,3) USING "-#####"
- PUT NUMBER a%(2) AT (25,3) USING "-#####"
  
  'READ 32 BIT NUMBER FROM PLC
  
  CALL PLCREAD(1,4,33,2,A%(1))  :'READ PLC
  B&=A%(1)                      :'CONVERT LOWER 16 BITS
  B&=B& AND 65535               :'DEAL W/ SIGN EXTENSION
  C&=A%(2)                      :'CONVERT UPPER 16 BITS
  D&=(C&*65536)+B&              :'COMBINE TO FORM 32 BIT #
  
- PUT NUMBER d& AT (23,6) USING "-############"
  
- SOFTKEY WAIT
  
- END OF PSEUDOCODE