□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ 【ソ フト 名】 YSS100QB.BAS 【バージョン】 1.0.0 【最終更新日】 2010年1月28日 【著作　権者】 山下　宏氏 【編　集　者】 河野清則 【動作　環境】 WindowsXP/2000/NT/Me/98 【開発ソフト】 Microsoft QuickBasic Extended 【ソフト種別】 フリーウェア 【メ　ー　ル】 【Ｕ　Ｒ　Ｌ】 http://www.tvt.ne.jp/~yekkllbc/ 【配布　条件】 YSSに準拠 【転載　条件】 同上 □□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□ ■ はじめに 山下氏著作のYSS100.BASをQBasic用に編集。 ■ 動作環境 OS : Windows XP/2000/NT4.0/Me/98/95/MS-DOS SOFT : QBasic(QuickBasic)システム ■ 配布内容 YSS100QB.BAS README.TXT(同テキスト) ■ 操作説明 ・QBasicで実行して下さい。 ・動作内容はオリジナルソースと同じです。？ たぶん。 (詳細な動作確認は行っていない為、動作不良を起こす可能性があります) ・プロクラム実行中に停止してしまった場合はCtrl+Pauseを押して実行を 中止して下さい。 ・入力間違いには注意してください。 さもないと悲惨な結果が待っています。 ・終了する時は'Q'を入力して下さい。 ■ 編集説明 ・サブルーチンはサブプロシージャとして再定義しています。 (下記の個所はサブプロシージャ化していません) ・GOTOステートメントは基本的に使用しない。つもりでしたが、 かなり使用しています。 ・コメント文の数字はオリジナルソースの行番号です。 ・表示及びコメントはローマ字で記入。 ・加筆部分はcorrectionを記入しました。 ・さらにSUB化できる思考部の個所 ComFunc09 オリジナルの行番号10900〜11110,11120〜11140 ComFunc15 オリジナルの行番号14020〜14060,14100〜14110 ComFunc18 オリジナルの行番号14510〜14550,14560〜14580 ComFunc19 オリジナルの行番号14610〜14630,14640,114650〜14710,14720〜14770 ComFunc21 オリジナルの行番号15010〜15016,15020,15030〜15300 ComFunc26 オリジナルの行番号 8150〜 8890, 8598 ComFunc28 オリジナルの行番号11770〜11870,11890〜12010 ComFunc29 オリジナルの行番号10140〜10700,10710〜10740,10760〜10790 ・プログラム文が１部重複しています。 ComFunc03aとComFunc03b オリジナルソースの行番号12390〜12482 ComFunc03aとComFunc03c オリジナルソースの行番号12430〜12482 ComFunc25とComFunc25a オリジナルソースの行番号9670〜9700 ComFunc25とComFunc25b オリジナルソースの行番号9680〜9700 ComFunc25とComFunc25c オリジナルソースの行番号9690〜9700 ComFunc25とComFunc25d オリジナルソースの行番号9710〜9710 ComFunc29とComFunc29a オリジナルソースの行番号10760〜10790 ■ 確認事項 ・※現在確認されている不具合 　 @桂の打ち込み時。 症状 　 Subscript out range と表示され停止する。 原因 ”配列の添え字が有効な範囲にありません”が起きています。 ST(MT,1) ---ComFunc19 39行目 --- 値が代入される箇所 ST(MT,1) ---ComFunc25 72行目 --- GXで利用される箇所 KK(X,Y,I,C)---WriteKei01 8行目 --- 停止する箇所 ∴参考までに （N88BASIC -> QUICK BASIC CONVERTERで変換したプログラムでも同じエラーがでます） 尚、PC9821+N88BASIC(DOS版)+YSS100.BAS(オリジナル)では問題なく動いています。 ARANDOM MOVE(ComFunc31) 症状 RND()関数の所で停止する事があります。 ■ 備考 ・利用は自己責任でお願いします。 ▽不具合の報告 ▽免責、再配布など ・本プログラムを使用したことによる結果において著作権者及び編集者は 一切の責任を負わないものとします。 ・再配布、転載はオリジナルに従うものとします。 ■ Special Thanks（敬称略） YSSと彩のページ (http://www32.ocn.ne.jp/~yss/index_j.html) ■ 更新履歴 ver 1.0.0（2010/1/28） 初回版 □□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□