なにっ懲りずに千栄子をほめるのか。

千栄子は国語で学年トップをとったことがあって

おれとったことない。ベストテンならある。はず。それでも東大模試では千位以内に入ってもう少しで冊子に載りそうなこともあったから

千栄子は国語に限っては東大クラス・ＩＣＵクラスというわけ。ここがな…


かつ千栄子は体力運動能力も悪くないのだよ。




どうです。

旧エディターじゃないと出せないよ！

金ヶ崎マラソン

おれは鈍足でならしていた。

少しはスタミナついたかな。諸事情により今回（６月１日　に体力調整は難しいと思うのだが、

もう走れない？千栄子の代わりといってはなんだが

５ｋｍくらいは走れるおれであろうかなと。走り出すかもしれない。ただいまくるぶし挫傷中。


千栄子は長距離ランナーだった。

世相

異様を呈している

それも全世界的に。

常失わず。それしかない今。

小沢先生起訴相当

ええ～っどうすればいいのお～っ

ゴホン


切れる切り札がまたできたということなのでは…。

メルヘンひじきごはんに何が起こったか

たいへんに精神を揉まれたっ

山は越えたがダメージはでかいかもしれない。はなからボロボロだった状態にさらにだめをおされたかんじ

しかしてなおふてぶてしくはなったかもね。動じないことはいいことなんでしょうか。千栄子はやっぱしかわいい。

kamui

今ごきげんは

そんなに悪くないらしいのである。

没頭しすぎることなく

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

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

うーん

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

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

むむむ

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

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

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

いちおうすることはみつかった。

くびつながったかな？

逃げかニューディール

3 OPTION BASE 0
5 DIM SEG$(255),DEV(255)
7 LET DEV(0)=0
8 LET J=1
9 LET K=1
10 INPUT A$
20 LET LA=LEN(A$)
30 FOR I=1 TO LA
40 LET SEG$(I)=MID$(A$,I,1)
50 IF SEG$(I)="が" THEN LET DEV(J)=I ELSE GOTO 70
60 LET J=J+1
70 NEXT I
75 LET DEV(J)=LA
90 LET SEG$(K)=MID$(A$,K,1)
92 IF K=DEV(C) THEN PRINT "　";
100 PRINT SEG$(K);
102 IF K=DEV(C) THEN PRINT "　"; ELSE GOTO 120
105 LET K=K+1
110 GOTO 90
120 LET C=C+1
125 LET K=K+1
127 IF K>LA THEN GOTO 140
130 GOTO 90
140 END

凍りついた砂

そういう大地を裸足で歩きとおせるか


そんな今である。おれの持ち味はほぼなにもかはぎとられた上で。慟哭する大地はするだけまし。