RANDOMIZE TIMER COPY ROM(3),SIZE(3) TO $A000 BG SOURCE $A000 DO CALL POP PLAY 0,90,1 WAIT RND(200)+1 R=999 WAIT VBL WHILE R>0 R=RND(300) FOR I=1 TO 4 PAL RND(7) CELL RND(19),RND(15),RND(2)+1 NEXT I WAIT VBL WEND LOOP REM WAS8BIT SUB POP FOR Y=0 TO 15 FOR X=0 TO 19 C=MCELL.C(X,Y) IF C>0 THEN BG COPY X,Y,1,1 TO X,Y NEXT X NEXT Y END SUB #1:MAIN PALETTES 3F3A302000393424003C2814002E0C08 002F0F0A001B0703003B332200272312 #2:MAIN CHARACTERS 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 0000000000000000FFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF #3:MAIN BG 00001410010001000100010001000100 01000100010001000100010001000100 01000100010001000100010001000200 02000200010002000200010002000100 02000200020001000200010002000200 02000100010002000100020001000200 01000100020001000200010002000100 02000100020001000200010001000200 02000200010002000100010002000100 02000200020001000200010002000100 02000100010001000100010001000100 01000100010001000100010002000100 01000100010001000100010000000000 00000000000000000000000001000100 02000200010001000200020002000100 02000100010301030103010301030103 01030103010301030103010301030103 02000100020001000200010001030303 01030103030303030303010303030103 01030103030301030200020002000100 02000100010303030103010303030103 03030103030301030303010303030103 02000100020001000200020001030303 03030103030303030303010303030303 03030303030301030004000400040004 00040000000300070007000703070307 03070307030703070307030703070104 01040104010401040104010400000307 03070307030701070107030703070107 01070107030701040104030401040304 01040104000003070107010703070107 03070307030701070307030703070104 01040104010401040104010400000307 01070307030701070107030703070107 01070107030701040304010401040104 03040104000003070107030703070107 03070307030703070307010703070104 01040304030403040104010400000307 03070307030701070107010703070107 01070107030700000000000000000000 00000000