CALL GOTOXY(1,12) CALL CLEAR 10 CALL GOTOXY(1,12) WRITE(7,9000) 9000 FORMAT('+PEEK'/' Input address (octal) to peek at: ',$) CALL CLRLIN READ(5,9010)IADR 9010 FORMAT(O6) IP=IPEEK(IADR) CALL GOTOXY(1,14) WRITE(7,9020)IADR,IP 9020 FORMAT(' For address = ',O6,' the value is ',O6) GO TO 10 END