Atari XL - Page 180

168
The Ateri XL Handbook
creates a display comprising a picture in mode 8,
wi th ti tles in modes 2 and o.
"
" .
" .
5
10
15
20
30
40
50
60
99
100
110
120
130
140
199
200
210
215
220
230
240
299
300
310
320
330
340
499
500
510
REM MIXED MODES DEMO
DIM Tl$(20),T2$(20),T3$(40),
A$(40)
GRAPHICS 8+16
ST=PEEK(560)+256*PEEK(561)
DM=PEEK(ST+4)+256*PEEK(ST+5)
SETCOLOR 4,3,12
SETCOLOR 1,0,2
SETCOLOR 2,3,12
REM ALTER DISPLAY LIST
POKE ST+3,71
POKE ST+6,7:POKE ST+7,2
POKE ST+160,PEEK(ST+199)
POKE ST+161,PEEK(ST+200)
POKE ST+162,PEEK(ST+201)
REM SET UP TITLES
TI$=" THE CUBE
T 2 $ = II mmmmmmmmmm
REM m IN REVERSE VIDEO
T3$="
REM 20 SPACES
A$=Tl$:GOSUB 500:MEM=MEM+20
A$=T2$:GOSUB 500:MEM=MEM+20
A$=T3$:GOSUB
500
REM DRAW CUBE IN MODE 8
COLOR 1
PLOT 100,50:DRAWTO
150,50:
DRAWTO 150,100:DRAWTO 100,100:
DRAWTO 100,50
DRAWTO 125,25:DRAWTO 175,25:
DRAWTO 150,50 .
PLOT 150,100:DRAWTO 175,75:
DRAWTO 175,25
GOTO 340
REM TRANSLATE TITLES
FOR Z=I TO LEN(A$)
IF A$(Z,Z)=" " THEN A$(Z,Z)=
CHR$(O)