100 REM * LISTING 3:
110 REM * FEINSCROLLING IN
120 REM *   MASCHINENSPRACHE
130 REM *     DEMO IND BASIC   PF'85
150 BA=28672
160 ZL=20
170 POKE 756,226
180 GOSUB 30000
190 A=USR(1536)
200 REM * SCROLL-BEREICH MIT BILD FUELLEN
220 FOR A=BA TO BA+204*ZL STEP ZL
230 E=INT(RND(0)*8)+A
240 FOR I=A TO E:POKE I,10:NEXT I
250 FOR I=E+1 TO E+10:POKE I,92:NEXT I
260 FOR I=E+11 TO A+19:POKE I,8:NEXT I
290 NEXT A:GOTO 200
30000 REM * MASCHINEN-UNTERPROGRAMM LADEN
30010 S=0:RESTORE 30100
30020 FOR A=1536 TO 1725:READ D:POKE A,D:S=S+D:NEXT A
30030 IF S<>14814 THEN ? "DATEN-FEHLER!":STOP 
30090 RETURN 
30100 DATA 104,76,26,6,112,112,112,103,0,112,39,39,39,39,39,39,39
30110 DATA 39,39,39,39,7,65,4,6,0,169,0,141,8,6,169,112,141,9,6,169
30120 DATA 4,141,48,2,169,6,141,49,2,169,0,141,5,212,141,25,6,160
30130 DATA 64,162,6,169,7,32,92,228,96,216,173,120,2,41,1,208,6,32
30140 DATA 97,6,76,88,6,173,120,2,41,2,208,3,32,146,6,173,25,6,141
30150 DATA 5,212,76,98,228,173,25,6,208,14,173,8,6,201,0,208,7,173
30160 DATA 9,6,201,127,240,29,238,25,6,173,25,6,201,16,144,19,169
30170 DATA 0,141,25,6,24,173,8,6,105,20,141,8,6,144,3,238,9,6,96,173
30180 DATA 25,6,208,14,173,8,6,201,0,208,7,173,9,6,201,112,240,24
30190 DATA 206,25,6,16,19,169,15,141,25,6,56,173,8,6,233,20,141,8
30200 DATA 6,176,3,206,9,6,96

