( PLACE TREASURE IN MAZE ) XC? IFTRUE                           4 C= T-LIM                                                      TABLE T/I THEFLOWER , THESYM , THEJEWEL , THESTAR , 0 ,         TABLE T/F FL , SYM , JL1 , ST1 ,                                ( CAPTURED TREASURE DISPLAY STUFF )                             : TP-1 -82 SWAP 15 * + 95 ;                                     : TP-2 82 SWAP 15 * - 95 ;                                      : T-POS NERDUP IF TP-2 ELSE TP-1 THEN ;                         : TRw 96 SWAP T/F @ WRITEP ;                                    : T-DIS DUP T-POS ROT TRw ;                                     : Tgr1 0 tr# B@ -DUP IF 0 DO I TP-1 I TRw LOOP THEN ;           : Tgr2 1 tr# B@ -DUP IF 0 DO I TP-2 I TRw LOOP THEN ;           OTHERWISE : Tgr1 ; : Tgr2 ; IFEND                               -->                                                                                                                                                                                             ( TASK FOR A HUNK OF TREASURE IN THE MAZE )                     XC? IFTRUE : TRS-T ;TASK:                                       BEGIN DIVG TR# B@ T-LIM < WHILE HIDE?                           SELF PUSH:CCR >TREASURE NODE^ ! ( HAVE PTR PT AT ME )           NULPAT ANIM! ' CH:R SETCO COGO                                  ( MAKE SELF APPEAR )                                            ESTPOS TR# B@ T/I @ ANIM! 1STWRITE                              XOR-ON EMOV                                                     10 TIMEBSCALE!                                                  POA GO DIVG GA# B@ -DUP IF 5 MIN 200 * ELSE 100 THEN            INCSCORE TREA-S                                                 NULPAT ANIM! ERASEWRITE DIVG                                    TR# B@ DUP T-POS ROT TRw TR# 1+WPB! 0 0 Snm ( REHIDETH )        2 TIMER!-ON WAIT                                                REPEAT ; OTHERWISE : TRS-T ; : TRSV ; IFEND -->                                                                                 ( CHECK PLAYER INTERCEPT WITH TREASURE )                                                                                        SUBR TR:CHK O-M LDA, A ANA, RZ,                                 NOWR Y D LDX, NOWC Y E LDX,                                     PLYRV DISTANCE 1+ + LDA, 8 CPI, CY~, IF,                        A C MOV, PLYRV MAXDIST + LDA, C SUB, 8 CPI, RNC,                PLYRV NOWD + LDA, A C MOV, move:node CALL, THEN,                >TREASURE C MVI,                                                node^ CALL, M C MOV, H INX, M B MOV,                            B A MOV, C ORA, RZ,                                             XCHG, MYFLAG H LXI, B DAD, 1 M MVI,                             XCHG, 0 M MVI, H DCX, 0 M MVI,                                  RET,                                                            -->                                                             ;S                                                                                                                              