* = $3000:.OBJ "TOXIC.ML"
;**********SETS UP RASTERS!!********
JSR RSTSET
INIT LDA #$00
 STA $D020
 STA $D021
 JSR $FFD2
 LDA #$05
 JSR $FFD2
 LDA #147
 JSR $FFD2
 JSR CLRSET
 JSR CCS
 LDX #$1B
 STX $D011
 JSR $1000
 SEI
 LDA #<IRQ
 STA $314
 LDA #>IRQ
 STA $315
 LDX #$01
 STX $D01A
 STX $D019
 DEX
 STX $DC0E
 LDX #135
 STX $D012
 CLI
- LDA $DC01
 CMP #239
 BNE -
 JMP ENDSTUFF
RR .BYT 00
;******THE IRQ FOR THE SCROLLS..********
IRQ INC $D019
 LDX #137
 LDY RC1
- CPX $D012
 BNE -
 STY $D020
 STY $D021
 LDX #138
 LDA #$1B
 LDY #$00
- CPX $D012
 BNE -
 STY $D020
 STY $D021
 STA $D011
 LDY #19
 STY $D018
 LDA XPOS1
 STA $D016
 LDX #146
 LDY XPOS2
- CPX $D012
 BNE -
 STY $D016
 LDX #154
 LDA XPOS3
- CPX $D012
 BNE -
 STA $D016
 LDX #163
 LDY #200
 LDA #26
- CPX $D012
 BNE -
 STY $D016
 STA $D018
 LDX #164
 LDY RC2
- CPX $D012
 BNE -
 STY $D020
 STY $D021
 LDX #165
 LDY #$00
- CPX $D012
 BNE -
 STY $D020
 STY $D021
 JMP SCROLL
;*****SCROLLS ACTUAL TEXT OF EACH******
SCROLL DEC XPOS1
 DEC XPOS2:DEC XPOS2
 DEC XPOS3:DEC XPOS3:DEC XPOS3:DEC XPOS3
 LDX XPOS1
 CPX #191
 BEQ BJ1
A LDX XPOS2
 CPX #191
 BEQ BJ2
B LDX XPOS3
 CPX #191
 BEQ BJ3
C LDX PHASE
 CPX #$FF
 BNE +
 JMP PAUSE
+ DEC XPOS4:DEC XPOS4:DEC XPOS4:DEC XPOS4
 LDX XPOS4
 CPX #191
 BEQ BJ4
 JMP END1
BJ1 JMP SCRL1
BJ2 JMP SCRL2
BJ3 JMP SCRL3
BJ4 JMP SCRL4
SCRL1 LDX #199
 STX XPOS1
 LDX #$00
- LDA 1465,X
 STA 1464,X
 INX
 CPX #40
 BNE -
 LDX LPOS1
HBS1 LDA TEXT1,X
 BEQ ES1
 STA 1503
 INX
 STX LPOS1
 CPX #$00
 BEQ US1
 JMP A
ES1 LDX DHBS1
 STX HBS1+2
 LDX #$00
 STX LPOS1
 LDX #32
 STX 1503
 JMP A
US1 INC HBS1+2
 JMP A
SCRL2 LDX #199
 STX XPOS2
 LDX #$00
- LDA 1505,X
 STA 1504,X
 INX
 CPX #40
 BNE -
 LDX LPOS2
HBS2 LDA TEXT2,X
 BEQ ES2
 STA 1543
 INX:STX LPOS2
 CPX #$00
 BEQ US2
 JMP B
ES2 LDX DHBS2
 STX HBS2+2
 LDX #$00
 STX LPOS2
 LDX #32
 STX 1543
 JMP B
US2 INC HBS2+2
 JMP B
SCRL3 LDX #199
 STX XPOS3
 LDX #$00
- LDA 1545,X
 STA 1544,X
 INX
 CPX #40
 BNE -
 LDX LPOS3
HBS3 LDA TEXT3,X
 BEQ ES3
 STA 1583
 INX:STX LPOS3
 CPX #$00:BEQ US3
 JMP C
ES3 LDX DHBS3
 STX HBS3+2
 LDX #$00:STX LPOS3
 LDX #32
 STX 1583
 JMP C
US3 INC HBS3+2
 JMP C
SCRL4 LDX #199
 STX XPOS4
 LDX #$00
- LDA 1945,X
 STA 1944,X
 INX
 CPX #40
 BNE -
 LDX LPOS4
