整数BASIC

Integer BASICは、Apple IおよびApple IIコンピュータ用にスティーブ・ウォズニアックが作成したBASICインタープリタです。1976年にApple I用のカセットで最初に提供され、1977年のリリースからApple IIのROMに含まれていました。これは、初期の家庭用コンピュータ所有者の多くが使用したBASICの最初のバージョンでした。^[2]

数値データ型は整数のみで、浮動小数点はサポートされていませんでした。整数を使用すると、数値をコンパクトな 16 ビット形式で保存でき、当時のほとんどの BASIC で使用されていた 32 ビットまたは 40 ビットの浮動小数点形式よりも高速に読み取りおよび処理できます。これにより、非常に高速になり、ベンチマークでMicrosoft BASIC を上回ったときにビル ゲイツが不満を漏らしたほどです。ただし、これにより汎用言語としての適用範囲も制限されました。^[a]

当時の他の BASIC とのもう 1 つの違いは、 Integer BASIC が文字列をCやFortran 77のシステムと同様に文字の配列として扱うことです。部分文字列には、文字列関数ではなく配列のスライスを使用してアクセスしました。このスタイルはHP Time-Shared BASICで導入され、 North Star BASICやAtari BASICなど、HP を模倣した同時代の他の BASIC でも採用されています。これは、 Microsoft BASICを含むDEC由来の BASIC のスタイルとは対照的でした。

この言語は当初GAME BASICという名前で開発され、 Apple I で導入されたときは単にApple BASICと呼ばれていました。Apple II に移植され、浮動小数点サポートを含むMicrosoft BASICの移植版であるApplesoft BASICとともに出荷されたときに Integer BASIC になりました。1979 年の Apple II Plus以降、Integer BASIC は段階的に廃止され、Applesoft BASIC が採用されました。

高校3年生の時、スティーブ・ウォズニアックの電子工学の教師は、クラスの成績優秀な生徒を地元の電子工学会社に派遣するよう手配した。ウォズニアックはシルバニアに派遣され、 IBM 1130でFORTRANのプログラミングを学んだ。^[4]同じ年、ゼネラル・エレクトリックは、当時大々的に宣伝していたタイムシェアリングBASICサービスを実行するメインフレームの1つに接続された端末を高校に設置した。3日間アクセスを許可された後、生徒は学校が端末を恒久的に受け取るべき理由について手紙を書くように求められたが、彼らの努力は最終的に実を結ばなかった。^[1]

数年後、ウォズニアックはヒューレット・パッカード（HP）でチップ設計や電卓のロジックレイアウトのシミュレーションを行っていた。^{[1] HPは、}カスタムタイムシェアリングバージョンのBASICを実行するHP 2000シリーズのマシンでミニコンピュータ市場に大きく進出した。約10万ドルで、16〜32人のユーザーがBASICプログラムを実行できる、それなりの装備を備えたマシンを組み立てることができた。^{[5]高価ではあったが、}メインフレームマシンの数分の1のコストであり^[b]、ヘビーユーザーにとってはタイムシェアリングサービスよりも安価だった。 ^{[c] HPはこれに続いて、} 1万ドル（2023年の7万8000ドルに相当）のデスクトップサイズのマシンであるHP 9830を発売した。これもウォズニアックが利用できたBASICを実行できた。^[9]

1975年1月、Altair 8800が発表され、マイクロコンピュータ革命の火付け役となった。3月、ウォズニアックはHomebrew Computer Clubの初会合に出席し、自分のコンピュータの設計を練り始めた。Altairにとって最も重要なソフトウェアの1つであり、最も海賊版が出回ったものの1つは、設立されたばかりのMicrosoftのAltair BASICだった。^[10]ウォズニアックは、自分のマシンには独自のBASICが必要だと結論付けた。それがMOS Technology 6502プロセッサ用としては初のものとなることを期待した。言語には4KBのRAMが必要だったため、彼はそれを設計の最小メモリとした。^[1]

