125 colors in BASIC, very important unnecessary thing. CPC6128 - 0,66MHz

[McArti0]

Code Select Expand

org #A0A0
di
ld HL,#A000 ;start A000 interrupt
ld (#b942),HL
ld a,#C3
ld (#b941),A
ret
org #A0B0 ;change to normal interrupt.
di
ld HL,#3808
ld (#b942),HL
ld a,#F3
ld (#b941),A
ret
org #A000
di
push af ;space for insert SHOW procedure addres.
push af
push bc
ld b,&f5           
in a,(c)          
rra                
jp nc,end_int ;; [3] if carry not set, loop, otherwise continue
;if Vsync then set on stack return to SHOW procedure.
inc sp
inc sp
inc sp
inc sp
inc sp
inc sp
ld bc,show
push bc ;insert on stack SHOW procedure addres. Return interrupt, return to SHOW procedure.
dec sp
dec sp
dec sp
dec sp
pop bc
pop af
jp end_int2
.end_int
pop bc
pop af
pop af
.end_int2
EX AF,AF'
JP C,#B978
JP #B945
;org #a100
.show
push hl
ld HL,#4DED ;reti
ld (#b941),HL
halt ;wait for first interrupt after interrupt with Vsync
di
push af
push ix
push bc
push de
ld de,(continue+1) ;1/50 next half screen +/- #800
ld a,d
xor 8
ld d,a
ld a,e
xor 8
ld e,a
ld (continue+1),de
inc (hl):dec (hl);delay
inc (hl):dec (hl)
ld b,#11
.delay
inc (HL):dec (HL):inc (HL):dec (HL)
inc (HL):dec (HL):inc (HL):dec (HL):inc ix:nop
djnz delay
inc (hl):dec (hl) ;delay
inc (hl):dec (hl)
.continue
ld de,#4047 ;start #4000 - #4700
ld L,#c0 ;offset  start #40C0
ld bc,#7f00 ; NrInk =00  border=#10
out (c),c
ld a,e
ld h,d
nop
.loop
nop
nop
nop
.first
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc b
outi
inc (hl):dec (hl) ;delay
inc ix
cp h
jr nz,loop
ld HL,#00c3
ld (#b941),HL ;back to JP #A000 set
ld a,2
ld (#b8bf),a ;set keyboard scan for next second interrupt.
pop de
pop BC
pop IX
pop af
pop hl
ei
ret ;return to prog at last interrupt with Vsync.
;hardware colors, Soft 0-26
org #A0C0
db #54,#44,#55,#5c,#58,#5d,#4c,#45
db #4d,#56,#46,#57,#5e,#40,#5f,#4e
db #47,#4f,#52,#42,#53,#5a,#59,#5b
db #4a,#43,#4b
org #4000
db #44,#42,#43,#54,#45,#46,#47,#40
db #58,#42,#43,#54,#45,#46,#47,#40
db #58,#42,#43,#54,#45,#46,#47,#40
db #4d,#42,#43,#54,#45,#46,#47,#40
db #4f,#42,#43,#54,#45,#46,#47,#40
db #47,#42,#43,#54,#45,#46,#47,#40
db #45,#42,#43,#54,#45,#46,#47,#40
db #40,#42,#43,#54,#45,#46,#47,#48
db #55,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5d,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5f,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5b,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #53,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #57,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #46,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5e,#4a,#4b,#4c,#4d,#4e,#4f,#50
db #56,#52,#53,#54,#55,#56,#57,#50
db #52,#52,#53,#54,#55,#56,#57,#50
db #5a,#52,#53,#54,#55,#56,#57,#50
db #42,#52,#53,#54,#55,#56,#57,#50
db #59,#52,#53,#54,#55,#56,#57,#50
db #43,#52,#53,#54,#55,#56,#57,#50
db #4b,#52,#53,#54,#55,#56,#57,#50
db #4a,#52,#53,#54,#55,#56,#57,#59
db #4e,#54,#56,#56,#52,#52,#5f,#59
db #4e,#54,#56,#56,#52,#52,#5f,#59
db #4c,#54,#56,#56,#52,#52,#5f,#59
db #4c,#54,#56,#56,#52,#52,#5f,#59
db #5c,#54,#56,#56,#52,#52,#5f,#59
db #5c,#54,#56,#56,#52,#52,#5f,#59
db #54,#54,#56,#56,#52,#52,#5f,#59
db #54,#54,#56,#56,#52,#52,#5f,#40
db #44,#44,#56,#46,#52,#42,#47,#40
db #58,#44,#56,#46,#52,#42,#47,#40
db #58,#44,#56,#46,#52,#42,#47,#40
db #4d,#44,#56,#46,#52,#42,#47,#40
db #4f,#44,#56,#46,#52,#42,#47,#40
db #47,#44,#56,#46,#52,#42,#47,#40
db #45,#44,#56,#46,#52,#42,#47,#40
db #40,#44,#56,#46,#52,#42,#47,#48
db #55,#44,#46,#46,#42,#42,#4f,#48
db #5d,#44,#46,#46,#42,#42,#4f,#48
db #5f,#44,#46,#46,#42,#42,#4f,#48
db #5b,#44,#46,#46,#42,#42,#4f,#48
db #53,#44,#46,#46,#42,#42,#4f,#48
db #57,#44,#46,#46,#42,#42,#4f,#48
db #46,#44,#46,#46,#42,#42,#4f,#48
db #5e,#44,#46,#46,#42,#42,#4f,#50
db #56,#55,#46,#57,#42,#53,#57,#50
db #52,#55,#46,#57,#42,#53,#57,#50
db #5a,#55,#46,#57,#42,#53,#57,#50
db #42,#55,#46,#57,#42,#53,#57,#50
db #59,#55,#46,#57,#42,#53,#57,#50
db #43,#55,#46,#57,#42,#53,#57,#50
db #4b,#55,#46,#57,#42,#53,#57,#50
db #4a,#55,#46,#57,#42,#53,#57,#59
db #4e,#55,#57,#57,#53,#53,#5f,#59
db #4e,#55,#57,#57,#53,#53,#5f,#59
db #4c,#55,#57,#57,#53,#53,#5f,#59
db #4c,#55,#57,#57,#53,#53,#5f,#59
db #5c,#55,#57,#57,#53,#53,#5f,#59
db #5c,#55,#57,#57,#53,#53,#5f,#59
db #54,#55,#57,#57,#53,#53,#5f,#59
db #54,#55,#57,#57,#53,#53,#5f,#40
db #54,#54,#56,#56,#52,#52,#47,#40
db #54,#54,#56,#56,#52,#52,#47,#40
db #54,#54,#56,#56,#52,#52,#47,#40
db #54,#54,#56,#56,#52,#52,#47,#40
db #54,#54,#56,#56,#52,#52,#47,#40
db #54,#54,#56,#56,#52,#52,#47,#40
db #54,#54,#56,#56,#52,#52,#47,#40
db #54,#54,#56,#56,#52,#52,#47,#48
db #58,#44,#56,#46,#52,#42,#4f,#48
db #58,#44,#56,#46,#52,#42,#4f,#48
db #58,#44,#56,#46,#52,#42,#4f,#48
db #58,#44,#56,#46,#52,#42,#4f,#48
db #58,#44,#56,#46,#52,#42,#4f,#48
db #58,#44,#56,#46,#52,#42,#4f,#48
db #58,#44,#56,#46,#52,#42,#4f,#48
db #58,#44,#56,#46,#52,#42,#4f,#50
db #40,#44,#46,#46,#42,#42,#57,#50
db #40,#44,#46,#46,#42,#42,#57,#50
db #40,#44,#46,#46,#42,#42,#57,#50
db #40,#44,#46,#46,#42,#42,#57,#50
db #40,#44,#46,#46,#42,#42,#57,#50
db #40,#44,#46,#46,#42,#42,#57,#50
db #40,#44,#46,#46,#42,#42,#57,#50
db #40,#44,#46,#46,#42,#42,#57,#59
db #4f,#55,#46,#57,#42,#53,#5f,#59
db #4f,#55,#46,#57,#42,#53,#5f,#59
db #4f,#55,#46,#57,#42,#53,#5f,#59
db #4f,#55,#46,#57,#42,#53,#5f,#59
db #4f,#55,#46,#57,#42,#53,#5f,#59
db #4f,#55,#46,#57,#42,#53,#5f,#59
db #4f,#55,#46,#57,#42,#53,#5f,#59
db #4f,#55,#46,#57,#42,#53,#5f,#40
db #4b,#55,#57,#57,#53,#53,#47,#40
db #4b,#55,#57,#57,#53,#53,#47,#40
db #4b,#55,#57,#57,#53,#53,#47,#40
db #4b,#55,#57,#57,#53,#53,#47,#40
db #4b,#55,#57,#57,#53,#53,#47,#40
db #4b,#55,#57,#57,#53,#53,#47,#40
db #4b,#55,#57,#57,#53,#53,#47,#40
db #4b,#55,#57,#57,#53,#53,#47,#48
db #55,#5c,#5e,#5e,#5a,#5a,#4f,#48
db #5d,#5c,#5e,#5e,#5a,#5a,#4f,#48
db #5f,#5c,#5e,#5e,#5a,#5a,#4f,#48
db #5b,#5c,#5e,#5e,#5a,#5a,#4f,#48
db #53,#5c,#5e,#5e,#5a,#5a,#4f,#48
db #57,#5c,#5e,#5e,#5a,#5a,#4f,#48
db #46,#5c,#5e,#5e,#5a,#5a,#4f,#48
db #5e,#5c,#5e,#5e,#5a,#5a,#4f,#50
db #56,#58,#5e,#40,#5a,#59,#57,#50
db #52,#58,#5e,#40,#5a,#59,#57,#50
db #5a,#58,#5e,#40,#5a,#59,#57,#50
db #42,#58,#5e,#40,#5a,#59,#57,#50
db #59,#58,#5e,#40,#5a,#59,#57,#50
db #43,#58,#5e,#40,#5a,#59,#57,#50
db #4b,#58,#5e,#40,#5a,#59,#57,#50
db #4a,#58,#5e,#40,#5a,#59,#57,#59
db #4e,#58,#40,#40,#59,#59,#5f,#59
db #4e,#58,#40,#40,#59,#59,#5f,#59
db #4c,#58,#40,#40,#59,#59,#5f,#59
db #4c,#58,#40,#40,#59,#59,#5f,#59
db #5c,#58,#40,#40,#59,#59,#5f,#59
db #5c,#58,#40,#40,#59,#59,#5f,#59
db #54,#58,#40,#40,#59,#59,#5f,#59
db #54,#58,#40,#40,#59,#59,#5f,#40
db #44,#5d,#40,#5f,#59,#5b,#47,#40
db #58,#5d,#40,#5f,#59,#5b,#47,#40
db #58,#5d,#40,#5f,#59,#5b,#47,#40
db #4d,#5d,#40,#5f,#59,#5b,#47,#40
db #4f,#5d,#40,#5f,#59,#5b,#47,#40
db #47,#5d,#40,#5f,#59,#5b,#47,#40
db #45,#5d,#40,#5f,#59,#5b,#47,#40
db #40,#5d,#40,#5f,#59,#5b,#47,#48
db #55,#5d,#5f,#5f,#5b,#5b,#4f,#48
db #5d,#5d,#5f,#5f,#5b,#5b,#4f,#48
db #5f,#5d,#5f,#5f,#5b,#5b,#4f,#48
db #5b,#5d,#5f,#5f,#5b,#5b,#4f,#48
db #53,#5d,#5f,#5f,#5b,#5b,#4f,#48
db #57,#5d,#5f,#5f,#5b,#5b,#4f,#48
db #46,#5d,#5f,#5f,#5b,#5b,#4f,#48
db #5e,#5d,#5f,#5f,#5b,#5b,#4f,#50
db #56,#5c,#5e,#5e,#5a,#5a,#57,#50
db #52,#5c,#5e,#5e,#5a,#5a,#57,#50
db #5a,#5c,#5e,#5e,#5a,#5a,#57,#50
db #42,#5c,#5e,#5e,#5a,#5a,#57,#50
db #59,#5c,#5e,#5e,#5a,#5a,#57,#50
db #43,#5c,#5e,#5e,#5a,#5a,#57,#50
db #4b,#5c,#5e,#5e,#5a,#5a,#57,#50
db #4a,#5c,#5e,#5e,#5a,#5a,#57,#59
db #4e,#58,#5e,#40,#5a,#59,#5f,#59
db #4e,#58,#5e,#40,#5a,#59,#5f,#59
db #4c,#58,#5e,#40,#5a,#59,#5f,#59
db #4c,#58,#5e,#40,#5a,#59,#5f,#59
db #5c,#58,#5e,#40,#5a,#59,#5f,#59
db #5c,#58,#5e,#40,#5a,#59,#5f,#59
db #54,#58,#5e,#40,#5a,#59,#5f,#59
db #54,#58,#5e,#40,#5a,#59,#5f,#40
db #44,#58,#40,#40,#59,#59,#47,#40
db #58,#58,#40,#40,#59,#59,#47,#40
db #58,#58,#40,#40,#59,#59,#47,#40
db #4d,#58,#40,#40,#59,#59,#47,#40
db #4f,#58,#40,#40,#59,#59,#47,#40
db #47,#58,#40,#40,#59,#59,#47,#40
db #45,#58,#40,#40,#59,#59,#47,#40
db #40,#58,#40,#40,#59,#59,#47,#48
db #55,#5d,#40,#5f,#59,#5b,#4f,#48
db #5d,#5d,#40,#5f,#59,#5b,#4f,#48
db #5f,#5d,#40,#5f,#59,#5b,#4f,#48
db #5b,#5d,#40,#5f,#59,#5b,#4f,#48
db #53,#5d,#40,#5f,#59,#5b,#4f,#48
db #57,#5d,#40,#5f,#59,#5b,#4f,#48
db #46,#5d,#40,#5f,#59,#5b,#4f,#48
db #5e,#5d,#40,#5f,#59,#5b,#4f,#50
db #56,#5d,#5f,#5f,#5b,#5b,#57,#50
db #52,#5d,#5f,#5f,#5b,#5b,#57,#50
db #5a,#5d,#5f,#5f,#5b,#5b,#57,#50
db #42,#5d,#5f,#5f,#5b,#5b,#57,#50
db #59,#5d,#5f,#5f,#5b,#5b,#57,#50
db #43,#5d,#5f,#5f,#5b,#5b,#57,#50
db #4b,#5d,#5f,#5f,#5b,#5b,#57,#50
db #4a,#5d,#5f,#5f,#5b,#5b,#57,#59
db #4e,#4c,#4e,#4e,#4a,#4a,#5f,#59
db #4e,#4c,#4e,#4e,#4a,#4a,#5f,#59
db #4c,#4c,#4e,#4e,#4a,#4a,#5f,#59
db #4c,#4c,#4e,#4e,#4a,#4a,#5f,#59
db #5c,#4c,#4e,#4e,#4a,#4a,#5f,#59
db #5c,#4c,#4e,#4e,#4a,#4a,#5f,#59
db #54,#4c,#4e,#4e,#4a,#4a,#5f,#59
db #54,#4c,#4e,#4e,#4a,#4a,#5f,#40
db #44,#45,#4e,#47,#4a,#43,#47,#40
db #58,#45,#4e,#47,#4a,#43,#47,#40
db #58,#45,#4e,#47,#4a,#43,#47,#40
db #4d,#45,#4e,#47,#4a,#43,#47,#40
db #4f,#45,#4e,#47,#4a,#43,#47,#40
db #47,#45,#4e,#47,#4a,#43,#47,#40
db #45,#45,#4e,#47,#4a,#43,#47,#40
db #40,#45,#4e,#47,#4a,#43,#47,#48
db #55,#45,#47,#47,#43,#43,#4f,#48
db #5d,#45,#47,#47,#43,#43,#4f,#48
db #5f,#45,#47,#47,#43,#43,#4f,#48
db #5b,#45,#47,#47,#43,#43,#4f,#48
db #53,#45,#47,#47,#43,#43,#4f,#48
db #57,#45,#47,#47,#43,#43,#4f,#48
db #46,#45,#47,#47,#43,#43,#4f,#48
db #5e,#45,#47,#47,#43,#43,#4f,#50
db #56,#4d,#47,#4f,#43,#4b,#57,#50
db #52,#4d,#47,#4f,#43,#4b,#57,#50
db #5a,#4d,#47,#4f,#43,#4b,#57,#50
db #42,#4d,#47,#4f,#43,#4b,#57,#50
db #59,#4d,#47,#4f,#43,#4b,#57,#50
db #43,#4d,#47,#4f,#43,#4b,#57,#50
db #4b,#4d,#47,#4f,#43,#4b,#57,#50
db #4a,#4d,#47,#4f,#43,#4b,#57,#59
db #4e,#4d,#4f,#4f,#4b,#4b,#5f,#59
db #4e,#4d,#4f,#4f,#4b,#4b,#5f,#59
db #4c,#4d,#4f,#4f,#4b,#4b,#5f,#59
db #4c,#4d,#4f,#4f,#4b,#4b,#5f,#59
db #5c,#4d,#4f,#4f,#4b,#4b,#5f,#59
db #5c,#4d,#4f,#4f,#4b,#4b,#5f,#59
db #54,#4d,#4f,#4f,#4b,#4b,#5f,#59
db #54,#4d,#4f,#4f,#4b,#4b,#5f,#40
db #44,#42,#43,#44,#45,#46,#47,#40
db #58,#42,#43,#44,#45,#46,#47,#40
db #58,#42,#43,#44,#45,#46,#47,#40
db #4d,#42,#43,#44,#45,#46,#47,#40
db #4f,#42,#43,#44,#45,#46,#47,#40
db #47,#42,#43,#44,#45,#46,#47,#40
db #45,#42,#43,#44,#45,#46,#47,#40
db #40,#42,#43,#44,#45,#46,#47,#48
db #55,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5d,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5f,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5b,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #53,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #57,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #46,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5e,#4a,#4b,#4c,#4d,#4e,#4f,#50
db #56,#52,#53,#54,#55,#56,#57,#50
db #52,#52,#53,#54,#55,#56,#57,#50
db #5a,#52,#53,#54,#55,#56,#57,#50
db #42,#52,#53,#54,#55,#56,#57,#50
db #59,#52,#53,#54,#55,#56,#57,#50
db #43,#52,#53,#54,#55,#56,#57,#50
db #4b,#52,#53,#54,#55,#56,#57,#50
db #4a,#52,#53,#54,#55,#56,#57,#59
db #4e,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #4e,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #4c,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #4c,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #5c,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #5c,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #54,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #54,#5a,#5b,#5c,#5d,#5e,#5f,#40
db #44,#42,#43,#44,#45,#46,#47,#40
db #58,#42,#43,#44,#45,#46,#47,#40
db #58,#42,#43,#44,#45,#46,#47,#40
db #4d,#42,#43,#44,#45,#46,#47,#40
db #4f,#42,#43,#44,#45,#46,#47,#40
db #47,#42,#43,#44,#45,#46,#47,#40
db #45,#42,#43,#44,#45,#46,#47,#40
db #40,#42,#43,#44,#45,#46,#47,#48
db #55,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5d,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5f,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5b,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #53,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #57,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #46,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5e,#4a,#4b,#4c,#4d,#4e,#4f,#50
db #56,#52,#53,#54,#55,#56,#57,#50
db #52,#52,#53,#54,#55,#56,#57,#50
db #5a,#52,#53,#54,#55,#56,#57,#50
db #42,#52,#53,#54,#55,#56,#57,#50
db #59,#52,#53,#54,#55,#56,#57,#50
db #43,#52,#53,#54,#55,#56,#57,#50
db #4b,#52,#53,#54,#55,#56,#57,#50
db #4a,#52,#53,#54,#55,#56,#57,#59
db #4e,#54,#54,#56,#56,#52,#5f,#59
db #4e,#54,#54,#56,#56,#52,#5f,#59
db #4c,#54,#54,#56,#56,#52,#5f,#59
db #4c,#54,#54,#56,#56,#52,#5f,#59
db #5c,#54,#54,#56,#56,#52,#5f,#59
db #5c,#54,#54,#56,#56,#52,#5f,#59
db #54,#54,#54,#56,#56,#52,#5f,#59
db #54,#54,#54,#56,#56,#52,#5f,#40
db #44,#54,#44,#56,#46,#52,#47,#40
db #58,#54,#44,#56,#46,#52,#47,#40
db #58,#54,#44,#56,#46,#52,#47,#40
db #4d,#54,#44,#56,#46,#52,#47,#40
db #4f,#54,#44,#56,#46,#52,#47,#40
db #47,#54,#44,#56,#46,#52,#47,#40
db #45,#54,#44,#56,#46,#52,#47,#40
db #40,#54,#44,#56,#46,#52,#47,#48
db #55,#44,#44,#46,#46,#42,#4f,#48
db #5d,#44,#44,#46,#46,#42,#4f,#48
db #5f,#44,#44,#46,#46,#42,#4f,#48
db #5b,#44,#44,#46,#46,#42,#4f,#48
db #53,#44,#44,#46,#46,#42,#4f,#48
db #57,#44,#44,#46,#46,#42,#4f,#48
db #46,#44,#44,#46,#46,#42,#4f,#48
db #5e,#44,#44,#46,#46,#42,#4f,#50
db #56,#44,#55,#46,#57,#42,#57,#50
db #52,#44,#55,#46,#57,#42,#57,#50
db #5a,#44,#55,#46,#57,#42,#57,#50
db #42,#44,#55,#46,#57,#42,#57,#50
db #59,#44,#55,#46,#57,#42,#57,#50
db #43,#44,#55,#46,#57,#42,#57,#50
db #4b,#44,#55,#46,#57,#42,#57,#50
db #4a,#44,#55,#46,#57,#42,#57,#59
db #4e,#55,#55,#57,#57,#53,#5f,#59
db #4e,#55,#55,#57,#57,#53,#5f,#59
db #4c,#55,#55,#57,#57,#53,#5f,#59
db #4c,#55,#55,#57,#57,#53,#5f,#59
db #5c,#55,#55,#57,#57,#53,#5f,#59
db #5c,#55,#55,#57,#57,#53,#5f,#59
db #54,#55,#55,#57,#57,#53,#5f,#59
db #54,#55,#55,#57,#57,#53,#5f,#40
db #54,#5c,#5c,#5e,#5e,#5a,#47,#40
db #54,#5c,#5c,#5e,#5e,#5a,#47,#40
db #54,#5c,#5c,#5e,#5e,#5a,#47,#40
db #54,#5c,#5c,#5e,#5e,#5a,#47,#40
db #54,#5c,#5c,#5e,#5e,#5a,#47,#40
db #54,#5c,#5c,#5e,#5e,#5a,#47,#40
db #54,#5c,#5c,#5e,#5e,#5a,#47,#40
db #54,#5c,#5c,#5e,#5e,#5a,#47,#48
db #56,#5c,#58,#5e,#40,#5a,#4f,#48
db #56,#5c,#58,#5e,#40,#5a,#4f,#48
db #56,#5c,#58,#5e,#40,#5a,#4f,#48
db #56,#5c,#58,#5e,#40,#5a,#4f,#48
db #56,#5c,#58,#5e,#40,#5a,#4f,#48
db #56,#5c,#58,#5e,#40,#5a,#4f,#48
db #56,#5c,#58,#5e,#40,#5a,#4f,#48
db #56,#5c,#58,#5e,#40,#5a,#4f,#50
db #40,#58,#58,#40,#40,#59,#57,#50
db #40,#58,#58,#40,#40,#59,#57,#50
db #40,#58,#58,#40,#40,#59,#57,#50
db #40,#58,#58,#40,#40,#59,#57,#50
db #40,#58,#58,#40,#40,#59,#57,#50
db #40,#58,#58,#40,#40,#59,#57,#50
db #40,#58,#58,#40,#40,#59,#57,#50
db #40,#58,#58,#40,#40,#59,#57,#59
db #59,#58,#5d,#40,#5f,#59,#5f,#59
db #59,#58,#5d,#40,#5f,#59,#5f,#59
db #59,#58,#5d,#40,#5f,#59,#5f,#59
db #59,#58,#5d,#40,#5f,#59,#5f,#59
db #59,#58,#5d,#40,#5f,#59,#5f,#59
db #59,#58,#5d,#40,#5f,#59,#5f,#59
db #59,#58,#5d,#40,#5f,#59,#5f,#59
db #59,#58,#5d,#40,#5f,#59,#5f,#40
db #4b,#5d,#5d,#5f,#5f,#5b,#47,#40
db #4b,#5d,#5d,#5f,#5f,#5b,#47,#40
db #4b,#5d,#5d,#5f,#5f,#5b,#47,#40
db #4b,#5d,#5d,#5f,#5f,#5b,#47,#40
db #4b,#5d,#5d,#5f,#5f,#5b,#47,#40
db #4b,#5d,#5d,#5f,#5f,#5b,#47,#40
db #4b,#5d,#5d,#5f,#5f,#5b,#47,#40
db #4b,#5d,#5d,#5f,#5f,#5b,#47,#48
db #55,#5c,#5c,#5e,#5e,#5a,#4f,#48
db #5d,#5c,#5c,#5e,#5e,#5a,#4f,#48
db #5f,#5c,#5c,#5e,#5e,#5a,#4f,#48
db #5b,#5c,#5c,#5e,#5e,#5a,#4f,#48
db #53,#5c,#5c,#5e,#5e,#5a,#4f,#48
db #57,#5c,#5c,#5e,#5e,#5a,#4f,#48
db #46,#5c,#5c,#5e,#5e,#5a,#4f,#48
db #5e,#5c,#5c,#5e,#5e,#5a,#4f,#50
db #56,#5c,#58,#5e,#40,#5a,#57,#50
db #52,#5c,#58,#5e,#40,#5a,#57,#50
db #5a,#5c,#58,#5e,#40,#5a,#57,#50
db #42,#5c,#58,#5e,#40,#5a,#57,#50
db #59,#5c,#58,#5e,#40,#5a,#57,#50
db #43,#5c,#58,#5e,#40,#5a,#57,#50
db #4b,#5c,#58,#5e,#40,#5a,#57,#50
db #4a,#5c,#58,#5e,#40,#5a,#57,#59
db #4e,#58,#58,#40,#40,#59,#5f,#59
db #4e,#58,#58,#40,#40,#59,#5f,#59
db #4c,#58,#58,#40,#40,#59,#5f,#59
db #4c,#58,#58,#40,#40,#59,#5f,#59
db #5c,#58,#58,#40,#40,#59,#5f,#59
db #5c,#58,#58,#40,#40,#59,#5f,#59
db #54,#58,#58,#40,#40,#59,#5f,#59
db #54,#58,#58,#40,#40,#59,#5f,#40
db #44,#58,#5d,#40,#5f,#59,#47,#40
db #58,#58,#5d,#40,#5f,#59,#47,#40
db #58,#58,#5d,#40,#5f,#59,#47,#40
db #4d,#58,#5d,#40,#5f,#59,#47,#40
db #4f,#58,#5d,#40,#5f,#59,#47,#40
db #47,#58,#5d,#40,#5f,#59,#47,#40
db #45,#58,#5d,#40,#5f,#59,#47,#40
db #40,#58,#5d,#40,#5f,#59,#47,#48
db #55,#5d,#5d,#5f,#5f,#5b,#4f,#48
db #5d,#5d,#5d,#5f,#5f,#5b,#4f,#48
db #5f,#5d,#5d,#5f,#5f,#5b,#4f,#48
db #5b,#5d,#5d,#5f,#5f,#5b,#4f,#48
db #53,#5d,#5d,#5f,#5f,#5b,#4f,#48
db #57,#5d,#5d,#5f,#5f,#5b,#4f,#48
db #46,#5d,#5d,#5f,#5f,#5b,#4f,#48
db #5e,#5d,#5d,#5f,#5f,#5b,#4f,#50
db #56,#4c,#4c,#4e,#4e,#4a,#57,#50
db #52,#4c,#4c,#4e,#4e,#4a,#57,#50
db #5a,#4c,#4c,#4e,#4e,#4a,#57,#50
db #42,#4c,#4c,#4e,#4e,#4a,#57,#50
db #59,#4c,#4c,#4e,#4e,#4a,#57,#50
db #43,#4c,#4c,#4e,#4e,#4a,#57,#50
db #4b,#4c,#4c,#4e,#4e,#4a,#57,#50
db #4a,#4c,#4c,#4e,#4e,#4a,#57,#59
db #4e,#4c,#45,#4e,#47,#4a,#5f,#59
db #4e,#4c,#45,#4e,#47,#4a,#5f,#59
db #4c,#4c,#45,#4e,#47,#4a,#5f,#59
db #4c,#4c,#45,#4e,#47,#4a,#5f,#59
db #5c,#4c,#45,#4e,#47,#4a,#5f,#59
db #5c,#4c,#45,#4e,#47,#4a,#5f,#59
db #54,#4c,#45,#4e,#47,#4a,#5f,#59
db #54,#4c,#45,#4e,#47,#4a,#5f,#40
db #44,#45,#45,#47,#47,#43,#47,#40
db #58,#45,#45,#47,#47,#43,#47,#40
db #58,#45,#45,#47,#47,#43,#47,#40
db #4d,#45,#45,#47,#47,#43,#47,#40
db #4f,#45,#45,#47,#47,#43,#47,#40
db #47,#45,#45,#47,#47,#43,#47,#40
db #45,#45,#45,#47,#47,#43,#47,#40
db #40,#45,#45,#47,#47,#43,#47,#48
db #55,#45,#4d,#47,#4f,#43,#4f,#48
db #5d,#45,#4d,#47,#4f,#43,#4f,#48
db #5f,#45,#4d,#47,#4f,#43,#4f,#48
db #5b,#45,#4d,#47,#4f,#43,#4f,#48
db #53,#45,#4d,#47,#4f,#43,#4f,#48
db #57,#45,#4d,#47,#4f,#43,#4f,#48
db #46,#45,#4d,#47,#4f,#43,#4f,#48
db #5e,#45,#4d,#47,#4f,#43,#4f,#50
db #56,#4d,#4d,#4f,#4f,#4b,#57,#50
db #52,#4d,#4d,#4f,#4f,#4b,#57,#50
db #5a,#4d,#4d,#4f,#4f,#4b,#57,#50
db #42,#4d,#4d,#4f,#4f,#4b,#57,#50
db #59,#4d,#4d,#4f,#4f,#4b,#57,#50
db #43,#4d,#4d,#4f,#4f,#4b,#57,#50
db #4b,#4d,#4d,#4f,#4f,#4b,#57,#50
db #4a,#4d,#4d,#4f,#4f,#4b,#57,#59
db #4e,#4c,#4c,#4e,#4e,#4a,#5f,#59
db #4e,#4c,#4c,#4e,#4e,#4a,#5f,#59
db #4c,#4c,#4c,#4e,#4e,#4a,#5f,#59
db #4c,#4c,#4c,#4e,#4e,#4a,#5f,#59
db #5c,#4c,#4c,#4e,#4e,#4a,#5f,#59
db #5c,#4c,#4c,#4e,#4e,#4a,#5f,#59
db #54,#4c,#4c,#4e,#4e,#4a,#5f,#59
db #54,#4c,#4c,#4e,#4e,#4a,#5f,#40
db #44,#4c,#45,#4e,#47,#4a,#47,#40
db #58,#4c,#45,#4e,#47,#4a,#47,#40
db #58,#4c,#45,#4e,#47,#4a,#47,#40
db #4d,#4c,#45,#4e,#47,#4a,#47,#40
db #4f,#4c,#45,#4e,#47,#4a,#47,#40
db #47,#4c,#45,#4e,#47,#4a,#47,#40
db #45,#4c,#45,#4e,#47,#4a,#47,#40
db #40,#4c,#45,#4e,#47,#4a,#47,#48
db #55,#45,#45,#47,#47,#43,#4f,#48
db #5d,#45,#45,#47,#47,#43,#4f,#48
db #5f,#45,#45,#47,#47,#43,#4f,#48
db #5b,#45,#45,#47,#47,#43,#4f,#48
db #53,#45,#45,#47,#47,#43,#4f,#48
db #57,#45,#45,#47,#47,#43,#4f,#48
db #46,#45,#45,#47,#47,#43,#4f,#48
db #5e,#45,#45,#47,#47,#43,#4f,#50
db #56,#45,#4d,#47,#4f,#43,#57,#50
db #52,#45,#4d,#47,#4f,#43,#57,#50
db #5a,#45,#4d,#47,#4f,#43,#57,#50
db #42,#45,#4d,#47,#4f,#43,#57,#50
db #59,#45,#4d,#47,#4f,#43,#57,#50
db #43,#45,#4d,#47,#4f,#43,#57,#50
db #4b,#45,#4d,#47,#4f,#43,#57,#50
db #4a,#45,#4d,#47,#4f,#43,#57,#59
db #4e,#4d,#4d,#4f,#4f,#4b,#5f,#59
db #4e,#4d,#4d,#4f,#4f,#4b,#5f,#59
db #4c,#4d,#4d,#4f,#4f,#4b,#5f,#59
db #4c,#4d,#4d,#4f,#4f,#4b,#5f,#59
db #5c,#4d,#4d,#4f,#4f,#4b,#5f,#59
db #5c,#4d,#4d,#4f,#4f,#4b,#5f,#59
db #54,#4d,#4d,#4f,#4f,#4b,#5f,#59
db #54,#4d,#4d,#4f,#4f,#4b,#5f,#40
db #44,#42,#43,#44,#45,#46,#47,#40
db #58,#42,#43,#44,#45,#46,#47,#40
db #58,#42,#43,#44,#45,#46,#47,#40
db #4d,#42,#43,#44,#45,#46,#47,#40
db #4f,#42,#43,#44,#45,#46,#47,#40
db #47,#42,#43,#44,#45,#46,#47,#40
db #45,#42,#43,#44,#45,#46,#47,#40
db #40,#42,#43,#44,#45,#46,#47,#48
db #55,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5d,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5f,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5b,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #53,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #57,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #46,#4a,#4b,#4c,#4d,#4e,#4f,#48
db #5e,#4a,#4b,#4c,#4d,#4e,#4f,#50
db #56,#52,#53,#54,#55,#56,#57,#50
db #52,#52,#53,#54,#55,#56,#57,#50
db #5a,#52,#53,#54,#55,#56,#57,#50
db #42,#52,#53,#54,#55,#56,#57,#50
db #59,#52,#53,#54,#55,#56,#57,#50
db #43,#52,#53,#54,#55,#56,#57,#50
db #4b,#52,#53,#54,#55,#56,#57,#50
db #4a,#52,#53,#54,#55,#56,#57,#59
db #4e,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #4e,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #4c,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #4c,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #5c,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #5c,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #54,#5a,#5b,#5c,#5d,#5e,#5f,#59
db #54,#5a,#5b,#5c,#5d,#5e,#5f,#40
Best look on SugarBOX and Vsync or CPCEC and Blend scanlines.

[ZbyniuR]

Used to I made program to show on old CPC picture took from C64 and Atari 8bit scene, write as ArtStudio SCR with PLUS palette, and display it in 16 colors from 125 blinking colors on old CPC.
Example below, run"0  and choose file to show.

[McArti0]

poke &b7c6,&40 : cls : poke &b7c6,&C0 - clear add screen (&40c0-&46FF, &48c0-&4EFF)

poke FNadr1(0,line * 8 ),           FNcs2h(FNc1(r,g,b))
poke FNadr1(0,line * 8 )+&800, FNcs2h(FNc2(r,g,b))   - set color at text 'line' to next set

poke FNadr1(7,line),            Nrcolor
poke FNadr1(7,line)+&800,  Nrcolor       - set Nrcolor for next line. Nrcolor 0-15, 16-border.

r,g,b  (0 to 4), (0 to 4), (0 to 4)