1 CLV:CLS:LC6,0:?"*** REACH GAME ***":?
2 J=25:K=50:L=75
3 FORM=0TOJSTEPJ
4 FORN=0TO24:[M+N]=N+1:NEXT
5 FORN=1TO30:A=RND(25):B=RND(25):C=[M+A]:[M+A]=[M+B]:[M+B]=C:NEXT:NEXT
6 ?"[YOU]"
7 FORY=0TO4:FORX=0TO4:N=[X+Y*5]
8 LCX*3,Y*2+4:IFN>9THEN?N;ELSE?" ";N;
9 NEXT:NEXT
10 LC16,2:?"[CPU]"
11 FORY=0TO4:FORX=0TO4
12 LC16+X*3,Y*2+4:?".."
13 NEXT:NEXT
14 LET[50],1,0,0,0,2,0,1,0,2,0,0,0,3,0,0,0,2,0,1,0,2,0,0,0,1
15 LRUNFILE()+2