ウォズニアックがBASICの参考にしたのは、 101 BASIC Computer GamesのコピーとHP BASICのマニュアルだった。^[1]彼は、HPのBASICが101 Gamesで使用されていたDEC BASICの種類と大きく異なっていることを知らなかった。DEC BASICは、Altair用のMicrosoft BASICの基礎でもあった。これらの情報源に基づいて、ウォズニアックは言語の構文チャートをスケッチし始めた。当初の設計には浮動小数点サポートが含まれていたが、6502で最初のBASICを公開して「スター」になることを期待していた彼は、浮動小数点を放棄し、数週間のプログラミング時間を節約するために別の整数演算システムを書くことにした。^[1]

ウォズニアックは後に、この言語は「主にゲームや教育用途を意図したもの」であると述べている。^[11] 開発中は「GAME BASIC」と呼んでいたウォズニアックは、コードを手作業で書き、アセンブラコードの命令を同等の機械語に変換し、その結果を自分のコンピュータにアップロードした。^[12]コンピュータ言語の書き方を訓練されたことがないにもかかわらず、彼はHP電卓の経験を生かしてスタックマシンを実装し、式を解釈した。基本的なルーチンが稼働すると、彼は他のコマンドをモジュール方式で1つずつ作業した。Homebrewクラブを訪れるたびに、彼は先月追加されたいくつかの機能を実演した。^[1]

1976年初頭、 Apple Iコンピュータの広告で、Apple社は「当社の理念は、当社のマシン用のソフトウェアを無料または最小限のコストで提供することです」^[13]、「そうです、Apple BASICは無料です」^{[14]と主張しました。これは、人々が}Altair BASICのバージョンをコピーして彼をだましていると示唆した、ビル・ゲイツの悪名高いホビイストへの公開書簡の直後に掲載されました。^[15]

ウォズニアックは、アタリで働いていたスティーブ・ジョブズがブレイクアウトを再設計するのを手伝ったことがある。^[16]その後、彼はBASICでゲームを書けるかどうか試してみることにした。彼はパドルコントローラーを読み込むコマンドを追加し、一連の簡単な編集を経て、ゲームのバージョンを稼働させた。プレイアビリティを向上させるために、ボールが何かに当たったときにクリック音を発するスピーカーを追加した。ジョブズにそれを見せながら、ウォズニアックはソースコードを変更するだけで、ゲームが使用する色を素早く変更できることを実演した。ウォズニアックは後に、「ソフトウェアはハードウェアよりもはるかに柔軟である」ことを証明し、彼とジョブズは「今や、ハードウェアで設計しなくても、誰でもアーケードゲームを作成できる」ことに気づいたと書いている。^[1]

ウォズニアックは6502用の浮動小数点ライブラリを完成させ、1976年8月号のDr. Dobb's Journalで発表した。^{[17]このライブラリは後に}Apple IIのROMの一部となった。^[18]ウォズニアックは浮動小数点コードをApple BASICに移植する作業を始めたが、後にDisk IIとなるフロッピーディスクコントローラの設計に没頭してしまった。マイク・マークラは、ディスクシステムが間に合えばラスベガスのコンシューマーエレクトロニクスショーに参加すると述べ、ウォズニアックとランディ・ウィギントンは1977年の休暇中も休みなく作業に取り組んだ。^[19]

BASIC の浮動小数点の話題に戻ると、ジョブズは時間がかかりすぎると不満を漏らした。ウォズニアックが知らないうちに、同社はすでに Microsoft とライセンス契約を結び、最近完成した Altair コードの 6502 バージョンを受け取っていた。MS のコードを調べて、ウォズニアックは、独自の BASIC に浮動小数点を追加するよりも、MS のコードにグラフィックス サポートを追加する方が簡単だと判断した。後者は元のマシン コードを手動で修正する必要があるが、MS のコードはアセンブラで書かれており、変更が容易だったからである。Apple の BASIC の開発は、後にApplesoft BASICとなったものに取って代わられた。ウォズニアックは後に「自分の独自の関数の代わりに、や のようなひどい文字列関数を使ったことが一番残念だった」と述べている。^{[19] [d]}LEFT$(VAR, 5)MID$(VAR2,5,3)

