( GAME PLAYER ) HEX                                             : R-CHK RR# B@ DUP 0= SWAP 16 > OR ;                            : P1PG                                                          botha WPBZERO ( CLEAR PREV 2 PLAYER MODE )                      BEGIN R-CHK IF GO-SET ELSE FUGS THEN                            GAMEOVER B@ END ;                                               XC? IFTRUE : P2PG                                               BEGIN D-PU ( DISPLAY PLAYER UP MSG PLS )                        BEGIN R-CHK IF F#A BONE RR# WPBZERO ELSE FUGS THEN              F#A B@ END ( WAIT FOR DEATH FRAME )                             RR# B@ ( GET REMAINING LIVES ON STK )                           SWAPO ( SWITCH TO OTHER JERK )                                  NERDUP 1+ 1 AND plup WPB! ( GO TO OTHER PLAYER )                0= END ; ( CONTINUE AS LONG BOTH ARE ALIVE )                    OTHERWISE : P2PG ; IFEND                                        DECIMAL -->                                                     ( HARD NEW GAME INITIALIZATION ) HEX                            : I-GM #PLA B@ botha WPB! plup WPBZERO                          0 ma# WPBONE 1 ma# WPBONE 0 g#m WPZERO 1 g#m WPZERO             0 tr# WPZERO                                                    0 sc* WPZERO 303 0 rr# WP!                                      sc1l WPZERO sc1h WPZERO sc2l WPZERO sc2h WPZERO ;                                                                               ( SOFT NEW GAME REINITIALIZATION )                              : RAG MYPUP DIVG                                                8 0 DO 0FA I OUTP LOOP 0 ngS ngL FILL ;                         DECIMAL -->                                                                                                                                                                                                                                                                                                                                                                                     ( MORE GAME PLAYER )                                            HEX XC? IFTRUE                                                  : ROTO                                                          RESTART? B@ 0= IF I-GM THEN RAG                                 #PLA B@ IF P2PG THEN ( PLAY 2 UNTIL ONES DEAD )                 D-PU P1PG INVERT-OFF ; ( PLAY 1 PLAYER GAME )                   ( : SX 0 E000 1F00 FILL PUP WPCLEAR                             BEGIN GAMEOVER WPBZERO 2 RND #PLA WPB!                          ROTO 0 END ; )                                                  ' PATTY 3FF8 U! ' ROTO 3FFA U!                                  ( LINK TO FLASHER ) ' FLSHT 3FF6 U!                             OTHERWISE : ROTO #PLA WPBZERO I-GM RAG P1PG ;                   IFEND                                                           DECIMAL -->                                                                                                                                                                                     