2012年05月04日投稿 / 投稿者 : ぜあ / タグ : 投稿プログラム QRコード 実用ツール パッケージパラメータ
がんばって布団にもぐって撮りました。
プチコンmkII 向けの QR コードです。
変数名など意味がわかりづらかったりするので注意。
- CLS:CLEAR
- COLOR 2
- VISIBLE 1,0,0,0,0,0
- PNLTYPE ”OFF”
- PRINT ”┌──────────────────┬───────────┐”;
- PRINT ”│■ハ゜ッケ−シ゛ハ゜ラメ−タセイセイ│V0.1 │”;
- PRINT ”├──────────────────┴───────────┤”;
- PRINT ”│シタカ゛メンノ リソ−スメイヲ タッチシテ センタク。 │”;
- PRINT ”│Aホ゛タンテ゛ F1ニ トウロクシテ シュウリョウ。 │”;
- PRINT ”└──────────────────────────────┘”;
- DATA ”И━SPU0 ”, ” ウエSP ”
- DATA ”И━SPU1 ”, ” ウエSP ”
- DATA ”И━SPU2 ”, ” ウエSP ”
- DATA ”И━SPU3 ”, ” ウエSP ”
- DATA ”И━SPU4 ”, ” ウエSP ”
- DATA ”И━SPU5 ”, ” ウエSP ”
- DATA ”И━SPU6 ”, ” ウエSP ”
- DATA ”И━SPU7 ”, ” ウエSP ”
- DATA ”В━BGU0U ”, ” ウエBG ”
- DATA ”В━BGU1U ”, ” ウエBG ”
- DATA ”В━BGU2U ”, ” ウエBG ”
- DATA ”В━BGU3U ”, ” ウエBG ”
- DATA ”F━BGUFU ”, ” ウエフォント”
- DATA ”б━COL0U ”, ” ウエBGイロ”
- DATA ”б━COL1U ”, ” ウエSPイロ”
- DATA ”б━COL2U ”, ” ウエGRイロ”
- DATA ”╂━SCU0U ”, ” ウエSCマエ”
- DATA ”╂━SCU1U ”, ” ウエSCオク”
- DATA ”◎ GRP0 ”, ” ク゛ラフ ”
- DATA ”◎ GRP1 ”, ” ク゛ラフ ”
- DATA ”◎ GRP2 ”, ” ク゛ラフ ”
- DATA ”◎ GRP3 ”, ” ク゛ラフ ”
- DATA ”Ъ MEM ”, ” メモリ− ”
- DATA ”Я ”, ” ”
- DATA ”г ”, ” ”
- DATA ”М ”, ” ”
- DATA ”Ж ”, ” ”
- DATA ”В┓BGU0L ”, ” シタBG ”
- DATA ”В┓BGU1L ”, ” シタBG ”
- DATA ”В┓BGU2L ”, ” シタBG ”
- DATA ”В┓BGU3L ”, ” シタBG ”
- DATA ”F┓BGUFL ”, ” シタフォント”
- DATA ”б┓COL0L ”, ” シタBGイロ”
- DATA ”б┓COL1L ”, ” シタSPイロ”
- DATA ”б┓COL2L ”, ” シタGRイロ”
- DATA ”╂┓SCU0L ”, ” シタSCマエ”
- DATA ”╂┓SCU1L ”, ” シタSCオク”
- DATA ”Ш ”, ” ”
- DATA ”Р ”, ” ”
- DATA ”в ”, ” ”
- DATA ”Ч ”, ” ”
- DATA ”Е ”, ” ”
- DATA ”Э ”, ” ”
- DATA ”Ц ”, ” ”
- DATA ”а ”, ” ”
- DATA ”м ”, ” ”
- DATA ”м ”, ” ”
- DATA ”м ”, ” ”
- DIM RSTR$(2,48)
- FOR I=0 TO 47
- READ RSTR$(0,I),RSTR$(1,I)
- PRINTRN=I
- GOSUB @PRINTR
- NEXT
- DIM RSELECT(48)
- GOSUB @PRINTPP
- @MAINLOOP ’┝┿┿┿┿┿┿┰
- ’タッチノ ショリ
- IF TCHST!=1 GOTO @NOTTCH
- TCHNOW=TCHNOW+1
- IF TCHNOW!=1 GOTO @TCHEND
- N=FLOOR(TCHX/64)+FLOOR(TCHY/16)*4
- RSELECT(N)=RSELECT(N)+1 AND 1
- COLOR 2
- IF RSELECT(N) THEN COLOR 9
- PRINTRN=N
- GOSUB @PRINTR
- GOSUB @PRINTITEM
- GOSUB @PRINTPP
- GOTO @TCHEND
- @NOTTCH
- TCHNOW=0
- @TCHEND
-
- ’Aホ゛タンノ ショリ
- IF (BUTTON(1) AND &B10000)==0 GOTO @NOTPUSHA
- IF PP$==”000000000000” GOTO @NOTPUSHA
- COLOR 11
- GOSUB @PRINTRESULT
- END
- @NOTPUSHA
-
- VSYNC 1
- GOTO @MAINLOOP ’┥┿┿┿┿┿┿┸
- ’シタカ゛メンノ イチラン ヒョウシ゛
- @PRINTR
- X=FLOOR(PRINTRN%4)*8
- Y=FLOOR(PRINTRN/4)*2
- PNLSTR X,Y+0,RSTR$(0,PRINTRN)
- PNLSTR X,Y+1,RSTR$(1,PRINTRN)
- RETURN
- ’ウエカ゛メンニ エモシ゛ナラヘ゛ル タ゛ケ
- @PRINTITEM
- ITEMX=21
- ITEMY=10
- ITEMPOS=0
- COLOR 9
- FOR I=0 TO 27
- LOCATE ITEMX−I,ITEMY
- PRINT ” ”;
- NEXT
- FOR R=0 TO 47
- IF RSELECT(R)==0 GOTO @NOTS
- LOCATE ITEMX−ITEMPOS,ITEMY
- PRINT LEFT$(RSTR$(0,R),1);
- ITEMPOS=ITEMPOS+1
- @NOTS
- NEXT
- RETURN
- ’ケッカノ ヒョウシ゛ ト F1トウロク
- @PRINTRESULT
- ’アタマノ0ヲトル
- PPR$=PP$
- PRIGHT=12
- FOR I=0 TO 10
- IF INSTR(PPR$,”0”)==I THEN PRIGHT=PRIGHT−1 ELSE @PREND
- PPR$=SUBST$(PPR$,I,1,” ”)
- GOTO @PRNEXT
- @PREND
- I=10
- @PRNEXT
- NEXT
- PPL$=LEFT$(PPR$,12−PRIGHT)
- PPR$=RIGHT$(PPR$,PRIGHT)
- ’ファンクションキ−1ニトウロク
- KEY 1,””+PPR$
- ’ヒョウシ゛
- LOCATE 0,14
- PRINT ”┌────────────────────────┐”
- PRINT ”│ハ゜ッケ−シ゛ハ゜ラメ−タモシ゛レツヲ │”
- PRINT ”│ファンクションキ−1ニ トウロクシマシタ。 │”
- PRINT ”│ツクッタPRGヲ ホソ゛ンスルトキ │”
- PRINT ”│SAVE ”+CHR$(34)+”┿┿”+CHR$(34)+”,”+CHR$(34)+PPR$+CHR$(34)+PPL$+”│”
- PRINT ”│ト シマス。 │”
- PRINT ”└────────────────────────┘”
- RETURN
- ’ウエカ゛メンノ PPヒョウシ゛
- @PRINTPP
- ’16シンスウニ シテ ヒョウシ゛
- PP$=””
- COLOR 2
- FOR H=0 TO 11
- HC=0
- FOR B=0 TO 3
- RS=RSELECT(H*4+B)
- IF RS==0 GOTO @RSF
- HC=HC OR POW(RS*2,B)
- COLOR 9
- @RSF
- NEXT
- PP$=HEX$(HC)+PP$
- NEXT
- LOCATE 8,11
- PRINT”┌────────────┐”
- LOCATE 8,12
- PRINT ”│”+PP$+”│”
- LOCATE 8,13
- PRINT”└────────────┘”
- RETURN
- ’ ■オワリ■
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.169 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:02 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30