100 REM * Listing 1:
110 REM *     DEMO fuer vertikales
120 REM *           Grobscrolling
130 GRAPHICS 1
150 ? :? "SCROLL-DEMO/ GRAPHICS 1"
160 LMS=PEEK(560)+PEEK(561)*256+4:REM LMS-ADRESE (Display-List)
170 S=57344:REM *         $E000 (OS-ROM)
180 Z=20:REM *            GR.1 Zeile ist 20 Bytes lang
190 BA=57344:BE=65295:REM Anfang und Ende des Scrollbereichs
200 IF STICK(0)=13 THEN S=S-Z:IF S<BA THEN S=BA
210 IF STICK(0)=14 THEN S=S+Z:IF S>BE THEN S=BE
220 H=INT(S/256):REM *    Anfangsadresse des
230 L=S-H*256:REM *       Bildschirmspeichers festlegen
240 POKE LMS,L:POKE LMS+1,H
290 GOTO 200
