• ichigojam

5 cls:lc9,11:?"エイケン3キュウタンコ゛タイヒ゜ンク゛":ifinkey()=0cont
10 CLV:X=11:c=5:CLS:LET[0],"price","grade","throw","relax","beach","juice","check","cross","alive","agree","along","among","angry","daily","dollar","during","month"
20 LC11,11:?STR$([RND(6)])
25 ifc<0cls:lc11,15:?"CLEAR!!":END
30 LCY,10:?" ":Y=X:LCX,10:?"(#E3)"
40 A=SCR(X,11):B=INKEY()
45 LC0,0:?"   time:";S/60;"  ノコリタンコ゛";c
50 IFB=0S=S+1:GOTO40
60 IFB=AX=X+(X<16)
65 IFB=!ALC11,15:?"BAD...":WAIT60:GOTO20
70 IFX=16lc11,15:?"good!!":x=11:c=c-1:wait60:cls:GOTO20
1000 GOTO30

Pagetop