10 P1=48 20 P2=49 30 P3=57 40 P4=1000 50 P5=0 100 P6=%1 110 IF P6P3 THEN 100 150 R1=1 160 P6-48 170 P6=P4*P6 180 P0=P6 200 IF P0=P5 THEN 300 210 P6=%1 220 IF P6P3 THEN 200 260 GOTO 160 300 R1=0 310 GOTO 100 400 R1=1 410 GOTO 100