2014年3月31日投稿 / 投稿者 : あふあふ(Noodle Softwere) / タグ : 投稿プログラム mkII専用 QRコード
初投稿です。よろしくお願いします。
増税から何年何ヶ月何日が経ったか表示するプログラムです。
おまけで、 「8%計算機」を付けました。あまり期待しないでください。
「プチコンmkII」公式サイトで配布されている「CHR:SBFT_J01」が最初に読み込まれますが、なくても大丈夫です。
最初のバージョンよりバグなどがないようにしっかり考えて作りました。
もしも、バグがあったら教えてください。
今は特にありません。要望があれば「皆さんの要望」に書いてください。
「増税まであと… Version 2」になってどうですか?
要望があれば書いてください。
ありません。
プチコンmkII 向けの QR コードです。
リストは圧縮しました。
- ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
- ’ショウヒセ゛イソ゛ウセ゛イマテ゛
- ’Version 2
- ’by Noodel Software
- ’−−−−−−−−−−−−−−−−−−−−−−−−−−−
- ACLS
- CLEAR
- SYSBEEP=0LOAD”BGF:SBFT_J01”,0SYSBEEP=1
- @0
- CLS
- DTREAD(DATE$),Y,M,D
- M=M−4IF M<0THEN M=M+12
- ?”−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−”;
- ?”ショウヒセ゛イソ゛ウセ゛イマテ゛
- ?”by Noodel Software
- ?”−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−”;
- ?Y−2014”ネン”M”カケ゛ツ”D−1”ニチカ゛タチマシタ。
- ?”ヲオスト「8%ケイサンキ」ニイト゛ウシマス。
- ?”SELECTヲオストシュウリョウシマス。
- IF BTRIG()AND 16THEN WAIT 5GOTO@1
- VSYNC 1GOTO@0
- @1
- CLS?”−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−”;
- ?”8%ケイサンキ
- ?”by Noodel Software
- ?”−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−”;
- ?”ニュウリョクシタアタイノ8%ヲヒョウシ゛シマス。
- ?”SELECTヲオストシュウリョウシマス。
- LINPUT””;NUMBER$
- ?”ケイサンチュウテ゛ス...
- WAIT 5?VAL(NUMBER$)” * 1.08 = ”VAL(NUMBER$)*0.08
- ?”ヲオスト「ショウヒセ゛イソ゛ウセ゛イカラ」ニイト゛ウシマス。
- @2
- VSYNC 1IF BTRIG()AND 16THEN ELSE@2
- WAIT 5GOTO@0
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.140 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:00 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30