第１回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ

1 ：01/12/20 ～最終レス：10/11/07: 毎年恒例となった第１回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄを開催するヨ！
かつてやった（であろう）ｸﾀﾞﾗﾈｰ!!プログラムやｸﾀﾞﾗﾈｰ!!テクニックを
再びここで披露して下さい。
目的：画面上に１００回「ｵﾏｴﾓﾅｰ」と表示させる。
　　　特例としてカナが使えない機種は「OMAEMONA-」でも良い。
使用機種：不問
使用言語：ＢＡＳＩＣ限定（各機種の方言の使用は可）
条件：プログラムコードが長くならないように注意。
　　　（省略されました・・全てを読むにはここを押してください）が
　　　出てしまったら、そのエントリーは無効。
評価：綺麗なソースやアルゴリズムだけではなく、実行したときの芸術性
　　　なども評価の対象とする。
　　　表示１回毎に色を変えたり音を出したり等、演出を凝らすのは
　　　構わない。各自工夫してプログラムすること。
　　　ネタ歓迎！。
エントリーする人は、動作機種を（ものによっては何ＢＡＳＩＣかも）明記してくれ。
エントリーに対するレスなんかも大いにしちゃって！。もりageて行こう！
ﾋﾞｸｰﾘするようなヤツ期待してます！

