CALL HOMECL 1 CALL HOME CALL CLRLIN WRITE(7,9000) 9000 FORMAT('+POKE'/' Input address (octal) to poke at: ',$) CALL CLRLIN READ(5,9010)IADR 9010 FORMAT(O6) IF(IADR.EQ.0) CALL EXIT 10 CALL GOTOXY(1,3) CALL CLRLIN WRITE(7,9001) 9001 FORMAT('+Enter value to poke : ',$) READ(5,9010) IP CALL IPOKE(IADR,IP) CALL GOTOXY(1,4) CALL CLRLIN WRITE(7,9020)IADR,IP 9020 FORMAT('+For address = ',O6,' the value is ',O6) GO TO 1 END