63000 REM **** CCSD SCREEN DISPLAY ****
63010 REM * DISPLAY ML & SCREENS MUST *
63020 REM * CHARSET @ 12288 MUST ALL  *
63030 REM *      BE IN MEMORY!        *
63040 REM *****************************
63050 AD=32768:REM *SCREEN ADDRESS
63060 C=0:REM *1 FOR COLOR SCREENS
63070 POKE53272,29:REM *21=ROM CHARSET
63080 POKE53270,216:REM *200=NON-MCOLOR
63090 POKE53281,0:REM *BACKGROUND
63100 POKE53282,1:REM *COLOR 2
63110 POKE53283,2:REM *COLOR 3
63120 POKE646,13:REM *COLOR4
63130 PRINT CHR$(147)
63140 H=INT(AD/256):L=AD-256*H:POKE53104,C:POKE53105,L:POKE53106,H
63150 SYS 52992:REM *DISPLAY SCREEN
63160 RETURN