10 DLIST=PEEK(560)+256*PEEK(561):REM Find display list›20 POKE DLIST+15,130:REM Insert interrupt instruction›30 FOR I=0 TO 19:REM Loop for poking DLI service routine›40 READ A:POKE 1536+I,A:NEXT I›50 DATA 72,138,72,169,80,162,88›60 DATA 141,10,212,141,23,208›70 DATA 142,24,208,104,170,104,64›80 POKE 512,0:POKE 513,6:REM Poke in interrupt vector›90 POKE 54286,192:REM Enable DLI›