没頭しすぎることなく

てんびんつなわたりでこれまでどおり。

論理思考は失われてないんですな。あとは…もっと稚拙を感じさせない出来にしたい、できうることならば！

うーん

自分から正義の成分が抜け出ちゃってる感じがするんですよ。

今はそれに耐える時期かなと。完全におちずに。

むむむ

3 INPUT PROMPT "いくつめからだった？":C
5 DIM WORD$(255,8)
10 INPUT PROMPT "なにをおしえてくれるの？":A$
20 LET CHEC$="0000000"
30 LET R=INT(RND*7)+1
40 IF CHEC$(R:R)="1" THEN GOTO 30 ELSE GOTO 50
50 IF R=1 THEN GOTO 60 ELSE GOTO 100
60 PRINT A$;"ってなに？"
70 INPUT B$
80 GOSUB 1000
90 LET CHEC$(1:1)="1"
95 IF CHEC$="1111111" THEN GOTO 604
99 GOTO 30
100 IF R=2 THEN GOTO 110 ELSE GOTO 200
110 PRINT A$;"ってどんなおおきさ？"
120 INPUT B$
130 GOSUB 1000
140 LET CHEC$(2:2)="1"
150 IF CHEC$="1111111" THEN GOTO 604
160 GOTO 30
200 IF R=3 THEN GOTO 210 ELSE GOTO 300
210 PRINT A$;"ってどんなかたち？"
220 INPUT B$
230 GOSUB 1000
240 LET CHEC$(3:3)="1"
250 IF CHEC$="1111111" THEN GOTO 604
260 GOTO 30
300 IF R=4 THEN GOTO 310 ELSE GOTO 400
310 PRINT A$;"ってどんなはやさ？"
320 INPUT B$
330 GOSUB 1000
340 LET CHEC$(4:4)="1"
350 IF CHEC$="1111111" THEN GOTO 604
360 GOTO 30
400 IF R=5 THEN GOTO 410 ELSE GOTO 500
410 PRINT A$;"ってどんないろ？"
420 INPUT B$
430 GOSUB 1000
440 LET CHEC$(5:5)="1"
450 IF CHEC$="1111111" THEN GOTO 604
460 GOTO 30
500 IF R=6 THEN GOTO 510 ELSE GOTO 600
510 PRINT A$;"ってどんなにおい？"
520 INPUT B$
530 GOSUB 1000
540 LET CHEC$(6:6)="1"
550 IF CHEC$="1111111" THEN GOTO 604
560 GOTO 30
600 IF R=7 THEN GOTO 610 ELSE GOTO 650
604 INPUT PROMPT "もっとおしえてくれる？":C$
605 IF C$="うん" OR C$="いいよ" THEN GOTO 607
606 GOTO 1221
607 PRINT "ありがとう"
608 LET C=C+1
609 GOTO 10
610 PRINT A$;"ってどんなとくちょう？"
620 INPUT B$
630 GOSUB 1000
640 LET CHEC$(7:7)="1"
650 IF CHEC$="1111111" THEN GOTO 604
660 GOTO 30
1000 LET WORD$(C,R)=B$
1010 RETURN
1221 OPEN #1:NAME "C:\Program Files\Decimal BASIC\BASICw32\UserLib\tempo.CSV",RECTYPE INTERNAL
1222 ERASE #1
1223 LET K=C-INT(C/255)*255
1224 FOR I=1 TO K
1225 WRITE #1: I+C-1,I,WORD$(K,1),WORD$(K,2),WORD$(K,3),WORD$(K,4),WORD$(K,5),WORD$(K,6),WORD$(K,7)
1226 NEXT I
1227 CLOSE #1
1300 END

こんなもんができたが…

