( LOOK FOR NEARBY THANGS )                                      ( HL= R,C IX= SUBJ RET Z IF NEAR, NZ IF NOT )                   SUBR NEARBY? NOWR X D LDX, NOWC X E LDX,                        D A MOV, H CMP, 0=, IF, E A MOV, L CMP, RZ, THEN,               DISTANCE 1+ X A LDX, A ANA, 0=, IF, A INR, RET, THEN,           NOWD X C LDX, H PUSH, move:node CALL, H POP,                    D A MOV, H CMP, RNZ, E A MOV, L CMP, RET,                       ( NEARBY LIST -- HL'= TARG HL= LIST RET Z= NONE NZ= FOUND )     SUBR NEARBYLIST M E MOV, H INX, M D MOV, H INX,                 D A MOV, E ORA, RZ,                                             H PUSH, Y PUSHX, H POP, A ANA, D DSBC, H POP, NEARBYLIST JRZ,   D PUSH, X POPX, EXX,                                            NEARBY? CALL, EXX,                                              NEARBYLIST JRNZ,                                                1 A MVI, A ANA, RET,                                            -->                                                             ( CODE ROUTINE TO DO NEARBY CHECK )                             ( C R LIST MTC? --- T )                                         CODE MTC? H POP, ( HL= LIST )                                   EXX, D POP, H POP, E H MOV, EXX, ( R,C )                        X PUSHX, NEARBYLIST CALL, 0 H LXI, 0=, IF, H INX, THEN,         X POPX, H PUSH, NEXT                                            DATA PCONFT MONV1 , MONV2 , HOSV1 ,                             KEY , XC? IFTRUE JAWSV , HOSV2 , HOSV3 , TRSV ,                 MONV3 , MONV4 ,                                                 IFEND 0 ,                                                       : NHY 2DUP PCONFT MTC? IF 1 ELSE 2DROP 0 THEN ;                 : EXIST? 2DUP NODMSK NODEB@ NMEXM AND IF 1 ELSE 2DROP 0 THEN ;  -->                                                                                                                                                                                                                                                             ( THE GODDAMN SYSTEM PISSED ON VERSION ONE )                    CODE MYTAR EXX, Y PUSHX, X PUSHX, vaddr LIYD,                   0 C MVI, MON-LS H LXI,                                          BEGIN, M E MOV, H INX, M D MOV, H INX, D A MOV, E ORA,          0<>, WHILE, D PUSH, X POPX,                                     OBJSV X A LDX, MSSNA CPI,                                       0=, IF, INTC X A LDX, INTC Y CMPX,                              0=, IF, INTR X A LDX, INTR Y CMPX,                              0=, IF, C INR, THEN, THEN, THEN, REPEAT,                        0 B MVI, X POPX, Y POPX, B PUSH, EXX, NEXT                      : HIDEOUT BEGIN BEGIN BEGIN                                     9 RND 1+ 4 RND 1+ EXIST? END                                    NHY END INTR VB! INTC VB! Rip MYTAR 0= END ;                    : HIDE? PUSH:CCR OR 0= IF HIDEOUT THEN ;                        ;S                                                                                                                              