DIM GLOBAL A(60),R(60),DA(60) RANDOMIZE TIMER REM WAS8BIT TOUCHSCREEN SPRITE 63,9*8,7*8,2 SPRITE 63 PAL 0 SIZE 1 FOR I=1 TO 60 A(I)=RND*PI*2 R(I)=55+RND*25 DA(I)=RND/100 SPRITE I,80+R(I)*COS(A(I)),64+R(I)*SIN(A(I)),4+RND(3) SPRITE I PAL 1 FLIP RND(1),RND(1) NEXT I CALL SHIELD(-1,-1) REM X=53,106 REM Y=42,84 DO IF TOUCH THEN TX=TOUCH.X TY=TOUCH.Y IF TX<53 THEN X=0 ELSE IF TX<106 THEN X=1 ELSE X=2 IF TY<42 THEN Y=0 ELSE IF TY<84 THEN Y=1 ELSE Y=2 CALL SHIELD(X,Y) ELSE CALL SHIELD(-1,-1) END IF FOR I=1 TO 60 A(I)=A(I)+DA(I) SPRITE I,80+R(I)*COS(A(I)),64+R(I)*SIN(A(I)), SPRITE I PAL 1 NEXT I WAIT VBL LOOP SUB SHIELD(X,Y) IF X<0 OR Y<0 THEN SPRITE 0,,,0 SPRITE 0 SIZE 0 ELSE SPRITE 0,8*8+X*8,6*8+Y*8,8+X+16*Y SPRITE 0 PAL 2 SIZE 1 END IF END SUB #1:MAIN PALETTES 0008073F002A2515002F1B17003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000000000000000000000000000000 071F20713F3E7CF0071F1F0E40C1830F E0F81C8E04000687E088E070FAFFF978 3C7EFFEFBFFB6E3C2C7EBFFBFFDF7E3C 08001002500008203CFEEFFFBFFF763C 3C7EFBDFFEF77E3C0010042081084004 0038F8FCFCFF7E3C3C7EFF9FC3C06030 00000003070C18190000000000030707 001FFFE0001F7FE00000001FFFFFFFE0 00F8FF0700F8FE07000000F8FFFFFF07 000000C0E03018980000000000C0E0E0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 E3EF666040001C071C10991F3F3F1F07 87010508000038E078FEFAF6FEFCF8E0 0018245A5A24180000183C66663C1800 00001824241800000000183C3C180000 00000018180000000000001818000000 00000000000000000000000000000000 31333366666666660F0F0F1E1E1E1E1E 00000000000000000000000000000000 00000000000000000000000000000000 8CCCCC6666666666F0F0F07878787878 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 66666666663333311E1E1E1E1E0F0F0F 00000000000000000000000000000000 00000000000000000000000000000000 6666666666CCCC8C7878787878F0F0F0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 19180C07030000000707030000000000 E07F1F00E0FF1F00E0FFFFFF1F000000 07FEF80007FFF80007FFFFFFF8000000 981830E0C0000000E0E0C00000000000