メンバーにお願い!
ここでは僕が、メンバーにお願いしたいことを書いてあります。(主にQRコード化をしてもらう等)
きいてくれたら、嬉しいです!
QRコード関連
このプログラムQRコード化してください!(メンバーじゃない方でもいいですよ。)
プログラムリスト↓
@V
BEEP 3
CLS
GCLS 247
GFILL O,O,255,5,6
GFILL O,191,255,186,6
COLOR 9
PRINT"
PRINT"モンダイキット
PRINT"
PRINT" イン
PRINT" ◎2013
PRINT"
PRINT"":PRINT"
COLOR 4:PRINT"トク 1"
PRINT"ツクル 2"
PRINT"ツイカデータ 3"
INPUT"ドッチニスル";A
IF A==1 THEN GOTO@A
IF A==2 THEN GOTO@B
IF A==3 THEN GOTO@AB
COLOR 7:PRINT"エラー"
END
@A
LOAD"MEM:BXXS1",0
I$=MEM$
LOAD"MEM:BXXS2",0
L$=MEM$
@000
CLS
PRINT"":PRINT"モンダイデス"
COLOR 12:PRINT"モドルナラ、 @"
COLOR 11:PRINT" I$
COLOR 4:INPUT"コタエハ";D$
IF D$=="@" THEN GOTO@V
IF L$==D$ THEN GOTO@AA
PRINT"チガウヨ"
GOTO@Q
@AA
COLOR 3
BEEP 5
PRINT"セイカイ!オメデトウ"
@Q
COLOR 4
INPUT"ツヅケル(Y/N)";TT$
IF TT$=="Y" THEN GOTO@V
IF TT$=="N" THEN GOTO@SY
GOTO@Q
@SY
END
@B
CLS
PRINT"":COLOR 12
PRINT"モドル=@"
COLOR 4:INPUT"モンダイハ";A$
IF A$=="@" THEN GOTO@V
INPUT"コタエハ";B$
CLS
PRINT"":COLOR 12
INPUT"コタエヲニュウリョク(カクニ ヨン);C$
IF C$=="@" THEN GOTO@V
IF C$==B$ THEN GOTO@S
PRINT"エラー"
END
@S
PRINT"OK"
MEM$=A$
SAVE"MEM:BXXS1"
MEM$=B$
SAVE"MEM:BXXS2"
GOTO@V
@AB
EXEC "BXXST"
GOTO@Q
よろしくお願いします。
なお、作ってくださった方は、
投稿プログラムコーナー
の、「問題キット」というページに貼り付けてください。お願いします。
最終更新:2013年07月17日 20:53