30 lines
562 B
Plaintext
30 lines
562 B
Plaintext
|
proc scrollcolors()
|
||
|
|
||
|
BYTE wsync=54282, ;the 'wait for sync' flag
|
||
|
vcount=54283,;scanline count flag
|
||
|
clr=53272, ;bkgrd register
|
||
|
ctr,chgclr=[0],
|
||
|
incclr ;incr luminance
|
||
|
|
||
|
graphics(0)
|
||
|
pute()
|
||
|
for ctr=1 to 23
|
||
|
do
|
||
|
printe("A Demo of Shifting Background Colours")
|
||
|
od
|
||
|
print("A Demo of Shifting Background Colours")
|
||
|
do
|
||
|
for ctr=1 to 4
|
||
|
do
|
||
|
incclr=chgclr
|
||
|
do
|
||
|
wsync=0
|
||
|
clr=incclr
|
||
|
incclr==+1
|
||
|
until vcount&128
|
||
|
od
|
||
|
od
|
||
|
chgclr==+1
|
||
|
od
|
||
|
return
|