C RESTOR -- RESTORE DATA ROUTINE C PLACES ONE WORD OF DATA AT ADDRESS IN MEMORY C C SUBROUTINE RESTOR(ADDRES,DATA) INTEGER ADDRES,DATA,IERR,ALBP2,EXIT1,EXIT2 INTEGER TASKNM(2),ITERM,IDSW,RECDAT(9),ITASK(2) COMMON /AUTO/ALBP2,EXIT1,EXIT2 COMMON /IONODE/TASKNM,ITERM,IDSW,RECDAT,ITASK ISEQ=2 RECDAT(3)=5 RECDAT(4)=ADDRES RECDAT(5)=2 RECDAT(6)=DATA CALL SNDREC(IERR,ISEQ) RETURN END