2012年8月4日投稿 / 2013年3月29日更新 / 投稿者:天郷思音(わぁぃ@) / タグ : 投稿プログラム 実用ツール フォント QRコード 初代対応
これは、ひらがなとカタカナのフォントをプチコン用ひらがなフォント「PETIKANA」の配列で合成するプログラムです。
プチコンmkII向けのQRコードです。
- ’カナモシ゛コ゛ウセイツール v1.2
- CLEAR:ACLS
- FOR I=0TO 1T$=MID$(”ヒラカ゛ナカタカナ”,I*5,5)
- COLOR 1,3PRINT”STEP”;I+1;CHR$(0);T$;CHR$(0)*(26−LEN(T$));
- COLOR 0,0PRINT T$;”ニ ツカウ ファイルメイ”;
- INPUT N$
- LOAD”BG”+CHR$(85−I*15)+”:”+N$,0NEXT
- FOR I=0TO 255?CHR$(I);
- NEXT
- I=166
- @MAIN
- READ K,L
- IF L<0THEN @SAVE
- FOR J=K TO K+L
- CHRREAD(”BGU”,I),C$
- CHRSET”BGF”,J,C$
- I=I+1+(I==176)NEXT
- GOTO@MAIN
- @SAVE
- COLOR 1,3PRINT LEFT$(”STEP3 ホソ゛ン”+CHR$(0)*32,32);
- COLOR 0,0INPUT”コノ リソースノ ファイルメイヲ キメテクタ゛サイ”;N$
- SAVE”BGF0:”+N$
- PRINT”PETIKANAハイレツヲ ツカウ フ゜ロク゛ラムテ゛”
- PRINT”LOAD ”;CHR$(34);”BGF0:”;N$;CHR$(34)
- PRINT”トイウ ヨウニ ツカッテ クタ゛サイ。”
- END
- DATA 3,5,14,3,21,2,26,1,128,15,156,3,232,7,244,11,0,−1
- VISIBLE 1,1,0,0,0,0
- CLS:COLOR 0
- CLEAR:FOR I=0 TO 1
- FT$=MID$(”ヒラカ゛ナカタカナ”,I*5,5−I)
- PRINT ”STEP”;I+1;” ”;FT$
- PRINT FT$;”ニ ツカウ ファイルメイ”;
- INPUT FN$
- FT$=”BG”+CHR$(85−I*15)
- LOAD FT$+”:”+FN$,0:NEXT
- FOR I=0 TO 255:?CHR$(I);
- NEXT:I=166
- @MAIN
- READ K,L
- IF K*L==−1 THEN END
- FOR J=K TO K+L
- CHRREAD(”BGU”,I),C$
- CHRSET ”BGF”,J,C$
- I=I+1:IF I==176 THEN I=177
- NEXT
- GOTO @MAIN
- DATA 3,5,14,3,21,2,26,1,128
- DATA 15,156,3,232,7,244,11
- DATA 1,−1
この作品に対するコメントがあれば一言どうぞ。(その他の雑談は掲示板かOFコーナーでしましょうよ。)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.130 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:01 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30