?>@@I!@X%0@TT@+S3,)4@@@K@@<@@K?7,6==>=??+???@=I;@@UA$@UA%@UA&@UA'@UA(@UA)@UA*@UA+P?<Q@A@UA." "$"YOUNG'S DOUBLE SLIT EXPIREMENT"%UA/%UA8^UBB"L ="
@8T@DW@UBL"W ="
@8T@GW@UBV"D ="
@8T@JW@UB @UB*[J8UB>@UCH[Q/UCR@UC\[J8UC]%UC&"WOULD YOU LIKE TO TRY ANOTHER VALUE OF D (1-YES, 0-NO)"
UC0T@MW@UC:P@M@P?<(BZAI@UDD%UDE"*****"%@UDF%UDN@UDXP?9Q@J@UD"@UD,[T\UD6@UE@[J8UEA%UEJ"WOULD YOU LIKE TO TRY ANOTHER VALUE OF W (1-YES, 0-NO)"
UETT@PW@UE^P@P@P?<(BZBP@UE(%UE)"*****"%@UE*%UE2@UE<P?6Q@G@UFF@UFP[N1UFZ@UF$[J8UF%%UF."WOULD YOU LIKE TO TRY ANOTHER VALUE OF L (1-YES, NO-0)"
UF8T@SW@UGBP@S@P?<(BZCW@UGL%UGM"*****"%@UGN%UGV@UG P@V)I@P?3C@)HQ@D@UG*"YOU WILL NOW BE GIVEN A LIGHT SOURCE OF UNKNOWN"%@UG+"WAVELENGTH.  YOU WILL SPECIFY THE SLIT SEPERATION (D),"%UG,"AND THE DISTANCE FROM SLITS TO SCREEN (L)."%UG;@UG<P?<Q@Y@UHH@UHR[Q/UH&@UH0[N1UH5@UH6P@Y@P?<(B@ZF!UH:@UID^UINP?0@P?-P@\@)ICP?*A@)HCQ@GUIX@UIYP?'Q@A@UI][J8UI^%UI""WOULD YOU LIKE TO PLOT FOR OTHER VALUES OF D AND L "
@UI
"(1-YES, 0-NO)"
@UI,T@YW@UI6P@Y@P?<(BZE;@UJ@"WHAT DO YOU THINK THE UNKNOWN WAVELENGTH (W) IS"
@UJJT@
W@UJTP@
P@GB)M@P?$P@GC(D@ZH7UJ^"YOU ARE MORE THAN 10% OFF.  TO HELP YOU, YOU MAY "
@UJ("OBTAIN MORE PLOTS."%UJ2YF-UJ<"PRETTY GOOD!  THE WAVELENGTH IS "
P@G!
" ANGSTROMS."%@UJ="WOULD YOU LIKE TO TRY ANOTHER UNKNOWN WAVELENGTH"
UJ>"(1-YES, 0-NO)"
@UJ?T@"W@UK@P@"@P?'(D@ZW'UKA"YOU MAY SPECIFY A NEW SLIT SEPARATION (D) AND DISTANCE"%UKB"FROM SLITS TO SCREEN (L)."%@UKCYE6UMQ@UMR@UMW%UMX%UMY@UMZP@A@P?<(B@ZK2UM\"L ="
P@D!
"METERS    W ="
P@G!
"ANGSTROMS    D ="
P@J!
"MILLIMETERS"%@UM]%UM!YLVUM&"L ="
P@D!
"METERS    W = ? ANGSTROMS    D="
P@J!
"MILLIMETERS"%@UM'%UM+"DISTANCE (MM'S FROM CENTER)"%@UM0@UM1P?!FQ@%UM2P?!Q@(@UM3@UM4P?^P@JC@P?[CP@GP@DCDQ@+UM5@UM6P@%Q@\P@(@P?XVMOP@\@]N&UM7@UM8@UM9P?UP@+P@\C@)ACP@+P@\C)ACQ@.UM:P@\)M@P?R(D@ZNNUM;P?O)K!
P@\P?LCP?9A@)H@P?LD!
P?I)K!
"."
P@.P?FA@)H)K!
"*"%UM<YN
UM="...............0....INTENSITY......*"%UM?X@\UN@P?<Q@A@UNA%UNBGUNC@UND@UNF"WHAT IS THE NEW DISTANCE FROM SLITS TO SCREEN (L) "
UNG"IN METERS"
@UNHT@DW@UNI@UNJP?0P@DC@P?3P@JC(C@ZPXUNK"THIS DISTANCE IS TOO SMALL FOR GOOD INTERFERENCE PATTERNS."%UNL"TRY ANOTHER VALUE."%UNNYN3UNPP@D@P?C(E@ZQ+UNQ"ALTHOUGH ANY DISTANCE LARGER THEN "
@P?3P@JC@P?0D!
" METERS"%@UNR"IS VALID, ABOVE 5 METERS BECOMES HARD TO SEE."
@UNS"  TRY ANOTHER VALUE."%UNTYN3UNVGUNW@UNX@UNZ"WHAT IS THE NEW SLIT SEPARATION (D) IN MILLIMETERS"
UN\T@JW@UN^P@J@P?$(C@ZSBUN "SLITS ARE SO CLOSE THEY APPROXIMATE ONE SLIT."%@UN!"TRY ANOTHER VALUE."%UN"YQ/UN$P@J@P?$@P?0CP@DC(EZTXUN%"FOR A VALID INTERFERENCE PATTERN, THE SLIT SEPARATION"%@UN&"SHOULD BE LESS THAN "
@P?$@P?0CP@DC!
" MILLIMETERS.  TRY"
UN'"ANOTHER VALUE."%UN*YQ/UN,GUN-@UN.@UN0"WHAT IS THE NEW WAVELENGTH (W) IN ANGSTROMS"
@UN2T@GW@UN3P@G@P?@(C@ZU2UN4P@G@P?0(D@ZWCUN5"A WAVELENGTH OF "
P@G!
" IS INFRARED LIGHT AND NOT VISIBLE."%@UN6YVJUN8YT^UN:P@G@P>=(E@ZW
UN;"WAVELENGTH IS ULTRAVIOLET."%UN<"THE INTERFERENCE PATTERN WILL BE VISIBLE USING DETECTORS"%UN="ONLY.  TRY ANOTHER VALUE OF WAVELENGTH."%@UN>YT^UN?"A WAVELENGTH OF "
P@G!
" IS X-RAYS AND NOT VISIBLE."%@UO@YVJUOEGUOF@UOG%UOH"*****"%@UOI%UOJ@UOL"WOULD YOU LIKE A PLOT WITH YOUR OWN VALUES FOR WAVELENGTH"%@UOM" (W), SLIT SEPARATION (D), AND DISTANCE FROM SLITS TO"%@UON"SCREEN (L) (1-YES, 0-MO)"
UOPT@1W@UOTP@1@P?'(D@ZY6UOV[T\UOX[Q/UOZ[N1UO\[J8UO^"ANOTHER ONE (1-YES, 0-NO)"%@UO T@4W@UO!P@4@P?<(BZYL@UO"@UO
%UO$"**********"%UO%%UO&"HOPE YOU HAD FUN!"%@UO'OQ/4@@@QL,@@@P]@@@@P'0@@@P' @@@P>P@@@P$@@@@N^
[":P-@@@@O]G+!QRNF(@@PVRG?KO<JOWBO.Y&Y&PL@@@@P\ @@@PV@@@@QW4@@@P%@@@@Q-7@@@PD@@@@@@@@@@=@NT\PRINT@@D6PRINT"GAM1: BAND [SLOT MACHINE