10 WRITE(7,9000) 9000 FORMAT(' SPY'/' Input address (octal)OFFSET to SPY at: ',$) READ(5,9010)IADR 9010 FORMAT(O6) IP=ISPY(IADR) WRITE(7,9020)IADR,IP 9020 FORMAT(' For address = ',O6,' OFFSET the value is ',O6) GO TO 10 END