使用機種：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
>>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
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 ”オマエモナー”に混ざって”オマエガナー”が出て来ますので タイミング良く「２」を押して下さい。（ザカリテゲーム） 難易度は適当にｊのループ数を変更して下さい。（藁
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 オ,マ,エ,モ,ナ,ー," "
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 もうちょっと凝ってみたい気もするが、とりあえず。
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
すまない。 >>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 サインカーブを描いて"ｵﾏｴﾓﾅｰ"が移動します。
使用機種：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
>>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はオフの方向で。
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 です。
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
新作です。 使用機種：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 ｽﾏｿ
