10 P8=0
20 P9=1000
30 IF P9>P8 THEN 30
40 R2=1
45 P0=10
50 IF @D=R THEN 70
52 IF P0=P8 THEN 100
60 GOTO 50
70 R2=0
80 GOTO 20
100 R2=0
110 P0=10 
120 IF @D=R THEN 70
125 IF P0=P8 THEN 40
130 GOTO 120