C-8K FOCAL @1969

01.10 T "PROGRAM FOR DETERMINING THE DEPTH OF FIELD AND HYPER-"!
01.12 T "FOCAL DISTANCE FOR CINE LENSES OF 16 AND 35 MM CAMERAS"!
01.30 A "WHAT GAGE CAMERA (IN MM)?" CC;I (CC-35)1.31,3.1,8.1
01.31 I (CC-FITR(CC))8.1,1.32,8.1
01.32 I (CC-16)8.1,2.1,8.1

02.10 S CC=.001
02.20 T "IN 16MM CINE CAMERAS, THE CIRCLE OF CONFUSION IS ASSUMED"!
02.30 T "TO BE" CC, " INCH."!; G 4.1

03.10 S CC=.002 
03.30 T "IN 35MM CINE CAMERAS, THE CIRCLE OF CONFUSION IS ASSUMED"!
03.40 T "TO BE" CC, " INCH."!; G 4.1

04.10 A "WHAT IS THE FOCAL LENGTH OF THE LENS IN INCHES?" LO
04.20 A "WHAT IS THE F-STOP SETTING OF THIS LENS?" LS
04.30 S H=(LO)^2/LS*CC
04.40 T "THE HYPERFOCAL DISTANCE FOR THIS LENS AT THE ASSIGNED"!
04.50 T "F-STOP OF" LS," IS" H," INCHES."!
04.60 S H=H/12; S LO=LO/12

05.10 A "WHAT IS THE CAMERA-TO-SUBJECT DISTANCE IN FEET?" S
05.20 S DN = H*S/(H+(S-LO))
05.30 S DF = H*S/(H-(S-LO))
05.31 I (DF) 5.32, 5.32, 5.4
05.32 T "THE FAR LIMIT OF THE DEPTH OF FIELD IS INFINITY."!;G 8.2
05.40 T "THE NEAR LIMIT OF THE DEPTH OF FIELD IS" DN, " FEET."!
05.50 T "THE FAR LIMIT OF THE DEPTH OF FIELD IS" DF, " FEET."!
05.60 T "THE TOTAL DEPTH OF FIELD IS" DF-DN, " FEET."!; G 9.1

08.10 T "SORRY, BUT THIS IS LIMITED TO 16 AND 35MM CINE"!
08.11 T "LENSES ONLY.";G 9.1
08.20 T "THE TOTAL DEPTH OF FIELD IS FROM" DN, " FEET TO INFINITY.";G 9.1

09.10 Q
*