10 REM DEMO ZU HIRES-SCROLL
20 :
30 DATA"PIC1","PIC2","PIC3","ENDE"
40 :
45 IFB=0THENB=1:LOAD"SCROLL",8,1
50 IFA=0THENA=1:SYS49240
60 IFA>1THENSYS49152,1
70 RESTORE:FORI=1TOA:READN$:NEXT
80 IFN$="ENDE"THEN100
90 A=A+1:LOAD(N$),8,1
100 POKE198,0:WAIT198,1:POKE198,0
110 POKE53265,27:POKE53270,200:POKE53272,21:PRINT"[147]":POKE56576,151