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
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
110 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 120 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 130 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 140 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 150 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 160 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 170 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 180 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 190 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 200 REM オマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナーオマエモナー 210 LIST
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
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
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 オ,マ,エ,モ,ナ,ー," "
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 : ナイコンさん[sage] : 01/12/22 18:55
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
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 IF C = 100 THEN END 170 X=0:Y=Y+3 180 IF Y > 23 THEN Y=23:PRINT 190 GOTO 60
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
お前モナーでキータッチ 半角全角ひらカタランダムです 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
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
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[sage] : 01/12/26 10:34
あう、88の13行にバグ発見(T_T) 13 IF Y$="Y" OR Y$="y" THEN 1 です。
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
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! ","サイコー "
1000 CLS 3 : A = 400 : B = 8000 : C = 100 1100 FOR Z = 1 TO C 1200 FOR X = 1 TO 7 1300 COLOR X : LOCATE 15,15 : PRINT "キタ (゚∀゚) !!!!!" 1400 FOR Y = 1 TO A : NEXT Y 1500 COLOR X : LOCATE 15,15 : PRINT "キタ ━(゚∀゚)━ !!!!!" 1600 FOR Y = 1 TO A : NEXT Y 1700 COLOR X : LOCATE 15,15 : PRINT "キタ ━━(゚∀゚)━━ !!!!!" 1800 FOR Y = 1 TO A : NEXT Y 1900 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━(゚∀゚)━━━ !!!!!" 2000 FOR Y = 1 TO A : NEXT Y 2100 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━━(゚∀゚)━━━━ !!!!!" 2200 FOR Y = 1 TO A : NEXT Y 2300 COLOR X : LOCATE 15,15 : PRINT "キタ━━━━━━(゚∀゚)━━━━━━ !!!!!" 2400 BEEP 2500 FOR Y = 1 TO B : NEXT Y 2600 NEXT X 2700 NEXT Z 2800 END
202 : ナイコンさん[sage] : 02/09/29 13:49
1000 CLS 3 : A = 400 : B = 8000 : C = 100 1100 FOR Z = 1 TO C 1200 FOR X = 1 TO 7 1300 COLOR X : LOCATE 15,15 : PRINT "キタ (゚∀゚) !!!!!" 1400 FOR Y = 1 TO A : NEXT Y 1500 COLOR X : LOCATE 15,15 : PRINT "キタ ━(゚∀゚)━ !!!!!" 1600 FOR Y = 1 TO A : NEXT Y 1700 COLOR X : LOCATE 15,15 : PRINT "キタ ━━(゚∀゚)━━ !!!!!" 1800 FOR Y = 1 TO A : NEXT Y 1900 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━(゚∀゚)━━━ !!!!!" 2000 FOR Y = 1 TO A : NEXT Y 2100 COLOR X : LOCATE 15,15 : PRINT "キタ ━━━━(゚∀゚)━━━━ !!!!!" 2200 FOR Y = 1 TO A : NEXT Y 2300 COLOR X : LOCATE 15,15 : PRINT "キタ━━━━━━(゚∀゚)━━━━━━ !!!!!" 2400 BEEP 2500 FOR Y = 1 TO B : NEXT Y 2600 NEXT X 2700 NEXT Z 2800 END