1977年夏にApple IIが発売されたとき、Integer BASICはROMで提供され、Applesoft BASICはカセットで出荷されました。これは、 1979年にApple II Plusが導入され、ApplesoftがROMに組み込まれたことで変わりました。^[20]

当時のほとんどのBASIC実装と同様に、Integer BASICは言語インタープリタと行編集環境の両方として機能しました。BASICの実行中は、ユーザーが文を入力できる> コマンドプロンプトが表示されました。 ^{[21] [e]}後の家庭用コンピュータプラットフォームとは異なり、Apple IIの起動時にはBASICがデフォルトの環境ではなく、通常はモニターCtrlで起動しました。BASICは+を押すことで起動しました。^[22]BReturn

先頭に数字を付けて入力された文は、プログラム記憶域に「遅延実行」として入力され、^[23]新しい行として、または以前に同じ番号を持っていた可能性のある行と置き換えられます。 ^[24]行番号なしで入力された文はコマンドと呼ばれ、すぐに実行されます。^[f]行番号は0から32767までで、^{[25] [g]}行には最大128文字を含めることができます。^[27]

整数BASICには、AUTOのような開始番号を指定して行番号を自動的に入力するコマンドも含まれておりAUTO 100、新しい行ごとに最後の番号に10を加算します。は、AUTO 300,5行番号を5ずつ増やして300行目から付け始めます（300、305など）。 と入力すると、自動番号付けはオフになりますMAN。^[28]

エディタの興味深い機能の 1 つは、画面の一部を「ウィンドウ」として設定し、ライブ更新を行うことができることです。これは通常、画面全体ですが、POKEメモリ位置 32 から 35 に値を設定することで、より小さな領域に限定できます。 ^[29]この機能を使用すると、画面の残りの部分がグラフィック モードになっている間に、編集可能なテキスト領域を作成できます。^[30]

ほとんどのBASICと同様に、プログラムはRUNコマンドで開始され、一般的であったように、 のように特定の行番号に指示することができましたRUN 300。^[31]実行は、より一般的な とは対照的に、 + ^{[32] を}使用していつでも停止し、その後、 で再開することができました。^[33]CtrlCCONCONT

ステップバイステップ実行では、TRACEコマンドプロンプトで命令を使用するか、プログラム自体の中に命令を配置します。オンにすると、プログラムが実行した行ごとに行番号が出力されます。この機能は で再びオフにすることができますNOTRACE。^[34]

少し変わった機能は、DSP（「表示」の略）コマンドです。プログラム内でこのコマンドに遭遇すると、その時点から変数の値の変更が表示されます。たとえば、DSP XXの値が変更されるたびに、変更が発生した行番号とともにXの値が表示されます。^[35] TRACEと同様に、DSPは でオフにされますNODSP。^[26]

ダートマスBASICとHP-BASICでは変数名が最大2文字（1文字または1文字の後に数字が続く）に制限されていたのに対し、MS-BASICでは文字の後に任意の文字または数字（後続の文字は無視）が許可されていたのに対し、Integer BASICは任意の長さの変数名をサポートするという点で異例でした（例：SUM、GAMEPOINTS、PLAYER2）。唯一の注意点は、変数名に予約語を含めることができないことです。たとえば、THISCOLORとCOLORFULはCOLOR、システムコマンドであるキーワードを含んでいるため、無効な変数名でした。^[36]さらに、行は128文字に制限されていたため、変数名はその長さを超えることはできませんでした。^[27]

整数BASICは、その名前が示すように、その数学パッケージの基礎として整数を使用します。これらは、内部的に16ビットの数値、リトルエンディアン（6502と同様）として保存されます。これにより、計算の最大値は-32767から32767までになりました。この形式では-32768という値も保存できますが、BASICはその数値を表示できませんでした。その範囲外の値が得られた計算では、が出力されました>32767 ERR。^[37]

