9000 REM ATARI SCREEN SCROLLER›9010 REM (c) 1984 Jeff Brenner›9020 DATA 104,169,000,141,014,212,169›9030 DATA 022,141,036,002,169,006,141›9040 DATA 037,002,169,064,141,014,212›9050 DATA 096,008,216,165,206,230,206›9060 DATA 197,207,208,051,169,000,133›9070 DATA 206,024,165,203,105,001,133›9080 DATA 203,201,016,176,005,141,005›9090 DATA 212,208,031,169,000,141,005›9100 DATA 212,133,203,024,165,088,105›9110 DATA 020,133,204,165,089,105,000›9120 DATA 133,205,160,000,177,204,145›9130 DATA 088,200,192,220,208,247,040›9140 DATA 104,168,104,170,104,064›9150 T1=PEEK(548):T2=PEEK(549)›9160 IF FL=1 THEN GOTO 9250›9170 FL=1›9180 DIM SP$(20):SP$(1)=CHR$(32):SP$(20)=CHR$(32):SP$(2)=SP$›9190 DIM SCROLL$(300),TXT$(20):TOT=0:FOR I=1 TO 90›9200 LOC=ADR(SCROLL$)+22:H=INT(LOC/256):L=LOC-H*256›9210 SCROLL$(8,8)=CHR$(L):SCROLL$(13,13)=CHR$(H)›9220 READ NUM:SCROLL$(I,I)=CHR$(NUM)›9230 TOT=TOT+NUM+I:NEXT I›9240 IF TOT<>15081 THEN PRINT "THERE IS AN ERROR IN THE DATA.":STOP ›9250 CENTER=1:DELAY=3›9260 IF DELAY=0 THEN DELAY=1:SCROLL$(41,41)=CHR$(2)›9270 POKE 207,DELAY-1:POKE 203,0:POKE 206,0:RESTORE 9500›9280 GRAPHICS 18:DL=PEEK(560)+256*PEEK(561)›9290 SETCOLOR 0,2,8:SETCOLOR 1,12,10:SETCOLOR 2,9,4:SETCOLOR 3,4,6›9300 SETCOLOR 4,0,0:POKE DL+3,PEEK(DL+3)+32›9310 FOR I=DL+6 TO DL+15:POKE I,PEEK(I)+32:NEXT I›9320 A=USR(ADR(SCROLL$)):POKE 764,255›9330 IF PEEK(764)=33 THEN GOTO 9430›9340 IF PEEK(203)>0 THEN GOTO 9330›9350 POSITION 0,11:PRINT #6;SP$;›9360 READ TXT$:IF TXT$="REPEAT" THEN RESTORE 9500:GOTO 9360›9370 IF TXT$="END" THEN GOTO 9430›9380 IF CENTER=0 THEN POSITION 0,11:PRINT #6;TXT$;:GOTO 9410›9390 POS=(20-LEN(TXT$))/2:IF POS<1 THEN POSITION 0,11:PRINT #6;TXT$;:GOTO 9410›9400 POSITION 0,11:PRINT #6;SP$(1,POS);TXT$›9410 IF PEEK(203)=0 THEN GOTO 9410›9420 GOTO 9340›9430 POKE 54286,0:POKE 548,T1:POKE 549,T2:POKE 54286,64›9440 END ›9450 REM Display data begins at line 9500.›