HEX ( GROWL RETURN )                                            XC? IFTRUE CODE K 0C X L LDX, 0D X H LDX, H PUSH, NEXT IFEND    : G&D NCOLS 0 DO NROWS 0 DO                                     J I G-D? IF                                                     J I NODX NODE@ J I NODY NODE@                                   RPCOL @ gr-p WRITEP THEN                                        J I EXIST? IF 2DROP                                             4 0 DO K J I f&                                                 LOOP THEN LOOP LOOP ST-X ST-Y RPCOL @ SHFP WRITEP               DOR0 DORWR ; ( DRAW CLOSED DOOR )                               DECIMAL                                                         XC? IFTRUE                                                      : INTSCR SCV P1s #PLA B@ IF SFXV P2s THEN ;                     OTHERWISE : INTSCR ;                                            IFEND -->                                                                                                                       HEX ( GROWL EXISTING PATHS )                                    : G&E NCOLS 0 DO NROWS 0 DO                                     J I EXIST? IF                                                   NODX NODE@ J I NODY NODE@                                       RPCOL @ gr-p WRITEP                                             4 0 DO K J I RP&                                                LOOP THEN LOOP LOOP ;                                           DECIMAL -->                                                     ( GROWL OUT WALLS ROUTINE )                                     : G&W NCOLS 0 DO NROWS 0 DO                                     J I G-D? IF J I EXIST? IF WALDO THEN THEN                       LOOP LOOP ;                                                     -->                                                                                                                                                                                                                                                             ( ANOTHER SPARSE TRASH GENERATOR )                              HEX                                                             CODE Sst B PUSH,                                                INVERT LDA, A ANA, 0=, IF,                                      8C0 D LXI, ELSE, 0 D LXI, THEN, 3700 B LXI,                     D H MOV, E L MOV, 6 D SET, ( DE= NON, HL=MAGIC )                BEGIN, 10 IN,                                                   D LDAX, A ANA, 0=, IF, M A MOV, 3 ANI, MAGIC OUT,               33 M MVI, ELSE, A XRA, D STAX, THEN,                            H INX, D INX, B DCX, B A MOV, C ORA, 0=, END,                   B POP, NEXT                                                                                                                     : Gst C18 RPCOL ! G&E Sst G&D ; ( 028 WALCO ! G&W )             DECIMAL -->                                                                                                                                                                                     ( HARD TRASH GENERATOR )                                        HEX                                                             CODE Sht B PUSH,                                                INVERT LDA, A ANA, 0=, IF,                                      8C0 D LXI, ELSE, 0 D LXI, THEN, 3700 B LXI,                     D H MOV, E L MOV, 6 D SET, XCHG, ( DE= MAGIC HL= NON )          18 A MVI, MAGIC OUT, 0C A MVI, XPAND OUT,                       BEGIN, 10 IN, D LDAX, D STAX, M A MOV, CMA, A M MOV,            H INX, D INX, B DCX, B A MOV, C ORA, 0=, END,                   B POP, NEXT                                                                                                                     : Ght C18 RPCOL ! G&E Sht G&D ( 028 WALCO ! G&W ) ;             DECIMAL -->                                                                                                                                                                                                                                                     ( SPARSE TRASH ON PATH BACKGROUND GENERATOR )                   HEX ( NIFTY NEATO SCREEN GENERATORS )                           CODE Sn B PUSH,                                                 INVERT LDA, A ANA, 0=, IF,                                      8C0 D LXI, ELSE, 0 D LXI, THEN, 3700 B LXI,                     D H MOV, E L MOV, 6 D SET, ( DE= NON, HL=MAGIC )                BEGIN, D LDAX, A ANA, 0=, IF, M A MOV, 3 ANI, MAGIC OUT,        3 M MVI, ELSE, A XRA, D STAX, THEN,                             H INX, D INX, B DCX, B A MOV, C ORA, 0=, END,                   B POP, NEXT                                                                                                                     : Gn C18 RPCOL ! G&E Sn G&D ;                                   DECIMAL -->                                                                                                                                                                                                                                                     ( VERY SPARSE GROWL ROUTINE )                                   HEX ( NIFTY NEATO SCREEN GENERATORS )                           CODE So D POP, B PUSH, INVERT LDA, A ANA, 0=, IF,               48C0 H LXI, ELSE, 4000 H LXI, THEN, 3700 B LXI,                 BEGIN, 10 IN, 6 H SET, M A MOV, A ANA,                          0=, IF, 6 H RES, M A MOV, 3 ANI, MAGIC OUT,                     M A MOV, E ANA, D CMP, 0=, IF, 0C0 M MVI,                       ELSE, 6 H SET, 0 M MVI, THEN,                                   ELSE, 6 H SET, 0 M MVI, THEN,                                   H INX, B DCX, B A MOV, C ORA, 0=, END,                          B POP, NEXT                                                     TABLE GoTB  003C , 101C , 103C ,                                : Go C18 RPCOL ! G&E GA# B@ 3 - 2 MIN GoTB @ So G&D ;           : nul C18 RPCOL ! G&D ;                                         DECIMAL -->                                                                                                                     HEX ( GROWL OUT PLAYER 2 TREASURES, ROTOS, AND MAGICS )         XC? IFTRUE : P2gr P2FL                                          Tgr2 ( GROWL OUT PLAYER 2 TREASURES )                           1 ma# B@ 4 MIN -DUP IF 0 DO I MPT2 MAGw LOOP THEN               1 rr# B@ 4 MIN -DUP IF 0 DO I RPT2 20 RTw LOOP THEN ;           OTHERWISE : P2gr ; IFEND                                        DECIMAL -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ( BACKGROUND DRAWER )                                           TABLE TRST ' Ght , ' Gst , ' Gn , ' Go , ' Go , ' Go , ' nul ,  HEX DATA CKB 0 B,                                               : M-BG CL -1 INVERT B@ IF 7700 ELSE 4000 THEN 8C0 FILL          SETCOL ( SET COLORS ) GA# B@ 6 MIN TRST @ EXX                   Tgr1 ( GROWL OUT PLAYER 1 TREASURES )                           FREDH B@ -DUP IF 0 DO I H-DIS LOOP THEN                         0 ma# B@ 4 MIN -DUP IF 0 DO I MPT1 MAGw LOOP THEN               0 rr# B@ 4 MIN -DUP IF 0 DO I RPT1 60 RTw LOOP THEN             P1FL                                                            #PLA B@ IF P2gr THEN ;                                          DECIMAL -->                                                                                                                                                                                                                                                                                                                     