( DOOR STUFF )                                                  HEX : DORWR DIVG ST-X ST-Y ROT 828 SWAP WRITEP ; DECIMAL        XC? IFTRUE                                                      CODE TSET DI, H POP, M A MOV, A ANA, 0=, IF, M INR, 0 H LXI,    ELSE, 1 H LXI, THEN, H PUSH, NEXT                               : CLDR BEGIN DSM4 TSET WHILE SYNC REPEAT                        DORS B@ IF DOR2 DORWR DOR1 DORWR 3 TIMER!-ON                    WAIT DOR1 DORWR DOR0 DORWR DORS BZERO THEN DSM4 BZERO COGO ;    ( OPEN DOOR ROUTINE )                                           : OPDR BEGIN DSM4 TSET WHILE SYNC REPEAT                        DORS B@ 0= IF DOR0 DORWR DOR1 DORWR                             3 TIMER!-ON WAIT DOR1 DORWR DOR2 DORWR DORS BONE THEN           DSM4 BZERO COGO ;                                               OTHERWISE : CLDR COGO ; : OPDR COGO ; IFEND -->                                                                                                                                                 ( KEY MONITOR )                                                 <ANIM-TBL F-K KEY1 20 NULPAT 20 TBL>                            XC? NOT IFTRUE F-K C= ex-p IFEND                                                                                                : EXAT ;TASK: START-COL START-ROW Snm DVECT-ON ESTPOS           1STWRITE XOR-ON                                                 4 XPAND!-ON ex-p ANIM! BEGIN GO 0 END ;                                                                                         : KEYMAN ;TASK:                                                 DIVG                                                            HIDE? DVECT-ON ESTPOS                                           SELF PUSH:CCR >TREASURE NODE!                                   -->                                                                                                                                                                                                                                                             ( KEY REVEALER )                                                NULPAT ANIM!                                                    DIVG                                                            ' CH:R SETCO COGO                                               1STWRITE                                                        XPAND-OFF F-K ANIM! XOR-ON                                      POA DVECT-ON GO DIVG                                            KYOPEN OBJSV VB!                                                NULPAT ANIM! 1 TIMER!-ON GO DIVG                                KEY-S                                                           ' OPDR SETCO COGO GA# B@ NOT IF SELF EXAT THEN ;                -->                                                                                                                                                                                                                                                                                                                             