(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "21-Aug-2022 18:08:57" ("compiled on " {DSK}larry>medley>lispusers>HANOI.;2) "20-Aug-2022 11:14:08" bcompl'd in "FULL 20-Aug-2022 ..." dated "20-Aug-2022 11:14:10") (FILECREATED "21-Aug-2022 18:08:56" {DSK}larry>medley>lispusers>HANOI.;2 22228 :CHANGES-TO (VARS HANOICOMS) :PREVIOUS-DATE "25-Feb-86 19:07:01" {DSK}larry>medley>lispusers>HANOI.;1) DISPLAYPEGSANDRINGS :D8 (P 1 RING P 0 PEG I 1 W I 0 PEGS F 2 PEGSHADE) M@FdARH H,dAI I IIIA hh(61 CENTERPRINTINREGION 43 \CLEARBM 36 RINGSHADE 16 \CLEARBM) NIL () DOHANOI :D8 (I 3 W I 2 DST I 1 SRC I 0 N) <@dkABC kAdB C ABC @kAB bb(48 FINDOTHER 38 MOVERING 30 DOHANOI 24 FINDOTHER 13 MOVERING) NIL () FINDOTHER :D8 (P 1 Z I 1 D I 0 S) lkIHId@dAikYhNIL NIL () HANOI :D8 (I 3 ONCE I 2 FONT I 1 WINDOW I 0 NRINGS) @ABC (8 WHANOI) NIL () HANOIDEMO :D8 (P 0 HANOI.MOUSE.SPEED F 1 HANOIWINDOW) 0lQQlnTnn,h chi h(44 WHANOI 35 CREATEW) (10 WINDOW) () MOVEDIS :D8 (P 7 I P 5 TOPLIMIT P 4 I P 3 MOVERIGHTFLG P 2 HORIZWIDTH P 1 RINGWIDTH P 0 RINGREGION I 4 W I 3 DX I 2 SX I 1 DY I 0 RING F 9 VERTSPEED F 10 RINGHEIGHT F 11 PEGTOP F 12 HORIZSPEED F 13 UPRINGBM F 14 TOPDOWNRINGBM F 15 DOWNRINGBM F 16 HORIZRINGBM F 17 HANOI.MOUSE.SPEED F 18 TOPUPRINGBM)  @1W"?l`l2dkkdllc`l2kdkkdl,l,c@HYCB[D HWWML'WjdDBLIWWgg WLؼWjLMDBLIWWgg W$jdDBWIWWgg IWZKCWkقCkKBBWO>OjmOO _jOOKCWkقCkOKCWkقCk7W jdDOWWJWgg OCBkmW__W jdDKCWـCWWJhgg HdCBWWkWO3OjZOO LjOOWWkOWWk/WhdDCOIWWgg OjW__WhdDCWWIWWgg WWWAL6WjdDCAIWWWWALلWWgg HA@WjdDCLIWWgg LWټ(631 BKBITBLT 595 BKBITBLT 534 BKBITBLT 485 BKBITBLT 424 \FZEROP 382 BKBITBLT 323 BKBITBLT 250 \FZEROP 200 BKBITBLT 169 BKBITBLT 130 BKBITBLT 85 SETUPRINGBITMAPS 13 GETMOUSESTATE) (625 REPLACE 620 INPUT 589 REPLACE 584 INPUT 528 REPLACE 523 INPUT 479 REPLACE 474 INPUT 376 REPLACE 371 INPUT 317 REPLACE 312 INPUT 194 REPLACE 189 INPUT 163 REPLACE 158 INPUT 124 REPLACE 119 INPUT 47 LASTMOUSEX 21 LASTMOUSEY) () MOVERING :D8 (P 1 RING P 0 X I 2 W I 1 DST I 0 SRC F 4 PEGS) wAdkTlTT1AdkTlTT[@dkTlTTZJdYHH@I AI B Kh(115 BLOCK 105 MOVEDIS 98 TRACK 90 TRACK) NIL () RINGSHADE :D8 (I 0 RINGN F 1 PEGSHADE F 2 EVENRINGSHADE F 3 ODDRINGSHADE) '@dgQkHj HH RS(31 \FZEROP) (6 BASE) () SETUPRINGBITMAPS :D8 (P 2 RINGN P 1 RINGREGION P 0 PEGOFFSET I 3 W I 2 MOVERIGHTFLG I 1 RINGWIDTH I 0 RING F 3 RDEST F 4 RINGHEIGHT F 5 VERTSPEED F 6 UPRINGBM F 7 DOWNRINGBM F 8 PEGWIDTH F 9 TOPUPRINGBM F 10 TOPDOWNRINGBM F 11 HORIZRINGBM F 12 FONT F 13 PEGSHADE F 14 HORIZSPEED)  AWl@@WWS gS V hddVjUATggJ hddVHjWUggW @VS @jUATS W hddWjUATggJ @WS @jUATS W hddWjdATggJ @WS @jdATS hddWHTWUggW W hddWjdATggJ @WS @jdATS W hddWBWjjATggJ @ WS @BWjjATS h(454 CENTERPRINTINAREA 433 DSPDESTINATION 418 BKBITBLT 412 RINGSHADE 381 \CLEARBM 373 CENTERPRINTINAREA 357 DSPDESTINATION 342 BKBITBLT 336 RINGSHADE 310 \CLEARBM 303 BKBITBLT 274 CENTERPRINTINAREA 258 DSPDESTINATION 243 BKBITBLT 237 RINGSHADE 211 \CLEARBM 203 CENTERPRINTINAREA 187 DSPDESTINATION 172 BKBITBLT 166 RINGSHADE 140 \CLEARBM 132 CENTERPRINTINAREA 116 DSPDESTINATION 102 BKBITBLT 74 BKBITBLT 68 RINGSHADE 43 \CLEARBM 37 DSPOPERATION 25 DSPFONT) (406 REPLACE 401 TEXTURE 330 REPLACE 325 TEXTURE 295 REPLACE 290 TEXTURE 231 REPLACE 226 TEXTURE 160 REPLACE 155 TEXTURE 94 REPLACE 89 TEXTURE 62 REPLACE 57 TEXTURE 31 ERASE) () TRACK :D8 (I 1 REGION I 0 PN F 0 RINGLARGEST) lP@kPAlNIL NIL () WHANOI :D8 (P 44 THERE P 43 HERE P 42 LABEL P 41 I P 40 RINGLEFT P 39 RINGBOTTOM P 36 RINGLABELS P 35 SOURCEPEG P 31 I P 27 I P 26 PLEFT P 24 BASE P 23 IMAGEHEIGHT P 21 DOWNRINGBM P 20 HORIZRINGBM P 19 UPRINGBM P 18 RINGDELTA P 17 HANOIWINDOW P 16 RINGDISPLAYSTREAM P 15 PEGTOP P 14 BASEHEIGHT P 13 MOVEMENTHEIGHT P 12 RINGHEIGHT P 11 BASEWIDTH P 10 PEGWIDTH P 9 TOPDOWNRINGBM P 8 RINGLARGEST P 7 TOPUPRINGBM P 6 RINGBM P 5 PEGS P 4 RDEST P 3 VERTSPEED P 2 HORIZSPEED P 1 NRINGS P 0 REGION I 3 ONCE I 2 FONT I 1 W I 0 RINGS F 45 HANOIWINDOW) -hAWZcZ A b @d3 ll0Hll_l_lIlk_$jtO$gHll_.Il_jBO5OO$Ikll_OGOOO.IlO_,dO,1O,, o o O_lOOIk_K_BL BA gL gA ldOOhllOOlk3O6O2OO4OlOOIkhO0ghdhh_O<O@$OHIklOljj*OJOl,O _(OOl _&OOl _*OOl _OOl _A MA kl,IOVOXA C}h_DOBODh_B_@O>k_>POD&_B_TOROLeOFOPONOORlO$OhIORkOThOFONO_NOPO$_PORk_ROJ_Jn OXOVOX _X_V\(722 FINDOTHER 710 DISMISS 575 DOHANOI 558 DISPLAYPEGSANDRINGS 551 \CLEARBM 542 BITMAPCREATE 527 BITMAPCREATE 512 BITMAPCREATE 497 BITMAPCREATE 482 BITMAPCREATE 419 REVERSE 286 DSPOPERATION 274 DSPOPERATION 262 DSPFONT 254 DSPFONT 220 HELP 208 \FZEROP 200 HELP 188 \FZEROP 54 DSPCREATE 45 LENGTH 35 DSPCLIPPINGREGION 28 CREATEW 20 WINDOWP 12 CREATEW) (353 BASE 280 ERASE 268 ERASE) ( 215 "Not enough width for a display." 195 "Not enough height for display.") XHANOI :D8 (P 2 PEGSHADE P 1 ODDRINGSHADE P 0 EVENRINGSHADE) *nnnoogl h(38 WHANOI 33 FONTCREATE) (26 LOGO) ( 21 (0 0 400 280) 16 (X E R O X)) (PRETTYCOMPRINT HANOICOMS) (RPAQQ HANOICOMS ((FNS DISPLAYPEGSANDRINGS DOHANOI FINDOTHER HANOI HANOIDEMO MOVEDIS MOVERING RINGSHADE SETUPRINGBITMAPS TRACK WHANOI XHANOI) (VARS (HANOIWINDOW)) (DECLARE%: DONTCOPY (RECORDS PEG RING) (CONSTANTS XRINGSHADE ORINGSHADE XPEGSHADE) (CONSTANTS PEGMIN HANOIMARGIN (MAXVERTSPEED 30) ( MAXHORIZSPEED 44)) (MACROS PEGN)) (VARS EVENRINGSHADE ODDRINGSHADE PEGSHADE) (ALISTS (IDLE.FUNCTIONS Hanoi HanoiUsername)))) (RPAQQ HANOIWINDOW NIL) (RPAQQ EVENRINGSHADE 42405) (RPAQQ ODDRINGSHADE 61375) (RPAQQ PEGSHADE 65535) (ADDTOVAR IDLE.FUNCTIONS (Hanoi (FUNCTION (LAMBDA (W) (HANOI (UNPACK "Interlisp.org") W (QUOTE ( TIMESROMAND 36))))))) (PUTPROPS HANOI COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986)) NIL