2 ：: 使用機種：PC-8801 (N88-BASICﾄｶ)
100 CLS:CONSOLE 0,25,0,1
110 CNT=0
120 COLOR (CNT MOD 7)+1
130 PRINT "ｵﾏｴﾓﾅｰ ";
140 CNT=CNT+1
150 IF CNT<100 THEN GOTO 120
160 END
まずはオーソドックスに。
3 ：: 使用機種：ＭＳＸ（多分全機種ＯＫ）
タイトル：ＢＡＳＩＣで自己書き換え
10 DATA "0023800A00A0200F1C3A822049EF1220"
20 DATA "D9200F643A9122B5CFB4D3C52D20223B"
30 DATA "3A83000000"
40 AD=32767:FORI=1TO3:READ A$
50 FOR J=1 TO LEN(A$)/2
60 POKE AD+J,VAL("&H"+MID$(A$,J*2-1,2))
70 NEXT:AD=AD+16:NEXT:RUN
4 ：: >>2-3
涙が出るほど懐かしい～
5 ：: MSXで作った1行スキーゲームです。9年前の自信作。
ParaMSXというエミュで動作確認できました。
http://my.dreamwiz.com/sharksym/
1 SCREEN0:WIDTH40:KEYOFF:COLOR2,0:CLEAR:
DEFINTA-Z:X=219:FORA=0TO1STEP0:LOCATERND
(1)*37,25:PRINT"AAA":X=X+(STICK(0)=3)*(X
<238)-(STICK(0)=7)*(X>200):IFVPEEK(X)=32
THENVPOKE(X),88:P=P+1:NEXTELSEPRINTP;"po
ints."
6 ：: 使用機種:PC-6001mkII(N60m-BASIC)
10 CLS
20 FOR I = 1 TO 100
30 ? "ｵﾏｴﾓﾅｰ"
40 TALK "F2 OMAEMONA-."
50 NEXT I
60 END
しゃべらせてみました。
7 ：: >>1
毎年恒例第１回ってのにﾜﾗﾀよ
8 ：: うがぁ！目的が限定されていたのかぁ！
すいません。。エントリー取り消してください。。。（恥
9 ：: しかも＠８０じゃなくて＠５だし（鬱
大人しく他の人のソース見ますです。。。。
>>6
確か男の声と女の声を切り替えられませんでしたっけ？
10 ：: >>2の50行をみて、こんなやりかたあるんだぁ。と思ったのは私だけかな？
11 ：: あぁぁ。涙が出るほど懐かしいよ～！
12 ：: 10 SCREEN0:WIDTH40:KEYOFF:COLOR4,1,1:FORI=0TO1:PRINT"BABEL ";:I=0:NEXT
13 ：: 度々すいません。リベンジします。
ParaMSXはJIS文字が使えないので動作確認は
できませんが、動くと思います。
1 SCREEN0:WIDTH40:KEYOFF:COLOR2,0:CLEAR:
DEFINTA-Z:X=219:B=1:FORA=0TO1STEP0:LOCAT
ERND(1)*37,25:PRINTMID$("ﾓﾅｰｵﾏｴ",(B+1)/2
*3+1,3):X=X+(STICK(0)=3)*(X<238)-(STICK(
0)=7)*(X>200):IFVPEEK(X)=32THENVPOKE(X),
88:P=P+1:NEXTELSEPRINTP;"points."
>>12
パトレイバーでしたっけ？（藁
14 ：: >>6
100回ループするのが先か、STOPキーを押してしまうのが先か・・・。
忍耐力を要求されるな。
15 ：: PC-98(N88BASIC)ちょっとひねってみた
10 CLS 3
20 FOR I=0 TO 99
30 PRINT CHR$(&HB5)+CHR$(&HCF)+CHR$(&HB4)+CHR$(&HD3)+CHR$(&HC5)+CHR$(&H2D)+CHR$(&H13)
40 NEXT
16 ：: 10　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
20　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
30　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
40　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
50　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
60　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
70　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
80　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
90　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
100　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
110　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
120　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
130　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
140　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
150　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
160　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
170　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
180　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
190　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
200　?"ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　ｵﾏｴﾓﾅｰ　"
17 ：: >>16
力技ですなｧ
18 ：: 10 CLS:WIDTH 80,25
20 X=20:Y=12
30 FOR I=1 TO 100
40 LOCATE X,Y : PRINT "ｵﾏｴﾓﾅｰ";
50 A$=INKEY$ : IF A$="" THEN 50
60 LOCATE X,Y : PRINT "　　　";
70 X=X+(A$="4")-(A$="6")
80 Y=Y-(A$="2")-(A$="8")
90 NEXT
手抜きしてるから端にいくとエラーで止まる
19 ：: 見りゃわかる人が多いと思いますが、
使用機種＆使用したBASICも書いてください。
20 ：: ｽﾏｿ
N88BASICです。
21 ：: 実は >>1だったりもします。
>>18
INKEY$なんて何年か振りに見たヨ！。ありがとう！
22 ：: 厨房に戻ったつもりで「インキンだりぃ～！」＜絶叫
>>16 激しくワラタ
23 ：: 仕様機種：ＭＳＸ（全機種）
10 SCREEN0:WIDTH40:CLS:PRINT"ｵﾏｴﾓﾅｰ"
20 LOCATE0,20:FORI=0TO799:COLORIMOD16
30 VPOKEI,VPEEK(IMOD8):NEXT
24 ：: >>23
訂正
仕様機種：～→使用機種：～
25 ：: >>16に敬意を表して
110 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
120 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
130 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
140 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
150 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
160 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
170 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
180 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
190 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
200 REM ｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰｵﾏｴﾓﾅｰ
210 LIST
26 ：: FM-7他(F-BASIC)
10 CLS
20 I=0
30 FOR Y=0 TO 19:FOR X=0 TO 4
40 XX=X*128+((I MOD 2)*96)
50 YY=Y*10+((I MOD 2)*7)
60 SYMBOL(XX,YY),"ｵﾏｴﾓﾅｰ",2,1,I MOD 7+1,(I MOD 2)*2
70 I=I+1
80 NEXT:NEXT
90 A$=INPUT$(1)
100 END
27 ：: >>25
表示してないｼﾞｬﾝ!!と思わせといて 210行のLIST文が泣かせます。
>>26
お、SYMBOLとは考えましたね!!。懐かｽｨｰよ!!
表示もカラフルで良い感じ～。ｽﾊﾞﾗｼｲ!!
28 ：: 10 PRINT "ｺﾉﾌﾟﾛｸﾞﾗﾑﾊ 10ﾋﾞｮｳｺﾞﾆｼｮｳﾒﾂｽﾙ"
20 FOR I=0 TO 10000:NEXT
30 NEW
29 ：: 大賞はこれに決定！！
http://pc.2ch.net/test/read.cgi/i4004/1008579489/27
ﾜﾗﾀ