HBS4 LDA TEXT4,X
 BEQ ES4
 CMP #65
 BEQ PA1
 STA 1983
 INX:STX LPOS4
 CPX #$00:BEQ US4
 JMP END1
ES4 LDX DHBS4
 STX HBS4+2
 LDX #$00:STX LPOS4
 LDX #32
 STX 1983
 JMP END1
US4 INC HBS4+2
 JMP END1
PA1 LDX #$FF
 STX PHASE
 LDX #32
 STX 1983
 INC LPOS4
 CPX #$00:BEQ US4
 JMP END1
;******THIS IS THAT NEAT FADER!******
END2 INC RON
 LDX RON
 CPX #$03
 BEQ YES
 RTS
YES LDA #$00
 STA RON
 LDA RC1
 TAY
 LDX #$00
- LDA RC1+1,X
 STA RC1,X
 INX
 CPX #$0C
 BNE -
 TYA
 STA RC1,X
 LDA RC2
 TAY
 LDX #$00
- LDA RC2+1,X
 STA RC2,X
 INX
 CPX #$09
 BNE -
 TYA
 STA RC2,X
 RTS
END1 JMP NXTRSTR
;*******DATA REGESTERS!**********
RON .BYT 0
RC1 .BYT 1,1,15,15,12,12,11,11,0,0,0,0,0
RC2 .BYT 0,0,0,0,0,11,11,12,12,15,15,1,1
BRCS .BYT 6,14,3,7,1,7,3,14,6,0,0
PHASE .BYT 0
PHASE2 .BYT 0
PHASE3 .BYT 0
PHASE4 .BYT 0
PHASE5 .BYT 1
PHASE6 .BYT 0
PHASE7 .BYT 0
LPOS1 .BYT 0
LPOS2 .BYT 0
LPOS3 .BYT 0
LPOS4 .BYT 0
XPOS1 .BYT 199
XPOS2 .BYT 199
XPOS3 .BYT 199
XPOS4 .BYT 199
XPOS8 .BYT 0
XPOS9 .BYT 208
SPOS .BYT 0
DHBS1 .BYT 0
DHBS2 .BYT 0
DHBS3 .BYT 0
DHBS4 .BYT 0
DHBS8 .BYT 0
TEXT1 .SCR "  'GOOD AFTERNOON!' THE TEACHER SCREECHED TO THE CLASS.BUT LITTLE DID SHE KNOW,IT WAS NOT GOING TO BE A GOOD AFTERNOON FOR HER,OR ANYONE ELSE THAT WAS IN A 50 MILE RADIUS OF THE PLACE THAT SHE STOOD UPON."
      .SCR "THE YOUNG BOY,WHO CALLED HIMSELF 'THE DAIZYFARMER',WHO WAS RECENTLY EXPELLED,HAD PLANTED A SMALL ATOMIC BOMB IN THE BASEMENT OF THE SCHOOL.HELLO AND GREETINGS,ITS THAT INSANE ANARCHIST,THE DAIZYFARMER.WELL THIS IS MY FIRST DEMO,"
      .SCR "AND I DON'T THINK"
      .SCR " IT'S TOO BAD FOR A FIRST DEMO.ESPECIALLY WITH THE TALENTS OF WANDERER AND THE EVIL CREW TO HELP ME AND BLINKER OUT IN THIS JOINT EFFORT DEMO BETWEEN DDT AND EVIL.WELL,ON THE BOTTOM SCROLL I HAVE MY GREETINGS,AND JUST ABOVE IS THE HISTORY"
      .SCR "OF THIS DEMO,SO I GUESS I GET TO INTRODUCE MYSELF HERE.WELL,IM NOT GOING TO DO NO BULLSHIT ABOUT 'WHERE I'VE BEEN' LIKE IN THOSE FTA 'MEET A LAMER' DEMOS. MEET YOURSELVES DUDEZ! "
      .SCR "FIRST OFF I'D LIKE TO TELL YOU I'M ON A TWO YEAR MISSION (SOUNDS LIKE THE "
      .SCR "INTRODUCTION TO STAR TREK,DOESN'T IT?) TO MAKE THE BEST PIECE OF CODE A COMMODORE 64 PROGRAMER HAS EVER SEEN.I REALIZE I AM FAR FROM THAT,BUT I'M LEARNING FAST.WHY JUST 2 MONTHS AGO I COULDN'T EVEN DO A GREATER THAN 255 SCROLLER "
      .SCR "CORRECTLY (I KNOW..I CRY ABOUT THAT STILL).WELL A LOT OF PEOPLE TELL ME WHAT TO DO,AND BASICALLY I SAY FUCK'EM,BECAUSE AUTHORITY PISSES ME OFF.IM A PEACEFUL TYPE OF PERSON,A FLOWER CHILD OF THE'90S I GUESS YOU COULD SAY,BUT I'M USUALLY "
      .SCR "DRUG FREE (USUALLY) AND I'VE NEVER TRIPPED ACID,NOR DO I WANT TO,SO DON'T GET A STEREOTYPE OF A HIPPIE IN YOUR HEAD.IN FACT I LISTEN TO MOSTLY HIP-HOP,A LITTLE BIT OF 60'S SHIT (ALLAN PARSONS,SIMON&GARFUNKEL,PINK FLOYD) AND "
      .SCR "SOMETIMES WHEN I'M IN THE MOOD,HEAVY METAL.I REALLY HATE RACISM,AND THAT IS PROBABLY THE MAIN THING I FIGHT AGAINST,BESIDES CENSORSHIP,AND THE GOVERNMENT.I REALLY WANT TO BECOME A SUCCESSFUL HIP-HOP ARTIST ONE DAY,AFTER I RETIRE "
      .SCR "FROM THE THE COMMIE SCENE.I'VE BEEN BUSTED 2 TIMES (ONCE CARDS,SECOND TIME CODE HACKING) AND THE SECOND TIME WAS QUITE RECENT (A WEEK AGO IN FACT) AND THAT'S WHY WANDERER HAS TO LINK THIS SHIT AND MAKE THE PHONE CALLS (ALSO"
      .SCR " THE RECENT AT&T DEATH) WELL BASICALLY THIS IS A NEW YEARS EVE DEMO,BUT IT WAS MADE A DAY BEFORE (RIGHT NOW ITS 4:30AM CENTRAL OVER HERE IN ST.LOUIE.WELL,I DON'T WANT TO BORE YOU..I GOT TOO MUCH SHIT TO SAY IN TOO SMALL"
      .SCR " OF A TIME PERIOD.I CAN'T SAY EVERYTHING ON ONE PAGE,OR ONE DEMO.BUT I'LL KEEP YA POSTED.PEACE - 5000 GEE,FADE TO BLACK WITH THE BROTHERHOOD........            "
      .SCR "                                         "
      .BYT 00
