DIM SPR(7,7) TOUCHSCREEN X=64 Y=32 TAU=PI SPRITE 1,X,Y,1 X=44 Y=33 XS=12 YS=22 X2=55 Y2=66 SEL=0 REM GAMEPAD 1 TAPP=1 DO TIME=TIME+1 SC=0 XS=X2-X YS=Y2-Y IF TOUCH THEN IF TST>5 THEN TAPP=NOT TAPP END IF TST=0 IF TAPP = -2 THEN X=TOUCH.X Y=TOUCH.Y ELSE X2=TOUCH.X Y2=TOUCH.Y END IF ELSE TST=TST+1 END IF IF ABS(YS)>0 THEN F = ATN(XS/YS) F = F/TAU*10+7 ELSE END IF E = SQR(XS*XS+YS*YS)/5 FOR I = 1 TO E STEP 2 Q=I/E SPRITE SC,X+XS*Q,Y+YS*Q,F SPRITE.A SC,1 SC=SC+1 NEXT I FOR I = 0 TO E STEP 2 Q=I/E SPRITE SC,X+XS*Q,Y+YS*Q,1 SPRITE.A SC,0 SC=SC+1 NEXT I WAIT VBL LOOP DO W= RND*30+10 K= W/2 FOR I= 1 TO 20 SPRITE I,X+SIN(I/10*TAU)*W,Y+COS(I/10*TAU)*W,I MOD 10 +2 NEXT I WAIT 5 POKE RND*255,RND*255 LOOP #2:MAIN CHARACTERS 00000000000000000000000000000000 3C66DBA5A5DB663C00183C66663C1800 000000FFFF0000000000000000000000 0000071E78E000000000000000000000 00060E1C387060000000000000000000 040C0C18183030200000000000000000 0C0C0C1C181818180000000000000000 3030181818180C0C0000000000000000 20303018180C0C040000000000000000 006070381C0E06000000000000000000 0000E0781E0700000000000000000000 000000FFFF0000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0000000FF00000000000000000000000 0000030C30C000000000000000000000 01020408102040800000000000000000 04040808101020200000000000000000 08080808101010100000000000000000 10101010080808080000000000000000 20201010080804040000000000000000 80402010080402010000000000000000 0000C0300C0300000000000000000000 000000F00F0000000000000000000000