30 ：: >>25がいいなぁ。こんなん普通思い付かないよ（＾＾；；
31 ：: 10 CLS:N=0
20 IF 100<N THEN END
30 N=N+1:KEY0,CHR$(30,30)+"ｵﾏｴﾓﾅｰ"+CHR$(29,29,29,29,29,29,31)+"GOTO20"+CHR$(13)
# じつはテストしてない
32 ：: 10 CLS
20 FOR I=1 TO 100
20 CO=INT(RND(1)*7)+1
30 X=INT(RND(1)*26)
40 COLOR CO,0
50 LOCATE X,24:PRINT"オマエモナー"
60 NEXT I
70 END
テスト無し。
7色の「オマエモナー」が画面下の任意の位置に現れながら
ｽｸﾛｰﾙｱｯﾌﾟしていくはず。
33 ：: N88互換BASIC
www.vector.co.jp/soft/win95/prog/se055956.html
5 randomize:cls:color 3,0
10 x=rnd(1):y=int(x*255)
11 if y > 240 then 13
12 print"ｵﾏｴﾓﾅｰ ";:h=0:goto 15
13 print"ｵﾚｶﾞﾅｰ ";:h=1
15 for i=0 to 255:for j=0 to 255:next j:if h=0 and inkey$="2" then 20 else if h=1 and inkey$="2" then 21:next i
18 if h=0 then 10
20 color 4:print"ｲｯﾃﾖｼ!":end
21 color 7:print"ﾏﾝｾｰ!!":end
”オマエモナー”に混ざって”オマエガナー”が出て来ますので
タイミング良く「２」を押して下さい。（ザカリテゲーム）
難易度は適当にｊのループ数を変更して下さい。（藁
34 ：: >>32 ﾃﾞﾊﾞｯｸﾞ
行番号20が2行ある。以下に書き直し。
25 CO=INT(RND(1)*7)+1
ｽﾏｿ
35 ：: >>33
このN88BASICはマシン個体差を吸収してないかもしれないので、
ｊの空ループを更に５回程ループさせた方が良いかもしれません。
皆さん適当に改造して遊んでください。
36 ：: N-88BASIC(86)
1 cls:cl=0
7 for b=1 to 100
15 restore
87 for a=1 to 7
150 color cl
476 cl=(cl+1) and 7
1327 print a$;
6594 next
13258 next
65201 data オ,マ,エ,モ,ナ,ー," "　
37 ：: しまった！色番号０対策忘れた・・・・鬱。
38 ：: 1 cls:cl=0
7 for b=1 to 100
15 restore
87 for a=1 to 7
150 color cl
476 cl=(cl+1) and 7
698 if cl=0 then cl=1
819 read a$
1327 print a$;
6594 next
13258 next
65201 data オ,マ,エ,モ,ナ,ー," "
39 ：: >>38
行番号の付け方がステキ！
40 ：: >>23
正直MSXを使ったことがないので、VDPいじられると動作が読めないっすわｽﾏｿ。
きっと面白い効果になるんだろうなぁ。
ちゃんと空ループ入れてるのもポイント高し。
>>31
キーバッファに放り込んで自動実行させるタイプですな。HuBASIC系独特の。
で、これは本当に動く？
41 ：: N88互換BASIC
5 randomize:cls:color 7
6 for i=0 to 7:h(i)=23:next i
7 for y=0 to 23:locate 15,y:print"|";:for i=0 to 47:print " ";:next i:print"|":next y
10 for i=0 to 99:c=i mod 8:color c
20 m=int(rnd(1)*8):n=m*6:x=16+n:locate x,0:print"ｵﾏｴﾓﾅｰ"
30 for y=1 to h(m):locate x,y:print"ｵﾏｴﾓﾅｰ":locate x,y-1:print" ":next y
40 h(m)=h(m)-1:next i
50 color 7:for i=0 to 6:b$(i)="":for j=0 to 11:read a:b$(i)=b$(i)+chr$(a):next j:next i
60 for y=17 to 8 step -1
70 for i=0 to 6:locate 34,y+i:print b$(i):next i
80 next y:end
100 data 32,32,32,32,32,124,32,32,32,32,32,32
110 data 32,116,45,45,45,43,45,45,45,116,32,32
120 data 32,32,32,45,45,45,45,45,32,32,32,32
130 data 32,32,45,45,43,45,43,45,45,32,32,32
140 data 32,32,32,47,32,32,124,32,32,32,32,32
150 data 32,32,47,32,32,32,32,76,95,95,32,32
160 data 32,32,32,32,32,32,32,32,32,32,32,32
もうちょっと凝ってみたい気もするが、とりあえず。
42 ：: >>25
感動した。
欲を言えば、最終行はこれなかどう？
210 LIST 110-200
43 ：: SHARP BASIC SP-50X0の場合。
LIST
10 PRINT"Ｃ":J=53248:FORI=1TO100
20 POKEJ,166:J=J+1:POKEJ,138:J=J+1:POKEJ,165:J=J+1:POKEJ,141:J=J+1
30 POKEJ,149:J=J+1:POKEJ,191:J=J+1:POKEJ,207:J=J+1:NEXT
READY
DATA ERROR
READY
■
10行の「Ｃ」はリバース文字。(画面消去文字)
１行80カラムの制限がある。
実行すると、画面の左上から、「ｵﾏｴﾓﾅｰ」と顔キャラクタを100回表示する。
各文字は、ASCIIコードとは別系統の「ディスプレイコード」。
「DATA ERROR」の表示は、直前の「READY」でCRキーを押した時に出るお約束。
　MicrosoftBASICで言うところの「Out Of Data」。
44 ：: >>41
30行目の後ろのprint文はスペース６個です。失礼しました。
45 ：: スペースは全角て
46 ：: 5 DIM A$(99):gosub *read
10 A=int(rnd*15)
20 B=int(rnd*15)
30 C=3+int(rnd*15)
40 if int((A-1)/3)=(A-1)/3 then 50 else 10
50 if int((B-2)/3)=(B-2)/3 then 60 else 20
60 if int(C/3)=C/3 then 120 else 30
120 print A$(A);A$(B);A$(C)
130 goto 10
150 *read
160 I=1
170 read A$(I)
180 if A$(I)="ってよし" then return
190 I=I+1
200 goto 170
210 DATA ネオ麦茶が,九州で,西鉄バスを乗っ取った,ラディンが,ニューヨークで,ビルを破壊した
220 DATAオウムが,地下鉄日比谷線で,サリンをぶちまいた,キャットキラーが,一人で暴言はにゃ～んスレッドで,1000をとれなかった
230 DATA 埼玉の学生が,WinMXで,逮捕された,ひろゆきが,自宅で,警察に押し掛けられる,ってよし
47 ：: 5 data a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,
10 cls 3:color 7:width 100,30
20 dim a$(25):dim k(80):i=0:ii=0:s=80:ki=1
30 for a=1 to 26
40 read a$(i):I=i+1
50 next a
100 for k=0 to s
110 r=rnd*27
115 if r=>25 then goto 110 else goto 116
116 'print r
120 k(ii)=r:ii=ii+1
130 next k
140 for j=1 to s
150 locate j-1,y:color 4:print a$(k(j));
160 next j
200 'key
210 ke$=inkey$:if ki>80 then i=1:ki=1:ii=0:y=y+2:goto 100
220 if ke$="" then 210
230 if ke$=a$(k(ki)) then locate ki-1,y+1:color 5:print a$(k(ki));:ki=ki+1:beep:goto 210:else locate ki-1,y+1: color 2:print ke$:color 7:beep:goto 210
215 line (ki*8-8,y*16)-(ki*8,y*16+32),6,b
48 ：: width 100,30は80,25の間違い・・無くてもよし。
49 ：: >>40
>>23の動作解説してみます。
SCREEN0だと、VRAMの０番地からが画面に表示している
文字の文字コードが入ってます。
で、VRAMの0番地からに対応する個所に「ｵﾏｴﾓﾅｰ」と書いて（10行）、
残りの「ｵﾏｴﾓﾅｰ」はループまわして（20行）最初に書いた所から
文字コードを拾ってきてコピペ（30行）します。
そのときに文字色をいじることで（20行）ちょっと表示を派手にしてます。
>>3の解説いりますか？
とまぁ、解説だけではアレなんでもう1個。
動作機種：MSX（多分全機種（動作未確認））
10 'A ｰﾅﾓｴﾏｵ A
20 FORAD=32768TO32800:IFPEEK(AD)=65THEN30ELSENEXT
30 TP=AD+1:FORAD=TPTO32800:IFPEEK(AD)=65THEN40ELSENEXT
40 ED=AD-1:FORI=1TO100:FORAD=EDTOTPSTEP-1
50 PRINT CHR$(PEEK(AD));NEXT:NEXT
50 ：: >>49
ぐはぁ、誤植ﾊｹｰﾝ
50行は↓こうです。
50 PRINT CHR$(PEEK(AD));:NEXT:NEXT
51 ：: >>42
ああ、やっぱりそれで良かったですか。
LISTの文法がうろ覚えだったので、"LIST"だけにしておきました。
ところで、N60-BASICでは、プログラム中に"LIST"があると、
後に何があろうと、リストを表示した時点でプログラムが終わってしまったんですが
他のマシンでもそうだったんでしょうか？
52 ：: オーソドックスなBASICプログラム。
10 LET A = 0
20 LET A = A + 1
30 IF A = 100 THEN GOTO 100
40 PRINT "OMAEMONA-　";
50 GO TO 20
100 STOP
110 END
53 ：: >>51
Hu-BASIC系は、
10 LIST:RUN
が正常に実行できたと思う。
54 ：: >>53
X1ではダメだったような記憶がありますが、
間違ってるかも。。。
55 ：: ちょっと脱線したのでネタ振った責任をとってひとつ
PC-6001 N60-BASIC
10 REM *** ｼﾞﾝｺｳﾑﾉｳｵﾏｴﾓﾅｰ ***
20 CLS
30 FOR I=1 TO 100
40 INPUT A$
60 PRINT ">>";A$
70 PRINT "ｵﾏｴﾓﾅｰ"
80 NEXT
56 ：: >>55にﾜﾗﾀ
勝手に改造
PC-6001 N60-BASIC
10 REM *** ｼﾞﾝｺｳﾑﾉｳｵﾏｴﾓﾅｰｼﾞﾄﾞｳ　ｼﾞｻﾞｸｼﾞｴﾝ***
20 CLS
30 FOR I=1 TO 100
40 INPUT A$
50 PRINT I*2-1;"ﾅﾏｴ:ﾅｲｺﾝｻﾝ　ﾄｳｺｳﾋﾞ:";DATE$;" ";LEFT$(TIME$,5)
51 PRINT "　　　　";A$
55 PRINT I*2;"ﾅﾏｴ:ﾅｲｺﾝｻﾝ　ﾄｳｺｳﾋﾞ:";DATE$;" ";LEFT$(TIME$,5)
60 PRINT "　　　　>>";A$
70 PRINT "　　　　ｵﾏｴﾓﾅｰ"
80 NEXT
57 ：: >>56
いいアイデアだけど
Ｎ６０－ＢＡＳＩＣにはＤＡＴＥ＄、ＴＩＭＥ＄はないよ。
どっちっかつーっと、Ｎ－ＢＡＳＩＣかな？
58 ：: あららしまった。
うちのはN88でした・・・
59 ：: 高校生の頃、こんな感じのプログラムを作ったことがある。
で、DISK-BASICで自動起動
PC-9801 N88-BASIC
10 WIDTH 80,25:CLS
20 F=0:A$="■":X=0:Y=3:C=0
30 PRINT "NFC OMAEMONA-BASIC"
40 PRINT "Copyright(C) Micro$oft云々"
50 PRINT "Ok"
60 LOCATE X,Y:PRINT A$;
70 F = F + 1
80 IF F = 100 AND A$ = "■" THEN A$="　":F=0
90 IF F = 100 AND A$ = "　" THEN A$="■":F=0
100 B$=INKEY$
110 IF B$="" GOTO 60
120 IF ASC(B$) > 31 THEN LOCATE X,Y:PRINT B$;:X=X+1:IF X>79 THEN X=0:Y=Y+1
130 IF ASC(B$) = 13 THEN 150
140 GOTO 60
150 LOCATE X,Y:PRINT " ":PRINT "?ｵﾏｴﾓﾅｰ Error":PRINT "Ok":C=C+1
160 ＩＦ C = 100 THEN END
170 X=0:Y=Y+3
180 IF Y > 23 THEN Y=23:PRINT
190 GOTO 60
記憶を頼りに適当に書いたので、バグ在中かも。特にスクロール関連。
80-90行のFの判定は、カーソルの点滅のタイミングに合わせて適当に変更。