挿入演算子には+、 (加算)、-(減算)、 (乗算*)、(/除算)、MOD (剰余)、および^文字を使用した指数が含まれます。二項演算子にはAND、、ORおよび が含まれます。二項比較には、NOT標準セットの、、、、、および HP に触発された が含まれます=。これは <>と同等です。^[38]><>=<=<>#

1次元配列のみが許可され、サイズは使用可能なメモリによってのみ制限されました。^[39]数学関数はまばらで、ABS(絶対値)、SGN(符号)、RND(乱数)のみがサポートされていました。^[40]パラメータが無視され、常に0..<1の値が返されるMS派生バージョンとは対照的にRND、Integer BASICはパラメータを使用し、RND(6)0から5の整数を返しました^。[41]

整数BASICの文字列処理はHP BASICのシステムに基づいていました。これは文字列変数を文字の配列として扱い、使用前に編集する必要がありました。これはC ^[42]やFortran 77DIMのモデルに似ています。^[43]これは、文字列が固有の可変長型であるMSのようなBASICとは対照的です。^[44] MS由来のBASICが事実上の標準になる前は、このスタイルは珍しくなく、North Star BASIC ^[45]やAtari BASIC ^[46]な​​どでも同様のコンセプトが使用されていました。

Integer Basicの文字列は、文字列中に使用される文字数に関係なく、最大255文字までの固定量のメモリを使用しました。^{[47]これにより、MS BASIC [h]}で悪名高いほど遅いヒープのガベージコレクションの必要性を回避できるという利点がありましたが、宣言された長さよりも短い文字列は無駄になることを意味していました。

部分文字列へのアクセスは、配列スライス構文を通じて提供されました。たとえば、の最初の6文字、文字0から5を出力しました。 ^{[49] [49] [i]}連結も同じシステムを使用して提供され、位置5から始まる文字はすべて文字列「ABC」に置き換えられました。^[50]これは、部分文字列へのアクセスに などの文字列関数を使用し、連結に などの文字列関数を使用する DEC/MS スタイルの文字列処理とは対照的です。 ^{[51] [j]}PRINT A$(0,5)A$A$(5)="ABC"MID$+

文字列関数によって提供される機能の多くが配列のスライスによって提供されるようになったため、文字列関数の選択肢は減少しました。 はLEN文字列の長さを返し^[47]、ASC文字列の最初の文字のASCII数値コードを返しました。^[52]指定された数値コードのASCII文字を返す に相当するものがありませんでしたCHR$。^[53]

発売当時、Appleの唯一のゲームコントローラはパドルコントローラで、1つのコネクタに2つのコントローラが接続されていました。コントローラの位置はPDL、 関数を使用して読み取ることができ、 のようにコントローラ番号0または1を渡し、0から255の間の値を返します。^{[54] [k]}A=PDL(0):PRINT A

Apple のマシンには専用のサウンド ハードウェアは搭載されておらず、単純な「ビーパー」のみが搭載されていました。サウンドを生成するには、PEEKスピーカーのメモリ マップされた位置 -16336 を ing しました。^[l]その値を繰り返し PEEK するとトーンが生成され、マニュアルでは、 のように数式を使用してこれを行うことを推奨していました。^[56]S=PEEK(-16336)-PEEK(-16336)-PEEK(-16336)-PEEK(-16336)-PEEK(-16336)

グラフィックスのサポートはより詳細になりました。グラフィックス モードは、ステートメントでオンにしGR、ステートメントでオフにしますTEXT。^[57]描画はモーダルで、通常は色を変更するコマンドを発行して開始します。これCOLOR=12は、疑似変数を設定することで実現されます。描画色を 12 (明るい緑) に設定します。次に、PLOT 10,10その色の単一のスポットを生成することができます。^[58] HLIN 0,39 AT 20行 20 に画面全体に広がる水平線を描画するか、VLIN 5,15 AT 7列 7 に短い垂直線を描画します。^{[59] は、} A=SCRN X,Y X、Y の画面の色を返します。^{[52] [m]}

