日テレ「午前0時の森」でMSX特集、MSX-BASICを解説

天ぷらの揚げる音

  • 「天ぷらの揚げる音」を打ち込んで再現&プログラムの解説
10 SOUND8,15:B=RND(1)*40:SOUND0,B:SOUND 0,0:GOTO10

逆さ富士

1 COLOR15,5,1:SCREEN5
2 FORA=70TO185:C=RND(1)*50:LINE(A,0)-(A,C),15:NEXT:FORB=0TO255STEP255:CIRCLE(B,0),100,7,,,.7:PAINT(B,0),7:NEXT:FORD=0TO255:E=RND(1)*30:LINE(D,90)-(D,90-E),12:NEXT:LINE(0,90)-(255,220),7,BF
3 X=RND(-TIME):FORF=0TO89:G=G+1:H=H-1:X=RND(1)*20:COPY(X,G)-(255,G)TO(0,H+180):NEXT
4 H=0:G=0:GOTO3
  • カセットテープからプログラムをロード
  • Syntax errorが出たのでプログラムを修正
  • さらにSyntax errorが出たので別のMSXでディスクからプログラムをロード
    • ミスではあるものの、プログラムを打ち込んでもエラーが出るという当時よくあった事の再現になった
  • 「逆さ富士」を描画するプログラムを実行&解説
  • MSXPenで実行

ゲーム

ags.indiesj.com

  • このゲーム、および改造版をプレイ
  • BASICなので自由に改造できることの説明

関連