SCON IFTRUE ( TASK TO DISPLAY PLAYER ONES SCORE )               : P1s ;TASK:                                                    sc1l @ sc1h @ 0 AP1S 8 BIN->ASC                                 8 0 AP1S B!                                                     0 AP1S 0SUPR 6 2 AP1S B!                                        -156 X! SC-Y Y! PLOP-ON 7 XPAND!-ON                             2 AP1S PATTERN! EVEN-SPACE-NUMS                                 DI STRING ;                                                     IFEND -->                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       SCON IFTRUE ( TASK TO DISPLAY PLAYER TWOS SCORE )               : P2s ;TASK:                                                    sc2l @ sc2h @ 0 AP2S 8 BIN->ASC                                 8 0 AP2S B!                                                     0 AP2S 0SUPR 6 2 AP2S B!                                        108 X! SC-Y Y! PLOP-ON 7 XPAND!-ON                              2 AP2S PATTERN! EVEN-SPACE-NUMS                                 DI STRING ;                                                     : B1s sc1l @ sc1h @ D+ sc1h WP! sc1l WP! ;                      : B2s sc2l @ sc2h @ D+ sc2h WP! sc2l WP! ;                      : S*? SC* B@ DUP IF 1+ * ELSE DROP THEN ;                       : IS-D NERDUP IF B2s ELSE B1s THEN ;                            : US-S NERDUP IF SCV P2s ELSE SCV P1s THEN ;                    : PATTY 0 IS-D US-S ;                                           : INCSCORE S*? PATTY ;                                          IFEND -->                                                       ( SCORING DUMMIES )                                             SCON NOT IFTRUE                                                 : INCSCORE DROP ;                                               : IS-D 2DROP ;                                                  IFEND                                                           : TBCL 0 TIMEBSCALE! ZEROTIMEB ;                                SCON IFTRUE                                                     : GO-T ;TASK: BEGIN TBCL -36 X! 78 Y!                           NORMAL-SPACING 4 XPAND!-ON A" GAME OVER" PATTERN!               XOR-ON DI STRING 20 TIMER!-ON WAIT 0 END ;                      OTHERWISE                                                       : GO-T DROP ;                                                   IFEND                                                           -->                                                                                                                                                                                             ( PLAYER UP DISPLAY TASK )                                      XC? IFTRUE                                                      : PU-T ;TASK: TBCL -72 X! 0 Y!                                  68 XPAND!-ON #PLA B@ NOT IF A" GET READY" ELSE                  NERDUP IF A" PLAYER 2 UP" ELSE A" PLAYER 1 UP" THEN THEN        PATTERN! XOR-ON DI STRING VGER-OUT ;                            OTHERWISE : PU-T ;TASK: VGER-OUT ; IFEND                                                                                        ( TOGGLE:LIFE, DISPLAY REMAINING LIVES, AND BITE DUST )         : RTw ROTO WRITEP ;                                             : THIS:LIFE RR# B@ 4 MIN 1- ;                                   : RPT1 16 * -100 + RP-Y ;                                       : RPT2 16 * 100 SWAP - RP-Y ;                                   : ROTOPOS NERDUP IF RPT2 ELSE RPT1 THEN ;                       -->                                                                                                                             