60 ：: >>559
120行でYが増えたあとYのチェックをしてないじゃん。
120 IF ASC(B$) > 31 THEN LOCATE X,Y:PRINT B$;:X=X+1:IF X>79 THEN X=0:Y=Y+1:IF Y > 23 THEN Y=23:PRINT
61 ：: 559→59だし・・・鬱
62 ：: >>54
今、X1エミュ＋Hu-Basic1.0で試したら通ったYO!
63 ：: すまない。
>>33のN88互換BASICで試してみたら、バグがあったのでさらに修正
120 IF ASC(B$) > 31 THEN LOCATE X,Y:PRINT B$:X=X+1:IF X > 79 THEN X=0:Y=Y+1:IF Y>23 THEN Y=23:PRINT;
64 ：: PC-9801 N88-BASIC
100 WIDTH 80,25:CLS
110 X=70
120 FOR I=1 TO 100
130 FOR J=1 TO 7
140 B=X+J
150 IF B > 79 THEN B=B-79
160 Y = 12 - SIN(B*10*3.14/180)*10
170 LOCATE B,Y:PRINT MID$("ｵﾏｴﾓﾅｰ ",J,1);
180 NEXT
190 X=X-1:IF X < 0 THEN X=79
200 FOR J=0 TO 50:NEXT
210 NEXT
サインカーブを描いて"ｵﾏｴﾓﾅｰ"が移動します。
65 ：: >>64
速すぎるので、適当なウェイトを入れたほうがいいかも？
66 ：: こうしてみると、不思議とN88派が多いな。
67 ：: >>66
9801を通ってきてる人は多いからね。
N60でやりたいんだけど検証環境がない。
68 ：: 無料のN88互換BASIC for windows
テキストファイルにコピペするだけで動くから楽だYO!
http://www2s.biglobe.ne.jp/~yamadai/
69 ：: >>68
よくマイクロソフトに訴えらんねーな(w
70 ：: >>69
別にソース丸写しじゃなきゃ問題ないでしょ？
ただの移植プログラムなんだし
71 ：: >>70
コードの一部分やロジックも全く流用していれば問題ないと思われ。
で流用してないの？
72 ：: >>69
言語に著作権があると思ってる人ﾊｹｰﾝ
73 ：: ロジックも流用していれば→ロジックを流用していなければ
74 ：: >>72
厨房を発見しました！
これより迎撃体制に入ります。
75 ：: >>69-74
別スレでやってちょうだい。
76 ：: >>75
オマエモナ
77 ：: >>56をさらに勝手に改造
N88-BASIC
10 REM *** ｼﾞﾝｺｳﾑﾉｳｵﾏｴﾓﾅｰｼﾞﾄﾞｳ　ｼﾞｻﾞｸｼﾞｴﾝ v1.1 ***
20 CLS
30 DIM A$(5)
40 C=0
50 FOR I=1 TO 5
60 READ A$(I)
70 NEXT
80 INPUT B$
90 PRINT 1;" ﾅﾏｴ:ﾅｲｺﾝｻﾝ　ﾄｳｺｳﾋﾞ:";DATE$;" ";LEFT$(TIME$,5)
100 PRINT "　　　　";B$
110 FOR I=2 TO 1000
120 R=INT(RND(1)*5)+1:IF 1001-I=100-C THEN R=1
130 IF C=100 THEN R=INT(RND(1)*4)+2
140 PRINT I;" ﾅﾏｴ:ﾅｲｺﾝｻﾝ　ﾄｳｺｳﾋﾞ:";DATE$;" ";LEFT$(TIME$,5)
150 PRINT " >>";I-1
160 PRINT "　　　　";A$(R)
170 IF R=1 THEN C=C+1
180 NEXT
190 PRINT " 1001 ﾅﾏｴ:1001　ﾄｳｺｳﾋﾞ:Over 1000 Thread"
200 PRINT "　　　　ｺﾉｽﾚｯﾄﾞﾊ1000ｦｺｴﾏｼﾀ"
210 PRINT " ﾓｳｶｹﾅｲﾉﾃﾞｱﾀﾗｼｲｽﾚｯﾄﾞｦﾀﾃﾃｸﾀﾞｻｲ"
220 END
230 DATA "ｵﾏｴﾓﾅｰ","ｲｯﾃﾖｼ","ﾊｧﾊｧ","ﾊｹﾞｼｸﾄﾞｳｲ","ﾜﾗﾀ"
ちゃんと"ｵﾏｴﾓﾅｰ"は100回表示されるはず。
78 ：: >>25
思わず吹き出してツバをモニタに飛ばした（藁
続いて26から見ます
79 ：: 使用機種：MSX（多分何処の国のマシンでもOK）
10 DATA "00043e0c14142400"
20 DATA "00f71212a2422f00"
30 DATA "007c117c10108d00"
40 DATA "0040e0405c800000"
50 SCREEN1:WIDTH32:CLS
60 FORI=0TO99:PRINT"ABCD";:NEXT
70 TIME=0:FORI=0TO600:I=TIME:NEXT
80 FORC=65TO68:READA$:FORI=0TO7
90 N=VAL("&H"+MID$(A$,I*2+1,2))
99 VPOKE 8*C+I,N:NEXT:NEXT
80 ：: SP-5030のカーソル移動記号などはどう表記したものかな～。
81 ：: お前モナーでキータッチ　半角全角ひらカタランダムです
N88互換BASIC　全機種OKだと思う。
10 data お,オ,ｵ,ま,マ,ﾏ,え,エ,ｴ,も,モ,ﾓ,な,ナ,ﾅ,ー,ｰ,-,お前モナー
20 I=0:dim A$(99):cls
30 read A$(I)
40 if A$(I)="お前モナー" then 60
50 I=I+1:goto 30
60 I=0:for K=1 to 6
70 R=int(rnd*5)
80 if R>2 then 70
90 Q$=Q$+A$(I+R)
100 I=I+3
110 next K
120 color 5:print Q$
130 line input Y$
140 if Y$=Q$ then color 4:print"(・∀・）ｲｲ":Q$="":goto 60 else color 2:print "違うぞゴルァもう一回打て！":color 5:goto 130
82 ：: >>79
MSXはよく分からないけど、"ABCD"のフォントを書き換えて
"ｵﾏｴﾓﾅｰ"を表示してるってことでいいのかな?
久しぶりに16進をドット絵変換したよ。
83 ：: >>81
昔ってことでカナ入力タイピングゲームもよかろう。
N88-BASIC
10 COLOR 7:CLS
20 A$="ｵﾏｴﾓﾅｰ":B$="6j5mu-"
30 T$=TIME$:E=0:LOCATE 31,12:PRINT A$;
40 FOR I=1 TO 100
50 FOR J=1 TO 6
60 COLOR 2:LOCATE 30+J,12:PRINT MID$(A$,J,1);
70 C$=INKEY$
80 IF C$="" THEN 70
90 IF C$<>MID$(B$,J,1) THEN BEEP:E=E+1:GOTO 70
100 COLOR 7:LOCATE 30+J,12:PRINT MID$(A$,J,1);
110 NEXT
120 PRINT I
130 NEXT
140 PRINT "START ";T$
150 PRINT "END ";TIME$
160 PRINT "MISS ";E
CapsLockはオフの方向で。
84 ：: >>82
そうです。
・・・なんか俺ばっかり書いてるような気がする。
鬱だ。
＃MSX-BASIC、N88-BASIC以外のBASICのコードｷﾎﾞﾝﾇ>oll
85 ：: しばらく留守にしてたけど、このスレ盛り上がってたんで安心したｰﾖ。
さすが２chらしい面白いアイディアの方向に発展してて、これからが
楽しみやねー。奇抜なのをボシュー!!。
>>84さんの言う通り、「読めﾈｰﾖ!!」級の機種依存バリバリなプログラム
見てみたいですわ。
っていうか、勝手に仕切ってるみたいでスマソ。
86 ：: X1用 Hu-BASCI (V1 or V2)
10 J=0:GOTO 1000
999 END
1000 CLS:FOR I=10 to 100 STEP 10:PRINT J+I;" PRINT ";CHR$(32);"オマエモナー";CHR$(32):NEXT
1010 J=J+1:if(J=10) then PRINT "RUN" else "GOTO 1000"
1020 KEY 0,STRING$(10,11)
動作確認していないので、動くかどうか不安ですが。
87 ：: >>86
1020行にバグ発見。正しくは、
1020 LOCATE 0,0:KEY 0,STRING$(10,11)
です。
88 ：: N60BASIC （"□"はスペース）他機種移植も容易だと思います。
1 CLS:S=0:T=0
2 FOR L=1 TO 5:LOCATE 0,L:PRINT L;":";:X(L)=20:NEXT L
3 LOCATE 0,0:INPUT "よそう□1-5";Y
4 FOR L=1 TO 100
5 R=INT(RND(1)*5)+1:X=X(R):IF X<=0 THEN 5
6 X=X-1:LOCATE X+2,R:PRINT "オマエモナー□";
7 IF X<=0 THEN S=S+1:PRINT S;"ちゃく";:IF S=1 THEN T=R
8 X(R)=X:FOR M=1 TO 1:NEXT M
9 NEXT L:LOCATE 0,7:PRINT "かち=";T;"□";
10 IF T=Y THEN PRINT "あたり!!大金もち!":GOTO 12
11 PRINT "はずれ!!大びんぼう!"
12 PRINT:INPUT "もういちど□やる?(Y/N)";Y$
13 IF Y$="Y" OR Y$="Y" THEN 1
14 END
89 ：: あう、88の13行にバグ発見(T_T)
13 IF Y$="Y" OR Y$="y" THEN 1
です。
90 ：: >>88
"大金"もち、"大"びんぼうにやられた。
91 ：: N88-BASIC(86)一応実機で確認済
10 screen 3,0:cls 3
20 for a=1 to 100
30 restore
40 for b=1 to 16
50 read x1,y1,x2,y2
60 line (x1,y1)-(x2,y2),7
70 next
80 roll 20
90 next
100 rem ---------------------------------------------
110 data 0,385,19,385, 10,380,10,399, 10,385,0,399
120 data 20,390,30,399, 20,380,38,380, 39,380,25,395
130 data 40,381,58,381, 50,381,50,399, 40,399,58,399
140 data 60,381,78,381, 60,390,78,390, 70,381,70,399, 70,399,78,399
150 data 80,385,99,385, 90,381,80,399
160 data 100,390,639,390
92 ：: WHILE 1:PRINT"ﾃｲｺｸﾊﾞﾝｻﾞｲ　";:WEND
93 ：: >>33
そのN88互換BASICの作者ってσ(▼▼;)おれの高校の時の数学の先生だったんだよなぁ
いや、ﾏﾁﾞで
東工大から富士通かどっかのプログラマやって教師になったらすぃ
エクセルのマクロで高校の図書館の蔵書管理システムつくってたなぁ
パソコンにバーコードリーダーつなげて…
大量の本にバーコード貼るの大変だったなぁ
94 ：: 新作です。
使用機種：MSX２以降
10 SCREEN 5:PSET(0,1):FORI=0TO1
20 READ A$:IF A$="ｱﾎﾞｰﾝ"THEN 40
30 I=0:DRAW A$:NEXT
40 COPY (0,0)-(143,7) TO (36,0)
50 COPY(0,0)-(200,170)TO(0,9)
60 A$=INPUT$(1)
100 DATA "R4D3L2DLD2U2RUR2D3U7D"
110 DATA "R8D3L4UDRDRDRD"
120 DATA "R7L2U5L2R8"
130 DATA "L2U2L2R4L2D7R6"
140 DATA "URU2RU4D2L3R6"
150 DATA "DR5","ｱﾎﾞｰﾝ"
95 ：: 　か
96 ：: Abort
Ready
97 ：: 10 'ﾀｲﾄﾙﾌﾞﾗｸﾗ　ﾀｲｵｳｷｼｭ N88BASIC,N88ｺﾞｶﾝBASIC
20 A=int(rnd*800)
30 B=int(rnd*600)
40 C=int(rnd*10)
50 AA=int(rnd*800)
60 BB=int(rnd*600)
70 if C>7 then 40
80 line(A,B)-(AA,BB),C,BF
90 for o=1 to 10
100 D=int(rnd*100)
110 E=int(rnd*30)
120 if D>80 or E>25 then 100
130 locate D,E:color C:print "ｵﾏｴﾓﾅｰ":next o
140 goto 20
98 ：: 10 CLS
20 DIM C$(9)
30 FOR I=0 TO 16:READ C$(I):NEXT I
40 MN=0
50 CC=INT(RND(1)*7)+1:CR=INT(RND(1)*17)
60 COLOR CC,0:PRINT C$(CR);
70 IF CR=0 THEN MN=MN+1
80 IF MN<100 THEN 50
90 END
100 DATA "ｵﾏｴﾓﾅｰ ","ｲｯﾃﾖｼ ","ﾏﾀｰﾘ ","ｻﾗｼage ","（ﾜﾗ ","（・ｗ・）V "
110 DATA ">>1ｻｰﾝ! ","ﾔﾒﾚ ","ｳﾌﾟｷﾎﾞﾝﾇ ","ｱﾎﾞｰﾝ ","（＞ω＜)Σｶﾞｰﾝ "
120 DATA "(・∀・）ｲｲ ","ﾜｼｮｰｲ ","(ﾌﾟ ","2ﾁｬﾝﾈﾗ ","DO-YO! ","ｻｲｺｰ "
:FOR I=1 TO 100:PRINT"ｵﾏｴﾓﾅｰ";:NEXT I:END
1行プログラム
99 ：: >>98
ﾌﾟﾛｸﾞﾗﾑにﾊﾞｸﾞは憑き物である。
ﾌﾟﾛｸﾞﾗﾑを打ち込んだあと充実感に浸りながらRUN！ﾋﾟｰ！ｶﾞｯｸｰﾝ、ﾅﾇｰ、ｵﾉﾚ!
この脱力感と怒りがたまらんのね。
20行目C$(9)→C$(16)でした。
以下は消し忘れでした（爆
1行プログラム
10 FOR I=1 TO 100:PRINT"ｵﾏｴﾓﾅｰ";:NEXT I:END
ｽﾏｿ
100read 1read
1read 100read TOP カテ一覧スレ一覧削除依頼 ▲ ・　次のスレ F-BASIC総合スレッド 昔のＰＣユーザーだった有名人 ここではi486は最速か？ ﾏﾝｾー古いmacﾏﾝｾー