1010 INIT
1020 RANDOMIZE
1030 DIM C$(2),M$(2),S$(4,2),A(2),B(2),F(2)
1040 DATA "赤  ","白  ","上げ","下げ","て","ない","て","ない","ないで","ないで","る","ない",-1,-1,-1,-1,160,160
1050 READ C$(1),C$(2),M$(1),M$(2),S$(1,1),S$(1,2),S$(2,1),S$(2,2),S$(3,1),S$(3,2),S$(4,1),S$(4,2),A(1),A(2),B(1),B(2),F(1),F(2)
1060 BGCOL 0,0,64
1070 FSYNC 60
1080 DO
1090  R=MOD(R,4)+1
1100  IF R=1 THEN CLEAR
1110  I=INT(RND*2)*2-1
1120  J=INT(RND*2)*2-1
1130  IF R=3 THEN K=-1 ELSE K=INT(RND*2)*2-1
1140  A((I=1)+2*(I<>1))=J*K
1150  LOCATE 15,3
1160  PRINT "点数:";SCR
1170  LOCATE 14,R*2+3
1180  PRINT C$((I=1)+2*(I<>1))+M$((J=1)+2*(J<>1))+S$(R,(K=1)+2*(K<>1))
1190  SEPLAY 38,255,255
1200  FOR LP=1 TO MIN(150,MAX(1,150-SCR/4))
1210   FOR N=1 TO 2
1220    F(N)=MIN(160,MAX(120,F(N)+8*((PAD(1,11+N*2)>192)-(PAD(1,11+N*2)<64))))
1230    TILECOL N,255,255*(N=2),255*(N=2),128
1240    TILEPOS N,150+N*100,F(N),190+N*100,F(N)+20,1
1250    TILEDISP N
1260    B(N)=(F(N)<=130)-(F(N)>=150)
1270   NEXT N
1280   FSYNC 1
1290  NEXT LP
1300  IF A(1)<>B(1) OR A(2)<>B(2) THEN EXIT DO
1310  SCR=SCR+1
1320 LOOP
1330 LOCATE 0,0
1340 SEPLAY 33,255,255