昔作ったプログラムをこっそり置いてくスレ [無断転載禁止]©2ch.net
1 開式の辞
2 校歌斉唱
3 卒業証書授与
4 学校長式辞
5 送辞
6 答辞
7 仰げば尊し 斉唱
8 閉式の辞 100 STOP OFF
110 INPUT a$
120 BEEP
130 PRINT "Syntax Error"
140 PRINT "Ok"
150 GOTO 110 ピーーーーーーギョーーーギョーギョーーーーーーギョーーーギョーギョー
ンギョーーーギョーギョーピーーーーーーピーーーギョーーー
ギョギョーーピーギョーーーーーーーーーーーーピーーーーー
カセットテープで置いておきますね >>13
むかし、ニッポン放送の生番組で
MSXのプログラムデータをそのまま放送したことがあったね
かなり大胆な試みだった
録音してロードしたら
ちゃんと動いたよ 整数BASIC対応ベンチマーク
(変数が-32768~32767しか扱えないBASIC:例CASIO PV-2000)
MSX系でいけるはず。
100 'PAI Montecalro
105 CT=0:COLOR 1,14:CLS
110 FOR I=0 TO 10000
120 X=RND(100):Y=RND(100)
130 PR=X*X+Y*Y
140 COLOR 15
150 IF PR<10000 THEN CT=CT+1:COLOR RND(13)+1
160 LOCATE X/5,Y/5:PRINT ”*”;
170 NEXT
180 LOCATE 1,1:PRINT "PAI*10000";CT*4
200 COLOR 1,4:END 10 PRINT"SEX ";
20 GOTO 10 >>21
1 PRINT"大晦日は";
2 FOR X=1 TO 107
3 PRINT X;"回突いて"
4 NEXT
5 PRINT"煩悩の数まで突いた瞬間、お寺の鐘と一緒にフィニッシュ";