TEXT2 .SCR "    CONNECT 14400/V.42BIS     YEAH, HEY EVERYONE, THIS IS N/M/I AT U ... SO WHAT'S UP? I'M STILL TRIPPING ... RE ISATEK 2.0 (THE BEST BBS SYSTEM IN THE WORLD.. HEH+;), I DON'T KNOW 'BOUT THAT JANUARY DATE.. WE'LL SEE HOW THINGS"
      .SCR " GO.  B-I-G GREETS OUT TO EVERYONE IN SFI (U KNOW WHO YOU ARE..HEH)  DAMN DAIZY, YOU'VE GOTTEN PRETTY GOOD!...  PERSONALS TO THE BROTHERHOOD + CHUCK OF D MAILBOX IN 314 + NIGHTWRITER/ATC!      THPPPTS TO PHANTOM/F4CG + "
      .SCR "FIRESTALKER..   GODDAMN DAIZY,"
      .SCR " U CAN'T SPELL.. ;) HEE.  AH WELL.. BUT I WILL HAVE THAT ALL FIXED IN A SEC..  YA WANT TO GET IN CONTACT W/ ME? CALL 4PLAY AFTER 01/05/91.   ONE LAST NOTE.. IF U RIP CODE + DON'T GIVE CREDIT... FUCK YOU !   AH WELL, HAPPY"
      .SCR "NEW YEAR .. OUTTA HERE!     +++     NO CARRIER                          "
      .BYT 00
