10 '*REACH-S 20 CLV:UART 0,0:CLS 30 FOR I=0 TO 24:[I]=I+1:NEXT 40 FOR I=1 TO 200 50 A=RND(25):B=RND(25) 60 C=[A]:[A]=[B]:[B]=C 70 NEXT 80 GSB 290 90 INPUT "N(reach:99 win:100)=",N 100 UART 1,0 110 ?CHR$(N+32) 120 UART 0,0 130 IF N=100 ?"WIN":BEEP 10,30:END 140 FOR I=0 TO 24 150 IF [I]=N [I]=0 160 NEXT 170 GSB 290 180 ?"Waiting..." 190 UART 0,1 200 N=INKEY()-32:IF N=-32 CONT 210 UART 0,0 220 IF N=99 ?"REACH":BEEP:GOTO 90 230 IF N=100 ?"LOSE":BEEP 30,30:END 240 FOR I=0 TO 24 250 IF [I]=N [I]=-1 260 NEXT 270 GSB 290 280 GOTO 90 290 ?:I=0 300 FOR Y=0 TO 4 310 FOR X=0 TO 4 320 IF [I]=0 ?"-- "; ELSE IF [I]=-1 ?"oo "; ELSE ?DEC$([I],2);" "; 330 I=I+1 340 NEXT:? 350 NEXT:? 360 RTN