( TASK TO REVEAL PARTIAL PASSAGEWAY )                           BV= ACTREVS                                                     HEX                                                             : PATH:REVEAL ;TASK: DI                                         ESTPOS DEPART:NODE INITIAL#LEAP DISTANCE V!                     200 DELTADIST V!                                                REVEALPAT ANIM!                                                 OR-ON 2 TIMEBMAX!                                               1STWRITE DVECT-ON                                               PUSH:CCR NOWD VB@ TEST:DRAWN IF 0C XPAND!-ON ELSE               8 XPAND!-ON MAXREVDIST MAXDIST VB! THEN                         GO DI                                                           ACTREVS 1-B! ;                                                  DECIMAL -->                                                                                                                                                                                     ( STUFF TO REDRAW PATHS )                                       : REDRAW:PATHS                                                  0 RVVS RVVL FILL                                                8 0 DO PUSH:CCR I TEST:REL                                      IF PUSH:CCR I INDEX:VECTOR NOWR OVB!                            I INDEX:VECTOR NOWC OVB!                                        I I INDEX:VECTOR NOWD OVB!                                      PUSH:CCR I TEST:DRAWN IF I 4 < ELSE 1 THEN                      IF ACTREVS 1+B!                                                 I INDEX:VECTOR PATH:REVEAL DI                                   THEN THEN LOOP ;   -->                                                                                                                                                                                                                                                                                                                                                                          ( REVEAL CHAMBERS )                                             HEX                                                             : CHAMBER:REVEAL ;TASK: DI ACTREVS BZERO                        0 NOWC VB! BEGIN 0 NOWR VB! BEGIN                               PUSH:CCR TEST:GROTTO:DRAWN IF                                   ESTPOS DVECT-ON                                                 REDRAW:PATHS                                                    GROTTOPAT ANIM! 1STWRITE 0C XPAND! XPAND-ON OR-ON               1 TIMER!-ON GO                                                  BEGIN 1 TIMER!-ON WAIT DI ACTREVS B@ 0= END                     1 TIMER!-ON WAIT                                                THEN NOWR VB@ 1+ DUP NOWR VB! NROWS = END                       NOWC VB@ 1+ DUP NOWC VB! NCOLS = END ;                          : RDRAW MYPUP CL REVV CHAMBER:REVEAL BREAK TT ;                 DECIMAL -->                                                                                                                     