TEXT3 .SCR "   GOLLY!THIS ONE IS QUICK!WE'RE TALKING IT IS FFFFFAAAAASSSSTTTT!WELL,NOT THAT FAST BECAUSE IT DOES HAVE SOME X POS SCROLLING INVOLVED..IF I TOOK THAT OFF WE'RE TALKING PORSCHE TIME BOYS AND GIRLS!WELL LET'S SEE HERE,"
      .SCR "I DON'T REALLY KNOW HOW MUCH MORE I SHOULD TYPE.THIS TEXT IS WASTING MY VALUABLE TIME HERE I COULD BE FIXING THE SCROLLS COLORS AND OTHER ML SCHTUFF LIKE THE RESET VECTORS TO FIX,AND ALSO I COULD BE TESTING THIS DEMO,WHICH PROBABLY WON'T"
      .SCR " WORK BECAUSE I MADE IT,AND THIS MACHINE REALLY HATES IT WHEN I TRY TO PROGRAM IT..BUT HAY YESTERDAY I MADE A COPIER THAT WORKED FINE (WOW!) AND MY MODIFICATIONS ON THAT INTRO WORX..BUT HAY,IM GONE...EAT MY DUST......  "
      .SCR "                                         "
      .BYT 00;IANS TEXT GOES HERE^
TEXT4 .SCR "   HEY WAZZUP EVERYONE.ITS THAT DAIZYKID!�  HERE AGAIN TO TERRORIZE YOUR COMPUTERS!�  WELL I THINK ILL PUT MY GREETS HERE..�   BECAUSE I LIKE THE STOP ON THIS SCROLL�  WELL BASICALLY I WANNA THANK THE PEOPLE �"
      .SCR "   WHO HELPED ME BECOME WHAT I AM TODAY. �  BOTH IN ELITENESS + PROGRAMMING SKILLS �  GRIM REAPER (YO DUDE!LETS GO MEXICO!)�   ACOLYTE(ARE YOU STILL BUSTED DUDE?)  �  DA BLINKER! (HOPE YOU GET OVER THAT FLU)�"
      .SCR "        N/M/I (WHATS THE WORD?:)         �  PINK FLAMINGO (QUIT FUCKING GIRLS AND..�  START PROGRAMMING AGAIN TIM!!!)      �   THUMPER(YOU HOLMS!GET OFF THAT AMIGA!!)�   CAPTAIN CRUNCH (OUR FEARLESS LEADER!) �"
      .SCR "   ROWDY ONE (DUDE,ARE YOU ALIVE?) (NO?) �  CALL TECH (YO GEE!LETS RIP SHIT UP!!)  �  KNIGHT HAWK(DIDN'T BUY MY PRINTER!!) �   ACCOMPLICE (GET OFF THAT WEED D00D!) �   SAURON(THE CHEMICAL MAN)  ..........   �"
      .SCR "   SILVER SPUR (MAKE THAT LOGO DAMNIT!)  �  DR DISCO (SORRY ABOUT THE DIS MAN,YOUR �  COOL WITH ME NOW. YO PEACE CHARITY   �   RECYCLE MAN!!HEHEHEH.ANOTHER DEALER) �   NIGHTWRITER (GET ATC ROCKIN WITH RICH!�"
      .SCR "      DAMAGE INC.   -  SPACE ACE!        �  BARBARIAN (TURN ON YOUR COMPUTER!!!)   �  WANDERER (THANX FOR UR PAGE  D00D!)  �   IRON DOCTOR (HAL!LOOK A GREET!HAHAH!)�   ANYONE ELSE THAT'S COOL WITH ME!YAHHH!�"
      .SCR "    MEGA BBS (TIS GOATLY HOLMS!!!!!!)   �"
      .SCR "     NOW,THE BOZAK(TM) GOES OUT TO:      �  FIRESTALKER (GET A LIFE LOSER!HAHA!)   �  DRAGON (LEARN HOW 2 DO RASTERS FOOL) �   AND THATS IT BECAUSE I HAVE FEW WARS!�   THATS ALL FOLX...RAP TIME! +++!CLICK! �"
      .BYT 00
