10 REM 젨̩ͯ20 REM           30 RAMTOP=PEEK(106):POKE 106,RAMTOP-2:GRAPHICS 2+16:Z=040 REM Š̠堠50 FOR J=0 TO 23:READ X:POKE 1620+J,X:NEXT J60 DATA 112,112,112,71,0,0,7,7,7,7,87,0,0,71,0,0,7,7,7,7,7,65,84,670 POKE 1624,PEEK(88):POKE 1625,PEEK(89)80 POKE 1632,RAMTOP-290 SCREEN=PEEK(88)+256*PEEK(89)100 SCRN2=SCREEN+100:HI=INT(SCRN2/256):LO=SCRN2-HI*256110 POKE 1634,LO:POKE 1635,HI120 SETCOLOR 4,0,6:SETCOLOR 1,0,14:SETCOLOR 0,13,12130 POKE 560,84:POKE 561,6140 POSITION 0,4:? #6;"LINE ABOVE AND..."150 ? #6;"...LINE BELOW DO"160 ? #6;"NOT SCROLL!"170 REM Šɠ180 FOR J=0 TO 68:READ X:POKE 1536+J,X:NEXT J190 GOSUB 270200 X=USR(1536)210 GOTO 210220 REM ɛ230 DATA 104,169,8,141,4,212,133,203,169,1,141,95,6,133,204,169,6,160,24,162240 DATA 6,76,92,228,198,203,165,203,201,0,240,6,141,4,212,76,66,6,169,8250 DATA 141,4,212,133,203,230,204,165,204,201,236,240,6,141,95,6,76,66,6,169260 DATA 1,133,204,141,95,6,76,95,228270 REM Š280 POKE 88,0:POKE 89,RAMTOP-2:POKE 87,0290 DIM A$(256),Z$(1)300 A$(1,94)="  This is a demonstration of horizontal fine scrolling on the ATARI, using the hardware scroll"310 A$(95,170)=" register and a vertical blank interrupt routine to ensure smooth scrolling."320 A$(171,256)=" Any part of the screen memory can be scrolled, as can be seen.    This is a demonstra"330 SCREEN=PEEK(88)+256*PEEK(89)340 FOR J=1 TO 256350 Z1=ASC(A$(J,J)):IF Z1<32 THEN Z2=Z1+64:GOTO 380360 IF Z1<96 THEN Z2=Z1-32:GOTO 380370 Z2=Z1380 POKE SCREEN+(J-1),Z2:NEXT J390 POKE 88,PEEK(1624):POKE 89,PEEK(1625):POKE 87,2400 RETURN 