( CHANGE VECTORS PERSPECTIVE INDEX ROUTINE )                    SUBR CH-PX                                                      VPERINX Y CMPX,                                                 0<>, IF, A VPERINX Y STX,                                       0 VANIMINX Y MVIX,                                              1 VANIMTIMER Y MVIX, THEN, RET,                                 SUBR CH-HX OBJSV Y A LDX, HSATP CPI, RNZ, L A MOV, CH-PX JMPR,  CODE GHOST H POP, Y PUSHX, P-S LDA, A DCR, 2 CPI, CY, IF,       L A MOV, RLC, A H MOV,                                          PLYRV Y LXIX, VPERINX Y A LDX, 1 ANI, H ORA, CH-PX CALL,        HOSV1 Y LXIX, CH-HX CALL,                                       XC? IFTRUE HOSV2 Y LXIX, CH-HX CALL,                            HOSV3 Y LXIX, CH-HX CALL, IFEND THEN, Y POPX, NEXT              -->                                                                                                                                                                                             DECIMAL                                                         : MPT1 -118 SWAP 12 * - 82 ;                                    : MPT2 118 SWAP 12 * + 82 ;                                     : MAGw 96 MAGM WRITEP ;                                         : M-POS NERDUP IF MPT2 ELSE MPT1 THEN ;                         : P1FL -96 95 32 P1UP WRITEP ;                                  : P2FL 96 95 32 P2UP WRITEP ;                                   : FLSHR NERDUP IF P2FL ELSE P1FL THEN ;                         HEX                                                             SUBR Ijs INVERT LDA, A ANA, 0=, IF, 12 IN,                      ELSE, 11 IN, THEN, RET, DECIMAL                                 CODE IJS Ijs CALL, A L MOV, 0 H MVI, H PUSH, NEXT DECIMAL       XC? IFTRUE                                                      : FLSHT ;TASK: BEGIN DIVG FLSHR 30 TIMER!-ON WAIT 0 END ;       IFEND                                                           -->                                                             ( INTERRUPT MAGIC MONITOR AND COLOR CHANGER )                   HEX SUBR MS-F MAFLG LDA, A ANA, 0=, IF,                         Ijs CALL, 5 A BIT, RNZ, ( CHECK BUTT DOWN )                     FREEZE? CALL, RNZ, 0 ma# H LXI,                                 nerd+ CALL, M A MOV, A ANA, RZ, P-S LDA, A DCR, 2 CPI, RNC,     FREEZE CALL, 1 A MVI, SFXV MYFLAG + STA, MAFLG STA, RET,        THEN, ( MAFLG SET ! )                                           MASCL LDA, A INR, 2 CPI, CY, IF, MASCL STA, RET, THEN,          A XRA, MASCL STA, ( RESET PRESCALER )                           MACT LDA, 0FA CPI, RZ, 0F8 ANI, 2 ORI, 8 ADI, MACT STA,         1F ANI, 2 CPI, MACT LDA, 0=, IF, 3 ADI, THEN, BKC STA, RET,     DECIMAL -->                                                                                                                                                                                                                                                                                                                     ( MAGIC STUFF ) HEX XC? IFTRUE                                  : jCK JAWSF B@ 2 = IF JAWSV J-RV JAWSF BZERO THEN ;             OTHERWISE : jCK ; IFEND                                         : MA-T ;TASK: 5 TIMEBSCALE! 0FA MACT B!                         BEGIN BEGIN 6 TIMER!-ON POA WAIT DIVG                           DIGSCR B@ 2/ DUP IF DIGSCR BZERO INCSCORE ELSE DROP THEN        FLSHR FLAG? END                                                 480 Vpf ! 320 Vps ! ( SOUP UP PLAYER SPEED )                    BEGIN MAGIC-S DIVG MA# 1-WPB! MA# B@ DUP 4 < IF                 M-POS MAGw ELSE DROP THEN 2 MACT B!                             BEGIN MACT B@ 0FA <> P.S B@ PLESC <> AND WHILE 1 GHOST          2 TIMER!-ON WAIT DIVG jCK                                       REPEAT 0FA DUP BKC B! MACT B!                                   IJS 20 AND 0<> MA# B@ 0= OR P.S B@ PLESC = OR END               SHUTUP UNFREEZE MAFLG BZERO 0 GHOST 0 END ; DECIMAL -->         DECIMAL -->                                                     