TEXT5 .SCR " OKAY.I KNOW THIS ISN'T MUCH BUT IF YOU "
      .SCR " WERE PROGRAMMING THIS PAGE YOU COULD   "
      .SCR " HAVE SEEN WHAT A BITCH THIS WAS.I MUST "
      .SCR " HAVE REPROGRAMMED IT ALMOST 8 TIMES.I  "
      .SCR " WAS HAVING MAJOR PROBLEMS WITH THE     "
      .SCR " TIMING.I HAVE NO RASTER TIME LEFT      "
      .SCR " WHATSOEVER.BUT IT'S ALL OVER NOW AND I "
      .SCR " CAN RELAX AND WRITE SOME TEXT ON HOW   "
      .SCR " MANY PROBLEMS I RAN INTO PROGRAMMING   "
      .SCR " THIS PAGE.LOOK UP A BIT.NO HIGHER.OKAY "
      .SCR " THERE YOU GO.SEE THAT LOGO THAT IS     "
      .SCR " ROCKING BACK AND FORTH?WELL THAT WAS   "
      .SCR " PROBABLY THE BIGGEST PAIN IN WRITING   "
      .SCR " IT. IT'S MOSTLY BECAUSE I'VE NEVER     "
      .SCR " CREATED A PAN ROUTINE LIKE THAT IN MY  "
      .SCR " LIFE, AND ALSO THE LACK OF TIME TO DO  "
      .SCR " SHIT IN THIS PAGE.I DON'T REALLY LIKE  "
      .SCR " TALKING ABOUT BULLSHIT LIKE THIS,BUT I "
      .SCR " HAD 2 OTHER SCROLLS TO DROP SOME REAL  "
      .SCR " SHIT TO THE PUBLIC,SO I SAID FUCK IT,I "
      .SCR " AM GOING TO MAKE THIS THE DEMOS HISTORY"
      .SCR " BASICALLY THE STORY BEHIND THIS DEMO IS"
      .SCR " THAT I'VE NEVER REALLY MADE A DEMO IN  "
      .SCR " MY LIFE THAT HAS GOTTEN THE CHANCE TO  "  
      .SCR " BE RELEASED.BASICALLY BECAUSE I'M      "
      .SCR " FAIRLY NEW TO PROGRAMMING IN ML        "
      .SCR " (STARTED LAST YEAR) AND ALSO I WAS TOO "
      .SCR "         LAZY TO GET EVERYONE           "
      .SCR " INVOLVED IN A PROJECT LIKE THIS.I'VE   "
      .SCR " ADMIRED EVIL'S DEMOS FOR A LONG TIME,  "
      .SCR " AND I CONSIDER IT AN HONOR TO WORK WITH"
      .SCR " THE FAMOUS CANADIANS.I'VE KNOWN MY MAN "
      .SCR " BARBARIAN FOR A WHILE,BUT NEVER REALLY "
      .SCR " THOUGHT ABOUT ASKING HIM TO BUST SOME  "
      .SCR " SHIT W/ ME,BUT RECENTLY CAPTAIN CRUNCH "
      .SCR " SAID TO ME THAT I SHOULD ASK SOME EVIL "
      .SCR " MEMBERS IF THEY WANTED TO HELP OUT IN  "
      .SCR " OUR FIRST DEMO.SO ME AND GLOOMWING     "
      .SCR " CALLED UP WANDERER AND ASKED HIM IF HE "
      .SCR " WANTED TO CONTRIBUTE A PAGE,AND AFTER  "
      .SCR " DISAGREEING FOR A WHILE,WE TALKED HIM  "
      .SCR " INTO HELPING. WELL ANYWAYS,WE ALSO     "
      .SCR " TALKED TO TASKMASTER AND HE GOT A FEW  "
      .SCR " OTHER EVIL PEOPLE TO PITCH IN.WELP..I'M"
      .SCR " GONNA RUN THOSE CREDITS AND JET....    "
      .SCR "              CREDITS!                  "
      .SCR " CODE:DAIZYFARMER   C-SETS:DAIZYFARMER  "
      .SCR " LOGO:ME AGAIN!     MUSIC:REVERB!       "
      .SCR " SPELLCHECKED: N/M/I(ARGH!)             "
      .SCR "   THAT'S ALL!PEACE AND LOVE 2 U!       "
      .SCR "                                        "
      .SCR "                                        "
      .SCR "                                        "
      .SCR "                                        "
      .SCR "      �                                "
      .BYT 0
;*******RESET VECTOR SETUP BOYS!*******
RSTSET LDX HBS1+2
 STX DHBS1
 LDX HBS2+2
 STX DHBS2
 LDX HBS3+2
 STX DHBS3
 LDX HBS4+2
 STX DHBS4
 LDX HBS8+2
 STX DHBS8
 RTS
