chapter5/CH5PRG2.LST:

10 GRAPHICS 7
20 DLIST=PEEK(560)+256*PEEK(561):REM Find display list
30 FOR J=6 TO 84:REM Give every mode line a DLI
40 POKE DLIST+J,141:REM BASIC mode 7 with DLI bit set
50 NEXT J
60 FOR J=0 TO 30
70 READ A:POKE 1536+J,A:NEXT J:REM Poke in DLI service routine
80 DATA 72,138,72,238,32,6,175,32,6
90 DATA 189,0,240,141,10,212,141,26,208
100 DATA 224,79,208,5,169,0
110 DATA 141,32,6,104,170,104,64
120 POKE 512,0:POKE 513,6:REM Vector to DLI service routine
130 POKE 54286,192:REM Enable DLI

Back to previous page