Vj()0pONS) RINDX = REFRACTIVE INDEX KVARY = 1_VARY PARAMETERS, 2_DO NOT VAVj()0pETERS NOEQNS = NUMBER OF QUANTITIES OF INTEREST (<60) MODE4 = POWER Vj()0p2ND, 3_4TH, 4_8TH KPLOT = 1_PLOT ONLY, 2_PRINT ONLY,3_PLOT & PRINT, 4_Vj()0pTINE NOCDS = NUMBER OF CARDS WITH ANALYSIS DATA LNSKP = NUMBER OF LIVj7mm!m{.m;mSImVm+dmqmm7n nnYn;n()0p KENVR = 1_BYPASS, 2_CALCULATE REFLECTANCE ENVELOPE SIGMA = _IN MICRON IF KSIG=1, _IN (1/MICRON) IF KSIG=2 QFIN = DESIRED VALUE OF QUANTITY OF INTEREST TOLER = TOLERANCE ON ABOVE KTK= 1_TRANSMITTANCE, 2_REFLECTANCE, 3_UPPER ENVELOPE, 4_LOWER ENVELOPE (BYPASS THIS CARD IF KPLOT = 4) SIGMA0 = INITIAL SIGMAI = INCREMENT (>0) SIGMAF = FINAL WAVELENGTH OR WAVENUMBER THETA0 = INITIAL THETAI = INCREMENT (>0) THETAF = FINAL ANGLE OF INCIDENCE FOR PLOTTING KPOLP = 1_PARALLEL, 2_PERPENDICULAR, 3_BOTH KTP = 1_TRANSMITTANCE, 2_REFLECTANCE KSIGP = 1_WAVELENGTH, 2_WAVENUMBER (ST62) SIGMA = _IN MICRON IF KSIG=1, _IN (1/MICRON) IF KSIG=2 THETA = ANGLE OF INCIDENCE (IN DEGREES) KPOL = 1_PARALLEL, 2_PERPENDICULAR KKY = 2ND DERIVATIVE : 0_NO, 1_THETA, 2_SIGMA KKZ = 1ST DERIVATETA, 2_SIGMA KKQ = 1_T, 2_R, 3_DELTA T, 4_DELTA R QFIN = DESIRED VALUE OF QUANTITY OF INTEREST TOLER = TOLERANCE ON ABOVE !~,E=ExQ8Q8eiB>.iBÞB2>gE:qF 2qF+~PEx==ʵH==*#F͎H@F=]Ex=:šEx=oE”E:=‚Ex=>=iB>‹E>iB:ÞB ҥEHE>)D!E:ȷ =  2**d4 F*F:=EE= **h4 F*4 x;F=;Fx==ʵH==5F*͞?õHeI2@FŚYYF=M[F=S[F=D[FE:9!TmFiB@F>{iB>iB>oiB>ziB>iB>giB:F!Fx=FF>>G 2GG33G~~HG}GQ})\|R ף|)\{33 ף{\ o{ tyG owG )\)\G:oG>}iBâG~@!FpOCͬ *"ʤGʢGI:0OTI7:aʵG K KGK>wiB>iBK>siB>#iB>riBO>G >G >G:=FH:!Hx@IiBH 2>iBͻH:&H +H>|iBDiB>giB>}iBoiB:!x‹E~dH:xʋE 2>|iBiB:͞B>giB>}iBiB:͞B>oiB**4 ­H+"2>TiB>]iB>iBH:2**4 "H:a:H>iB=)I:HK2:IIL:0O*ͬ ":=JI::a.IKK>~iBKK>~iB>#iB>fiB>oiB:eI:>iB>>iB:ÞB>!*iB:u'̵:EͬBìB:aKK"WJiB*#|ʫI͡?ʫI:u'̈;*]:aJ=JI:=I=I:v'I:=III**4 I*|<J:u'Jx=;";&KEJ͗\J*"]!:vVwUx͍I(20A4)(18A4)(' *SPECIFY SOURCE DRIVE ...')(A4):ڰ333(80A1)(' *DISK FILE NON EXISTING OR DISK FILE ERROR')(' *END OF DISK FILE')(' *END OF DISPLAY')(' *EXIT DISPLAY MODE')(' *ENTER NEXT COMMAND...')o.!3g<͋C.!3d<u!3>;'!3><͋C!".!"..!.͑4*.+}2.3!uI!.ͱI*>~og".g;61?1H1Q1x02.!3g<͋C/!"...!3T;*.#>>0͋C*.#>>{0!"..!3g;*.#>>0͋C*.#>>0/*"W1*".W1*"W1*".!3g<͋C/!3d<u!3>;͋C!".!"..!.͑4*.+}2.3*>~og"/*".F~og".*.\~og"/!"/ /!3g;*;4#>>@5͋CF4!6g<$ 2 45*42444444444y!66(' *ERROR*',2X,I3,' FIELDS MIS͋CØ4!*4s#r*4"!*4s#rVj()0pONS) RINDX = REFRACTIVE INDEX KVARY = 1_VARY PARAMETERS, 2_DO NOT VAVj()0pETERS NOEQNS = NUMBER OF QUANTITIES OF INTEREST (<60) MODE4 = POWER Vj()0p2ND, 3_4TH, 4_8TH KPLOT = 1_PLOT ONLY, 2_PRINT ONLY,3_PLOT & PRINT, 4_Vj()0pTINE NOCDS = NUMBER OF CARDS WITH ANALYSIS DATA LNSKP = NUMBER OF LIVj7mm!m{.m;mSImVm+dmqmm7n nnYn;n()0p KENVR = 1_BYPASS, 2_CALCULATE REFLECTANCE ENVELOPE SIGMA = _IN MICRON IF KSIG=1, _IN (1/MICRON) IF KSIG=2 QFIN = DESIRED VALUE OF QUANTITY OF INTEREST TOLER = TOLERANCE ON ABOVE KTK= 1_TRANSMITTANCE, 2_REFLECTANCE, 3_UPPER ENVELOPE, 4_LOWER ENVELOPE (BYPASS THIS CARD IF KPLOT = 4) SIGMA0 = INITIAL SIGMAI = INCREMENT (>0) SIGMAF = FINAL WAVELENGTH OR WAVENUMBER THETA0 = INITIAL THETAI = INCREMENT (>0) THETAF = FINAL ANGLE OF INCIDENCE FOR PLOTTING KPOLP = 1_PARALLEL, 2_PERPENDICULAR, 3_BOTH KTP = 1_TRANSMITTANCE, 2_REFLECTANCE KSIGP = 1_WAVELENGTH, 2_WAVENUMBER (ST62) SIGMA = _IN MICRON IF KSIG=1, _IN (1/MICRON) IF KSIG=2 THETA = ANGLE OF INCIDENCE (IN DEGREES) KPOL = 1_PARALLEL, 2_PERPENDICULAR KKY = 2ND DERIVATIVE : 0_NO, 1_THETA, 2_SIGMA KKZ = 1ST DERIVATETA, 2_SIGMA KKQ = 1_T, 2_R, 3_DELTA T, 4_DELTA R QFIN = DESIRED VALUE OF QUANTITY OF INTEREST TOLER = TOLERANCE ON ABOVE !~,E=ExQ8Q8eiB>.iBÞB2>gE:qF 2qF+~PEx==ʵH==*#F͎H@F=]Ex=:šEx=oE”E:=‚Ex=>=iB>‹E>iB:ÞB ҥEHE>)D!E:ȷ =  2**d4 F*F:=EE= **h4 F*4 x;F=;Fx==ʵH==5F*͞?õHeI2@FŚYYF=M[F=S[F=D[FE:9!TmFiB@F>{iB>iB>oiB>ziB>iB>giB:F!Fx=FF>>G 2GG33G~~HG}GQ})\|R ף|)\{33 ף{\ o{ tyG owG )\)\G:oG>}iBâG~@!FpOCͬ *"ʤGʢGI:0OTI7:aʵG K KGK>wiB>iBK>siB>#iB>riBO>G >G >G:=FH:!Hx@IiBH 2>iBͻH:&H +H>|iBDiB>giB>}iBoiB:!x‹E~dH:xʋE 2>|iBiB:͞B>giB>}iBiB:͞B>oiB**4 ­H+"2>TiB>]iB>iBH:2**4 "H:a:H>iB=)I:HK2:IIL:0O*ͬ ":=JI::a.IKK>~iBKK>~iB>#iB>fiB>oiB:eI:>iB>>iB:ÞB>!*iB:u'̵:EͬBìB:aKK"WJiB*#|ʫI͡?ʫI:u'̈;*]:aJ=JI:=I=I:v'I:=III**4 I*|<J:u'Jx=;";&KEJ͗\J*"]!:vVwUx͍I(20A4)(18A4)(' *SPECIFY SOURCE DRIVE ...')(A4):ڰ333(80A1)(' *DISK FILE NON EXISTING OR DISK FILE ERROR')(' *END OF DISK FILE')(' *END OF DISPLAY')(' *EXIT DISPLAY MODE')(' *ENTER NEXT COMMAND...')o.!3g<͋C.!3d<u!3>;'!3><͋C!".!"..!.͑4*.+}2.3!uI!.ͱI*>~og".g;61?1H1Q1x02.!3g<͋C/!"...!3T;*.#>>0͋C*.#>>{0!"..!3g;*.#>>0͋C*.#>>0/*"W1*".W1*"W1*".!3g<͋C/!3d<u!3>;͋C!".!"..!.͑4*.+}2.3*>~og"/*".F~og".*.\~og"/!"/ /!3g;*;4#>>@5͋CF4!6g<$ 2 45*4244444444444 *ERROR*',2X,I3,' FIELDS MIS*4s#r*4"!*4s#r