ファミリーベーシック

今日はこんな（↓）ゲーム作りますた。

10 CLS:SC=0:CGSET 0,1
20 DEF SPRITE 0,(0,1,0,1,0)=CHR$(65)+CHR$(64)+CHR$(67)+CHR$(66)
30 DEF SPRITE 1,(0,1,0,1,0)=CHR$(69)+CHR$(68)+CHR$(71)+CHR$(70)
40 SPRITE ON
50 Y=96:W=0:V=0:A=1:B=0:C=0
60 FOR I=0 TO 31
70 LOCATE RND(20)+5,RND(22):PRINT"■■"
80 NEXT
85 LOCATE RND(22)+5,RND(22):PRINT"●"
90 S=STRIG(0)
100 FOR X=16 TO 212 STEP 2
110 S=STRIG(0)
120 W=(S=8)-(S=0)
130 IF W<>C THEN SWAP A,B:C=W
140 V=V+W
150 Y=Y+V
160 IF Y<16 OR Y>210 THEN 260
170 XX=(X-8)/8:YY=(Y-16)/8

180 IF SCR$(XX,YY)="■" THEN 260
190 IF SCR$(XX,YY)="●" THEN PLAY"T3O2C0GO3C":LOCATE XX,YY:PRINT" ":SC=SC+10
200 SPRITE B
210 SPRITE A,X,Y
220 PAUSE 2
230 NEXT
240 PLAY"T3O2C1REGO3C"
250 CLS:GOTO 40
260 CGSET 1,1
270 LOCATE 9,10:PRINT" GAME OVER "
280 LOCATE 9,12:PRINT" SCORE:";SC;" "
290 PLAY"T3O2A5#GA7:T3O2D7C:T3O1A5EO0A7"
300 IF STRIG(0)<>1 THEN 300
310 RUN

■…CHR$(192)[ブロック]
●…CHR$(215)[リンゴ]
ファンクションキーに定義して入力

アキレスがへろへろ慣性付きで飛びながら障害物避けて
リンゴを獲るゲーム。（こういうの昔よくあったなぁ…）
でも当たり判定がショボいです…。
もっといい方法教えて下さぃ。