ATARI-800XL-DISPLAYLIST-WHAT-AND-HOW
--------------------------------------------------------------------------------------------------
TOOL: 		ATARI BASIC/Altirra BASIC {DOESN'T NOT LOOK! Turbo-BASIC XL Version 1.5 COMPATIBLE}
Language: 	BASIC 
Extra:		-
Author: 	Misel Zivanovic {of this text file}
Note:		https://www.atarimagazines.com/software/83-12/
		{Files were found here}
---------------------------------------------------------------------------------------------------

I found this three BASIC programs here:

		https://www.atarimagazines.com/software/83-12/

It's about DISPLAYLIST and they are actually a welcome addition to previous lesson I wrote.
If i can find more, I'll add it here too.

---------------------------------------------------------------------------------------------------
1 REM *** PROGRAM 1 ***
5 REM *** SET UP COLOR TABLE ***
10 FOR CT=0 TO 5
20 READ D:POKE 1568+CT,D
30 NEXT CT
40 DATA 200,90,56,152,88,120
50 POKE 1536+31,31:REM INITIALIZE COUNTERS
60 REM *** PUT SIX INTERRUPTS INTO THE DISPLAY LIST ***
70 GRAPHICS 7:COLOR 1
80 DL=PEEK(560)+PEEK(561)*256
90 FOR C=18 TO 48 STEP 6
100 POKE DL+C,141:NEXT C
110 REM *** CREATE DISPLAY ***
120 POKE 752,1:? "DLI COLOR TABLE EXAMPLE"
130 PLOT 112,49
140 DRAWTO 112,14:DRAWTO 48,14
150 POSITION 48,49
160 POKE 765,1
---------------------------------------------------------------------------------------------------


---------------------------------------------------------------------------------------------------
10 REM *** PROGRAM 2 ***
20 GRAPHICS 2+16
30 DL=PEEK(560)+PEEK(561)*256
40 POKE DL+7,135:POKE DL+10,135
50 FOR J=0 TO 31:READ B:POKE 1536+J,B:NEXT J
60 DATA 72,169,92,141,10,212,141,22,20
8,169,16,141,00,02,104,64
70 DATA 72,169,136,141,10,212,141,22,208,169,00,141,00,02,104,64
80 POKE 512,0:POKE 513,6:REM SET ADDRESS OF FIRST ROUTINE
90 POKE 54286,192:REM ENABLE DLI
100 FOR J=0 TO 8
110 POSITION 4,J:? #6;"ANTIC"
120 NEXT J
130 GOTO 130
---------------------------------------------------------------------------------------------------


---------------------------------------------------------------------------------------------------
1 REM PROGRAM 3
10 REM ** SET UP DLI ROUTINES **
20 GRAPHICS 2:POKE 752,1:POKE 712,138
30 POKE 708,60
40 ? "PLEASE WAIT, LIFTING ANCHOR.."
50 DL=PEEK(560)+PEEK(561)*256
60 POKE DL+10,135:POKE DL+11,135
70 REM ** READ IN DLI ROUTINE **
80 FOR J=0 TO 49:READ B:POKE 1536+J,B:NEXT J
90 DATA 72,169, 82,141,10,212,141,22,208,169,16,141,00,02,104,64
100 DATA 72,138,72,152,72,169,132,162,84,160,04,141,10,212
110 DATA 141,26,208,142,22,208,140,01,212,169,00,141,00,02
120 DATA 104,168,104,170,104,64
130 GOSUB 230
135 REM ** ENABLE INTERRUPTS PRINT DISPLAY **
140 POKE 512,0:POKE 513,6
150 POKE 54286,192
160 ? CHR$(125)
170 POSITION 9,4:? #6;"@A"
180 POSITION 9,5:? #6;"BC"
190 POSITION 8,6:? #6;"DEF"
200 POSITION 8,7:? #6;"DEF"
210 GOTO 210
220 REM *** REDEFINE CHARACTER SET **
230 POKE 106,PEEK(106)-8
240 START=(PEEK(106))*256
250 POKE 756,START/256:POKE 752,1
260 FOR R=0 TO 1023
270 POKE START+R,PEEK(57344+R):NEXT R
280 FOR X=0 TO 55
290 READ D:POKE START+32*8+X,D:NEXT X
300 DATA 0,0,1,1,3,7,7,15
310 DATA 192,248,224,128,128,192,192,224
320 DATA 15,31,63,63,127,255,1,1
330 DATA 224,240,248,248,252,128,128,128
340 DATA 0,1,255,255,255,127,95,95
350 DATA 255,255,255,255,255,255,255,255
360 DATA 240,240,255,254,252,248,240,224
370 RETURN
---------------------------------------------------------------------------------------------------