SCROLLER LDA XPAUSE1
         SEC
         SBC #$02
         STA XPAUSE1
         BPL EXITSC1
         AND #$07
         STA XPAUSE1
         LDX #$00
MOVE1    LDA SCREEN1+1,X
         STA SCREEN1,X
         LDA SCREEN1+41,X
         STA SCREEN1+40,X
         INX
         CPX #$27
         BNE MOVE1
         LDA TEXT1
TP1      = *-2
         BEQ RESTART1
         INC TP1
         BNE ST1
         INC TP1+1
         BNE ST1
RESTART1 LDA #<TEXT1
         LDX #>TEXT1
         STA TP1
         STX TP1+1
         LDA #$20
ST1      STA SCREEN1+39
         CLC
         ADC #$40
         STA SCREEN1+79
EXITSC1  RTS