Ea ***** BLACK BOX *****}a A computerized version of the popular board game.a a by Bruce Ratoff, with credit to Kris Tuttle of Computer Martb for the Apple II version on which the logic is based.Kb IMPORTANT: This program makes heavy use of ADM-3A cursor controls.b You must change the value of AT$ to the cursor address sequenceb for your own terminal. You should also change all occurrences ofc CLS$ to the "clear screen" code for your terminal.cc$cbcAT$()"=": RX$AT$(6)(\): WI$( )( ,)rcCLS$()xccZMK$"!#$%&'():*-=[{]}^~\|@`;+/?.>,<_"(")cd CLS$;!);"BLACKBOX"c : : : : c );"32 31 30 29 28 27 26 25");"# OF ATOMS";WI$;: N: N N d J : I : B(I,J): I,Jd I NeXR(): YR(): B(X,Y) -eB(X,Y): I:eS: Cke AT$;(6);" IN AT";WI$; : R: R |e R e ((R)) ,,,e RX$;"ERROR ": eX: YR: U: V: eXR: Y: U: V: !fX: YR: U: V: ;fX!R: Y: U: VZfXNX: YNY: X1XU: Y1YVf" U X2X1: X3X1: Y2Y1: Y3Y1: 6f,Y2Y1: Y3Y1: X2X1: X3X1f6 B(X1,Y1)B(X2,Y2)B(X3,Y3) J,T,^,T!g@ RX$;"HIT ": SS: ZR: M$"H": v: 7gJXX1: YY1: |FgTZ: hOg^Zkgh U UZ: V: |xgrU: VZg| ((X)) ,,gg ((Y)) ,,ggZY: gZY: gZ!X: hZX>h ZR RX$;"REFLECTED": SS: M$"R": v: Th RX$;();RX$;zh "OUT AT";Z: SS: v: h AT$;(4);(4);"WHERE DO YOU THINK THE ATOMS ARE?"hCh Q Nh AT$;(6);" ATOM #";Q;"(ROW,COLUMN)";WI$;i J,Ii M$"?": 7i B(I,J) SS: AiCCIi Qbi& J : I i0 B(I,J) M$"*": i: I,JiN AT$;(5);" YOU GUESSED ";C;" OUT OF ";N;" ATOMS CORRECTLY"jX "YOUR SCORE FOR THIS ROUND WAS ";S;" POINTS. " jb "CARE TO TRY AGAIN";A$Ojl (A$,)"Y" (A$,)"y" Z : wjv ZR M$(MK$,):MK$(MK$,)j ((R)) ,,,j AT$;(&R);(4);M$: j AT$;(0);(R);M$:  k AT$;(?R);(T);M$: *k AT$;(%);(R);M$8k RZ ^k ((Z)) ,,,~k AT$;(&Z);(4);M$: k AT$;(0);(Z);M$: k AT$;(?Z);(T);M$: k AT$;(%);(Z);M$: l AT$;(&J);(6I);M$: l(Z);M$: k AT