2012年05月19日投稿 / 投稿者 : ぜあ / タグ : 投稿プログラム QRコード メモ帳 パラパラマンガ お絵かき
←→↑↓ | ページの移動。V0.2ではページ移動すると絵が消えるので注意。 |
---|---|
BA | ペンの色の変更。全15色。 |
Y | 絵の読み込み直し。描いた絵を保存されていた状態に戻します。 |
L | 下画面に描いた絵を保存する。この時2回確認ダイアログが出ます(GRPとMEMの分)が、両方「はい」です。キャンセルする場合は両方「いいえ」です。間違えてそれぞれ別の答えをしてしまっても、もう一度ちゃんと保存しなおせば大丈夫です。 |
R | 保存されている絵を消す。GRPファイルが消去される。 |
X | 終了。 |
起動時にRを押している | ページの存在を記録するMEMの初期化。絵そのもの(GRP)はデータが消去されないので注意。 |
プチコンmkII 向けの QR コードです。
- ’ СТТТТТТТТТТТТТТТТТТУ к
- ’ У256ヘ゜−シ゛ノ−ト V0.2 ┿У к
- ’ У ┿Ук
- ’ ТТТТТТТТТТТТТТТТТТТк
- CLS:CLEAR
- ’ノ−トノタ゛イメイ
- NOTETITLE$=”NOTE”
- VISIBLE 1,1,1,0,0,1
- ICONPUSE=0
- GPAGE 0,0,0:GPAGE 1,1,1
- BGCLIP 0,0,31,23
- PNLTYPE”OFF”
- FOR I=0 TO 5
- BREPEAT I,15,4
- NEXT
- SYSBEEP=0
- PENCOLOR=13
- PCOLOR=14
- ACOLOR=1
- BCOLOR=2
- CCOLOR=15
- IF BUTTON() AND 512 THEN MEM$=”0”*256:GOSUB @SAVEMEM
- LOAD”MEM:”+NOTETITLE$,0
- IF RESULT==0 THEN MEM$=”0”*256:GOSUB @SAVEMEM
- GPAGE 0
- GFILL 0,0,255,191,CCOLOR
- COLOR PCOLOR
- GOSUB @CLEARG
- GOSUB @PRINTLOADF
- @MAINLOOP ’┝┿┿┰
- IF TCHST==0 GOTO @NOTT
- TX=TCHX:TY=TCHY
- GPAGE 1
- IF OTX==−1 GOTO @GDOT
- GLINE OTX+0,OTY+0,TX+0,TY+0
- GLINE OTX+1,OTY+0,TX+1,TY+0
- GLINE OTX+0,OTY+1,TX+0,TY+1
- GLINE OTX+1,OTY+1,TX+1,TY+1
- @GDOT
- GFILL TX,TY,TX+1,TY+1
- OTX=TX:OTY=TY
- GOTO @TEND
- @NOTT
- OTX=−1:OTY=−1
- @TEND
- NB=BUTTON(1)
- IF NB==0 GOTO @NBEND
- IF NB AND 1 THEN FN=(FN−16) AND 255
- IF NB AND 2 THEN FN=(FN+16) AND 255
- IF NB AND 4 THEN FN=(FN−1) AND 255
- IF NB AND 8 THEN FN=(FN+1) AND 255
- IF NB AND 15 THEN GOSUB @PRINTLOADF
- IF NB AND 16 THEN PENCOLOR=PENCOLOR+1
- IF NB AND 32 THEN PENCOLOR=PENCOLOR−1
- IF NB AND 48 THEN GOSUB @PRINTFN
- IF NB AND 128 THEN GOSUB @LOADG
- IF NB AND 256 THEN GOSUB @UPG
- IF NB AND 512 THEN GOSUB @DELETEG
- IF NB AND 1088 THEN GOSUB @CLOSENOTE
- @NBEND
- VSYNC 1
- GOTO @MAINLOOP ’┥┿┿┸
- @PRINTLOADF
- GOSUB @PRINTFN
- GOSUB @PRINTFL
- GOSUB @LOADG
- RETURN
- @PRINTFN
- COLOR PCOLOR
- PENCOLOR=PENCOLOR%15:IF PENCOLOR<0 THEN PENCOLOR=14
- GCOLOR PENCOLOR+1
- LOCATE 0,0
- PRINT NOTETITLE$+HEX$(FN,2);
- BGPAGE 0
- BGFILL 0,31,2,31,23,PENCOLOR+1,0,0,0
- RETURN
- @PRINTFL
- COLOR PCOLOR
- FOR I=0 TO 15
- LOCATE 0,1+I
- PRINT MID$(MEM$,I*16,16)
- NEXT
- PRINT””
- PRINT”←→↑↓:PAGE”
- PRINT”БА:COLOR”
- PRINT”Х:RELOAD”
- PRINT”К:SAVE”
- PRINT”н:DELETE”
- PRINT”Ф:CLOSE”;
- BGPUT 0,OFN%16,1+OFN/16,0,0,0,0
- BGPUT 0,FN %16,1+FN /16,15−BCOLOR,0,0,0
- COLOR PCOLOR:LOCATE OFN%16,1+OFN/16:PRINT MID$(MEM$,OFN,1)
- COLOR ACOLOR:LOCATE FN%16,1+FN/16:PRINT MID$(MEM$,FN,1)
- OFN=FN
- COLOR PCOLOR
- RETURN
- @LOADG
- GPAGE 1
- IF MID$(MEM$,FN,1)!=”0” THEN LOAD ”GRP1:”+NOTETITLE$+HEX$(FN,2),0 ELSE GFILL 0,0,255,191,CCOLOR
- RETURN
- @UPG
- MM$=MID$(MEM$,FN,1)
- IF MM$!=”┿” THEN MM$=CHR$(ASC(MM$)+1)
- MEM$=SUBST$(MEM$,FN,1,MM$)
- GPAGE 1
- SAVE”GRP1:”+NOTETITLE$+HEX$(FN,2)
- GOSUB @SAVEMEM
- LOAD”GRP1:”+NOTETITLE$+HEX$(FN,2),0
- GOSUB @PRINTLOADF
- RETURN
- @CLEARG
- GPAGE 1
- GFILL 0,0,255,191,CCOLOR
- RETURN
- @DELETEG
- IF MID$(MEM$,FN,1)==”0” THEN RETURN
- DELETE ”GRP:”+NOTETITLE$+HEX$(FN,2)
- MEM$=SUBST$(MEM$,FN,1,”0”)
- GOSUB @SAVEMEM
- GOSUB @PRINTLOADF
- RETURN
- @SAVEMEM
- SAVE”MEM:”+NOTETITLE$
- LOAD”MEM:”+NOTETITLE$,0
- RETURN
- @CLOSENOTE
- COLOR 15,0
- VISIBLE 1,0,0,0,0,0
- SYSBEEP=1
- BGCLR 0
- CLS
- END
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.120 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:16 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30