Program post site for everyone
イチゴジャム リズム (ID=839) の音を聞いていたら、
しゃべってるような状態にできそうな気がして、形にしてみました。
IchigoJam や RPG でキャラクターがしゃべってるような感じです。
BEEP <値> は <値> を小さくする程、高い音になります。
S の文字列や WAIT <値> も変えて、いろいろ試してみて下さい。
文字列を連続して入力したい場合は次に変更・追加します。
20 CLS:POKE #1003,1,34:INPUT S （IchigoCake BASIC は #1003→#1E03）
70 GOTO 20
CLS:' NEW 10 'Voice? 20 S="KATAKANA mo tsukae masu. 30 FOR I=0 TO LEN(S)-1 40 C=ASC(S+I) 50 ? CHR$(C);:BEEP C%128 60 WAIT 6:NEXT:? 'OK
