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.¢
