5 PRINT"[147][158]":FORX=1TO22:PRINT" TEXT FADER - PRESS ANY KEY FOR DEMO":NEXT
10 POKE 53280,0:POKE 53281,0:POKE 646,1:POKE 648,240
16 GET A$:IFA$=""THEN16
20 FOR A=1 TO 6:READ C:POKE 646,C:PRINT CHR$(147):NEXT
30 POKE 648,4:POKE 646,1:PRINT CHR$(147)
40 DATA 1,7,15,12,11,0