10 CLV:CLS:VIDEO 3:L=7
15 GSB 200
20 GSB 100
25 S=0:GSB 238
30 LC X,1:?" >< "
40 K=INKEY()
50 X=X-(K=28)*(X>0)+(K=29)*(X<L-1)
60 IF K=32 GSB 150
90 WAIT 6:GOTO 30
100 LC 1,0:FOR K=0 TO L
110 ?[K];:NEXT:RTN
120 [L+1]=1+RND(9)
130 FOR K=J TO L:[K]=[K+1]
140 NEXT:RTN
150 A=[X]:[X]=[X+1]:[X+1]=A
160 GSB 100
165 GSB 200
170 RTN
200 P=1:FOR J=0 TO L-1
210 IF [J]=[J+1] GSB 230:J=-1
220 NEXT:RTN
230 LC J+1,0:?"**":BEEP:WAIT 10
235 GSB 120:GSB 120:GSB 100
237 S=S+P:P=P*2
238 LC 0,3:?S;"  "
240 RTN