'R = ROM INDEX 'S = SOURCE CHARA INDEX 'L = CHARA COUNT 'D = DEST CHARA INDEX SUB UNCOLD(R,S,L,D) COPY ROM(R)+S*16,L*16 TO $8000+D*16 END SUB TEXT 1,1,"THIS EXAMPLE SHOW" TEXT 1,2,"HOW TO USE ONLY" TEXT 1,3,"ONE CHARA AND" TEXT 1,4,"ANIMATE IT BY" TEXT 1,5,"COPYING DATA FROM" TEXT 1,6,"A ROM TO $8000." TEXT 1,8,"YOU CAN ONLY HAVE" TEXT 1,9,"128 CHARACTERS" TEXT 1,10,"USED PER FRAME" TEXT 1,11,"FOR SPRITES AND" TEXT 1,12,"BACKGROUNDS." SPRITE 0,134,26,1 A=0 DO CALL UNCOLD(4,A,1,1) A=(A+1) MOD 20 WAIT VBL LOOP #4:COLD CHARAS E0E0E000E0000000000000E0E0000000 707070E000000000808080E000000000 B8B8B80000000000C0C0C00000000000 5C5C5C00000000006060600000000000 2E2E2E00000000003030300000000000 17171700000000001818180000000000 080F0F07000000000F08080000000000 07000707070000000707000000000000 00070007070700000007070000000000 00000700070707000000070700000000 00000007000707070000000707000000 00000000070E0E0E0000000007010101 00000000001D1D1D0000000000030303 00000000003A3A3A0000000000060606 000000000074747400000000000C0C0C 0000000000E8E8E80000000000181818 00000000E0F0F01000000000001010F0 000000E0E0E000E0000000000000E0E0 0000E0E0E000E0000000000000E0E000 00E0E0E000E0000000000000E0E00000