ViVi Home > パズル・ボードゲーム > Tiny BASIC v2.x
Tiny BASIC は1970年台に流行した言語で、BASIC言語の仕様を制限し、小さなPC(当時はマイコンと呼ばれた)でも簡単に動作できるようにしたものです。
本アプリは、その Tiny BASIC でコードを記述し、実行できる環境です。
ver 2.x になり、以下の機能を追加しています。
BASIC は入力行の先頭が数字の場合は、それを行番号とみなし、入力された行をソースコードとして保存します。
ソースコードは基本的には行番号の順に実行されます。
行番号無しの行は命令として実行されます。
行番号のみを入力した場合は、その行が削除されます。
「EDIT 行番号」と入力すると、指定行が入力行に表示され、編集可能になります。
REM または ' | REM または ' 以降はコメントとして無視されます。 |
CLS | テキスト画面をクリアします。グラフィックスをクリアしたい場合は HGR または TEXT を使用します。 |
HGR | |
TEXT | |
変数名=式 | |
PRINT 式{, ...} | 式の値を画面に表示し、改行します。改行したくない場合は、最後に「;」を記述します。 |
INPUT 変数名{,...} | |
IF 式 THEN 行番号 | |
FOR 変数名=式1 TO 式2 {STEP 式3} | |
NEXT |
10 PRINT "HELLO, WORLD"
10 FOR I = 1 TO 100 20 PRINT I 30 NEXT
100 INPUT "A=";A0 110 INPUT "B=";B0 120 IF A0 < B0 THEN 160 130 A = A0 140 B = B0 150 GOTO 180 160 A = B0 170 B = A0 180 R = MOD(A,B) 190 IF R = 0 THEN 230 200 A = B 210 B = R 220 GOTO 180 230 PRINT "GCM(";A0;",";B0;") = ";B
実行結果:
100 HGR 110 FOR I=1 TO 100 120 HCOLOR = &H1000000 * RND 130 X = 800 * RND 140 Y = 800 * RND 150 HPLOT TO X,Y 160 NEXT
実行結果:
100 HGR 110 SHOW TURTLE 120 HCOLOR=&H00FF00 130 BACK 300 140 FOR I=1 TO 36 150 FORWARD 600 160 RIGHT 170 170 NEXT
実行結果:
100 HGR 110 SHOW TURTLE 120 HCOLOR=&H00FF00 130 LEN=10 140 FOR I=1 TO 100 150 FORWARD LEN 160 RIGHT 88 170 LEN = LEN + 5 180 NEXT
実行結果:
100 SHOW TURTLE 110 HCOLOR=&H00FF00 120 STEP = 10 130 DEPTH = 5 140 ANGLE = 90 150 GOSUB 170 160 END 170 IF DEPTH <= 0 THEN RETURN 180 RIGHT ANGLE 190 DEPTH = DEPTH - 1 200 ANGLE = -ANGLE 210 GOSUB 170 220 FORWARD STEP 230 ANGLE = -ANGLE 240 LEFT ANGLE 250 GOSUB 170 260 FORWARD STEP 270 GOSUB 170 280 LEFT ANGLE 290 FORWARD STEP 300 ANGLE = -ANGLE 310 GOSUB 170 320 ANGLE = -ANGLE 330 RIGHT ANGLE 340 DEPTH = DEPTH + 1 350 RETURN
実行結果: