X



トップページ昔のPC
24コメント3KB
昔作ったプログラムをこっそり置いてくスレ [無断転載禁止]©2ch.net
0001ナイコンさん2016/10/28(金) 05:46:28.45
機種は問わないので、置いてってね。
0007ナイコンさん2016/10/29(土) 10:32:23.48
1 開式の辞
2 校歌斉唱
3 卒業証書授与
4 学校長式辞
5 送辞
6 答辞
7 仰げば尊し 斉唱
8 閉式の辞
0008ナイコンさん2016/10/31(月) 18:28:10.01
プログラムでもなんでもないな
0009ナイコンさん2017/02/22(水) 12:26:39.10
100 STOP OFF
110 INPUT a$
120 BEEP
130 PRINT "Syntax Error"
140 PRINT "Ok"
150 GOTO 110
0010ナイコンさん2017/03/14(火) 05:01:12.20
10 NEW
0012ナイコンさん2017/04/03(月) 02:50:43.08
>>7
4 学校長式辞 ←無駄ループで時間稼ぎ
0013ナイコンさん2017/04/04(火) 21:00:24.80
ピーーーーーーギョーーーギョーギョーーーーーーギョーーーギョーギョー
ンギョーーーギョーギョーピーーーーーーピーーーギョーーー
ギョギョーーピーギョーーーーーーーーーーーーピーーーーー

カセットテープで置いておきますね
0015ナイコンさん2017/10/20(金) 04:59:13.57
>>13
むかし、ニッポン放送の生番組で
MSXのプログラムデータをそのまま放送したことがあったね
かなり大胆な試みだった
録音してロードしたら
ちゃんと動いたよ
0016ナイコンさん2018/06/30(土) 17:37:52.03
整数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
0017ナイコンさん2018/07/24(火) 13:26:19.19
BEEP
0020ナイコンさん2022/05/15(日) 21:24:16.52
10 MOTOR:RUN
0021ナイコンさん2022/12/11(日) 18:23:19.42
10 PRINT"SEX ";
20 GOTO 10
0022ナイコンさん2022/12/17(土) 05:11:26.39
>>21
1 PRINT"大晦日は";
2 FOR X=1 TO 107
3 PRINT X;"回突いて"
4 NEXT
5 PRINT"煩悩の数まで突いた瞬間、お寺の鐘と一緒にフィニッシュ";
0023ナイコンさん2023/02/26(日) 18:06:34.89
1 motor:run
レスを投稿する


ニューススポーツなんでも実況