;**********COLOR SETUP BOIEE!**********
CLRSET LDX #$09
 STX 55736:STX 55737:STX 55774:STX 55775
 LDX #$02
 STX 55738:STX 55773
 LDX #$08
 STX 55739:STX 55772
 LDX #$0A
 STX 55740:STX 55771
 LDX #$07
 STX 55741:STX 55770:STX 55780:STX 55811
 LDX #$06
 STX 55776:STX 55777:STX 55814:STX 55815
 LDX #$0E
 STX 55778:STX 55813
 LDX #$03
 STX 55779:STX 55812
 LDX #$0B
 STX 55816:STX 55817:STX 55855:STX 55854
 LDX #$0C
 STX 55818:STX 55853
 LDX #$0F
 STX 55819:STX 55852
 RTS
;*******THE NEXT RASTER TO GO!********
NXTRSTR LDY #214
 LDX XPOS4
 LDA #26
- CPY $D012
 BNE -
 STX $D016
 STA $D018
LDY #216
 LDX #$00
 LDA BRCS,X
RS1 CPY $D012
 BNE RS1
 STA $D020
 STA $D021
 INY:INY
 INX
 LDA BRCS,X
 CPX #11
 BNE RS1
 LDY #244
 LDX #$00
 LDA BRCS,X
RS2 CPY $D012
 BNE RS2
 STA $D020
 STA $D021
 INY:INY
 INX
 LDA BRCS,X
 CPX #11
 BNE RS2
 LDX XPOS9
 STX $D016
 LDX #24
 STX $D018
 LDX #$0F
 STX $D022
 LDX #$0E
 STX $D023
 LDX #$06
 STX $D024
 JSR LGOMVE
 JSR CREDITS
 JSR $1003
 LDA #$FF
 CMP #$FF ;CHANGE #$FF TO $DC01 TO ENABLE SPACEBAR RUTINE
 BNE +
 JMP IRQ
+ INC RR 
 LDA #$31
 STA $314
 LDA #$EA
 STA $315
 JMP $EA31
;***********PAUSER GOES HERE!******
PAUSE INC PHASE2
 LDX PHASE2
 CPX #$A0
 BEQ +
 JMP END1
+ INC PHASE
 JMP END1
;**********PAUSER 2 HEH!***********
PAUSE2 INC PHASE4
 LDX PHASE4
 CPX #$05
 BEQ +
 RTS
+ INC PHASE3
 LDX #$00
 STX PHASE4
 RTS
;**********CREDIT RUTINE!**********
CREDITS LDX PHASE3
 CPX #$FF
 BNE +
 JMP PAUSE2
+ LDX XPOS8
 LDY SPOS
HBS8 LDA TEXT5,X
 BEQ EN8
 STA 1624,Y
 LDA #32
 STA 1625,Y
 INX:INY
 STX XPOS8
 STY SPOS
 CPX #$00
 BEQ UOP8
 CPY #201
 BNE +
 LDX #160
 STX SPOS
 JSR ISHT
 LDX XPOS8
 DEX
 STX XPOS8
+ LDX #$FF
 STX PHASE3
 RTS
EN8 LDX DHBS8
 STX HBS8+2
 LDX #$00
 STX XPOS8
 STX SPOS
 LDX #$FF
 STX PHASE3
 RTS
SUP8 LDX #$FF
 STX PHASE3
 INX:STX XPOS8
 LDX #160
 STX SPOS
 JSR ISHT
 RTS
UOP8 INC HBS8+2
 LDX #$FF
 STX PHASE3
 STY SPOS
 CPY #200
 BNE +
 LDX #160
 STX SPOS
 JSR ISHT
+ RTS

ISHT LDX #00
ZORT LDA 1664,X
 STA 1624,X
 INX
 CPX #160
 BNE ZORT 
 LDX #40
WKRP LDA #$20
 STA 1824-40,X
 DEX
 BNE WKRP
 RTS

;****COLOR AND CHARECTOR SETUP!*****
CCS LDX #$00
 LDA #96
- STA 1024,X
 STA 1208,X
 INX
 CPX #$00
 BNE -
 LDX #$00
 LDA #$00
- STA 1104,X
 TAY:INY:TYA:INX
 CPX #32
 BNE -
 LDX #$00
- STA 1144,X
 TAY:INY:TYA:INX
 CPX #32
 BNE -
 LDX #$00
- STA 1184,X
 TAY:INY:TYA:INX
 CPX #32
 BNE -
 LDX #$00
- STA 1224,X
 TAY:INY:TYA:INX
 CPX #32
 BNE -
 LDX #$00
