C-FOCAL,1969

01.10 T "PROGRAM TO DETERMINE FOOTAGE LENGTH OF MOTION PICTURES"!
01.11 T "OF A GIVEN RUNNING TIME FOR 65MM, 35MM, OR 16MM GAGES"!
01.12 T "TAKEN AT THE STANDARD COMMERCIAL SPEED (24 FRAMES/SEC)"!
01.30 A "WHAT IS THE GAGE OF THE FILM IN MILLIMETERS?" G
01.31 I (65-G)1.7,1.32,1.4
01.32 S DF=112.1875; G 7.1
01.40 I (35-G)1.7,1.41,1.5
01.41 S DF=90; G 7.1
01.50 I (16-G)1.7,1.51,1.7
01.51 S DF=36; G 7.1
01.70 T "SORRY, BUT THIS IS RESTRICTED TO 65, 35, AND 16MM FILMS"!
01.71 T "ONLY.  PLEASE TRY AGAIN"!!;G 1.3

07.10 A "HOW MANY MINUTES DOES THE FILM RUN?" TM
07.11 I (TM-FITR(TM))7.12,7.2,7.12
07.12 T "PLEASE USE WHOLE MINUTES ONLY.  STATE FRACTIONS OF"!
07.13 T "MINUTES  IN TERMS OF SECONDS."!;G 7.1
07.20 A "HOW MANY SECONDS DOES THE FILM RUN?" TS
07.21 I (TS-60)7.3,7,3,7.22
07.22 T "PLEASE STATE QUANTITIES OVER 60 SECONDS IN MINUTES."!!;G 7.1
07.30 S DS=DF/60; S SF=(TM*DF)+(TS*DS)
07.31 T "THE FILM AT THE STATED RUNNING TIME OF "TM," MINUTES"!
07.32 T "AND " TS, " SECONDS WILL BE " FITR(SF)," FEET, AND"!
07.33 T (SF-FITR(SF))*12, " INCHES IN LENGTH."!!!
*