整数BASICにはカスタム入出力コマンドがなく、DATAステートメントと関連するもありませんでしたREAD。プログラムにデータを出し入れするために、入出力機能は、出力または入力（それぞれ）を番号付きスロットにリダイレクトする、とを使用して選択されたカードスロットにリダイレクトされました。それ以降、データは従来のコマンドを使用してカードに送信され、を使用して読み取られるようになりました。^[52]PR#xIN#xPRINTINPUT

整数BASICにはTAB、カーソルを0から39の特定の列に配置する機能がありました。これは、括弧で囲んだ値を持つ関数ではなく、数字が続くコマンドであるという点で、ほとんどのBASICのバージョンとは異なります。たとえば、カーソルを列10に移動するには、整数BASICでは を使用します^がTAB 10、MSでは となります。また、このコマンドは と同様に機能しますが、水平方向ではなく垂直方向のスペースが追加されます。理由は不明ですが、この場合の座標は0から23ではなく1から24でした。^[61]PRINT TAB(10)VTABTAB

整数BASICにはPOPループを終了するコマンドが含まれていました。^[52]これはFORスタックから一番上の項目をポップします。Atari BASICも同じコマンドをサポートしていましたが、^[62] North Star BASICではを使用していましたEXIT。^[63]

Integer BASIC ROMには、アセンブリ言語プログラムの作成とデバッグを行うためのマシンコードモニター、「ミニアセンブラ」、および逆アセンブラも含まれていた。ウォズニアックはApple IIの最初のプログラムとしてモニターを手作業で組み立て、それを使ってInteger BASICを書いた。^{[64] [65] [2]}

Apple BASICには以下のコマンドがありました: ^[66]

AUTO val1 , val2 CLR [ CLEAR ] DEL val1 , val2 LIST val1 , val2 RUN val1 SCR [ SCRATCH / NEW ] HIMEM = expr LOMEM = expr ( LET ) var = expr INPUT ( prompt ,) var1 , var2 ... PRINT item ( s ) TAB expr FOR var = expr1 TO expr2 STEP expr3 NEXT var IF expr THENステートメントIF expr THEN行番号GOTO expr GOSUB expr RETURN DIM var1 ( expr1 ), var2 ( expr2 ) ... REM text END POKE expr1 , expr2 CALL expr関数: ABS ()、SGN ()、PEEK ()、RND ()、LEN ()  
 
  
  
 
   
  
  
   
    
 
 
       
 
   
    
 
 

   


  
 
     

整数BASICでは次の機能が追加された: ^{[67] [68]}

COLOR = expr CON [ CONTINUE ] DSP GR HLIN expr1 , expr2 AT expr3 MAN NEW [ SCRを置き換えます] NOTRACE PLOT expr1 , expr2 POP TEXT TRACE VLIN expr1 , expr2 AT expr3関数: ASC (), PDL (), SCRN ( X , Y )  
 


    

  

  



    
   

整数BASICは、ユーザーが入力した行をバッファから読み取り、パーサーに通して一連のトークンを出力します。このプロセスの一環として、単純な構文エラーが検出され、リストされます。解析が成功した場合、行番号（存在する場合）はASCII 10進形式から16ビット整数に変換され、キーワードは7ビット整数トークンに変換されます。^[64]

いくつかのキーワードは複数のトークンで表現されます。たとえば、Microsoft BASICではキーワードに対して1つのトークンしかありませんでしたがPRINT、Integer BASICでは3つのトークンがありました。キーワードの後に​​引数がない場合は1つ、算術式が続く場合は1つ、文字列リテラルが続く場合は1つです。^[69]

