10 '*REACH-C
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 ?"Waiting..."
100 UART 0,1
110 N=INKEY()-32:IF N=-32 CONT
120 UART 0,0
130 IF N=99 ?"REACH":BEEP:GOTO 190
140 IF N=100 ?"LOSE":BEEP 30,30:END
150 FOR I=0 TO 24
160 IF [I]=N [I]=-1
170 NEXT
180 GSB 290
190 INPUT "N(reach:99 win:100)=",N
200 UART 1,0
210 ?CHR$(N+32)
220 UART 0,0
230 IF N=100 ?"WIN":BEEP 10,30:END
240 FOR I=0 TO 24
250 IF [I]=N [I]=0
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