( WRITE PROTECTED ROTO GAME VARIABLES )                         XC? NOT IFTRUE                                                  BV= #PLA ( # OF PLAYERS 0= 1 PL, 1= 2 PL )                      BV= plup ( PLAYER UP 0 = PL 1, 1 = PL 2 )                       BV= botha ( BOTH PLAYERS ACTIVE FLAG )                          SUBR nerd+ plup LDA, A ANA, RZ, H INX, RET,                     CODE NERDUP plup LDA, 1 ANI, A L MOV, 0 H MVI, H PUSH, NEXT     V= sc1l V= sc1h ( PLAYER 1 SCORE LO AND HI )                    V= sc2l V= sc2h ( PLAYER 2 SCORE LO AND HI )                    2 A= g#m : GA# NERDUP g#m ; ( GAME # FOR EACH PLAYER )          2 BA= ma# : MA# NERDUP ma# ; ( MAGICS LEFT FOR EACH PLAYER )    2 BA= rr# : RR# NERDUP rr# ; ( ROTOS LEFT FOR EACH PLAYER )     2 BA= sc* : SC* NERDUP sc* ; ( SCORE MULT FOR EACH PLAYER )     IFEND                                                           -->                                                                                                                             ( THESE FOLKS ARE TACKED ON AT END )                            XC? NOT IFTRUE                                                  2 BA= tr# : TR# NERDUP tr# ; ( TREASURE POINTER )               2 BA= mh# : MH# NERDUP mh# ; ( MAX HOSTAGES FREED )             BV= DIF ( DIFFICULTY FACTOR )                                   BV= GAMEOVER                                                                                                                    : WPB! B! ; : WP! ! ;                                           : 1+WPB! 1+B! ; : 1-WPB! 1-B! ;                                 : WPZERO ZERO ; : WPBONE BONE ; : WPBZERO BZERO ; IFEND         -->                                                                                                                                                                                                                                                                                                                                                                                             