ASAさんの「プチコンのプ」

ASA @fusuian

プチコンで悩む若人のためにいつかのトコトコプログラムをツイッターで仕切り直したいな。

ASA @fusuian

初めてプチコンさわる人のためのトコトコプログラム #petitcom Y=RND(23) FOR X=0 TO 30 LOCATE X,Y ? " ¥" BEEP 2 VSYNC 6 NEXT

ASA @fusuian

¥ は元はヒトガタだがまあいいか。いろんなキャラをトコトコさせてもいいし、RUNするたびに違う文字がトコトコできたら立派。

ASA @fusuian

無限トコトコ。 最初の2行に挟む分… (at)MAIN COLOR RND(16) 最後の行に足す分… GOTO (at)MAIN (at)はアットマークのことです。関係ない人にリプを飛ばしてもいけないと思って^^;

ASA @fusuian

これだと時々、歩行音だけしてキャラが見えないことがあります。RND(16)の乱数が1を出すと、黒地に黒キャラをプリントするから何も見えない。そこで、2行めを COLOR 2+RND(14) とします。こうするとCOLOR のパラメータは2〜15となり、1にならない。

ASA @fusuian

ずっと実行していると、右端にヒトガタがたまってきます。 これを消すには、最後のNEXTとGOTO (at)MAINの間に二行、 LOCATE 31,Y ? " "; つまり、最後のヒトガタの位置に空白を書き込んでやります。

ASA @fusuian

Mac側で打ち直したトコトコプログラム 1|Y=RND(24) 2|FOR X=0 TO 30 3| LOCATE X,Y 4| ? " ¥" 5| BEEP 2 6| VSYNC 6 7|NEXT

ASA @fusuian

iPadで見るとちゃんと改行されてるのになー。

ASA @fusuian

先のトコトコプログラム、４行めをこう直すと、ヒトガタがすごい勢いでトンボ切りますw 4| ? " "+CHR$(244+X%4);

ASA @fusuian

今度はジグザグ。 1|V=1 2|◎MAIN 3|Y=RND(23) 4|COLOR 2+RND(13) 5|FOR X=0 TO 30 6| LOCATE X,Y:?"¥"; 7| BEEP 9 8| VSYNC 6 9| LOCATE X,Y:?" "; →続

ASA @fusuian

10| Y=Y+V 11| IF Y<0 OR Y>23 THEN V=-V:Y=Y+V*2 12|NEXT 13|LOCATE 31,Y:?" "; 14|GOTO ◎MAIN ◎はアットマーク。