Program post site for everyone
文字列照合の習作を作っていたら、黒歴史を紡いでしまった。
INPUTで正しい呪文を詠唱すると、詠唱にかかった時間を表示します。
画面を読まずに、暗記してるのがポイント。
N="名称":J="呪文" で 痛い呪文を創作しましょう。
技名・呪文を変更すれば、名言・ことわざ・俳句などが作れます。
10 'ﾁｭｳﾆﾋﾞｮｳﾀｲﾋﾟﾝｸﾞ
20 @LP:CLS:?"ﾁｭｳﾆﾋﾞｮｳﾀｲﾋﾟﾝｸﾞ"
30 CLT:LC0,2:INPUT "",J
40 @H:F=0:T=TICK():?
50 N="ﾗｲﾄ":J="ﾋｶﾘﾉｾｲﾚｲﾀﾁﾖﾜｶﾞﾓﾄﾒﾆﾂﾄﾞｲﾃﾔﾐｦﾃﾗｾ":GSB@C
60 N="ﾌｧｲｱｰﾎﾞｰﾙ":J="ｶｶﾞﾔｷﾓｴﾙｱｶｷﾎﾉｵﾖﾜｶﾞﾃﾆﾂﾄﾞｲﾃｲﾃﾁｶﾗﾄﾅﾚ":GSB@C
70 N="ﾌｧｲｱｰｱﾛｰ":J="ﾎﾉｵﾆﾓｴﾙｾｲﾚｲﾀﾁﾖﾒｲﾔｸﾉｺﾄﾊﾞﾆﾖﾘﾃﾜｶﾞﾃﾆｽﾀﾞｲﾃﾁｶﾗﾄﾅﾚ":GSB@C
80 N="ｳｨﾝﾄﾞ":J="ｶｾﾞﾉｾｲﾚｲﾀﾁﾖﾒｲﾔｸﾉｺﾄﾊﾞﾆﾖﾘﾃﾜｶﾞﾃﾆｽﾀﾞｲﾃﾁｶﾗﾄﾅﾚ":GSB@C
90 N="ｱｲｽﾆｰﾄﾞﾙ":J="ﾐｽﾞﾉｾｲﾚｲﾀﾁﾖﾒｲﾔｸﾉｺﾄﾊﾞﾆﾖﾘﾃﾜｶﾞﾃﾆﾂﾄﾞｲﾃﾘｮｸﾄﾅﾚ":GSB@C
100 N="ﾊﾞｰｽﾄﾛﾝﾄﾞ":J="ｵﾄﾞﾚｵﾄﾞﾚﾀﾞｲﾁﾉｾｲﾖﾏﾜﾚﾏﾜﾚﾀﾞｲﾁﾉｾｲﾖ｡":GSB@C
110 N="ｽﾘｰﾌﾟ":J="ﾏﾄﾞﾛﾐﾉｾｲﾚｲﾖﾌｶｷﾈﾑﾘﾆﾐﾁﾋﾞｷﾀﾏｴ":GSB@C
120 N="ｺﾞｰﾚﾑ":J="ﾀﾞｲﾁﾉｾｲﾚｲﾎﾉｵﾉｾｲﾚｲﾜｶﾞﾓﾄﾒﾆｵｳｼﾞﾃｶﾀﾁｦﾅｾ":GSB@C
130 IFF=0?"ﾅﾆﾓｵｷﾅｶｯﾀ"
140 @K:A=INKEY():IFA<>ASC(" "):CONT:ELSEGOTO@LP
150 @C:F=0:V=#900+32*2:I=0
160 @N:IFPEEK(J+I)=34GOTO@S
170 IFPEEK(J+I)<>PEEK(V+I)RTN
180 I=I+1:GOTO@N
190 @S:F=1:?T;" ";STR$(N)
200 FORS=0 TO 15:BEEPS:WAIT1:NEXT:RTN
黒歴史は創作の上で避けて通れない、いわば通過儀礼。積極的に作っていきましょう！ このタイピングによって、より一層、黒歴史を作りやすくするのです！
