-FOCAL,1969

01.10 T "PROGRAM TO DETERMINE MOTION PICTURE FOOTAGE"!
01.20 T "FOR 65/70, 35, AND 16MM GAGES.  IT IS"!
01.30 T "ASSUMED THAT THE TAKING (OR PROJECTION) SPEED IS"!
01.40 T "NORMAL SOUND SPEED (24 FRAMES/SEC) UNLESS OTHER-"!
01.50 T "WISE NOTED.  IF THE SPEED IS NORMAL SOUND SPEED,"!
01.60 A "PLEASE TYPE '1'; IF ANOTHER SPEED, TYPE '2'" A
01.70 I (A-2) 2.1, 3.1, 8.1

02.10 S R=24; G 4.1

03.10 A "HOW MANY FRAMES PER SECOND IS THE SPEED?" R; G 4.1

04.10 T "WHAT GAGE IS YOUR FILM? PLEASE ENTER '70' FOR"!
04.11 A "65/70 MM, '35' FOR 35MM, OR '16' FOR 16MM." N
04.12 T "I AM CALCULATING FOR " N, "MM FILM."!
04.13 I (N-35) 4.2,4.3,4.4
04.20 S W=40;G 4.5
04.30 S W=16; G 4.5
04.40 S W=12.8; G 4.5
04.50 A "HOW LONG IS THE FILM IN FEET?" L
04.51 S P=L*W/R
04.52 T "THE FILM WILL TAKE" FITR(P/60), " MINUTES AND"!
04.53 S M=(P/60)-FITR(P/60)
04.54 T M*60, " SECONDS TO TAKE OR SHOW.";G 9.1

08.10 T "YOU CAN'T HAVE IT BOTH WAYS. PLEASE TRY AGAIN";G 9.1

09.10 Q
*