BASIC(1964)

講義資料 PDF
Chipmunk Basic を使う

事前準備: Chipmunk Basic のインストール

http://www.nicholson.com/rhn/basic/からChipmunk Basic for MS Windows2000/XPを保存する。
ダウンロードしたzipファイル(w32cbas365b6.zip) をディレクトリ付きで解凍する。(任意の解凍ソフト)

Chipmunk Basicの実行

インストールした basic.exe を実行。
Basicインタープリタ上で次のコマンドを入力
```
print "Hello World!"
```
出力結果
```
Hello World!
```
終了する
```
exit
```
byeでもquitでも良い

BASIC プログラム例

100 PRINT "Hello, World."
110 PRINT "Hello, ";
120 PRINT "World!"
130 END

LET

100 LET A = 10
120 LET B = A + 10
130 LET C = A * B
140 LET S$ = "HELLO"
150 PRINT A,B,C
160 PRINT S$
170 END

INPUT

100 PRINT "Enter number";
110 INPUT A
120 PRINT "Enter string";
130 INPUT S$
140 PRINT A
150 PRINT S$
160 END

100 LET A = 10
110 IF A = 10 THEN
120 PRINT "A IS 10"
130 ENDIF
140 LET B = 20
150 IF B = 10 THEN
160 PRINT "B IS 10"
170 ELSE
180 PRINT "B IS NOT 10"
190 ENDIF
200 IF A = 10 AND B = 20 THEN PRINT "A IS 10 AND B IS 20"
210 IF A = 10 OR B = 10 THEN PRINT "A IS 10 OR B IS 10"
220 END

FOR

100 FOR I = 1 TO 10
110 PRINT I
120 NEXT I
130 END

WHILE WEND

100 LET I = 1
110 WHILE I <= 10
120 PRINT I
130 I = I + 1
140 WEND
150 END

GOTO

100 LET I = 1
120 PRINT I
130 I = I + 1
140 IF I > 10 THEN GOTO 160
150 GOTO 120
160 END

GOSUB RETURN

100 PRINT "START"
110 GOSUB 200
120 PRINT "NEXT"
130 GOSUB 200
140 PRINT "FINISH"
150 GOTO 300
200 PRINT "SUBROUTINE"
210 RETURN
300 END

REM

100 REM ************
110 REM * COMMENTS *
120 REM ************
130 PRINT "REM MEANS REMARKS (COMMENTS)"
140 END

RND

100 FOR I = 1 TO 10
110 LET R = RND(10)
120 PRINT R
130 NEXT I
140 END

SAVE (プログラムを保存)
```
SAVE "TEST.BAS"
```
場所は、basic.exeと同じディレクトリ
LOAD (プログラムをファイルから読み込む)
```
LOAD "TEST.BAS"
```
場所は、basic.exeと同じディレクトリ

課題

じゃんけん三本勝負ゲームをBASICで作る
プログラム流れ
1. コンピュータの手として0-2の間の乱数を作る
2. ユーザの手として、0-2の数値を入力
3. ユーザの手とコンピュータの手を表示
4. どちらかが勝ったを表示
5. あいこの場合、もう一度
6. ３回勝敗か決まったら、ユーザの勝ち数、コンピュータの勝ち数を表示し、終了。
三すくみならば、ジャンケンでなくても良い。(例:剣->弓->魔法->剣)

実行例 (ユーザ入力は青で表示)

>run
Enter Hand(Stone=0,Scissors=1,Paper=2)? 0
Player=Stone
Computer=Paper
Computer wins!
Enter Hand(Stone=0,Scissors=1,Paper=2)? 2
Player=Paper
Computer=Stone
Player wins!
Enter Hand(Stone=0,Scissors=1,Paper=2)? 1
Player=Scissors
Computer=Scissors
Tie. Again.
Enter Hand(Stone=0,Scissors=1,Paper=2)? 1
Player=Scissors
Computer=Paper
Player wins!
Player wins 2
Computer wins 1
>

BASICソースコード提出先メール表題: BASIC