1 CLS:S=0:T=0 2 FOR L=1 TO 5:LOCATE 0,L:PRINT L;":";:X(L)=20:NEXT L 3 LOCATE 0,0:INPUT "よそう□1-5";Y 4 FOR L=1 TO 100 5 R=INT(RND(1)*5)+1:X=X(R):IF X<=0 THEN 5 6 X=X-1:LOCATE X+2,R:PRINT "オマエモナー□"; 7 IF X<=0 THEN S=S+1:PRINT S;"ちゃく";:IF S=1 THEN T=R 8 X(R)=X:FOR M=1 TO 1:NEXT M 9 NEXT L:LOCATE 0,7:PRINT "かち=";T;"□"; 10 IF T=Y THEN PRINT "あたり!!大金もち!":GOTO 12 11 PRINT "はずれ!!大びんぼう!" 12 PRINT:INPUT "もういちど□やる?(Y/N)";Y$ 13 IF Y$="Y" OR Y$="Y" THEN 1 14 END