f3 if f4 eq 999 goto 400 if f4 le fl fl f4 if f5 eq 999 goto 400 if f5 le fl fl f5 if f6 eq 999 goto 400 if f6 le fl fl f6400 continue print 39 39 print 39 39 write 1 411 f1 fl write 6 411 f1 fl write 1 412 f2 fl write 6 412 f2 fl if f3 eq 999 goto 450 write 1 413 f3 fl write 6 413 f3 fl if f4 eq 999 goto 450 write 1 414 f4 fl write 6 414 f4 fl if f5 eq 999 goto 450 write 1 415 f5 fl write 6 415 f5 fl if f6 eq 999 goto 450 write 1 416 f6 fl write 6 416 f6 fl411 format gauge reading for film a microns f4 1 412 format gauge reading for film b microns f4 1 413 format gauge reading for film c microns f4 1 414 format gauge reading for film d microns f4 1 415 format gauge reading for film e microns f4 1 416 format gauge reading for film f microns f4 1 450 continue if f1 fl ge f2 fl fh f1 fl if f2 fl ge f1 fl fh f2 fl if f3 eq 999 goto 460 if f3 fl ge fh fh f3 fl if f4 eq 999 goto 460 if f4 fl ge.