DIM SPR(7,7) TOUCHSCREEN ISIZE=0 DIM ICELL(4) ICELL(0)=64 ICELL(1)=65 ICELL(2)=67 ICELL(3)=70 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,ICELL(ISIZE) SPRITE.A SC,0 SPRITE.A SC,(,,,,ISIZE) SC=SC+1 NEXT I IWAIT=(IWAIT+1) MOD 10 IF IWAIT=0 THEN ISIZE=(ISIZE+1) MOD 4 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 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 3C66DBA5A5DB663C00183C66663C1800 1F3F78F0E3C7CECC0000070F1F3F3E3C F8FC1E0FC7E373330000E0F0F8FC7C3C 00000103070F1F3E0000000000000001 7CFFFFFFC381183C000000003C7EFFFF 000080C0E0F0F87C0000000000000080 000000000001070F0000000000000000 01071F7FFFFFF0C00000000000000F3F F0FCFEFFFF1F07010000000000E0F8FE 0000008080C0E0F00000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 CCCEC7E3F0783F1F3C3E3F1F0F070000 3373E3CF0F1EFCF83C7CFCF0F0E00000 7CF8F1F3F3F1783C03070F0F0F0F0703 7EE7C38181C3E77EFFE7C38181C3E7FF 3E1F8FCFCF8F1E3CC0E0F0F0F0F0E0C0 1F3F7EFCF8F8F0F00000010307070F0F 00071F3F3F787070FFFFFFFFFFF8F0F0 00E0F8F8FE3E1E1EFFFFFFFFFF3F1F1F F8FC7E3E3F3F3F3F000080C0C0C0C0C0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 1E0F0703010000000100000000000000 3C1881C3FFFF7E3CFFFF7E3C00000000 78F0E0C0800000008000000000000000 F0F0F8F87C7C7E3F0F0F070703030100 707070783F3F1F00F0F0F0F8FFFFFFFF 1E1E1E3EFCFCF0001F1F1F3FFFFFFFFF 1F1F1F1F3F3F7EFCE0E0E0E0C0C08000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 1F0F0F07010000000000000000000000 C0E0F8FFFFFF1F0F3F1F070000000000 03071FFFFFFFFEF8FCF8E00000000000 FCF8F0E0C00000000000000000000000