home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 September / 1988-09.d64 / mcgd.koala (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  516b  |  14 lines
  1. 10 nm$="[129]pic g monkey  "
  2. 20 iff=0thenf=1:loadnm$,8,1
  3. 30 bank=1:scnoffset=1:coloffset=7
  4. 40 poke56576,(peek(56576)and252)or(3-bank):rem set bank
  5. 50 poke53265,peek(53265)or32:rem turn on bitmap
  6. 60 poke53272,(coloffset*16+scnoffset*8):rem position hi-res and color memories
  7. 70 poke53270,peek(53270)or16:rem set multicolor mode
  8. 80 for i=23552to24551:pokei,peek(i+9024):nexti:rem 32576-33575
  9. 90 for i=55296to56295:pokei,peek(i-21720):nexti:rem 33576-34575
  10. 100 a=peek(34576):poke53280,a:poke53281,a
  11. 110 getk$:ifk$="" then110
  12. 120 poke56576,199:poke53265,27:poke53270,200:poke53272,21
  13. 130 poke53280,14:poke53281,6
  14.