- STA 1264,X
 TAY:INY:TYA:INX
 CPX #32
 BNE -
 LDX #$00
- STA 1304,X
 TAY:INY:TYA:INX
 CPX #32
 BNE -
 LDX #$00
- STA 1344,X
 TAY:INY:TYA:INX
 CPX #32
 BNE -
 LDX #$00
- STA 1384,X
 TAY:INY:TYA:INX
 CPX #31
 BNE -
 LDA #$0E
 LDX #$00
- STA 55336,X
 STA 55440,X
 INX
 CPX #$00
 BNE -
 RTS
;*********LOGO SHIFTER (IM COOL)(NOT)*
LGOMVE LDX PHASE5
 CPX #$00
 BEQ K1
 CPX #$01
 BEQ K2
 CPX #$02
 BEQ K3
 JMP SLWLFT
K1 JMP FSTRGT
K2 JMP SLWRGT
K3 JMP FSTLFT
SLWLFT INC PHASE7
 BEQ +
 LDX #$FF
 STX PHASE7
 RTS
+ DEC XPOS9
 LDX XPOS9
 CPX #207
 BEQ +
 JSR END2
 RTS
+ LDX #215
 STX $D016
 STX XPOS9
 JMP OVRLFT
FSTLFT DEC XPOS9
 LDX XPOS9
 CPX #207
 BEQ +
 JSR END2
 RTS
+ LDX #215
 STX $D016
 STX XPOS9
 JMP OVRLFT
SLWRGT INC PHASE7
 BEQ +
 LDX #$FF:STX PHASE7
 RTS
+ INC XPOS9
 LDX XPOS9
 CPX #216
 BEQ +
 JSR END2
 RTS
+ LDX #208
 STX $D016
 STX XPOS9
 JMP OVRRGT
FSTRGT INC XPOS9
 LDX XPOS9
 CPX #216
 BEQ +
 JSR END2
 RTS
+ LDX #208
 STX $D016
 STX XPOS9
 JMP OVRRGT
OVRRGT INC PHASE6:LDX PHASE6:CPX #$09
 BNE +
 LDX #215:STX $D016:STX XPOS9
 LDX #$03:STX PHASE5:RTS
+ LDX PHASE6:CPX #$07
 BNE +
 LDX #$01:STX PHASE5:JMP DSRL
+ CPX #$01:BNE DSRL:LDX #$00:STX PHASE5
DSRL LDX #$FF
 LDY 1320
- LDA 1064,X:STA 1065,X:DEX:CPX #$FF
 BNE -
LDX #$63
- LDA 1321,X:STA 1322,X:DEX:CPX #$FF
 BNE -
 STY 1321
 RTS
OVRLFT DEC PHASE6:LDX PHASE6:CPX #$FF
 BNE +
 LDX #208:STX $D016:STX XPOS9
 LDX #$01:STX PHASE5:RTS
+ LDX PHASE6:CPX #$01
 BNE +
 LDX #$03:STX PHASE5:JMP DSRR
+ CPX #$07:BNE DSRR:LDX #$02:STX PHASE5
DSRR LDX #$00
- LDA 1106,X:STA 1105,X:INX:CPX #65
 BNE -
 LDX #$00
- LDA 1171,X:STA 1170,X:INX:CPX #$00
 BNE -
 RTS
;**********THE ENDING FOR THIS PAGE!***
ENDMSG .BYT 196,196,212
      .SCR " -  � KIND OF LIKE THIS LINE!!  - "
      .BYT 196,196,212,0
ENDSTUFF LDA #$1B
 STA $D011
 LDA #$00
 STA $D020
 STA $D021
 LDA #23
 STA $D018
 LDA #199
 STA 56576
 LDA #200
 STA $D016
 JSR $FFD2
 LDA #152
 JSR $FFD2
 LDA #147
 JSR $FFD2
 LDX #$00
 STX $D418
 LDX #$00
CRK LDA ENDMSG,X
 BEQ +
 STA 1024,X
 INX
 JMP CRK
+ JMP $EA31 ;OR THE MOVER!
;*********THA-THA-THATS ALL FOLX!****�\�W =���� Ԭ��� ���M�%�N�& ���Y��X��L������X��LԪ����<��>��\�`Lij�W���X�
 Ԭ ���N��M`Lk�$� I� O����Ȍ���Y R��O����