Interlisp.medley/lispusers/BLACKBOX.LCOM

(FILECREATED "16-Nov-93 17:23:13" ("compiled on " {DSK}<king>export>lispcore>lispusers>BLACKBOX.;1) 
"11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44")
(FILECREATED "10-Jan-86 08:27:39" {PHYLUM}<BOBROW>LISP>BLACKBOX.;7 17547 changes to: (FNS 
InitializeGuessArray BlackBoxChoices InitializeBallArray NewGame AskQuestion BlackBoxWindowFn OnEdge 
ProbeBallArray FillBox DrawBlackBox RedisplayBox) (VARS BLACKBOXCOMS HintTime) previous date: 
" 3-Jan-86 19:12:57" {PHYLUM}<BOBROW>LISP>BLACKBOX.;5)
AskQuestion D8
(P 3 g P 2 answer P 1 guessArray P 0 boxSize I 2 yBox I 1 xBox I 0 window) s@g

@g


@g
ABH
J´>IAHBJd².¿@g@g
kÔ
IJ
JHK
¿K
J(111 SetSquareArray 102 SetSquareArray 86 PUTWINDOWPROP 79 GETWINDOWUSERPROP 46 ProbeBallArray 38 GETWINDOWUSERPROP 24 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(74 LastGuessNumber 68 LastGuessNumber 33 BallArray 19 GuessArray 5 BoxSize)
()
BlackBox D8
(P 2 boxWindow P 1 boxWidth P 0 boxSize I 1 numBalls I 0 numRows F 3 BlackBoxSquare) ƒ
@3¤lb¿A3¤lb¿@ló²'oi
¿@i
¿oi
¿lb¿A@ó²!oi
¿@i
¿i	¿@b¿l@Ô
SHÖ

HIA
Jjd(128 MOVEW 117 MakeBlackBoxWindow 91 TERPRI 84 PRIN1 76 PRIN1 54 PRIN1 42 PRIN1 34 PRIN1)
NIL
( 70 "You chose too many balls.  I will use " 48 " rows." 28 "Too big. Using ")
BlackBoxChoices D8
(P 4 numBalls P 3 numRows P 1 guessArray P 0 ballArray I 0 window F 5 HintTime) 
 

@g
@g
`do¿dg ¿dg¿jdnÿdhºdJ
¿	dgð²¿@HIiU	@	dgð²¿@HIhU	@	dgð—¿@	dgðž¿@h@	dg𢱲¿@g
lÕo	@gkLó²0l	i
¿oi
¿i	¿@g
°3LdKó²-¿l	i
¿oi
¿Ki
¿i	¿K¿@goLo@	gð´'o	
@	¿K@g

(413 BlackBox 408 GETWINDOWUSERPROP 395 CLOSEF 386 RNUMBER 367 NewGame 360 PUTWINDOWPROP 355 CONCAT 332 PUTWINDOWPROP 325 TERPRI 318 PRIN1 310 PRIN1 298 CHANGEFONT 292 HELVETICA 276 GETWINDOWUSERPROP 264 TERPRI 257 PRIN1 245 CHANGEFONT 239 HELVETICA 218 RNUMBER 205 GETWINDOWUSERPROP 181 NewGame 176 BallsDisplayed 158 NewGame 142 REDISPLAYW 136 DISMISS 130 ShowBalls 110 REDISPLAYW 104 DISMISS 98 ShowBalls 79 MENU 21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(403 NumBalls 373 ChangeNumberOfRows 339 TITLE 271 NumBalls 227 NumBalls 200 BoxSize 188 ChangeNumberOfBalls 165 NewGameFrom 149 NewGame 117 ShowCorrect 85 ShowAll 54 DEFAULTMENUHELDFN 45 CLRPROMPT 29 MENUTYPE# 16 GuessArray 5 BallArray)
( 381 "How many rows?" 350 " balls" 344 "Black Box with " 304 "You are asking for too many balls. Using "
 251 "You need to hide some balls." 213 "How many hidden balls" 36 (ShowCorrect ShowAll NewGame ("New Game Using Balls Shown" (QUOTE NewGameFrom) "Use the balls shown to initialize game") ChangeNumberOfBalls ChangeNumberOfRows))
BlackBoxTitle D8
(I 0 numBalls) 
o@o(15 CONCAT)
NIL
( 10 " balls --  Click Here For Help" 4 "Black Box with ")
FillBox D8
(P 1 yPos P 0 xPos I 3 symbol I 2 y I 1 x I 0 window F 2 BlackBoxSquare) ›
ARÖBRÖ
Cdgð²¿HIRdnÿÿh@dgð²'¿HoRÖÔIoRÖÔoRÖnÿÿ@
³$HlÔIlÔRlÕRlÕjg@HoRÖÔIoRÖÔ@C@
(152 PRIN1 145 MOVETO 120 DSPFILL 108 CREATEREGION 84 FILLCIRCLE 38 DSPFILL 28 CREATEREGION)
(114 REPLACE 45 Ball 15 Black)
( 136 0.25 127 0.25 72 0.45 64 0.5 55 0.5)
InitializeBallArray D8
(P 6 randY P 5 randX P 4 i P 2 position P 1 I I 3 ballPositions I 2 boxSize I 1 numBalls I 0 array) ‹@	kÙj
IHó“C°)@Ih¿IkÔY°ìd

@J
JBg
µçAkÙC	LKó‘h kBlÕ
½kBlÕ
¾@MNB³á@MNBg
LkÔ\°Ã(130 SetSquareArray 113 SquareArray 103 RAND 92 RAND 70 LENGTH 56 SetSquareArray 27 SETA 5 ARRAYSIZE)
(124 Ball 50 Ball)
()
InitializeGuessArray D8
(P 4 j P 2 i P 0 maxIndex I 1 boxSize I 0 guessArray) VAkÙ
HjJIó‘hHjLKó³5@JLAJdjðš¿Ljð³LHð­JHð´Ljð¤LHð´g
¿LkÔ\°ËJkÔZ°¹(70 SetSquareArray)
(64 Black)
()
LeftAhead D8
(I 4 direction I 3 boxSize I 2 y I 1 x I 0 array) e@Dgð©Ddgð•¿AkÙ°gð§Dgð“AkØ€ADgð©Ddgð•¿BkÙ°gð§Dgð“BkØ€BCgð(92 SquareArray)
(97 Ball 79 U 71 R 58 D 49 L 36 R 28 D 15 U 6 L)
()
LeftTurn D8
(I 0 direction) E
@dgð•gdgð•ggð•g@gð•go@
(66 ERROR)
(54 D 47 L 40 R 33 D 27 U 20 R 13 L 6 U)
( 60 "Bad Direction")
MakeBlackBoxWindow D8
(P 0 window I 2 numBalls I 1 boxWidth I 0 boxSize) †
jdAl
AilB	l
o	H
HgAHg@HgBHggHggH@
H(130 NewGame 123 PUTWINDOWPROP 107 PUTWINDOWPROP 91 PUTWINDOWPROP 79 PUTWINDOWPROP 67 PUTWINDOWPROP 55 DSPFONT 49 FONTCREATE 36 CREATEW 29 BlackBoxTitle 23 CREATEREGION 18 HEIGHTIFWINDOW 9 WIDTHIFWINDOW)
(118 BlackBoxWindowFn 113 BUTTONEVENTFN 102 DrawBlackBox 97 REPAINTFN 85 NumBalls 73 BoxSize 61 BoxWidth)
( 44 (HELVETICA 18 BOLD))
MoveAhead D8
(I 4 direction I 3 boxSize I 2 y I 1 x I 0 array) ?@Ddgð”¿AkÙ‹gð“AkØ€ADdgð”¿BkÙ‹gð“BkØ€BCD
(60 MoveBall)
(45 U 33 D 19 R 7 L)
()
MoveBall D8
(P 0 edge I 4 direction I 3 boxSize I 2 yPos I 1 xPos I 0 array) ~
ABC
H“AB@ABCD
•g@ABCD
²%@ABCD
•g@ABCD	
@ABCD
²@ABCD	
@ABCD
(123 MoveAhead 111 MoveAhead 105 LeftTurn 93 RightAhead 81 MoveAhead 75 RightTurn 58 RightAhead 45 LeftAhead 27 BallAhead 7 OnEdge)
(64 R 33 H)
()
DrawBlackBox D8
(P 10 yPos P 8 xPos P 5 bottom P 3 guessArray P 2 lastLinePos P 1 boxWidth P 0 boxSize I 0 window F 11 BlackBoxSquare) Ù

@g

@g
IWÕº@g

IWN²Njð³XN—N	³LjNó’IM<49>MIó³@jMIMdWð£dJð’l<04>lh@
¿MjMIMWð£MJð’l<04>lh@
¿MW^Ô½°¤HkÙjOOó‘hHkÙj
OOó³ @OOKOOH¿OkÔ_°ßOkÔ_°Ç(197 FillBox 192 SquareArray 137 DRAWLINE 110 DRAWLINE 70 \FZEROP 43 GETWINDOWUSERPROP 24 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(38 GuessArray 19 BoxWidth 5 BoxSize)
()
BallAhead D8
(I 4 direction I 3 boxSize I 2 y I 1 x I 0 array) C@Ddgð”¿AkÙ‹gð“AkØ€ADdgð”¿BkÙ‹gð“BkØ€BCgð(58 SquareArray)
(63 Ball 45 U 33 D 19 R 7 L)
()
BallDownOrUp D8
(P 1 boxSize P 0 array I 2 yBox I 1 xBox I 0 window) 9@g

@g


HABIHABI‘h„g
(54 SetSquareArray 40 SquareArray 24 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP)
(48 Ball 19 BoxSize 5 GuessArray)
()
BBBoxNumber D8
(L (1 place 0 window) F 0 BlackBoxSquare) 
APÛNIL
NIL
()
BlackBoxWindowFn D8
(P 4 answer P 3 lastRow P 2 yBox P 1 xBox P 0 buttons I 0 window) <00>
@d	
@d	
@g
kÙJ@g
ð™H´>@	Hµ4Ijð¬Jjð¨IKð¤JKð²$@IJ
@IJL´@L
L@IJ@IJ(138 RedisplayBox 130 BallDownOrUp 121 RedisplayBox 107 RedisplayBox 96 AskQuestion 67 BlackBoxChoices 56 GETWINDOWUSERPROP 39 GETWINDOWUSERPROP 28 BBBoxNumber 23 LASTMOUSEY 16 BBBoxNumber 11 LASTMOUSEX 4 DECODEBUTTONS)
(51 BoxSize 34 BoxSize)
()
MakeBallArray D8
(I 0 numBalls) 

@dÖhdj(10 ARRAY)
NIL
()
NewGame D8
(P 2 guessArray P 1 ballArray P 0 V I 2 ballPositions I 1 boxSize I 0 window) ŒA­@g
b¿@g
µA	
@gH¿H@g
µA	
@gH¿HJABI@g
AB@gk@	(137 REDISPLAYW 131 PUTWINDOWPROP 119 InitializeBallArray 112 GETWINDOWUSERPROP 100 InitializeGuessArray 86 PUTWINDOWPROP 71 MakeBallArray 63 GETWINDOWUSERPROP 49 PUTWINDOWPROP 34 MakeBallArray 26 GETWINDOWUSERPROP 12 GETWINDOWUSERPROP)
(125 LastGuessNumber 107 NumBalls 80 GuessArray 58 GuessArray 43 BallArray 21 BallArray 7 BoxSize)
()
OnEdge D8
(L (2 boxSize 1 y 0 x)) .Ajð•g@jð•gABkÙð•g@BkÙð´gNIL
(43 L 30 D 18 R 8 U)
()
ProbeBallArray D8
(P 2 direction P 1 atCorner P 0 lastIndex I 3 boxSize I 2 yPos I 1 xPos I 0 array F 3 yBox F 4 xBox) sCkÙ
Tdjð›¿SjðµSHðµTHð´
SjðµSHðYhð´
ABC
J´=@ABCJ
•g@ABCJ
«@ABCJ
•g@ABCJ
(112 MoveAhead 94 RightAhead 82 LeftAhead 64 BallAhead 47 OnEdge)
(100 R 70 H)
()
RedisplayBox D8
(I 2 yBox I 1 xBox I 0 window) '@AB@g
AB@g
(36 FillBox 31 SquareArray 26 GETWINDOWUSERPROP 13 GETWINDOWUSERPROP)
(21 BoxSize 8 GuessArray)
()
RightAhead D8
(I 4 direction I 3 boxSize I 2 y I 1 x I 0 array) e@Dgð©Ddgð•¿AkÙ°gð§Dgð“AkØ€ADgð©Ddgð•¿BkÙ°gð§Dgð“BkØ€BCgð(92 SquareArray)
(97 Ball 79 U 71 L 58 D 49 R 36 R 28 U 15 L 6 D)
()
RightTurn D8
(I 0 direction) E
@dgð•gdgð•ggð•g@gð•go@
(66 ERROR)
(54 U 47 L 40 L 33 D 27 D 20 R 13 R 6 U)
( 60 "Bad Direction")
SetSquareArray D8
(I 4 newValue I 3 rowSize I 2 y I 1 x I 0 array) @ACBÖÔD(11 SETA)
NIL
()
ShowBalls D8
(P 4 yPos P 2 xPos P 0 boxSize I 3 showAll I 2 gameArray I 1 ballArray I 0 window F 5 BlackBoxSquare) {
@g

HkÙjJIó‘hHkÙjLKó³NAJLHgð²7CªBJLH²*JUÖlÔLUÖlÔUlÕUlÕnÿÿg@¿LkÔ\°²JkÔZ°ž(107 DSPFILL 93 CREATEREGION 66 SquareArray 47 SquareArray 10 GETWINDOWUSERPROP)
(101 INVERT 52 Ball 5 BoxSize)
()
SquareArray D8
(I 3 rowSize I 2 y I 1 x I 0 array) 
@ACBÖÔ
(10 ELT)
NIL
()
(PRETTYCOMPRINT BLACKBOXCOMS)
(RPAQQ BLACKBOXCOMS ((VARS BlackBoxSquare HintTime) (FNS AskQuestion BlackBox BlackBoxChoices 
BlackBoxTitle FillBox InitializeBallArray InitializeGuessArray LeftAhead LeftTurn MakeBlackBoxWindow 
MoveAhead MoveBall DrawBlackBox BallAhead BallDownOrUp BBBoxNumber BlackBoxWindowFn MakeBallArray 
NewGame OnEdge ProbeBallArray RedisplayBox RightAhead RightTurn SetSquareArray ShowBalls SquareArray))
)
(RPAQQ BlackBoxSquare 40)
(RPAQQ HintTime 5000)
(PUTPROPS BLACKBOX COPYRIGHT ("Xerox Corporation" 1985 1986))
NIL