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
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)