GAMEPAD 1 RANDOMIZE TIMER DIM DTANK(10),XTANK(10),XTREE(31) FOR I=0 TO 10 DTANK(I)=6 XTANK(I)=RND(31) NEXT I BG 1 ATTR(0) FOR I=0 TO 31 IF RND(1)=0 THEN CELL I,5,2 NEXT I XSCROLL=0 IFIRE=-1 DO IF LEFT(0) THEN DEC XSCROLL SCROLL 1,XSCROLL,0 ELSE IF RIGHT(0) THEN INC XSCROLL SCROLL 1,XSCROLL,0 END IF BG 1 ATTR(0) BG FILL 0,6 TO 31,15 CHAR 1 IF BUTTON(0,0) AND IFIRE=-1 THEN PLAY 0,60,8 SOUND 0 IFIRE=6 END IF BG 0 IF IFIRE=6 THEN CLS 0 CALL PUTIT(0,7,12,3,1) CALL PUTIT(16,7,12,3,1) ELSE IF IFIRE=5 THEN CLS 0 CALL PUTIT(4,7,9,2,1) CALL PUTIT(13,7,9,2,1) ELSE IF IFIRE=4 THEN CLS 0 CALL PUTIT(7,7,7,1,1) CALL PUTIT(11,7,7,1,1) ELSE IF IFIRE=3 THEN CLS 0 CALL PUTIT(9,7,6,0,1) CALL PUTIT(10,7,6,0,1) ELSE IF IFIRE=2 THEN CLS 0 CALL PUTIT(9,7,4,-1,1) ELSE IF IFIRE=1 THEN CLS 0 CALL PUTIT(9,7,20,-1,1) ELSE IF IFIRE=0 THEN CLS 0 END IF IF IFIRE>-1 THEN IFIRE=IFIRE-0.5 WAIT VBL LOOP SUB TANK(X,Y,ISIZE) IF ISIZE=6 THEN CALL PUTIT(X,Y,6,3,1) CALL PUTIT(16,7,12,3,1) ELSE IF ISIZE=5 THEN CALL PUTIT(X,Y,73,2,1) CALL PUTIT(13,7,9,2,1) ELSE IF ISIZE=4 THEN CALL PUTIT(X,Y,71,1,1) CALL PUTIT(11,7,7,1,1) ELSE IF ISIZE=3 THEN CALL PUTIT(X,Y,70,0,1) CALL PUTIT(10,7,6,0,1) ELSE IF ISIZE=2 THEN CALL PUTIT(X,Y,68,-1,1) ELSE IF ISIZE=1 THEN CALL PUTIT(X,Y,84,-1,1) END IF END SUB SUB PUTIT(X,Y,ICHAR,ISIZE,ICOLOR) ATTR(ICOLOR) IF ISIZE>=0 THEN FOR IX=0 TO ISIZE FOR IY=0 TO ISIZE CELL X+IX,Y+IY,ICHAR+IX+IY*16 NEXT IY NEXT IX ELSE CELL X,Y,ICHAR CELL X+1,Y,ICHAR+1 END IF END SUB #1:MAIN PALETTES 063408100038343C00002A15003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0000000000000000FFFFFFFFFFFFFFFF 00001038387C7C1000001038387C7C10 00000000000000000000000000000000 00000103030100000000000000000000 000080C0C08000000000000000000000 003C7E7E7E7E3C003C4281899181423C 00070F1F3F3F7F7F0718306040C08081 00C0F0F8FCFCFEFEE0380C0602030181 000000000103070F0001070F1E3C3870 000000FFFFFFFFFF7EFFFF0000000000 0000000080C0E0F00080E0F0783C1C0E 000000000000000000000003070F1F1F 000000000000073F033FFFFFFFFFF8C0 000000000000E0FCC0FCFFFFFFFF1F03 0000000000000000000000C0E0F0F8F8 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000001010000000000000000000000 00000080800000000000000000000000 00000000000000000000000000000000 7F7F3F3F1F0F03008381C04060301C07 FEFEFCFCF8F0C000C1810302060C38E0 1F1F1F1F1F1F1F1F60E0E0E0E0E0E060 FFFFFFFFFFFFFFFF0000183C3C180000 F8F8F8F8F8F8F8F80607070707070706 00000101010303033F3F7E7E7E7CFCFC 7FFFFFFFFFFFFFFF8000000000010307 FEFFFFFFFFFFFFFF010000000080C0E0 0000808080C0C0C0FCFC7E7E7E3E3F3F 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0F0703010000000070383C1E0F070100 FFFFFFFFFF0000000000000000FFFF7E F0E0C080000000000E1C3C78F0E08000 0303030101010000FCFC7C7E7E7E3F3F FFFFFFFFFFFFFF7F0703010000000080 FFFFFFFFFFFFFFFEE0C0800000000001 C0C0C080808000003F3F3E7E7E7EFCFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000001F1F0F0703000000 3F07000000000000C0F8FFFFFFFF3F03 FCE0000000000000031FFFFFFFFFFCC0 0000000000000000F8F8F0E0C0000000 00000000000000000000000000000000 0000000000000000FFFFFFFFFFFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000007070000000000010707060000 000000E0E0000000000080E0E0600000 00007EFFFFFF00E7003C66DBDBE7E7E7 0000000000007FFF000000010F1F7EFD 000000000000FEFF00000080F0F87EBF 00000000000000000000000000000307 000000000000000000000000003CFFFF 0000000000000000000000000000E0F0 00000000000000000000000000000000 0000000000000000000000000007073F 00000000000000000000000000E0E0FC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000001030000000000000103020000 00000080C000000000000080C0400000 00000000000000000000000000000000 FFFFFFFF7F007C00FBFDFEFF7F7C7C7C FFFFFFFFFE003E00DFBF7FFFFE3E3E3E 007FFFFFFFFFFFFF0F7FFFFFFFFFFFFF 00FFFFFFFFFFFFFFFFC399BDBD99C3FF 00FEFFFFFFFFFFFFF8FEFFFFFFFFFFFF 0000003F7FFFFFFF0000013F7FFFFFFF 000003FFFFFFFFFF7FFFFCF9F3F7F7F3 0000C0FFFFFFFFFFFEFF3F9FCFEFEFCF 000000FCFEFFFFFF000080FCFEFFFFFF 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFF7F7F7F007F00FFFF7F007F7F7F7F FFFFFFC3C300C300FFFFFF00C3C3C3C3 FFFFFEFEFE00FE00FFFFFE00FEFEFEFE FFFFFFFFFFFF7F3FFFFFFFFFFFFF7F3F FFFFFFFFFFFFFFFFF9FCFFFFFFFFFFFF FFFFFFFFFFFFFFFF9F3FFFFFFFFFFFFF FFFFFFFFFFFFFEFCFFFFFFFFFFFFFEFC 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3F3F003F003F003F003F3F3F3F3F3F3F F8F800F800F800F800F8F8F8F8F8F8F8 1F1F001F001F001F001F1F1F1F1F1F1F F8F800F800F800F800F8F8F8F8F8F8F8 #15:MAIN SOUND 3800303A14EB50001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000