Ｘ−ＢＯＸのOSソースを大公開！

10 SCREEN 3,0,0:CLS 3:DEFINT A-Z:CONSOLE 0,25,0,1
20 DIM TX(6),TY(6),TC(6)
30 FOR I=0 TO 6:TX(I)=RND(1)*70:TY(I)=RND(1)*20:TC(I)=15:NEXT
40 LOCATE 28,12:PRINT"X-BOX OPERETION SYSTEM Ver 0.66"
50 FOR I=0 TO 1:I=-(INKEY$<>""):NEXT I
60 CALL &HCE00:GOTO 100

文盲はﾂﾗｲﾈｰ

さすがに今BASICのコードを読めといわれても無理だな。
DIMってなんだっけ？(笑

配列宣言だろ

このスレはもしかしてXのOSがベーシックだと言って
みんなの笑いを取ろうとしているのかな？

なんだか懐かしいぞ

また出川の仕業か（藁

Ｘ箱ってDOS/VじゃなくPC-9801だったのか！

GOTO100ってことは続きがあるんだな

懐かしの８８FHを思い出してしまったよ。

10 SCREEN 3..
なのでPC88ではないと思う（違った毛？

70から90は飛ばしてしまうのか？
止めろよ、ＧＯＴＯつかうの。わかんなくなっちゃうよ。

続きも公開しろよ。
配列変数で何してるんだ？

**

どうせならオープニング画面を再現してほしいね

CALL &HCE00
PC9801だとVRAMをCALLしてることになるし、
最近はVRAMにコードを置くのか…。

>>16
これ９８？８８じゃあ・・・

PC-8801って SCREEN 2.. までしか設定出来なかったような・・・
さすがにもう忘れたか

なんだか、楽しいぞ。
ところで、９８なら機械語呼び出しの前に、セグメントの定義が
必要なんじゃなかったっけ？

ＬＯＣＡＴＥを見てＪＲシリーズかと思った俺はヴァカだな。
松下のＪＲ−１００は良いハードだった。俺にとっては。
考えたら松下って昔からこの分野ではトコトン弱かったな。

30 FOR I=0 TO 6:TX(I)=RND(1)*70:TY(I)=RND(1)*20:TC(I)=15:NEXT

．．．って、ＸＹはテキストの座標？
ついでに、ＴＣ（Ｉ）に１５入れてる意味がわからん。
１〜１５のカラーを乱数で入れたいってとこかな？本当は。

>>16
え？セグメントはどこで指定してるん？

100 INPUT"私のコテハンはなんでしょう？";HN$

N88互換BASICで動かしたが、インデックスが有効範囲にありませんって出るぞ。

>>24
30で？

X-BOX OPERETION SYSTEM Ver 0.66と表示された後
何かキーを押すと、私のコテハンはなんでしょう？と出るので入力。
すると実行時エラー9（配列変数の添字が範囲外です。）が出て不正終了。
100の実行直後にエラーが起こっているが。

おまえら、そんな無駄な知識は早く捨てろよ。
脳の記憶容量だって限りはあるよ。

>>26
う〜ん、最後にエラーになるの？わからん。
とにかく添え字ゼロはまずいのかな？Ｎ８８互換って。

>>26
ＣＡＬＬ文も打った？？？

BASICの配列は1から始まってたんじゃなかった毛？

>>30
Hu-BASICは、命令忘れましたが0にする
か1にするか決める事ができました。

>>31
OPTION BASE
だっけ？　標準的な命令だったような気もする。

so-sumanse-

>>32
ええ、後に他のBASICでも同じ命令が
あったのでHu-BASICに限らないのかも
しれませんけれど、N-BASICに始まる
当時のMS-BASICには無かったような？

後に有ったBASICが何だったのか思い
出せません。QBASICかな？

あ

　∧＿∧　　　／
（・∇・）　＜　このスレは21世紀を代表する名スレ
　／￣＼／　　＼
｜みかん｜
￣￣￣￣￣

a

１