EGO-WRAPPIN'／～Midnight Dejavu～色彩のブルース[Live]
”つつまれた独善” という バンド。
”つつまれた独善” という バンド。
10 OPTION CHARACTER KANJI
20 DIM X$(256),Y$(256)
30 INPUT A$
40 LET LA=LEN(A$)
50 FOR I=1 TO LA
60 IF ORD(MID$(A$,I,1))>=9250 AND ORD(MID$(A$,I,1))<=9331 THEN LET X$(I)="1"
70 IF ORD(MID$(A$,I,1))>=9506 AND ORD(MID$(A$,I,1))<=9588 THEN LET X$(I)="2"
80 IF ORD(MID$(A$,I,1))>9590 THEN LET X$(I)="3"
90 IF ORD(MID$(A$,I,1))<9248 THEN LET X$(I)="0"
94 IF MID$(A$,I,1)="、" OR MID$(A$,I,1)="。" THEN LET X$(I)="4"
100 NEXT I
110 LET I=1
120 LET J=1
130 LET Y$(1)=MID$(A$,1,1)
140 IF X$(I)=X$(I+1) THEN LET Y$(J)=Y$(J) & MID$(A$,I+1,1) ELSE GOTO 170
150 LET I=I+1
155 IF I>=LA THEN GOTO 200
160 GOTO 140
170 LET I=I+1
175 IF I>LA THEN GOTO 200
180 LET J=J+1
185 LET Y$(J)= MID$(A$,I,1)
190 GOTO 140
200 FOR I=1 TO J
205 IF Y$(I)="、" OR Y$(I)="。" THEN GOTO 220
210 PRINT Y$(I)&" ";
220 NEXT I
230 FOR I=1 TO LA
240 PRINT X$(I);
250 NEXT I
260 END
＃こりわ 十進ＢＡＳＩＣで書かれていまする。
＃無料でダウンロードでけますのでゼヒお求めくらさい。
＃１文２５６文字まで分解サポートします。漢字とひらがなとカタカナの節に分解するプログラム。
結果例；
? えへへ、僕ひじきだヨ。チペコの事が好きなの。
えへへ 僕 ひじきだ ヨ チペコ の 事 が 好 きなの 1114311112422213131114
＃最後の数字列は、文章の文字順にその種類がなにかの分類です ひらがな＝１ カタカナ＝２ 漢字＝３ 句読点＝４ としてあります。カギ括弧は使わないでいただきたい。まだどうなるか試してません。あと半角も使わないでネ！ゆくゆくは拡張してゆきま鶴。
＃すげえ バツサリ一刀両断に切って捨てられた 例文がきもい？
＃そんなことやってるばーいじゃないだろう？
＃こんなしょぼい段階で公表するな？
＃全部否定。ちぺこはきむづかしい。あの日が続いてるのだらう。
＃そうだって。おまえもはよせんとほんとに………だかんな！ヲレも焦るユ！
＃それは余計だそう。未だ、乙女の祈り。
まあさ、これ本気で取り組みだしたら 単語数から言ってマヅ 数年から十数年のプロジェクトだユね。そりは認める。ちぺこそんなに待てないね。
！
待つの？？？
「待ってもいいよ。」だって。ダメ。ふたりのややこが。
↑かやうに独りでばうさうすつと かならづキレまする。ちぺこのキレる そのせつな。
ややこ欲しくないの？まぁこれは怖いからこたえなくてもいいけど。
うゎ。結局あの日と今日はいうことで。ばうふうう。さわるちぺこに。
20 DIM X$(256),Y$(256)
30 INPUT A$
40 LET LA=LEN(A$)
50 FOR I=1 TO LA
60 IF ORD(MID$(A$,I,1))>=9250 AND ORD(MID$(A$,I,1))<=9331 THEN LET X$(I)="1"
70 IF ORD(MID$(A$,I,1))>=9506 AND ORD(MID$(A$,I,1))<=9588 THEN LET X$(I)="2"
80 IF ORD(MID$(A$,I,1))>9590 THEN LET X$(I)="3"
90 IF ORD(MID$(A$,I,1))<9248 THEN LET X$(I)="0"
94 IF MID$(A$,I,1)="、" OR MID$(A$,I,1)="。" THEN LET X$(I)="4"
100 NEXT I
110 LET I=1
120 LET J=1
130 LET Y$(1)=MID$(A$,1,1)
140 IF X$(I)=X$(I+1) THEN LET Y$(J)=Y$(J) & MID$(A$,I+1,1) ELSE GOTO 170
150 LET I=I+1
155 IF I>=LA THEN GOTO 200
160 GOTO 140
170 LET I=I+1
175 IF I>LA THEN GOTO 200
180 LET J=J+1
185 LET Y$(J)= MID$(A$,I,1)
190 GOTO 140
200 FOR I=1 TO J
205 IF Y$(I)="、" OR Y$(I)="。" THEN GOTO 220
210 PRINT Y$(I)&" ";
220 NEXT I
230 FOR I=1 TO LA
240 PRINT X$(I);
250 NEXT I
260 END
＃こりわ 十進ＢＡＳＩＣで書かれていまする。
＃無料でダウンロードでけますのでゼヒお求めくらさい。
＃１文２５６文字まで分解サポートします。漢字とひらがなとカタカナの節に分解するプログラム。
結果例；
? えへへ、僕ひじきだヨ。チペコの事が好きなの。
えへへ 僕 ひじきだ ヨ チペコ の 事 が 好 きなの 1114311112422213131114
＃最後の数字列は、文章の文字順にその種類がなにかの分類です ひらがな＝１ カタカナ＝２ 漢字＝３ 句読点＝４ としてあります。カギ括弧は使わないでいただきたい。まだどうなるか試してません。あと半角も使わないでネ！ゆくゆくは拡張してゆきま鶴。
＃すげえ バツサリ一刀両断に切って捨てられた 例文がきもい？
＃そんなことやってるばーいじゃないだろう？
＃こんなしょぼい段階で公表するな？
＃全部否定。ちぺこはきむづかしい。あの日が続いてるのだらう。
＃そうだって。おまえもはよせんとほんとに………だかんな！ヲレも焦るユ！
＃それは余計だそう。未だ、乙女の祈り。
まあさ、これ本気で取り組みだしたら 単語数から言ってマヅ 数年から十数年のプロジェクトだユね。そりは認める。ちぺこそんなに待てないね。
！
待つの？？？
「待ってもいいよ。」だって。ダメ。ふたりのややこが。
↑かやうに独りでばうさうすつと かならづキレまする。ちぺこのキレる そのせつな。
ややこ欲しくないの？まぁこれは怖いからこたえなくてもいいけど。
うゎ。結局あの日と今日はいうことで。ばうふうう。さわるちぺこに。
とりあえずリカバリした十進ＢＡＳＩＣいれなをす
ちぺこににつこりしてもらうんだ をれはをれの為に生きているのでなくていい。
べーだこれにパシーンでもめげんもんね
それほどにちぺこのくれるほつこり感は至宝
ン じゃ けっきょく自分の気持ちのタメカナ そこでておうとう ナ。
ちぺこは妥協お知らないをんな。ひきづってここまできたかひきづられたか。
今日は○でダメ りゆうがＡｌｉｃｅる。
ちぺこににつこりしてもらうんだ をれはをれの為に生きているのでなくていい。
べーだこれにパシーンでもめげんもんね
それほどにちぺこのくれるほつこり感は至宝
ン じゃ けっきょく自分の気持ちのタメカナ そこでておうとう ナ。
ちぺこは妥協お知らないをんな。ひきづってここまできたかひきづられたか。
今日は○でダメ りゆうがＡｌｉｃｅる。
482 名前： Ψ [sage] 投稿日： 2009/04/26(日) 08:11:32 ID:7TaWCuJeP
豚パンでミック
来るでーーー
外出したら死ぬぞ。
http://news.bbc.co.uk/2/hi/talking_point/8018428.stm
I work as a resident doctor in one of the biggest hospitals in Mexico City
and sadly, the situation is far from "under control". As a doctor, I realise
that the media does not report the truth. Authorities distributed vaccines
among all the medical personnel with no results, because two of my partners
who worked in this hospital (interns) were killed by this new virus in less
than six days even though they were vaccinated as all of us were. The official
number of deaths is 20, nevertheless, the true number of victims are more than
200. I understand that we must avoid to panic, but telling the truth it might
be better now to prevent and avoid more deaths.
Yeny Gregorio Da'vila, Mexico City
おい！！！新型インフルエンザカナリやばい状況だぞ
493 名前： Ψ 投稿日： 2009/04/26(日) 08:35:55 ID:PLsS/SMC0
>>４８２の要約
・私はメキシコシティーで医師として働いている
・メディアは真実を報道してない
・ワクチン接種を受けていたにもかかわらず同僚（インターン が六日以内に二名死亡した
・公式には犠牲者の数は２０名だが、実際には２００名以上が死んでいる
・パニックを避けねばならぬことは判るが、これ以上の犠牲を避けるために真実を伝える。
豚パンでミック
来るでーーー
外出したら死ぬぞ。
http://news.bbc.co.uk/2/hi/talking_point/8018428.stm
I work as a resident doctor in one of the biggest hospitals in Mexico City
and sadly, the situation is far from "under control". As a doctor, I realise
that the media does not report the truth. Authorities distributed vaccines
among all the medical personnel with no results, because two of my partners
who worked in this hospital (interns) were killed by this new virus in less
than six days even though they were vaccinated as all of us were. The official
number of deaths is 20, nevertheless, the true number of victims are more than
200. I understand that we must avoid to panic, but telling the truth it might
be better now to prevent and avoid more deaths.
Yeny Gregorio Da'vila, Mexico City
おい！！！新型インフルエンザカナリやばい状況だぞ
493 名前： Ψ 投稿日： 2009/04/26(日) 08:35:55 ID:PLsS/SMC0
>>４８２の要約
・私はメキシコシティーで医師として働いている
・メディアは真実を報道してない
・ワクチン接種を受けていたにもかかわらず同僚（インターン が六日以内に二名死亡した
・公式には犠牲者の数は２０名だが、実際には２００名以上が死んでいる
・パニックを避けねばならぬことは判るが、これ以上の犠牲を避けるために真実を伝える。
トータル
