(FILECREATED " 1-Aug-85 18:34:31" ("compiled on " {PHYLUM}<LANNING>LISP>USERS>FILEPERCENT.;4) "19-Mar-85 14:34:17" recompiled changes: ClosePercentWindow GetPercentWindow ShowPercent NewLoad ReadInLoad in "SMALLLOOPS  1-Aug-85 ..." dated " 1-Aug-85 09:57:37")(FILECREATED " 1-Aug-85 18:34:18" {PHYLUM}<LANNING>LISP>USERS>FILEPERCENT.;4 5517 changes to: (FNS GetPercentWindow ShowPercent ClosePercentWindow NewLoad ReadInLoad) previous date: "26-Jul-85 18:56:53" {PHYLUM}<LANNING>LISP>USERS>FILEPERCENT.;3)ClosePercentWindow D1(I 0 window)     @	  ´@	  @	  É`  
     (27Q DREMOVE 15Q \INSUREWINDOW 11Q CLOSEW 3 WINDOWP)(32Q PercentWindowBottoms 24Q PercentWindowBottoms)()GetPercentWindow D1(P 2 window P 1 percentWindowWidth P 0 percentWindowHeight I 1 maximum I 0 title)  W  l
i
  ld	  `  kÙIÕ`  HÕ`    IH  @
  hddJhdddg  g  `    Jg  j  Jg  A  J (123Q PUTWINDOWPROP 113Q PUTWINDOWPROP 103Q BITBLT 53Q CREATEW 47Q CREATEREGION 12Q WIDTHIFWINDOW 5 HEIGHTIFWINDOW)(117Q maximum 107Q Percent 77Q GRAYSHADE 74Q INPUT 71Q TEXTURE 41Q PercentWindowBottoms 35Q PercentWindowBottoms 27Q PercentWindowBottoms 20Q SCREENWIDTH)()ShowPercent D1(P 0 percent I 1 statusWindow I 0 currentSize)  R  A	  ´LAg  
  ´C@ldÖAg  
  × hddAhdHhg  g  nÿÿ  hddAHhddg  g  `    Ag  H   (117Q PUTWINDOWPROP 107Q BITBLT 62Q BITBLT 31Q GETWINDOWUSERPROP 14Q GETWINDOWUSERPROP 3 WINDOWP)(113Q Percent 103Q GRAYSHADE 100Q INPUT 75Q TEXTURE 53Q INPUT 50Q TEXTURE 26Q maximum 11Q Percent)()NewLoadA0001 D1(NAME ERRORSET F 0 fullFileName F 1 LoadStatusWindow F 2 loadFileLength F 3 RESETVARSLST F 4 RESETY F 5 FILE F 6 LDFLG F 7 PRINTFLG)  B  g  R´o   Pg  
  
  R
  chQ	  ´
Qg  P  hSc¿PµUVW  ci (74Q OldLoadBeforePercentStuff 52Q PUTWINDOWPROP 40Q WINDOWP 27Q GetPercentWindow 23Q CONCAT 20Q FILENAMEFIELD)(46Q loadFile 15Q NAME 2 ClosePercentWindow)( 11Q "file ")NewLoad D1(P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 LoadStatusWindow P 1 loadFileLength P 0 fullFileName I 2 PRINTFLG I 1 LDFLG I 0 FILE F 6 LISPXHIST F 7 RESETVARSLST)  6 @	   Hd•g  
  V!Wo   g  
  ‘h‚g  ]
  M“  L (61Q ERROR! 54Q RESETRESTORE 42Q NewLoadA0001 17Q GETFILEINFO 3 FINDFILE)(50Q ERROR 37Q INTERNAL 14Q LENGTH)( 34Q (NewLoadA0001))ReadInLoad D1(I 2 FLG I 1 RDTBL I 0 FILE F 0 LoadStatusWindow)    g  	  ˜@	  P
  ¿@AB   (25Q READ 16Q ShowPercent 12Q GETFILEPTR 5 BOUNDP)(2 LoadStatusWindow)()(PRETTYCOMPRINT FILEPERCENTCOMS)(RPAQQ FILEPERCENTCOMS ((* * First some generic stuff to show percent windows) (FNS ClosePercentWindow GetPercentWindow ShowPercent) (VARS (PercentWindowBottoms (LIST SCREENHEIGHT))) (* * Enable the percent window for LOADing files) (FNS NewLoad ReadInLoad) (P (* This ridiculous stuff is needed in case LOAD is already advised!) (LET ((fn (OR (GETPROP (QUOTE LOAD) (QUOTE ADVISED)) (QUOTE LOAD)))) (MOVD? fn (QUOTE OldLoadBeforePercentStuff)) (/MOVD (QUOTE NewLoad) fn) (CHANGENAME (QUOTE OldLoadBeforePercentStuff) (QUOTE READ) (QUOTE ReadInLoad)) (UNDOSAVE (QUOTE (CHANGENAME OldLoadBeforePercentStuff ReadInLoad READ))) (CHANGENAME (QUOTE LAPRD) (QUOTE READ) (QUOTE ReadInLoad)) (UNDOSAVE (QUOTE (CHANGENAME LAPRD ReadInLoad READ)))))))(RPAQ PercentWindowBottoms (LIST SCREENHEIGHT))(LET ((fn (OR (GETPROP (QUOTE LOAD) (QUOTE ADVISED)) (QUOTE LOAD)))) (MOVD? fn (QUOTE OldLoadBeforePercentStuff)) (/MOVD (QUOTE NewLoad) fn) (CHANGENAME (QUOTE OldLoadBeforePercentStuff) (QUOTE READ) (QUOTE ReadInLoad)) (UNDOSAVE (QUOTE (CHANGENAME OldLoadBeforePercentStuff ReadInLoad READ))) (CHANGENAME (QUOTE LAPRD) (QUOTE READ) (QUOTE ReadInLoad)) (UNDOSAVE (QUOTE (CHANGENAME LAPRD ReadInLoad READ))))(PUTPROPS FILEPERCENT COPYRIGHT ("Xerox Corporation" 1985))NIL