10 CLS:CLV:X=9:FORI=0TO1:A=A+1:B=!(A%30):C=!(A%10):LCRND(31),23-!B-!C*(A%17):S=SCR()+C:?CHR$(28+A%2,28+119*!!S):M=BTN(29)*(X<31)-BTN(28)*!!X:X=X+M*B:LCX,4:I=SCR()*B:?CHR$(#FA):LC0,0:?A/30:BEEPB+C:NEXT
墓石が増殖していくところが、ゲーム的にもストーリー的にも面白いですね。それも、単にランダムに増えるのではなく、横に連なって、というところがミソでしょうか。ヒントがあるのはただのランダムよりも面白い!