home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1993 October
/
1993-10.d64
/
display.basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
511b
|
18 lines
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