(FILECREATED " 9-SEP-83 17:05:36" ("compiled on " {PHYLUM}<LISPUSERS>NQUEENS.;1) " 8-SEP-83 19:22:13" tcompl'd in {PHYLUM}<LISPCORE>FUGUE>DEMO.SYSOUT dated " 9-SEP-83 14:01:30")(FILECREATED "23-SEP-82 18:43:51" {SDR2020}PS:<SCHOEN>NQUEENS.;3 7330 changes to: (VARS NQUEENSCOMS NQUEENSVARS WSQUARE BSQUARE BQUEEN WQUEEN NQUEENSBITMAPS) (FNS NQUEENS \NQUEENS REMOVELASTDISPLAYEDQUEEN PLACEQUEEN REMOVELASTQUEEN EVENP NQUEENSINIT) previous date: "23-Sep-82 16:10:57" {SDR2020}PS:<SCHOEN>NQUEENS.;1)CONFLICTP D1(P 1 Q I 2 ROW I 1 COLUMN I 0 QLST)  6  @Hµh¹BI
  ³AI
  ³BIÙ	  AIÙ	  
  ‘iHX°Ò (54Q EQUAL 51Q ABS 42Q ABS 31Q EQUAL 21Q EQUAL)NILNILEVENP D1(L (0 N))  
   @kåjð´i NILNILNILNQUEENS D1(P 0 QLST I 0 N)     @	  H@k  h (14Q \NQUEENS 6 NQUEENSINIT)NILNILNQUEENSINIT D1(P 4 J P 2 I P 0 BOARDPOS I 0 N F 5 NQUEENSBOARD F 6 NQUEENSGRID F 7 BSQUARE)   @l(Ú@l(Ú
   HH@l(ÚlØ@l(ÚlØh	  c
jdl(dhc@dkU  @kÙjJIñ³E@kÙjLKñ³2JLØkåjð²#WkdUJV
  kØLV
  kØl&dg  g  
  ¿LkØ\°ÎJkØZ°»h (176Q BITBLT 157Q BOTTOMOFGRIDCOORD 150Q LEFTOFGRIDCOORD 75Q GRID 47Q CREATEW 12Q GETBOXPOSITION)(172Q REPLACE 167Q INPUT)NILPLACEQUEEN D1(I 2 ROW I 1 COLUMN I 0 QLST F 0 NQUEENSGRID F 1 BQUEEN F 2 WQUEEN F 3 NQUEENSBOARD)  @  BAØkåjð‘Q€RkdSAkÙP
  kØBkÙP
  kØl&dg  g  
  @™BAh@
  BAh (67Q \APPEND2 54Q BITBLT 35Q BOTTOMOFGRIDCOORD 24Q LEFTOFGRIDCOORD)(50Q REPLACE 45Q INPUT)NILREMOVELASTDISPLAYEDQUEEN D1(P 0 LASTQ I 0 QLST F 1 NQUEENSGRID F 2 BSQUARE F 3 WSQUARE F 4 NQUEENSBOARD)  = @ HkÙHkÙØkåjð‘R€SkdTHkÙQ
  kØHkÙQ
  kØl&dg  g  
  h (71Q BITBLT 52Q BOTTOMOFGRIDCOORD 40Q LEFTOFGRIDCOORD)(65Q REPLACE 62Q INPUT)NILREMOVELASTQUEEN D1(P 0 LASTQ I 0 QLST F 1 NQUEENSGRID F 2 BSQUARE F 3 WSQUARE F 4 NQUEENSBOARD)  > @ HkÙHkÙØkåjð‘R€SkdTHkÙQ
  kØHkÙQ
  kØl&dg  g  
  @ (71Q BITBLT 52Q BOTTOMOFGRIDCOORD 40Q LEFTOFGRIDCOORD)(65Q REPLACE 62Q INPUT)NIL\NQUEENS D1(P 1 R I 2 NEXTCOL I 1 NQS I 0 QLST)  …  AkIHñ‘h@BI  ³m@BI  b ¿ABñ²@ABkØ  ³U@	  b °L@i
  ¿i	  ¿o   	  ¿  ¿`  dlåjð•¿  °ílålð™  ¿°  ¿  ¿`  låjð²ð@	  ¿IkØY°„ (174Q REMOVELASTDISPLAYEDQUEEN 155Q GETMOUSESTATE 151Q \BACKGROUND 143Q RESET 127Q \BACKGROUND 110Q GETMOUSESTATE 104Q PROMPTPRINT 74Q TERPRI 67Q PRIN1 56Q REMOVELASTQUEEN 50Q \NQUEENS 30Q PLACEQUEEN 20Q CONFLICTP)(161Q LASTMOUSEBUTTONS 114Q LASTMOUSEBUTTONS)(101Q "Hit left mouse button to leave, any other to continue")(PRETTYCOMPRINT NQUEENSCOMS)(RPAQQ NQUEENSCOMS ((FNS * NQUEENSFNS) (BITMAPS * NQUEENSBITMAPS) (ADDVARS (GLOBALVARS BSQUARE WSQUARE BQUEEN WQUEEN NQUEENSGRID NQUEENSBOARD))))(RPAQQ NQUEENSFNS (CONFLICTP EVENP NQUEENS NQUEENSINIT PLACEQUEEN REMOVELASTDISPLAYEDQUEEN REMOVELASTQUEEN \NQUEENS))(RPAQQ NQUEENSBITMAPS (BQUEEN BSQUARE WQUEEN WSQUARE))(RPAQ BQUEEN (READBITMAP))(40 40 "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDHBDIBD@@" "IBDICHIBDI@@" "BDIBBIBDIB@@" "DI@@BH@ABD@@" "IBAMFLG@DI@@" "BDBDDDDHIB@@" "DIDCLGHEBD@@" "IBD@@@@DDI@@" "BDB@@@@HIB@@" "DIAGOOIABD@@" "IBE@@@ABDI@@" "BDI@@@ADIB@@" "DIA@@@AABD@@" "IBEOOOOBDI@@" "BDH@@@@DIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@")(RPAQ BSQUARE (READBITMAP))(40 40 "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@" "BDIBDIBDIB@@" "DIBDIBDIBD@@" "IBDIBDIBDI@@")(RPAQ WQUEEN (READBITMAP))(40 40 "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@CH@@@@@@" "@@@@BH@@@@@@" "@@@@BH@@@@@@" "@@ALFLG@@@@@" "@@BDDDDH@@@@" "@@DCLGHD@@@@" "@@D@@@@D@@@@" "@@B@@@@H@@@@" "@@AGOOI@@@@@" "@@A@@@A@@@@@" "@@A@@@A@@@@@" "@@A@@@A@@@@@" "@@AOOOO@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@")(RPAQ WSQUARE (READBITMAP))(40 40 "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@" "@@@@@@@@@@@@")(ADDTOVAR GLOBALVARS BSQUARE WSQUARE BQUEEN WQUEEN NQUEENSGRID NQUEENSBOARD)NIL