10 BORDER 1 : PAPER 1 : INK 7 : CLS
20 OUT 9275,7: OUT 9531,2 : REM SET 14mhz
30 GO TO 140
40 LET c=( CODE l$-32)*8
50 FOR %d=0 TO 7
60  FOR a=0 TO 7
70   LET %a= PEEK (15616+a+c) 
80   LET %v=%a>>(7-d)&@00000001+1<<3
90   POKE 22527+32*a,%v
100  NEXT a
110  BANK 5 COPY 6145,256 TO 5,6144
120 NEXT %d
130 RETURN 
140 LET m$="THIS IS A SCROLLER WRITTEN IN NEXTBASIC       "
150 FOR p=1 TO LEN m$
160  LET l$=m$(p)
170  GO SUB 40
180 NEXT p
9999 OPEN # 4,"o>bas-scr.txt": LIST #4 : CLOSE # 4
