10 R=62:V=0:W=21:U=99:J=3:S=0 15 CLS:?S 20 X=16+SIN(R)*12/256 30 Y=10+COS(R)*12/256 40 LC X,Y:?"-"; 43 IF SCR(16,W) END 44 LC 16,W:?"@"; 48 WAIT3 49 IF INKEY() U=J 50 A=(R<0)*2-1 55 V=V+A:R=R+V 57 IF U!=99 W=W-U:U=U-1 58 IF 21<W W=21:U=99:S=S+1 60 GOTO15
長い時を経て、ついにさっちゃんがバージョンアップ! より縄跳びらしくなりましたね。プログラムで学ぶ初めての三角関数といった趣ですね。