>  2004/07/20 (火) 04:10:05        [mirai]
> > 90番までしかないプログラムでんなこと言われても(;´Д`)
> じゃあ貴殿何か作ってくれよ(´ー`)
   10 CLS 3
   20 DIR_X=-1:X=20
   30 DIR_Y=1:Y=25
   40 CIRCLE(X,Y),20,2:CIRCLE(X,Y),1,ABS(X) MOD 16
   50 IF X<1 OR X>640 THEN DIR_X=DIR_X*-1
   60 IF Y<1 OR Y>400 THEN DIR_Y=DIR_Y*-1
   70 CIRCLE(X,Y),20,0
   80 X=X+RND(10)*DIR_X
   90 Y=Y+RND(10)*DIR_Y
  100 GOTO 40

貴殿のをちょっとだけいじったよ、軌跡が表示されて酔っ払った動きをするよ

参考:2004/07/20(火)04時08分08秒