C-FOCAL,1969

01.01 T "PROGRAM TO SELECT PROJECTION LENSES FOR 16MM 'MINI-"!
01.10 T "THEATER' OR AUDITORIUM SYSTEMS."!!
01.20 T "FOR PURPOSES OF SELECTION, DO YOU WISH TO CONSIDER"!
01.21 T "THE THEORETICAL (MAXIMUM APERTURE) OR THE 1% CROP"!
01.22 T "APERTURE? IF YOU WISH"!
01.23 A "THEORETICAL APERTURE, TYPE '1'; CROP, TYPE '2'" CH
01.24 I (CH-FITR(CH)) 1.25,1.26,1.25
01.25 T "PLEASE USE WHOLE NUMBERS ONLY"!;G 1.23
01.26 I (CH-2) 2.01,3.01,1.28
01.28 T "SORRY, BUT THE CHOICE IS LIMITED TO A '1' OR A '2'"!
01.29 T "PLEASE REMEMBER:"!;G 1.23

02.01 S AW=.38; S AH=.284; G 4.01

03.01 S AW=.372; S AH=.278; G 4.01

04.01 A "HOW FAR IS THE SCREEN FROM THE PROJECTOR IN FEET?" DI
04.10 A "WHAT IS THE WIDTH OF THE SCREEN IN FEET?" WI
04.20 S EF=(AW*DI)/WI;S SH=(AH*DI)/EF
04.30 T "THE CORRECT FOCAL LENGTH FOR YOUR PROJECTION LENS IS:"!
04.31 T EF, " INCHES. THE SCREEN HEIGHT SHOULD BE "FITR(SH),!
04.32 T "FEET," (SH-FITR(SH)), " INCHES"!

06.01 Q
*