home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 October / 1993-10.d64 / display.basic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  511 b   |  18 lines
  1. 63000 rem **** ccsd screen display ****
  2. 63010 rem * display ml & screens must *
  3. 63020 rem * charset @ 12288 must all  *
  4. 63030 rem *      be in memory!        *
  5. 63040 rem *****************************
  6. 63050 ad=32768:rem *screen address
  7. 63060 c=0:rem *1 for color screens
  8. 63070 poke53272,29:rem *21=rom charset
  9. 63080 poke53270,216:rem *200=non-mcolor
  10. 63090 poke53281,0:rem *background
  11. 63100 poke53282,1:rem *color 2
  12. 63110 poke53283,2:rem *color 3
  13. 63120 poke646,13:rem *color4
  14. 63130 print chr$(147)
  15. 63140 h=int(ad/256):l=ad-256*h:poke53104,c:poke53105,l:poke53106,h
  16. 63150 sys 52992:rem *display screen
  17. 63160 return
  18.