2012年06月09日投稿 / 投稿者 : ぜあ / タグ : 投稿プログラム QRコード 実用ツール ランチャ
プチコンmkII 向けの QR コードです。
前よりはましなコードかもしれない。 リストが長くなってもQRコードの枚数はあまり変わらないって本当??
- CLEAR ’GRPツキランチャ V0.1
- UT$=”L0” ’コノPRGト GRPノ ナマエ
- ’ ココヲカエテ キト゛ウシテ
- ’ Кヲオセハ゛ ホソ゛ンテ゛キル
- FCOLOR =14 ’モシ゛ショク
- FFCOLOR=15 ’センタクモシ゛ショク
- DATA ”−”,”−”
- DATA ”−”,”−”
- DATA ”−”,”−”
- DATA ”−”,”−”
- DATA ”−”,”−”
- DATA ”−”,”−”
- BGMSET 128,”@147 @E127,127,127,127 @V63 T320 :0L32<A”
- BGMSET 129,”@147 @E127,127,127,127 @V63 T320 :0L32<<E”
- BGMSET 130,”@147 @E127,127,127,127 @V63 T320 :0L32<<<CRC”
- BGMSET 131,”@147 @E127,127,127,127 @V63 T320 :0L16G”
- DIM D$(12)
- FOR I=0 TO 11
- READ D$(I)
- NEXT
- ACLS
- CHRINIT”SPU”
- CHRINIT”BGU”
- CHRINIT”BGF”
- PNLTYPE”OFF”
- VISIBLE 1,1,1,1,1,1
- SYSBEEP=0
- BREPEAT 0,20,2
- BREPEAT 1,20,2
- BREPEAT 2,20,2
- BREPEAT 3,20,2
- LOAD”GRP1:”+UT$,0
- LOCATE 12,0
- PRINT UT$
- PRINT ”П:センタク”
- PRINT ”А:キト゛ウ”
- PRINT ”К:ホソ゛ン”
- PRINT ”Ф:シュウリョウ”
- SD=0
- GOSUB @APRINTT
- @MAINLOOP ’┝┿┿┰
- IF TCHST THEN GOSUB @STOUCH
- B=BUTTON(1)
- IF B THEN GOSUB @BDOWN
- IF !(FC%60) THEN GOSUB @PRINTDT
- FC=FC+1
- VSYNC 1
- GOTO @MAINLOOP ’┥┿┿┸
- @APRINTT
- FOR L=0 TO 11
- IF L!=SD THEN COLOR FCOLOR ELSE COLOR FFCOLOR
- S$=D$(L)
- GOSUB @PRINTT
- NEXT
- L=SD
- S$=D$(L)
- BGMPLAY 128
- RETURN
- @STOUCH
- L=FLOOR(TCHX/128)+FLOOR(TCHY/32)*2
- GOTO @EXECT
- RETURN
- @BDOWN
- IF B AND 1088 GOTO @HEND
- IF B AND 16 THEN L=SD:GOTO @EXECT
- IF B AND 256 THEN GOSUB @SAVEL
- IF B AND 1 THEN SD=SD−2
- IF B AND 2 THEN SD=SD+2
- IF B AND 4 THEN SD=SD−1
- IF B AND 8 THEN SD=SD+1
- IF 12<=SD THEN SD=SD−12
- IF SD<0 THEN SD=SD+12
- IF (B AND 15)==0 THEN RETURN
- COLOR FCOLOR
- GOSUB @PRINTT
- COLOR FFCOLOR
- L=SD
- S$=D$(L)
- GOSUB @PRINTT
- BGMPLAY 128
- RETURN
- @PRINTT
- TX=4+L%2*16
- TY=1+FLOOR(L/2)*4
- PNLSTR TX,TY,S$
- RETURN
- @PRINTDT
- COLOR 15
- LOCATE 0,20:PRINT DATE$+” ”+TIME$;
- RETURN
- @SAVEL
- BGMPLAY 130
- SAVE UT$
- BGMPLAY 130
- RETURN
- @EXECT
- BGMPLAY 129
- IF D$(L)==”−” GOTO @HEND
- CLS
- COLOR FFCOLOR
- S$=D$(L)
- GOSUB @PRINTT
- COLOR 15
- SYSBEEP=1
- EXEC D$(L)
- @HEND
- SYSBEEP=1
- BGMPLAY 131
- COLOR 15
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.158 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:05 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30