忘れない内に皆に伝授しときましょう。
・多色刷り、
・ドット単位横スクロール、
・エスケープシークエンス・・・
色々ありましたよね。
思い出したらなんでも書き込みよろしく。
探検
MSX-BASICの奥義を伝授するスレ
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
NGNG701デフォルトの名無しさん
2008/12/23(火) 19:30:56 MSXで利用されたことがあるかはわからいないが、りさふぉんとは8x8っすよ。
702デフォルトの名無しさん
2008/12/23(火) 19:31:50 えりさ。ね。「え」が消えてた。。。
703デフォルトの名無しさん
2008/12/29(月) 02:54:34704デフォルトの名無しさん
2008/12/29(月) 03:22:17 ググルと(画像検索すると)結構利用例が見つかるね
かな混じり文だと、脳内補完が働くから結構読めるな
かな混じり文だと、脳内補完が働くから結構読めるな
705デフォルトの名無しさん
2008/12/29(月) 04:25:44706デフォルトの名無しさん
2008/12/31(水) 17:43:12707デフォルトの名無しさん
2008/12/31(水) 19:32:24 メガデモといえば…
むかし、ANMAだかなんだかいうのが作ってたやつが回ってきてたなあ
64kbのMSX2用のはずなのに、メモリマッパ乗ってないと動かないという不思議な仕様だったが
むかし、ANMAだかなんだかいうのが作ってたやつが回ってきてたなあ
64kbのMSX2用のはずなのに、メモリマッパ乗ってないと動かないという不思議な仕様だったが
708デフォルトの名無しさん
2009/01/14(水) 17:30:39 poke&H8003,1:poke&H8004,0
709デフォルトの名無しさん
2009/09/03(木) 10:21:43 BASIC繁栄時代?
710デフォルトの名無しさん
2009/12/12(土) 02:31:17 全部読んだ〜。ハイドライドの説明書には漢字の判読表が付いてたね。
自作ゲームで英小文字や記号を漢字に書き換えたり、←↑キャラクタコードを使って濁点を一文字に含めなくしたりして悦に入っていたなぁ…。
wizardry風の曲がった矢印のフォント、Ultima風棒人間キャラ、32268階建ての塔を攻略するRPG…アホな事に真剣だったよ。
自作ゲームで英小文字や記号を漢字に書き換えたり、←↑キャラクタコードを使って濁点を一文字に含めなくしたりして悦に入っていたなぁ…。
wizardry風の曲がった矢印のフォント、Ultima風棒人間キャラ、32268階建ての塔を攻略するRPG…アホな事に真剣だったよ。
711デフォルトの名無しさん
2010/08/03(火) 20:48:20712デフォルトの名無しさん
2010/09/17(金) 23:16:43 えむえすせっ○すべーしっく?
713デフォルトの名無しさん
2010/09/17(金) 23:35:13 またえらい使い古されたネタを…酸素欠乏症?
714デフォルトの名無しさん
2010/09/18(土) 00:20:57 昔、MSXで、2人対戦型の戦車ゲームで遊んだことあるのだが、どなたかご存知ないでしょうか?
・たぶん、雑誌の投稿コード。マシン語を多用。
・2D。上から見下ろし。
・画面は、左右に2つ、2人のプレイヤー別に表示。 中央に自機の戦車がある。
それぞれ、縦・横にスクロールする。画面の回転はしない。普通の2D見下ろし画面。
・マップが4つくらいある。2Dだけど、まあまあ広い。
・2人対戦が凄く面白かった。
・たぶん、雑誌の投稿コード。マシン語を多用。
・2D。上から見下ろし。
・画面は、左右に2つ、2人のプレイヤー別に表示。 中央に自機の戦車がある。
それぞれ、縦・横にスクロールする。画面の回転はしない。普通の2D見下ろし画面。
・マップが4つくらいある。2Dだけど、まあまあ広い。
・2人対戦が凄く面白かった。
715デフォルトの名無しさん
2010/09/18(土) 01:07:55 知ってるよ
と言ったところで何になんの?
と言ったところで何になんの?
717デフォルトの名無しさん
2010/09/18(土) 03:20:25 そんなに難しくなさそうだから作れば?
ム板なんだし
ム板なんだし
718デフォルトの名無しさん
2010/09/18(土) 03:47:00719デフォルトの名無しさん
2010/09/18(土) 11:44:30 こんな古いスレがあったのか
720デフォルトの名無しさん
2010/09/18(土) 14:48:16 >>714
そのゲーム知らんけどネットワーク越しに対戦出来たら確かに面白そうだ
そのゲーム知らんけどネットワーク越しに対戦出来たら確かに面白そうだ
721デフォルトの名無しさん
2010/09/19(日) 15:23:37 >>714
フィールドマスターだな、ログインで掲載されていた
フィールドマスターだな、ログインで掲載されていた
722デフォルトの名無しさん
2010/09/19(日) 17:12:10 ttp://tape-load.blog.so-net.ne.jp/2008-06-19
723デフォルトの名無しさん
2010/09/20(月) 12:51:25 奥義を詰め込んだコードを見せてくれ
724デフォルトの名無しさん
2010/09/20(月) 19:06:50 MSXナツカシー
かまぼこ板のプロトタイプとかすごくおもしろかった
開発の中心にいたASCIIの人たち今何やってるんだろう
かまぼこ板のプロトタイプとかすごくおもしろかった
開発の中心にいたASCIIの人たち今何やってるんだろう
725714
2010/09/20(月) 20:41:52726デフォルトの名無しさん
2010/09/20(月) 22:07:45727デフォルトの名無しさん
2010/09/21(火) 18:13:45 そろそろ奥義をみせてくださいよw
728デフォルトの名無しさん
2010/09/21(火) 18:14:58 せっかく伝授したのに・・・
729デフォルトの名無しさん
2010/09/21(火) 19:04:37 なにを?だれに?いつ?どこで?どのように?
730デフォルトの名無しさん
2010/09/22(水) 11:03:53 スレ読め
731デフォルトの名無しさん
2011/01/19(水) 00:03:04 VDPの性能がファミコンのリアルタイム性に遠く及ばなかったのが
敗因だよなぁ
敗因だよなぁ
732デフォルトの名無しさん
2011/01/19(水) 01:31:51 >VDPの性能がファミコンのリアルタイム性に遠く及ばなかったのが
背景とスプライトの色表現力で負けてるから
リアルタイム性は9918の方があるよ、ファミコンはDMAでVSYNC中に300バイト程度しか送れない
背景とスプライトの色表現力で負けてるから
リアルタイム性は9918の方があるよ、ファミコンはDMAでVSYNC中に300バイト程度しか送れない
733デフォルトの名無しさん
2011/01/21(金) 18:48:19 あんな表現力でリアルタイム性だけ勝っててもねえ。
比較するならせめて 9938 だろ。
比較するならせめて 9938 だろ。
734デフォルトの名無しさん
2011/03/27(日) 20:22:50.35 10 print "名無し"
20 goto 10
end
20 goto 10
end
735デフォルトの名無しさん
2011/03/27(日) 20:45:46.03 10 POKE RND(1) * 65535, RND(1) * 255
20 GOTO 10
20 GOTO 10
736デフォルトの名無しさん
2011/03/27(日) 21:29:49.27 >>735
RNDって、0〜1未満じゃなかったっけ? で、RND(1) * 65536, RND(1) * 256 じゃない?
あと、BASIC上にいるときは、上32KBはROMだから、 RND(1)*32768+32768 じゃない?
RNDって、0〜1未満じゃなかったっけ? で、RND(1) * 65536, RND(1) * 256 じゃない?
あと、BASIC上にいるときは、上32KBはROMだから、 RND(1)*32768+32768 じゃない?
737デフォルトの名無しさん
2011/03/27(日) 22:10:50.35 >>736
ROMに書き込んでどうすんの?
ROMに書き込んでどうすんの?
738デフォルトの名無しさん
2011/03/27(日) 22:12:53.58 上って0番地側か
ずっと8000H〜ffffHがROMだと思ってた
ずっと8000H〜ffffHがROMだと思ってた
739デフォルトの名無しさん
2011/03/27(日) 22:16:45.58740デフォルトの名無しさん
2011/03/27(日) 23:00:10.88 どうでもいいけど、「上」ってffffH寄りじゃないのか?
741デフォルトの名無しさん
2011/03/27(日) 23:15:54.84 コードやデータを読むとき上から下にたどっていくって感覚だと先頭に近いほうのアドレスが上になる
742デフォルトの名無しさん
2011/03/28(月) 01:07:40.20743デフォルトの名無しさん
2011/04/24(日) 04:46:57.82 数々のMSBASICがあるなかでMSX-BASICは最低だったね
こういう事言うと必ず信者が噛み付いてくるけど
事実は事実として歪曲することなく認めないとね
まぁ今更なんだけど使っていた奴に同情するよ
反論があればよろしく
↓
こういう事言うと必ず信者が噛み付いてくるけど
事実は事実として歪曲することなく認めないとね
まぁ今更なんだけど使っていた奴に同情するよ
反論があればよろしく
↓
744デフォルトの名無しさん
2011/04/24(日) 17:36:13.80 何が最低なのかも書かないってのはアタマの悪い証拠にしかならんぞ
745デフォルトの名無しさん
2011/04/24(日) 19:00:24.62 だってアホやもん
746デフォルトの名無しさん
2011/04/24(日) 19:20:25.66 前スレから1ヶ月あいてるのに… もう一ヶ月放置しといたら独り相撲だったのに…
747デフォルトの名無しさん
2011/04/24(日) 19:21:10.88 ×前スレ
○前レス
やっちまったーい。
○前レス
やっちまったーい。
748デフォルトの名無しさん
2011/06/23(木) 00:29:54.64 10 'LND712を仮定しGM管のパルス数(CPM)からシーベルト(uSv/h)へ単位変換
20 input "cpm";a
30 print a/108;"uSv/h"
10 '毎時の放射線量から一年間累積した時の実効線量を求める
20 input "uSv/h";a
30 print a*24*365;"uSv"
20 input "cpm";a
30 print a/108;"uSv/h"
10 '毎時の放射線量から一年間累積した時の実効線量を求める
20 input "uSv/h";a
30 print a*24*365;"uSv"
749デフォルトの名無しさん
2011/06/23(木) 00:47:25.30 ガイガーカウンタのパルスをジョイスティックポート等に入力し、パルスをカウントすればデジタル方式の。
ガイガーカウンタになる。一分間のパルス数を計数したものがCPM。
シーベルトへ単位変換する際には、ガイガーカウンタがγ線のみを検出している事を前提とする。
ガイガーカウンタに金属製のシールドがしてあれば、ほぼγ線を検出していると考えられる。
このガイガーカウンタの値に対して時間累積すると線量計となる。1uSv/hの場所に4時間居れば1*4=4uSv。
線量計は累積した放射線量。年間20mSvという表現は、この線量計の一年間累積した値を示している。
ガイガーカウンタになる。一分間のパルス数を計数したものがCPM。
シーベルトへ単位変換する際には、ガイガーカウンタがγ線のみを検出している事を前提とする。
ガイガーカウンタに金属製のシールドがしてあれば、ほぼγ線を検出していると考えられる。
このガイガーカウンタの値に対して時間累積すると線量計となる。1uSv/hの場所に4時間居れば1*4=4uSv。
線量計は累積した放射線量。年間20mSvという表現は、この線量計の一年間累積した値を示している。
750デフォルトの名無しさん
2011/08/26(金) 13:54:23.16 復元
751デフォルトの名無しさん
2011/11/26(土) 11:41:35.37 また復元
752デフォルトの名無しさん
2011/11/29(火) 11:09:43.44 Xbox360/XNAで動くMSX-BASIC互換アプリってないの?
753デフォルトの名無しさん
2011/12/01(木) 20:25:30.78 裏レジスタは癖が強くて使えない
754デフォルトの名無しさん
2011/12/02(金) 19:29:22.07 裏レジスタは頭が弱くて使えない
755デフォルトの名無しさん
2011/12/02(金) 20:01:07.80 IRQ処理で頻繁に使う者だとおもってた
756デフォルトの名無しさん
2011/12/17(土) 14:53:45.63757デフォルトの名無しさん
2011/12/19(月) 13:42:33.16758デフォルトの名無しさん
2011/12/19(月) 13:56:45.47 おい、なんかマジっぽいレスしてる奴がいるぞ
759デフォルトの名無しさん
2011/12/19(月) 14:18:03.31 そこは「マジレスしてる奴がいるぞ」にしとけ
「マジっぽいレス」だと理解不足なのが丸バレで757が図に乗るぞ
真面目な奴ほどキれると暴れるから荒れるのはカンベン
「マジっぽいレス」だと理解不足なのが丸バレで757が図に乗るぞ
真面目な奴ほどキれると暴れるから荒れるのはカンベン
760デフォルトの名無しさん
2011/12/19(月) 14:48:29.85 >>759
もしかしたら俺の理解できないボケかもしれないので、少し逃げた。
もしかしたら俺の理解できないボケかもしれないので、少し逃げた。
761デフォルトの名無しさん
2011/12/26(月) 17:26:33.06 少し逃げたね。
762デフォルトの名無しさん
2012/01/02(月) 17:57:05.98 うん、少し逃げたね
763デフォルトの名無しさん
2012/09/03(月) 01:32:23.10 >2012年 9月 2日(日) 13:00〜
>MSX30周年が来年だと思ったら、ミナカンも今年15周年だった...
ふーん、よくやるね(呆…
>MSX30周年が来年だと思ったら、ミナカンも今年15周年だった...
ふーん、よくやるね(呆…
764デフォルトの名無しさん
2012/10/09(火) 14:29:01.18 ∧_∧
( ・∀・) 人 ガッ
( つ―-‐-‐-‐-‐-‐○ < >__Λ∩
人 Y ノ. V`Д´)/
し(_) / ←>>269
( ・∀・) 人 ガッ
( つ―-‐-‐-‐-‐-‐○ < >__Λ∩
人 Y ノ. V`Д´)/
し(_) / ←>>269
766デフォルトの名無しさん
2013/02/06(水) 13:34:07.37 序破急(じょは きゅう)
767デフォルトの名無しさん
2013/02/06(水) 13:35:36.64 奥義(おくぎ)
奥義(おうぎ)
奥義(おうぎ)
768デフォルトの名無しさん
2013/02/24(日) 07:48:22.15 どんだけ過疎ってんだよ。お前らのMSXに対する愛はそんなものか!
769デフォルトの名無しさん
2013/02/24(日) 15:59:45.43 愛ってなんだ
770デフォルトの名無しさん
2013/02/24(日) 16:11:01.59 振り向かないことさ
771デフォルトの名無しさん
2013/02/24(日) 18:10:28.96 え?じゃあ若さって何だ?
772デフォルトの名無しさん
2013/02/24(日) 23:10:39.51 アキムカないことさ
773デフォルトの名無しさん
2013/03/02(土) 13:35:36.02 MSXFANの1画面プログラムは色々とマニアックなことが書いてあったな
STOPキー押すまで入力待ちとかあったような
STOPキー押すまで入力待ちとかあったような
774デフォルトの名無しさん
2013/05/25(土) 02:05:38.26 なつかしい。昔ログインにゲーム投稿してお金貰ったわ
775デフォルトの名無しさん
2013/09/27(金) 09:13:12.19 保守
776デフォルトの名無しさん
2013/10/21(月) 19:41:55.44 ttp://pbs.twimg.com/media/BW4WQ-xCYAAnxN0.png
777デフォルトの名無しさん
2013/10/22(火) 12:49:05.01 バカな!
しかし、パッケージは紛れもなく本物……ッ!!
しかし、パッケージは紛れもなく本物……ッ!!
778デフォルトの名無しさん
2013/10/22(火) 17:25:20.94 MSXちゃうやん
779デフォルトの名無しさん
2013/10/22(火) 20:38:30.87 その人何の技術もないからフェイクしかできないでしょ
780デフォルトの名無しさん
2013/10/23(水) 12:32:15.62 奥義伝承の儀とかやらんの?
781デフォルトの名無しさん
2013/10/23(水) 15:20:38.16 >>776
MSXじゃなくてPC6Kシリーズじゃねぇか!!!
MSXじゃなくてPC6Kシリーズじゃねぇか!!!
782デフォルトの名無しさん
2013/10/24(木) 08:23:50.03 キーボードはパピコンだけど、こんなにカラフルで高精細な画面モード無いし
783デフォルトの名無しさん
2013/11/16(土) 07:44:01.61 画面だけエミュで映し出してるな
784デフォルトの名無しさん
2013/11/16(土) 07:52:01.86785デフォルトの名無しさん
2013/11/16(土) 08:26:02.58 元ベーマガスタッフキタ━━ヽ(゚∀゚)ノ━━!!!!
786デフォルトの名無しさん
2013/12/05(木) 21:10:30.52 でもプログラム末尾にDATA文で並べるより
使ってる近辺に書いたほうが分かりやすいよね今考えれば
使ってる近辺に書いたほうが分かりやすいよね今考えれば
787デフォルトの名無しさん
2013/12/06(金) 00:21:13.46 エディタがまともならな
788デフォルトの名無しさん
2014/01/03(金) 00:28:03.71 データとプログラムは分離されてた方が訂正するのは楽かな。
どうせ構造や意味は開発資料としてメモしておくでしょ。
どうせ構造や意味は開発資料としてメモしておくでしょ。
789デフォルトの名無しさん
2014/01/03(金) 14:41:05.34 配列の定義だから、DIMのことだろう
790デフォルトの名無しさん
2014/02/06(木) 03:33:44.69 あれだけいろいろ作ってたのに今見たらもうBASIC読めないな。
配列の確保ってその行の実行時だったけ?
配列の確保ってその行の実行時だったけ?
791デフォルトの名無しさん
2014/02/06(木) 08:37:37.66 10個ぐらいだったら宣言しなくても使えたような気がする。忘れた。
そういうデフォルト設定や裏技を極限まで使いこなすのが「テクニック」だったよなあ。
今ではクソコードに分類されるけど。
そういうデフォルト設定や裏技を極限まで使いこなすのが「テクニック」だったよなあ。
今ではクソコードに分類されるけど。
792デフォルトの名無しさん
2014/02/06(木) 12:11:32.90793デフォルトの名無しさん
2014/02/06(木) 13:29:46.17 >>790
時間があまりにも過ぎてるからじゃね?
俺もマシン語・アセンブラでバリバリやってて
ハードウェアの隅から隅まで知っていたつもりだけど
今じゃ何も思い出せないなw
まあ資料見ればすぐに思い出せるだろうけど
さすがに全く触らなくなってから時間が経ち過ぎてる
時間があまりにも過ぎてるからじゃね?
俺もマシン語・アセンブラでバリバリやってて
ハードウェアの隅から隅まで知っていたつもりだけど
今じゃ何も思い出せないなw
まあ資料見ればすぐに思い出せるだろうけど
さすがに全く触らなくなってから時間が経ち過ぎてる
794デフォルトの名無しさん
2014/02/06(木) 13:41:28.12 てきとーに配列に数値をぶち込むものを書いてみる。
10 DIM A(100)
20 CLS
30 FOR I=0 TO 100
40 A(I)=I
50 LOCATE 0,0:PRINT I
60 NEXT
10行がないと、I=10 の時点でエラーになるな。
10 DIM A(100)
20 CLS
30 FOR I=0 TO 100
40 A(I)=I
50 LOCATE 0,0:PRINT I
60 NEXT
10行がないと、I=10 の時点でエラーになるな。
795デフォルトの名無しさん
2014/02/07(金) 05:57:15.58 ワ、ワタシハタダシイ
796デフォルトの名無しさん
2014/02/13(木) 22:37:49.35 読める、読めるぞ〜、インストラクション表を片手に
しかしコードの真意は書いた本人にしかわからない
数年後には書いた本人にもわからない古文書となる
しかしコードの真意は書いた本人にしかわからない
数年後には書いた本人にもわからない古文書となる
797デフォルトの名無しさん
2014/02/16(日) 12:25:00.81 DarkBASIC Pro Freeで最新技術を誰よりも早く習得 - VC++プログラマーより情報が早い
- DarkBASIC Professional - FREE Download(英語版のみ)
[ http://www.thegamecreators.com/?m=view_product&id=2000&page=free ]
[ http://www.thegamecreators.com/?m=download&file=5003 ]
U77 Public Release Candidate(最新バージョンアップデート)
[ http://forum.thegamecreators.com/?m=forum_view&t=180294&b=1 ]
[ http://files.thegamecreators.com/darkbasicprofessional/upgrade/dbpro_upgrade_7_7_RC7.zip ]
- DarkBASIC Professional - FREE Download(英語版のみ)
[ http://www.thegamecreators.com/?m=view_product&id=2000&page=free ]
[ http://www.thegamecreators.com/?m=download&file=5003 ]
U77 Public Release Candidate(最新バージョンアップデート)
[ http://forum.thegamecreators.com/?m=forum_view&t=180294&b=1 ]
[ http://files.thegamecreators.com/darkbasicprofessional/upgrade/dbpro_upgrade_7_7_RC7.zip ]
798デフォルトの名無しさん
2014/02/16(日) 12:26:25.19 今回紹介するのはDarkBASIC Professinalフリーバージョン。
商用利用をしないと言う条件ですべての機能が使える。
DarkBASIC本体をダウンロードしたら、メールアドレスを送信してアンロックキーをメール受信する。
次にメールアドレスとアンロックキーをアクティベーション(認証)すればDarkBASICが使えるようになる。
さらに、最新バージョンアップデートを適用すれば、実行速度が高速になる。
DarkBASICはVisualBasic以前の古いBASICの延長上の別系統の設計にある最新BASICで、記述
が簡単で本格的な構造化もサポートしている。
簡単なゲームから大規模プロジェクトまで作成可能だ。
また、外部モデリングフォーマットを通さずにプログラム中で3Dオブジェクトの定義も可能で、非常に自由度
の高いプログラミングができる。
英語版と言うことであるが、BASICと3Dの基礎知識があれば、誰でも使える。
商用利用をしないと言う条件ですべての機能が使える。
DarkBASIC本体をダウンロードしたら、メールアドレスを送信してアンロックキーをメール受信する。
次にメールアドレスとアンロックキーをアクティベーション(認証)すればDarkBASICが使えるようになる。
さらに、最新バージョンアップデートを適用すれば、実行速度が高速になる。
DarkBASICはVisualBasic以前の古いBASICの延長上の別系統の設計にある最新BASICで、記述
が簡単で本格的な構造化もサポートしている。
簡単なゲームから大規模プロジェクトまで作成可能だ。
また、外部モデリングフォーマットを通さずにプログラム中で3Dオブジェクトの定義も可能で、非常に自由度
の高いプログラミングができる。
英語版と言うことであるが、BASICと3Dの基礎知識があれば、誰でも使える。
799デフォルトの名無しさん
2014/03/12(水) 07:21:04.94ID:9nRIvxt0 Mファン1990年9月号に掲載された1行プログラム(システム上の1行、の意)
「200年カレンダー」
(万年カレンダーから100年毎の閏年判定ルーチンを除いたもの、
1900年3月1日〜2100年2月28日に対応)
#SCREEN1:WIDTH29(以上)で実行すること
1 CLS:INPUT"年,月";Y,M:Y=(Y+4)MOD28:J=YMOD4:D=(Y\4)*5-(J>0)+J
:FORI=1TOM:D=(D+X)MOD7:READX:X=X+(I=2)*(J=0):NEXT:PRINT:PRINT
SPC(D*4);:FORI=1TOX+28:PRINTUSING" ## ";I;:A=D=6:A$=CHR$(A*-10)
+CHR$(A*-13):PRINTA$;A$;:D=(D+1)MOD7:NEXT:DATA3,,3,2,3,2,3,3,2,3,2,3
「200年カレンダー」
(万年カレンダーから100年毎の閏年判定ルーチンを除いたもの、
1900年3月1日〜2100年2月28日に対応)
#SCREEN1:WIDTH29(以上)で実行すること
1 CLS:INPUT"年,月";Y,M:Y=(Y+4)MOD28:J=YMOD4:D=(Y\4)*5-(J>0)+J
:FORI=1TOM:D=(D+X)MOD7:READX:X=X+(I=2)*(J=0):NEXT:PRINT:PRINT
SPC(D*4);:FORI=1TOX+28:PRINTUSING" ## ";I;:A=D=6:A$=CHR$(A*-10)
+CHR$(A*-13):PRINTA$;A$;:D=(D+1)MOD7:NEXT:DATA3,,3,2,3,2,3,3,2,3,2,3
800799
2014/03/14(金) 03:44:10.36ID:Dt0a1Iuk 799の「200年カレンダー」を、Windows用の「99Basic」向けに作り直した
(「移植」とは呼べない。文字化けを除けばMSXでも動く。論理式を追放した。)
100 CLS
110 INPUT "年(1900〜2100),月 ";Y,M
120 IF Y<1900 OR Y>2100 OR M<1 OR M>12 THEN RUN
130 YY=Y:Y=(Y+4) MOD 28
140 J=Y MOD 4:D=INT(Y/4)*5+J
150 IF J>0 THEN D=D+1
160 IF YY=1900 THEN D=1
170 X=0
180 FOR I=1 TO 12
190 IF I<=M THEN D=(D+X) MOD 7
200 READ X
210 IF I=2 AND J=0 THEN X=1
220 IF (YY=1900 AND I=2) OR (YY=2100 AND I=2) THEN X=0
230 IF I=M THEN XX=X+28
240 NEXT
250 PRINT:PRINT
260 FOR I=1 TO 7
270 READ A$:PRINT " ";A$;" ";
280 NEXT
290 PRINT:PRINT:PRINT SPACE$(D*4);
(続く)
(「移植」とは呼べない。文字化けを除けばMSXでも動く。論理式を追放した。)
100 CLS
110 INPUT "年(1900〜2100),月 ";Y,M
120 IF Y<1900 OR Y>2100 OR M<1 OR M>12 THEN RUN
130 YY=Y:Y=(Y+4) MOD 28
140 J=Y MOD 4:D=INT(Y/4)*5+J
150 IF J>0 THEN D=D+1
160 IF YY=1900 THEN D=1
170 X=0
180 FOR I=1 TO 12
190 IF I<=M THEN D=(D+X) MOD 7
200 READ X
210 IF I=2 AND J=0 THEN X=1
220 IF (YY=1900 AND I=2) OR (YY=2100 AND I=2) THEN X=0
230 IF I=M THEN XX=X+28
240 NEXT
250 PRINT:PRINT
260 FOR I=1 TO 7
270 READ A$:PRINT " ";A$;" ";
280 NEXT
290 PRINT:PRINT:PRINT SPACE$(D*4);
(続く)
801799
2014/03/14(金) 03:58:27.59ID:Dt0a1Iuk 300 FOR I=1 TO XX
310 PRINT USING" ## ";I;:D=D+1
320 IF D=7 THEN D=0:PRINT:PRINT
330 NEXT
340 PRINT
350 IF D>0 THEN PRINT:PRINT
360 END
370 DATA 3,0,3,2,3,2,3,3,2,3,2,3
380 DATA "日","月","火","水","木","金","土"
主な修正点:1900年1・2月と2100年3月〜12月も表示できるように。
・MSXで実行するときの注意点
110行のINPUT文・380行のDATA文にある「年」「月」「火」などの全角文字、
場合によっては270行の曜日前後にある空白を修正する必要がある。
・MSXの漢字BASICで実行するときの注意点
最低でも100行を「100 _CLS」に修正する必要がある。
インターレスモード〜_KANJI2・_KANJI3でないと、上部が強制スクロールされる。
画面がちらつかない_KANJI・_KANJI1で実行するときは、改行の「PRINT」を削除する、
最後にINPUT$(1)やIF INKEY$="" THEN を加えるなどの工夫が必要。
310 PRINT USING" ## ";I;:D=D+1
320 IF D=7 THEN D=0:PRINT:PRINT
330 NEXT
340 PRINT
350 IF D>0 THEN PRINT:PRINT
360 END
370 DATA 3,0,3,2,3,2,3,3,2,3,2,3
380 DATA "日","月","火","水","木","金","土"
主な修正点:1900年1・2月と2100年3月〜12月も表示できるように。
・MSXで実行するときの注意点
110行のINPUT文・380行のDATA文にある「年」「月」「火」などの全角文字、
場合によっては270行の曜日前後にある空白を修正する必要がある。
・MSXの漢字BASICで実行するときの注意点
最低でも100行を「100 _CLS」に修正する必要がある。
インターレスモード〜_KANJI2・_KANJI3でないと、上部が強制スクロールされる。
画面がちらつかない_KANJI・_KANJI1で実行するときは、改行の「PRINT」を削除する、
最後にINPUT$(1)やIF INKEY$="" THEN を加えるなどの工夫が必要。
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 中国海軍の空母艦載機が空自戦闘機に断続的にレーダー照射 空対空の照射は初公表★2 [七波羅探題★]
- ヘグセス米国防長官「もうただ乗りは許さない」 防衛支出不十分なら「報い」 日本も念頭か [ぐれ★]
- 中国海軍の空母艦載機が空自戦闘機に断続的にレーダー照射 “空対空”の照射は初公表★3 [七波羅探題★]
- 中国が世界生産の7割握るレアアース、日本企業への輸出手続きに遅れ…日中関係悪化で「揺さぶり」指摘も [ぐれ★]
- 国民健康保険料、外国人だけ前払いしてもらう? 厚生労働省が提案した未納対策 日本人も滞納は多いわけだが:東京新聞 [少考さん★]
- 【サッカー】上田綺世が衝撃の4ゴール&PK奪取の大暴れ!驚異のリーグ戦15戦18発、オランダの日本人最多得点記録を更新 [征夷大将軍★]
- 【国防】防衛費、3年で4兆円増えて9.5兆円に達す!税財源は曖昧 [219241683]
- スロット打ってるんだが可愛い女店員さんが近くに立ってる
- 本場ニュージーランド人「ジャップさぁ!キウイフルーツ🥝は皮ごと食べるものだよ?」 [377482965]
- 🏡𝑯𝒐𝒖𝒔𝒆🏡
- (ヽ´ん`)「日本は衰退国になるよ」ネトウヨ「衰退ポルノやめろぉぉ!!」 衰退してて草 [554445857]
- 俺ってサイコパスだから怒らせない方がいいよ
