TS$="Let R1=0; Restart: Let R0=1; Pause; Loop: Let R0=R0+2; Let X=R0; Let R1=R1+1; If R1=16 then Jump G; H: If X>384 then Jump Restart; Pause; Jump Loop; G: Let R1=0; Jump H;"
BS$="Let R1=0; Restart: Let R0=1; Pause; Loop: Let R0=R0+2; Let X=R0; Let R1=R1+1; If R1=16 then Jump G; H: If X>384 then Jump Restart; Pause; Jump Loop; G: Let R1=0; Jump H;"
TB$="Ustart: Let Y=2; Loop: Let Y=Y+1; If Y=42 then Jump Dstart; Pause; Jump Loop; Dstart: Let Y=Y-1; If Y=2 then Jump Loop; Pause; Jump Dstart;"
BB$="Ustart: Let Y=42; Loop: Let Y=Y-1; If Y=2 then Jump Dstart; Pause; Jump Loop; Dstart: Let Y=Y+1; If Y=42 then Jump Loop; Pause; Jump Dstart;"
TU$="Let Y=2; Loop: Let Y=Y+1; If Y=42 then Jump S; Pause; Jump Loop; S: Jump S;"
BU$="Let Y=42; Loop: Let Y=Y-1; If Y=2 then Jump S; Pause; Jump Loop; S: Jump S;"
BD$="Let Y=2; Loop: Let Y=Y+1; If Y=42 then Jump S; Pause; Jump Loop; S: Jump S;"
TD$="Let Y=42; Loop: Let Y=Y-1; If Y=2 then Jump S; Pause; Jump Loop; S: Jump S;"
TE$="Loop: Let Y=Y+1; If Y=42 then Jump S; Pause; Jump Loop; S: Jump S;"
BE$="Loop: Let Y=Y-1; If Y=2 then Jump S; Pause; Jump Loop; S: Jump S;"
RA$="Restart: Let X=0; Pause; Loop: Let X=X+1; If X>63 then Jump Restart; Pause; Jump Loop;"
T$=" < and yet>another fanatix release hits you hard in the brain...< "
T$=T$+"> the credits for this are: < jag ->coding<"
T$=T$+" jag ->gfx < music>by zero defects......< "
T$=T$+">you know, this is a really funky scroller to type<in,>(a hardware one by the way), especially with"
T$=T$+" these stupid effects.< # thats much more wild. by the way, this font is taken from the"
T$=T$+" @blitterchips fonts disk. this one is great but<i had#to alter it a bit to look best"
T$=T$+"........@ < >where is chaos???? he usually manages to disturb me when im trying"
T$=T$+" to write a scroller.< > #once upon a time there"
T$=T$+" was paf the dog.. he went into the road where there was a fast truck.....@ paf the dog.......<"
T$=T$+" >very strange joke that, it was written by a french person, as you may expect....<"
T$=T$+" this is>the last demo i have to code for the megademo,<and i am#just waiting for chaos to"
T$=T$+" finish the intro gfx, but as he is so lazy this will probably never happen. @at the time of writing,"
T$=T$+" the only thing in this demo is the<scroll...#boring @ < surely>i must put something else"
T$=T$+" in to make it<more fun#to watch......@ < #what do you think of this effect. @i find it"
T$=T$+" bloody annoying....< >ha, i have just put in the logo you see, and programmed in a star effect.< "
T$=T$+" #i have a nice little routine that makes these star effects.@ but i wont let anyone copy it....< "
T$=T$+">syntex<will>probably guess how it was done.< nice#stuff guyz. some quick hellos to:@ <"
T$=T$+"steve and>trisha from blitterchips p.d. ,<all demo>groups, all<amos demo#groups, and parsley the lion.@ <"
T$=T$+" #bye for now. see you in the other cool demos..................................... @"
Screen Open 0,800,80,16,Lowres
Flash Off : Hide On : Curs Off : Cls 0
Screen Display 0,110,230,360,40
Screen Open 1,800,84,16,Lowres
Flash Off : Hide On : Curs Off : Cls 0
Screen Display 1,110,262,360,40
Unpack 6 To 2
Screen To Back 2 : Screen Hide 2 : Screen 0 : Get Palette 2
Screen Open 3,320,256,32,Lowres : Flash Off : Curs Off : Cls 0
Screen Display 3,128,40,,230
Screen Hide 3 : Gosub DRSTARS : Screen Show 3 : Screen To Back 3
Set Rainbow 1,1,64,"(2,1,15)(2,-1,15)","","(2,1,15)(2,-1,15)"
