d * BLACK BOX FOR '64'7i53280,1:53281,1:""Qn S(I)126680I2Jmx B(7,7),G(4,1),M(31,1)SY$"":BL$" "(142):"":"INSTRUCTIONS";A$:(A$,1)"Y"1650 K04:G(K,0)1:K:SY0 380:*BOARD 600:*FILL BOARD? "";BL$;"";:A$:BL$;""e A$"R""";:660:180:*REFRESH ((A$)0)((A$)33)730:180:*MOVE A$"Q"250:*SCORE A((A$,1)):B((A$,1)) (A64)(A73)(B0)(B9)1520:180:*BALL "HUH?":180" SCN:GAGA1:N0280W  K0 N1: (M(K,1)0)(M(K,0)M(K,1))SCSC1^ K  K04: G(K,0)1 SCSC5:300 "1(B(G(K,0),G(K,1)))SCSC5 ,K:TTTTSC 6"";20);"SCORE=";SC:20);"AFTER";GA;"GAMES" @20);"AVERAGE=";TTGA JI07:J07U T B(I,J)XS(I): X,108: X1,123: X40,124: X41,126z ^B(I,J)0:J:I:"PLAY AGAIN";A$ h (A$,1)"Y" rN0:150 |*PRINT BOARD " A B C D E F G H " 3 3 3 2 2 2 2 2 " 2 1 0 9 8 7 6 5":" = " Х BLACKBOX"Y "1̺̺̺̺̺̺̺̺24 " Х =REFLECTED "2̺̺̺̺̺̺̺̺23 " Х =ABSORBED "3̺̺̺̺̺̺̺̺22 " Х R=REFRESH SCREEN, "4̺̺̺̺̺̺̺̺21U " Х Q=QUIT GAMEq "5̺̺̺̺̺̺̺̺20 " Х X#=PUT/TAKE BALL "6̺̺̺̺̺̺̺̺19 AT ROW #, " Х COLUMN X &"7̺̺̺̺̺̺̺̺1890" Х #=SEND PROBE IN|:"8̺̺̺̺̺̺̺̺17 AT EDGE CELL #":" D" 0 1 1 1 1 1 1 1N" 9 0 1 2 3 4 5 6":X*FILL BOARDbZ(TI)lK04vI(8(1)):J(8(1))B(I,J)630B(I,J)1: K:/*REFRESH SCREENB380:SY0:***P N0700{ K0N1:IDM(K,0):ODM(K,1):1370:K K04:IG(K,0):I1720JG(K,1):XS(I): X,85: X1,73: X40,74: X41,75 K:*MOVEV(((A$)7)8): V 990,1000,1010,1020'M(N,0)(A$)11190E C V0:1030W  L R 890u V 1150,1160,1170,1180  1190* C V0:10304 L R 1050:850> L 1080: 850H R 1110R 950: Q 900\ V 1150,1160,1170,1180f 950: Q 900$p800<zVV2: V1 VV4Y V2 M(N,1)32Y:940u V3 M(N,1)X1:940 V4 M(N,1)Y9:940 V1 M(N,1)24XIDM(N,0):ODM(N,1):1370:NN1:Q((X0)(V2))((Y0)(V3))QQ ((X7)(V4))((Y7)(V1))&***;X(A$)1:Y1:OX8:Y(A$)9:dX24(A$):Y8:zX1:Y32(A$):***M(N,1)0:OD0:IDM(N,0):1370:NN1:***$VV2: V4 VV4.8***BVV1: V0 V4LV***`VV1: V5 V1j't***3~YY1:?XX1:KYY1:WXX1:`***~ V 1210,1250,1290,1330CB(X,Y1): X0 L0:1230LB(X1,Y1) X7 R0:RB(X1,Y1):CB(X1,Y): Y0 L0:1270LB(X1,Y1) Y7 R0:,RB(X1,Y1):M CB(X,Y1): X7 L0:1310^LB(X1,Y1)p X0 R0:(RB(X1,Y1):2CB(X1,Y): Y7 L0:1350<LB(X1,Y1)F Y0 R0:PRB(X1,Y1):Zd OD0 1400nADID:1450: P1,32: P2,102:)x ODID 1420KADID:1450: P1,32: P2,90:xADID:1450:SYSY1:S((SY$,SY,1))128 P1,32: P2,SADOD:1450: P1,32: P2,S:***((AD7)8) 1480,1490,1500,1510:*ERROR TRAP P1122380AD:P2P11:&P119692AD:P2P140:BP1324480AD:P2P11:^P112112AD:P2P140:dyJA65:IB1:Q0 K04 (G(K,0)I)(G(K,1)J)1580XS(I): X,79: X1,80: X40,76: X41,122"Q1:G(K,0)1:K4, K: Q 6K04!@ G(K,0)1 1630QJXS(I): X,85: X1,73: X40,74: X41,75oTG(K,0)I:G(K,1)J:K4:Q1^ K: Q h"LIST FULL, SORRY":r***INST.|"I WILL HIDE 5 BALLS WITHIN AN 88 BOX,"YOU MUST DEDUCE THEIR LOCATIONS BY+"PROBING FROM THE SIDES. TYPE A NUMBERX"TO SEND IN A PROBE. IF THE PROBE HITS"A BALL HEAD-ON, IT IS ABSORBED; IF IT"HITS A GLANCING BLOW, IT IS DEFLECTED"90 DEGREES; TWO DEFLECTIONS OR A"DEFLECTION BEFORE GETTING ON THE BOARD"MAKE A REFLECTION.H"I MARK ABSORPTIONS BY , REFLECTIONSs"BY , AND DEFLECTIONS BY PUTTING THE"SAME SYMBOL BY BOTH INPUT & OUTPUT"CELLS. ALL THIS WILL BECOME CLEARER"WITH SOME SAMPLE GAMES."TYPE A LETTER-NUMBER PAIR TO PLACE A="BALL ON THE SCREEN (EXAMPLES: A1, G4,e"H7, ECT.). TYPE R TO REFRESH THE&"SCREEN DISPLAY, AND Q TO QUIT GUESSING0"AND SEE THE ACTUAL SET-UP AND YOUR:"SCORE. YOU GET 5 POINTS FOR EACH BALLD"THAT YOU MISSED GUESSING, AND 1 POINTBN"FOR EACH SYMBOL YOU GOT AROUND THE EDGElX"OF THE SCREEN, TRY TO MINIMIZE YOURb"SCORE. GOOD LUCK! HIT A KEY TO PLAY":A$""lA$: A$"" 1900v