10 P8=0
20 IF @D=R THEN 40
30 GOTO 20
40 R2=0
50 R1=1
60 P9=33000
70 IF P9>P8 THEN 70
80 R1=0
90 IF @D=R THEN 100
100 R2=1
110 P0=8
120 IF @D=R THEN 40
130 IF P0>P8 THEN 120
140 R2=0
150 P0=8 
160 IF @D=R THEN 40
170 IF P0>P8 THEN 160
180 GOTO 100