10 DIM WORD$(5,8),QA$(8)
20 FOR C=1 TO 5
30 FOR K=1 TO 8
40 READ WORD$(C,K)
50 NEXT K
60 NEXT C
70 DATA きゅうきゅうしゃ,くるま,おおきめ,しろい,はやい,しかくい,わからない,かんじゃさんをたすける
80 DATA ぞう,けもの,おおきい,はいいろ,のろい,やまみたいだ,くさい,はながながい
90 DATA おかあさん,おかあさん,おおきい,しろい,はやい,うつくしい,いいにおい,やわらかい
100 DATA メルヘンひじきごはん,ばか,ちいさい,ばっちい,のろい,いまいちだ,はながもげる,へんてこりんだ
110 INPUT PROMPT "なにがしりたいの？":A$
120 IF A$(1:8)=WORD$(1,1) THEN GOTO 130 ELSE GOTO 200
130 FOR C=1 TO 8
140 LET QA$(C)=WORD$(1,C)
150 NEXT C
200 IF A$(1:2)=WORD$(2,1) THEN GOTO 210 ELSE GOTO 300
210 FOR K=1 TO 8
220 LET QA$(K)=WORD$(2,K)
230 NEXT K
300 IF A$(1:5)=WORD$(3,1) THEN GOTO 310 ELSE GOTO 400
310 FOR C=1 TO 8
320 LET QA$(C)=WORD$(3,C)
330 NEXT C
400 IF A$(1:10)=WORD$(4,1) THEN GOTO 410 ELSE GOTO 500
410 FOR K=1 TO 8
420 LET QA$(K)=WORD$(4,K)
430 NEXT K
500 IF MID$(A$,CC,4)="ってなに" THEN PRINT QA$(1);"は";QA$(2);"だよ" ELSE GOTO 505
502 GOTO 1500
505 IF MID$(A$,CC,7)="どんなおおきさ" THEN PRINT QA$(1);"は";QA$(3);"よ" ELSE GOTO 600
510 GOTO 1500
600 IF MID$(A$,CC,5)="どんないろ" THEN PRINT QA$(1);"は";QA$(4);"よ" ELSE GOTO 700
610 GOTO 1500
700 IF MID$(A$,CC,6)="どんなはやさ" THEN PRINT QA$(1);"は";QA$(5);"よ" ELSE GOTO 800
710 GOTO 1500
800 IF MID$(A$,CC,6)="どんなかたち" THEN PRINT QA$(1);"は";QA$(6);"よ" ELSE GOTO 900
810 GOTO 1500
900 IF MID$(A$,CC,6)="どんなにおい" THEN PRINT QA$(1);"は";QA$(7);"よ" ELSE GOTO 1000
910 GOTO 1500
1000 IF MID$(A$,CC,8)="どんなとくちょう" THEN PRINT QA$(1);"は";QA$(8);"よ" ELSE GOTO 1100
1010 GOTO 1500
1100 LET CC=CC+1
1200 IF CC>=LEN(A$) THEN GOTO 1300 ELSE GOTO 1400
1300 FOR C=1 TO 1000
1301 FOR K=1 TO 64
1302 NEXT K
1303 NEXT C
1310 PRINT "ねえほかのこと"
1350 GOTO 110
1400 GOTO 500
1500 INPUT PROMPT "もっときいてくれる？":B$
1600 IF B$="うん" OR B$="いいよ" THEN GOTO 1760
1700 IF B$="ううん" OR B$="やめる" THEN GOTO 1800
1750 PRINT "じゃあつづけちゃうよ"
1760 LET CC=1
1770 GOTO 110
1800 END

なにがしりたいの？ぞうってどんなかたち？
ぞうはやまみたいだよ
もっときいてくれる？うん
なにがしりたいの？きゅうきゅうしゃってどんなとくちょう？
きゅうきゅうしゃはかんじゃさんをたすけるよ
もっときいてくれる？うん
なにがしりたいの？メルヘンひじきごはんってなに？
メルヘンひじきごはんはばかだよ
もっときいてくれる？ううん

※そのうち消すかも。まあこのくらいはオープンにしてもいいかな…なやみどこなわけすよ。