> >    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
> > 貴殿のをちょっとだけいじったよ、軌跡が表示されて酔っ払った動きをするよ
> これどうやって貼り付ければいいの？
> さっきのBASICはファイルが独自形式でよくわからん

テキストファイルとして保存して普通にloadできるよ
save"hoge.b99",a
って最後に,aをつけるとアスキーセーブされる

参考：2004/07/20(火)04時13分41秒