数値リテラル、例えば値 500 は、16 ビット (2 バイト) のバイナリ表現 (この場合は16 進数$01F4) に変換されました。これがキーワードではなく値であることを示すために、$B0と$B9の間の 1 バイトが2 バイト値の前に挿入されました。^[n]文字列リテラル、例えば "HELLO WORLD" は、各文字のハイ ビットを設定して$C1として保存されるように変換されました。変数名も同様の方法で変換され、文字はハイ ビットがオンになるように変換され、名前内の数字は対応する$B0から$B9で表され、変数は$C1B5としてトークン化されました。^[64]AA5

行番号なしで行が入力された場合、コードはバッファから直接実行されました。行番号がある場合は、バッファからプログラム記憶領域にコピーされました。^[64]

ランタイムインタープリタは実行に2つのスタックを使用しました。1つはステートメントキーワード用、もう1つはパラメータ評価用です。各ステートメントには2つの優先順位が与えられました。1つは、演算順序を提供する数学演算の文字列のように、複数ステップの操作でどこで実行されるかを示し、もう1つは、括弧式の内部値を計算するなど、評価がいつ実行されるかを示します。変数が検出されると、その名前が解析され、変数ストレージ領域で検索されます。見つからない場合は、リストの末尾に追加されます。次に、おそらく新しく作成された変数のストレージのアドレスが評価スタックに配置されます。^[64]

Integer BASIC に加えて、Apple ROM にはSWEET16と呼ばれるカスタムアセンブラ言語が含まれていました。SWEET16 は、単純な 16 ビット仮想マシン内で実行されるバイトコードに基づいています。このモデルは、間接的な 16 ビット ポインターを介してメモリをアドレス指定し、16 ビットの数学関数を、基になるマルチ命令 8 ビット 6502 コードに変換することなく計算できるようにするために使用されました。仮想マシン全体はわずか 300 バイトで記述されました。コードはサブルーチン呼び出しを発行して SWEET16 を呼び出し、16 ビット操作が完了すると通常の 6502 コードに戻ることができます。^[70]

SWEET16はコアBASICコードでは使用されなかったが、後にいくつかのユーティリティの実装に使用された。その中でも注目すべきは行番号再設定ルーチンで、これはProgrammer's Aid #1 ROMに含まれており、後のApple IIモデルに追加され、初期のサンプルではユーザーがインストールできるものであった。^[71]

Integer BASICには独自の数学ルーチンが含まれていたが、Apple II ROMには、$F425-$F4FBとの間のROMメモリに完全な浮動小数点ライブラリも含まれていた$F63D-$F65D。ソースコードはApple IIのマニュアルに含まれていた。浮動小数点計算を必要とするBASICプログラムはCALLこれらのルーチンに組み込むことができた。^[72]

Integer BASIC は元のソース コードをトークンに処理することが多いため、追加の実行時解析を必要とするバージョンよりも実行時間が速くなりました。比較すると、Tiny BASIC は行番号のみをトークン化し、^[73] MS BASIC はキーワードのみをトークン化しました。たとえば、Integer BASIC は行100 GOTO 200全体をトークンに変換してすぐに読み取って実行できますが、MS BASIC では行番号と GOTO のみがトークン化され、「200」は元の ASCII 形式のままで、行に遭遇するたびに 16 ビット整数に再解析する必要がありました。^[74]

さらに、整数演算のみで動作することで、速度が大幅に向上します。これは、16 ビットのより小さなフォーマットによりメモリ アクセスが少なくなり、計算後に浮動小数点数を移動する必要がなくなるためです。当時のコンピューター ベンチマークの多くは小さく、浮動小数点数を必要としない単純な計算を実行することが多かったため、Integer BASIC は他のほとんどの BASIC を圧倒しました。^[o]

最も初期のマイクロコンピュータベンチマークの1つであるRugg/Feldmanベンチマークでは、Integer BASICは同じマシン上でApplesoft BASICの2倍以上高速でした。^[76]数学はそれほど重要ではなく、配列アクセスとループのパフォーマンスが支配的なByte Sieveでは、Integer BASICは166秒かかったのに対し、Applesoftは200秒でした。 ^{[77]これは、1983年に初めて公開された}Creative Computing Benchmarkには登場せず、その頃にはInteger BASICはデフォルトで提供されなくなっていました。^[78]

