0 Members and 1 Guest are viewing this topic.
#include "ti83plus.inc"#include "app.inc"defpage(0, "PrgmMenu")start: bcall(_ClrLCDFull) bit rawKeyHookActive,(iy+sysHookFlg) ;check if hook is active jr z,activate;uninstall hook ld hl,uninstalledTxt call AppPutS bcall(_ClrRawKeyHook) jr quit;install hook activate: ld hl,installedTxt call AppPutS in a,(6) ;load the current page into a ld hl,prgmMenu bcall(_SetGetKeyHook)quit: call pause bjump(_JForceCmdNoChar) ;ciao!AppPutS: ld a,(hl) or a ret z bcall(_PutC) inc hl jr AppPutSpause: xor a out (1),a push af pop af ;delay for slower calcs in a,(1) inc a jr nz,$-3 ;wait for all keys to be released in a,(1) inc a jr z,$-3 ;wait for a key to be pressed retinstalledTxt:.db "Hook Installed!",0uninstalledTxt:.db "Hook Uninstalled",0prgmMenu:.db 83h ;required byte cp kPrgm ;check if [Prgm] was pressed ret nz ld hl,noMenuTxt call AppPutS call pause bcall(_ClrScrn) bcall(_HomeUp) xor a ;set z to ignore keypress retnoMenuTxt:.db "Haha! Now you have no menu!",0