10 CLS:CLV:X=15:FORI=0TO1:COPY#8CD,#8CB,-46:T=S>22:LCA:?" ":A=A-31-RND(3)+(A<32)*(672+RND(32))*T+!T*S*32:K=INKEY():LCX,5:?" ":LCA:?"*":[79]=A:X=X-(K=28)+(K=29):LCX,5:I=SCR()=42:?"M":S=S+1:LC0:?S:NEXT
おおー、障害物がブルブルと動くの面白いです。通常のかわくだりだと、障害物の隙間を通ったりできましたが、今作品でやるには恐ろしくてできないですね……。「なんか分からんけど避けれてる!」というときもあって、テンション上がります。