以下のテストシリーズは、Rugg/Feldmanのオリジナルの論文^{[76] [75]}から抜粋したもので、同じプラットフォーム上のMS由来のBASICと比較したIntegerのパフォーマンスを示しています。

各テストの結果の概要は次のとおりです。

• テスト 1: for/next ループを 1000 まで実行します。
• テスト 2: 1000 と比較しながらループします。
• テスト 3: 同じ変数による乗算、除算、加算、減算を追加したテスト 2 と同じです。
• テスト 4: 3 と同じですが、定数による乗算、除算、加算、減算が追加されます。
• テスト 5: サブルーチン呼び出しを追加したテスト 4 と同じです。
• テスト 6。内部ループを追加したテスト 5 と同じです。
• テスト 7: テーブル人口を追加したテスト 6 と同じです。

以下は、Apple IIミニマニュアルに掲載されていた、Apple II用の1977年版Integer BASICで書かれたBreakoutのバージョンです。^[79]このバージョンにはいくつかの既知のバグがあります。^[80]

プログラムは、ディスプレイを に設定しTEXT、CALL -936画面をクリアすることから開始します。20 行目から 27 行目、および 100 行目と 200 行目の関連サブルーチンは、Wozniak が Jobs に実演した色選択コードです。30 行目はPOKE 32,20^[p]でテキスト ウィンドウを設定し、一連のCOLORandVLINステートメントを使用してプレイフィールドとスコア表示をテキスト ウィンドウに描画します。メイン ループ全体は、関連サブルーチンを使用して 40 行目から 90 行目まで実行されます。プログラムの終わり近くにある別の大量のコードは、最終スコアの印刷に関するものです。その他の興味深い点としては、#20 行目の (等しくない) 比較、65 行目の s の文字列を使用した高音の生成とPEEK70 行目のループを使用した低音の生成、および 1 つのディスプレイでのグラフィックスとテキストの混合などがあります。^[q]

