2013年5月9日投稿 / 投稿者 : テトロ / タグ : 投稿プログラム ツール サンプル QRコード mkII専用
グラフィックの識別をしやすくしました
ちゃっかり更新www
プチコンmkII 向けの QR コードです。
- CLS:CLEAR:Y=1:GCLS
- LOCATE 0,0:?”┌───┬───┬───┬───┬───┬───┬───┐
- @1
- LOCATE 0,Y:?”│ │ │ │ │ │ │ │
- Y=Y+1
- IF Y==21 THEN GOTO @2
- LOCATE 0,Y:?”│ │ │ │ │ │ │ │
- Y=Y+1
- IF Y==21 THEN GOTO @2
- LOCATE 0,Y:?”├───┼───┼───┼───┼───┼───┼───┤
- WAIT 1
- Y=Y+1
- GOTO @1
- @2
- LOCATE 0,21:?”└───┴───┴───┴───┴───┴───┴───┘
- LOCATE 0,22:?”Color Samples А:NEXT Ф:EXIT”
- @3
- GCLS
- FOR Y=0 TO 6
- FOR X=0 TO 6
- LOCATE X*4+1,Y*3+1:?” ”
- LOCATE X*4+1,Y*3+1:? N
- GFILL X*32+8,Y*24+16,X*32+32,Y*24+24,N
- N=N+1
- IF N==256 THEN CLEAR;GOTO @A
- WAIT 1
- NEXT X
- NEXT Y
- @A
- B=BUTTON(1)
- IF B==16 THEN @3
- IF B==64 THEN CLS:GCLS:END
- GOTO @A
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)