プチコン総合スレッド

316：名無しさん：2012/03/24(土) 01:58:22 ID:mU62j5Nw: >>315
ちょっとやってみたけどＳＰＡＮＧＬＥだと文字が潰れちゃってうまくいかないな・・・

ＣＬＥＡＲ：ＡＣＬＳ

ＦＯＲ　Ｉ＝０　ＴＯ　２５５
ＣＨＲＲＥＡＤ（”ＢＧＦ”,Ｉ）,Ｃ＄
Ａ＝ＦＬＯＯＲ（I/64）
Ｂ＝（Ｉ％６４）＊４
ＣＨＲＳＥＴ　”ＳＰＵ”＋ＳＴＲ＄（Ａ）,Ｂ,C$

Ａ＄＝”アイウエオカキクケコサシスセソタチツテトナニヌネノ”
ＯＸ＝１２８：ＯＹ＝９６
Ｒ＝９０
Ｖ＝０
ＭＶ＝１５

ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ａ＄）－１
Ｘ＝ＯＸ＋ＣＯＳ（ＲＡＤ（Ｖ））＊Ｒ
Ｙ＝ＯＹ＋ＳＩＮ（ＲＡＤ（Ｖ））＊Ｒ

Ｂ＄＝ＭＩＤ＄（Ａ＄,Ｉ,１）
ＳＰＳＥＴ　Ｉ,ＡＳＣ（Ｂ＄）,0,0,0,0,8,8
ＳＰＨＯＭＥ　Ｉ,4,4
ＳＰＡＮＧＬＥ　Ｉ,Ｖ＋９０
ＳＰＯＦＳ　Ｉ,X,Y
V=V+MV
IF V<0 THEN V=360-(ABS(V))
ＮＥＸＴ

新着レスの表示

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板