＃１６：ＨＡＲＲＹ

1 randomize
10 dim sh$(10)
11 sh$(0)="しゃ":sh$(1)="しょ":sh$(2)="そ":sh$(3)="う"
12 sh$(4)="の":sh$(5)="を":sh$(6)="と":sh$(7)="で":sh$(8)="に"
50 cls
100 wd=int(rnd(1)*20)+1
110 for i=1 to wd
111  fl=0:ch$="012"
115  while fl=0
120   ch=len(ch$)
130   sl=int(rnd(1)*ch)+1
140   st=val(mid$(ch$,sl,1))
150   print sh$(st);
160   r=rnd(1):if r<.05 then fl=1
170   ch$="012"
180   if st<>0 and st<>3 then ch$=ch$+"3"
190   if st<4 then ch$=ch$+"45678"
200  wend
205  if i<wd then print "、";
210 next i
220 print "。" 
230 print "retr[y]/e[n]d"
240 k=0
250 while k=0
260  k$=inkey$:if k$="y" then k=1
270  if k$="n" then k=2
280 wend
290 if k=1 then 50
300 end