カラーベーシック

Color BASIC は、 1980 年から 1991 年にかけて製造されたTandy/Radio Shack TRS-80 カラー コンピュータのROMに含まれているMicrosoft BASICの実装です。BASIC (Beginner's All-purpose Symbolic Instruction Code) は、シンプルなプログラムを簡単に記述できるシンプルな構文を持つ高級言語です。Color BASIC は、実行時に解釈、つまりデコードされます。

Color BASIC の核は、 Tandy が Microsoft からライセンスを受けたMicrosoft BASIC-69でした。Color BASIC 1.0 は、1980 年にオリジナルの 4k TRS-80 Color Computer とともにリリースされました。これは 8k バイトの ROM 上に常駐し、システムのすべての「ハウスキーピング」作業を担当します。これには、ハードウェアの初期化、メモリ管理、割り込み処理などが含まれます。BASIC のほとんどの実装と同様に、各コード行は行番号で始まり、変数と演算子を含む 1 つ以上のステートメントで構成されます。次のレベルの BASIC であるExtended Color BASIC ("ECB") には 16k のメモリが必要です。Extended BASIC はフロッピー ディスク コントローラに必要で、これによりDisk Extended Color BASIC ("DECB") が提供されます。このインタープリタおよびその他のインタープリタを実行する Color Computers のエミュレータは、最新のコンピュータで使用できますが、その一部には物理マシンの「スナップショット」ファイルが必要です。^[2]

Color BASIC は、数値変数と文字列変数の 1 つのタイプを認識します。Color BASIC の変数名は、最初の 2 文字が重要です。変数名の最初の文字は文字である必要があります。2 番目の文字は文字または数字のいずれかです。文字列変数は、変数名の後にドル記号 ($) を追加して示されます。

A = 5 
A$ = 「これは弦です」
K7 = 10 
BB$ = 「こんにちは！」
ZZ = 1.54

数値変数には、バイナリ浮動小数点実装の 1 つのタイプのみがあります。各数値変数は 5 バイトのメモリを使用し、-1E+38 から 1E+37 までの範囲になります。

Microsoft BASIC のほとんどの実装とは異なり、Color BASIC では、ユーザーが CLEAR ステートメントを使用して文字列変数用のスペースを予約する必要があります。

多次元配列は、数値変数と文字列変数の両方でサポートされています。配列の場合、要素アドレスは括弧で囲まれます。

A ( 1 ) = 1 
A$ ( 1 ) = "書籍"

複数のディメンションはカンマで区切られます

A ( 1 , 3 ) = 4 
A$ ( 2 , 2 ) = "XYZ123"

Color BASIC は、数学演算と、それほどではないが文字列演算の両方のためのいくつかの演算子を提供します。

+は文字列の連結や数学的な加算に使用できます。

- は減算に使用されます

*は掛け算に使用されます

/ は除算に使用されます

括弧（）は数学的な演算順序を上書きするために使用されます

ANDは論理積演算に使用されます

ORは論理和演算に使用されます

NOTは論理否定演算に使用されます

テストには次の演算子が使用されます。

= は等しい

> より大きい

< はより小さい

>= は以上です (=> も許容されます)

<= は以下です (=< も許容されます)

<> は等しくありません (>< も許容されます)

BASIC で使用されるその他の記号:

「 」は文字列データが定数（静的）であることを示します。

: 1行のプログラムで複数のコマンドを区切ります

PRINT関数内でセミコロンを使用すると、出力は同じ行に残ります。

PRINT関数でコンマに遭遇すると、次の列にタブ移動します。

num は数値式が必要であることを示します。これは固定数、変数、または数値を返すその他の演算や関数にすることができます。

str は、文字列式が必要であることを示します。これは、静的な文字列値 (引用符で囲む)、文字列変数、または文字列を返すその他の関数または式にすることができます。

デバイス番号はデバイスを示します。デフォルトでは、デバイス 0 (画面とキーボード) が想定されます。Color BASIC では、デバイス #-1 (カセット) と #-2 (プリンタ) がプログラマーに使用可能です。

行に入力ミスをした場合は、最初から再入力するか (または Del キーで削除)、編集することができます。編集モードでは、行が再印刷され、スペースバーで文字を移動して 2 番目のコピーが作成されます。矢印キーは使用できません。バックスペースで左に移動しますが、バッファ内の文字は実際に消去されません。'i' で挿入モードになります。Return を押すと挿入モードを終了します。'c' で 1 文字変更し、'd' で 1 文字削除します。'x' で行末に移動し、行を延長できます。'l' で行を再描画します。's' で次の文字のインスタンスを検索します。's'、'c'、'd' コマンドでは、いずれかのコマンドを押す前に数字 (#) を入力することもできます。数字は、's' - 文字の # インスタンスを検索します。'c' - 文字数を変更できます。'd' - # 文字数を削除します。

ABS(num)

numの絶対値を返す

ASC(str)

strの最初の文字のASCIIコードを返します

CHR$(num)

ASCIIコードnumの単一の文字列文字を返します。

EOF(device number)

ファイルにデータがある場合は0を返し、ファイルの末尾にある場合は-1を返します。

INKEY$

キーボードのキーが押された場合は文字を返し、何も押されていない場合は null を返します。

INT(num)

numの整数部分を返す

INSTR(startpos,search str,target str)

ターゲット str 内の最初の文字列を検索します。startpos はオプションです。

JOYSTK(num)

ジョイスティック軸の位置（0-3）を0から63までの値で返します。

LEFT$(str,num)

文字列strの最初の（「左」の）num文字を返します。

LEN(str)

文字列strの長さ（文字数）を返します。

MEM

利用可能な空きメモリをバイト単位で返します

MID$(str,start num,length num)

文字列strのstart numの位置から始まり、長さ num文字の部分文字列を返します。 ="newvalue" を追加して再割り当てすることもできます。

PEEK(num)

メモリ位置番号の値を返します（0-65535）

POINT(x num,y num)

x numm (0-63) とy num (0-31)の位置にあるセミグラフィックス ドットの色を返します。

RIGHT$(str,position num)

文字列strの文字位置 numから始まる末尾 ("右") 部分を返します。

RND(number)

1からnumまでの乱数（整数）を返します

SGN(num)

数値numの符号を返します。正の場合は 1、負の場合は -1、0 の場合は 0 です。

SIN(num)

numの正弦をラジアンで返します

STR$(num)

数値numの文字列を返します

USR(num)

メモリ位置275と276にアドレスが格納されている機械語 サブルーチンを呼び出します。numはルーチンに渡され、ルーチンが終了すると戻り値が割り当てられます。

AUDIO [ON|OFF]

カセットオーディオをテレビのサウンドに接続または切断します

CLEAR variable space[,highest memory location]

文字列変数と、オプションで機械語プログラム用のメモリを予約する

CLOAD ["name"]

カセットからBASICプログラムをロードします。名前が指定されていない場合は、次のプログラムがロードされます。

CLOADM ["name"]

カセットから機械語プログラムをロードします。名前が指定されていない場合は、次のプログラムがロードされます。

CLOSE [device number]

デバイスを閉じます (Color BASIC では #-1、カセットのみ)

CLS(num)

画面をクリアします。オプションで色番号（0～8）を指定できます。

CONT

BREAKまたはSTOPステートメントを押した後にプログラムを続行します

CSAVE ["name"]

BASICプログラムを任意の名前でカセットに保存します

DATA var,var,var...

READコマンドで取得できるようにBASICプログラムにデータを保存する

DIM variable(dimension[,dimension 2,...]

配列の寸法を決め、メモリスペースを確保する

END

BASICプログラムの終了を示す

EXEC

[メモリアドレス]は、メモリアドレスのマシン言語プログラムを実行します。指定されていない場合は、テープからロードされたプログラムの実行アドレスが使用されます。

INPUT [device number] [{prompt text};] variable [,variable 2, variable n]

デバイス番号からの入力を待ちます。指定しない場合は、デバイス 0 (キーボード) が想定されます。入力ステートメントのオプションのプロンプトを画面に表示できます。

LIST [starting line] - [ending line]

プログラムの行をリストします。開始または終了のいずれかを省略できます。両方を省略した場合は、プログラム全体がリストされます。

LLIST [starting line] - [ending line]

LISTと同じように動作しますが、プリンタに出力します

MOTOR [ON|OFF]

カセットモーターをオンまたはオフにします

NEW

メモリの内容（プログラムと変数）を消去します

ON {num} GOSUB line 1, line 2, ... line n

式numを評価し、リストされているnum番目のサブルーチンを呼び出す

ON (num) GOTO line 1, line 2, ... line n

式numを評価し、リストされたnum番目の行にジャンプします。

OPEN "[I|O]",device number[,"filename"]

通信用のデバイスを開く

POKE memory address, data

データ(0-255) をメモリアドレス(0-65535)に書き込みます。

PRINT device number,expression

指定されたデバイスにデータを印刷します。省略した場合は、#0 (画面) とみなされます。

PRINT @{screen position} expression

PRINT と同じように動作しますが、指定された場所 (0-511) に印刷します。

READ variable[,variable,...]

DATAステートメントが埋め込まれたBASICプログラムから次の変数を読み取ります。

RENUM NewStart num, OldStart num, Increment num

プログラムの各行 (オプションの Oldstart ) (オプションの NewStart 付き) を (オプションのnum) の倍数で再番号付けします。 : すべてのオプションを省略すると、リストは増分として 10 を使用します。: 10 行のプログラムで、10 区切りの場合。10、20、30、40、50、60、70、80、90、100: renum 100、40、2。これは、行番号 40 から番号を付け直します。40 以降のすべての行番号を 2 ずつ変更します。現在の行数は 10、20、30、100、102、104、106、108、110、112 です。

RESET(x,y)

位置x（0-63）とy（0-31）のセミグラフィックスピクセルを黒に設定します。

RESTORE

READポインタを最初のDATAステートメントにリセットします。

RETURN

サブルーチンから戻る

RUN num

オプションで指定された行番号でBASICプログラムを実行します。

SET(x,y,color)

位置x (0-63) y (0-31) のセミグラフィックスピクセルを色 (0-8) に設定します。

SKIPF ["filename"]

指定されたプログラム名が見つかるまでテープ上のBASICプログラムをスキップします。

SOUND tone,duration

周波数（1～255）と持続時間（1～255）の音を鳴らす

STOP

プログラムの実行を停止させる

TAB(column)

指定された列にタブ移動します（PRINT と一緒に使用）

VAL(str)

文字列形式の数値を含む文字列の数値を返します。

GOSUB {line number}

指定された行番号のサブルーチンを呼び出す

GOTO {line number}

指定されたプログラムの行番号にジャンプします

IF {test} THEN {command(s)} [ELSE {command(s)}]

条件テストを実行します。テストが真の場合、THENコマンドが実行され、そうでない場合（ELSE）は他のコマンドが実行されます。ELSEが指定されておらず、テストが偽の場合、プログラムの次の行が実行されます。

FOR  {num} = {number} TO {number} [ステップ{number} ]
...
次へ（数字）

数値変数（num）が開始番号から終了番号まで番号（STEP）の増分で実行されるループを作成します。ステップが省略された場合は、1が想定されます。

/0

ゼロ除算

AO

指定されたファイルはすでに開いています

BS

下付き文字が間違っています。下付き文字が DIM の範囲外です。

CN

続行できません（CONTコマンドを参照）

DD

配列の次元を変更しようとする

DN

無効なデバイス番号

DS

直接ステートメントエラー（プログラムに行番号がありません）

FC

不正な関数呼び出し: 関数に範囲外の値が含まれています

FD

不正なファイルデータ: 数値を文字列値などに読み込もうとしました。

FM

ファイル モードが不正、出力用に開かれたファイルにデータを入力しようとしているなど。

ID

不正な直接: 指定されたコマンドはプログラム内でのみ実行できます

IE

ファイルの終わりを超えた入力。EOF を参照

IO

入力/出力エラー

LS

長い文字列: 文字列は255文字までです

NF

FORなしのNEXT

NO

ファイルが開いていません

OD

データ不足: プログラムの最後のデータを超えて読み取ろうとしました

OM

メモリ不足

OS

文字列スペースが不足しています: CLEAR を参照してください

OV

オーバーフロー: 数値が範囲外です

RG

GOSUBなしのRETURN

SN

構文エラー

ST

文字列操作が複雑すぎる

TM

型が一致しません (A$=3、A="CAT")

UL

存在しない行にGOTOまたはGOSUBを実行しようとしました

Color BASIC ROM には、汎用プログラミングに使用できるマシン言語プログラム用のサブルーチンがいくつかあります。

POLCAT

アドレス[$A000]: キーボードから文字をポーリングする

CHROUT

アドレス[$A002]: 画面またはデバイスに文字を出力する

CSRDON

アドレス[$A004]: カセットを起動し、読み取りの準備をする

BLKIN

アドレス[$A006]: カセットからブロックを読み取ります

BLKOUT

アドレス[$A008]: カセットにブロックを書き込む

JOYIN

アドレス[$A00A]: ジョイスティックの値を読み取る

注記