使用機種: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 :01/12/20
使用機種:MSX(多分全機種OK) タイトル:BASICで自己書き換え 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 :01/12/21
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 :01/12/22
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 :01/12/22
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 ”オマエモナー”に混ざって”オマエガナー”が出て来ますので タイミング良く「2」を押して下さい。(ザカリテゲーム) 難易度は適当にjのループ数を変更して下さい。(藁
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 :01/12/22
しまった!色番号0対策忘れた・・・・鬱。
38 :01/12/22
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 :01/12/22
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 :01/12/24
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 :01/12/25
SP-5030のカーソル移動記号などはどう表記したものかな〜。
81 :01/12/25
お前モナーでキータッチ 半角全角ひらカタランダムです 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 :01/12/26
あう、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
新作です。 使用機種:MSX2以降 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 :01/12/26
か
96 :01/12/26
Abort Ready
97 :01/12/26
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 :01/12/28
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 ","(ワラ ","(・w・)V " 110 DATA ">>1サーン! ","ヤメレ ","ウプ キボンヌ ","アボーン ","(>ω<)Σガーン " 120 DATA "(・∀・)イイ ","ワショーイ ","(プ ","2チャンネラ ","DO-YO! ","サイコー " :FOR I=1 TO 100:PRINT"オマエモナー";:NEXT I:END 1行プログラム
99 :01/12/28
>>98 プログラムにバグは憑き物である。 プログラムを打ち込んだあと充実感に浸りながらRUN!ピー!ガックーン、ナヌー、オノレ! この脱力感と怒りがたまらんのね。 20行目C$(9)→C$(16)でした。 以下は消し忘れでした(爆 1行プログラム 10 FOR I=1 TO 100:PRINT"オマエモナー";:NEXT I:END スマソ