5 TEXT : CALL -936 : VTAB 4 : TAB 10 : PRINT "*** BREAKOUT GAME ***" : PRINT 7 PRINT "OBJECT IS TO DESTROY ALL BRICKS WITH 5 BALLS" : FOR N = 1 TO 7000 : NEXT N 10 DIM A$ ( 20 ), B$ ( 20 ) : GR : PRINT : INPUT "HI, WHAT'S YOUR NAME? " , A$ : A = 1 : B = 13 : C = 9 : D = 6 : E = 15 : PRINT "STANDARD COLORS," ; A$ ; 20 INPUT "? " , B$ : IF B$ # "N" AND B$ # "NO" THEN 30 : FOR I = 0 TO 39 : COLOR = I / 2 *( I < 32 ) : VLIN 0 , 39 AT I 25 NEXT I : POKE 34 , 20 : PRINT : PRINT : PRINT : FOR I = 0 TO 15 : VTAB 21 + I MOD 2 : TAB I + I +1 : PRINT I ; : NEXT I : POKE 34 , 22 : VTAB 24 : PRINT : PRINT "BACKGROUND" ; 27 GOSUB 100 : A = E : PRINT "EVEN BRICK" ; : GOSUB 100 : B = E : PRINT "ODD BRICK"          
        
         
                 
                            
          ; : GOSUB 100 : C = E : PRINT "PADDLE" ; : GOSUB 100 : D = E : PRINT "BALL" ; : GOSUB 100 30 POKE34 , 20 : COLOR = A : FOR I = 0 TO 39 : VLIN0 , 39 ATI : NEXT I : FOR I = 20 TO 34 STEP 2 : TAB I +1 : PRINT I / 2-9 ; : COLOR = B : VLIN 0 , 39 AT I : COLOR = C : FOR J = I MOD 4 TO 39 STEP 4 35 VLIN J , J +1 AT I : NEXT J , I : TAB 5 : PRINT "SCORE = 0" : PRINT : PRINT : POKE 34 , 21 : S = 0 : P = S : L = S : X = 19 : Y = 19 : X = 19 40 COLOR = A : PLOT X , Y / 3 : X = 19 : Y = RND ( 120 ) : V = -1 : W = RND ( 5 ) -2 : L = L +1 : IF L > 5 THEN 140 : TAB 6 : PRINT "BALL #" ; L :             
             
                    
 印刷: I = 1から100の場合: GOSUB 200 : NEXT I : M = 1 : N = 0 50 J = Y + W : IF J >= 0かつJ < 120の場合60 : W =- W : J = Y : I = 1から6の場合: K = PEEK ( -16336 ) : NEXT I 55 IF PEEK ( -16287 )> 127の場合SW = 1 - SW 60 I = X + V : IF I < 0 の場合400 : GOSUB 200 : COLOR = A : K = J / 3 : IF I > 39 の場合70 : IF SCRN ( I , K )= A の場合90 : IF I の場合120 : N = N +1 : V =( N > 9 ) +1 : W =( K - P )* 2-5 : M = 1 65 Z = PEEK ( -16336 ) - PEEK ( -16336 )- PEEK ( -16336 ) - PEEK ( -16336 ) - PEEK ( -16336 )- PEEK ( -16336 ) : GOTO 90 70 FOR I = 1から6の場合: M = PEEK ( -16336 ) :
                
    
                        
     
      NEXT I : I = X : M = 0 80 V =- V 90 PLOT X 、Y / 3 : COLOR = E : PLOT I 、K : X = I : Y = J : GOTO 50 99 PRINT "INVALID. REENTER" ; 100入力"COLOR (0 TO 15)" 、E : E < 0またはE > 15の場合99 :戻り値120 IF Mの場合V = ABS ( V ) : VLIN K / 2 * 2 、K / 2 * 2+1 AT I : S = S + I / 2-9 : VTAB 21 : TAB 13 : Sを印刷123 Q = PEEK ( -16336 ) - PEEK ( -16336 )- PEEK ( -16336 ) - PEEK ( -16336 )- PEEK ( -16336 ) - PEEK ( -16336 )- PEEK ( -16336 ) - PEEK ( -16336 ) - PEEK ( -16336 ) 124 IF S < 720 THEN 80 130 PRINT "おめでとうございます。勝ちました。" : GOTO 150 140 PRINT "あなたのスコア " ; S ; " は " ; です。: GOTO 141 + S / 100 141 PRINT "ひどいです。" : GOTO 150 142 PRINT "ひどいです。" : GOTO 150 143 PRINT "悪いです。"   
 
         
  
         
               
   
    
    
    
    
    
  : GOTO 150 144印刷「普通」: GOTO 150 145印刷「良好」: GOTO 150 146印刷「非常に良好」: GOTO 150 147印刷「良好」: GOTO 150 148印刷「ほぼ完璧」150印刷「同じ色」; : GOTO 20 200 IF SW THEN 220 : Q =( PDL ( 0 ) -5 )/ 6 : IF Q < 0 THEN Q = 0 205 IF Q >= 34 THEN Q = 34 : COLOR = D : VLIN Q , Q +5 AT 0 : COLOR = A : IF P > Q THEN 210 : IF Q THEN VLIN 0 , Q -1 AT 0 : P = Q : RETURN 210 IF P = Q THEN RETURN : IF Q # 34 THEN VLIN Q +6 , 39 AT 0 : P = Q : RETURN 220 Q =( Y -5 )/ 3 + RND ( 3 )* SGN ( W )*( X < 10 AND V < 0 ) : IF Q < 0 の場合、Q = 0 : GOTO 205 400 FOR I = 1から80の場合、Q = PEEK ( -16336 ) : NEXT I : GOTO 40