(FILECREATED "14-AUG-83 13:57:13" ("compiled on " {PHYLUM}MISC>FILEBANGER.;23) "12-AUG-83 12:52:07" recompiled exprs: DOMAKEFILEBANGER DOZEROBANGER MAKEFILEBANGER in WORK dated "12-AUG-83 13:00:48") (FILECREATED "14-AUG-83 13:56:54" {PHYLUM}MISC>FILEBANGER.;23 11126 changes to: (VARS FILEBANGERCOMS) (FNS DOZEROBANGER DOMAKEFILEBANGER MAKEFILEBANGER) previous date: "13-AUG-83 15:42:41" {PHYLUM}MISC>FILEBANGER.;22) DOFILEBANGER D1 (I 2 NOBREAK I 1 LENGTH I 0 DESTINATION F 0 FILEBANGERS) (ggAhg@higBhh Pc(41Q ADD.PROCESS) (24Q QUOTE 14Q QUOTE 5 QUOTE 2 FILEBANGER) NIL DOMAKEFILEBANGER D1 (I 0 SOURCE F 0 FILEBANGERS) gg@hh Pc(17Q ADD.PROCESS) (5 QUOTE 2 MAKEFILEBANGER) NIL DOZEROBANGER D1 (I 2 TMPFILENAME I 1 TESTFILE2 I 0 TESTFILE1 F 0 FILEBANGERS) &gg@hgAhgBhh Pc(37Q ADD.PROCESS) (23Q QUOTE 14Q QUOTE 5 QUOTE 2 ZEROBANGER) NIL FILEBANGERA0016A0017 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 NEWFILE F 2 MYFILE F 3 TMPFILENAME F 4 OUTPARMS F 5 RESETY F 6 INPARMS) :oSghdT chPcoRghdV hPcRQ c i(64Q COPYBYTES 47Q OPENFILE 16Q OPENFILE) (40Q INPUT 7 OUTPUT) (34Q (PROGN (CLOSEF OLDVALUE)) 3 (PROGN (CLOSEF OLDVALUE))) FILEBANGERA0016 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 13Q RESETZ P 12Q RESETY P 11Q LISPXHIST P 7 OUTPUTSTREAM P 6 TMPFILENAME P 5 LASTFILE P 4 NEWFILE P 3 MYFILE P 2 OPTION P 1 LOOPCNT P 0 ERRCNT F 14Q TESTFILE F 15Q DESTINATION F 16Q NOBREAK F 17Q FBREPEATCOUNT F 20Q RESETY F 21Q MAKEWINDOW F 22Q LISPXHIST F 23Q RESETVARSLST)  jdWhgcWdddgggWg [c oc ig c W"Wo ig _K$WggghgW  [WJO WggghgKg IkYO W$! W&og hg_ OMM W_j#gO KLJO iHkXhOkٰL(363Q BINCOM 352Q PRIN1 331Q DELFILE 321Q ERROR! 312Q RESETRESTORE 277Q FILEBANGERA0016A0017 255Q PRIN1 243Q PACKFILENAME 207Q BINCOM 176Q COPYFILE 173Q PACKFILENAME 140Q GETSTREAM 130Q MAKEBANGERWINDOW 113Q CLOSEF 106Q OPENFILE 60Q FBMAKETESTFILE 55Q PACKFILENAME) (345Q %. 305Q ERROR 274Q INTERNAL 237Q FILEBANGER 231Q BODY 225Q VERSION 222Q FBTEMP 217Q EXTENSION 165Q BODY 161Q VERSION 156Q FBTESTER 153Q EXTENSION 135Q OUTPUT 103Q INPUT 52Q FILEBANGER 43Q BODY 40Q SOURCE 35Q EXTENSION 12Q BREAK) (271Q (DUMMY.FOR.ERRORSET) 125Q "File Banger" 74Q "No TESTFILE supplied") FILEBANGER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 OUTPARMS I 4 INPARMS I 3 NOBREAK I 2 MAKEWINDOW I 1 DESTINATION I 0 TESTFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FILEBANGERA0016) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) FBCOPYBYTES D1 (I 2 START I 1 ECHOSTREAM I 0 INSTREAM) @B l(HjA@ HkXI(23Q \OUTCHAR 4 SETFILEPTR) NIL NIL FBMAKETESTFILEA0007 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 3 STREAM P 2 I P 0 FILE F 4 RESETVARSLST F 5 NAME F 6 LENGTH F 7 RESETY) RUggg gHhhhTcVnkHg JIKl l JkZHci(102Q \OUTCHAR 77Q RAND 57Q GETSTREAM 16Q OPENFILE) (54Q OUTPUT 24Q CLOSEF 13Q NEW 10Q OUTPUT 5 FILEBANGER.TMP) NIL FBMAKETESTFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 NAME I 0 LENGTH F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q FBMAKETESTFILEA0007) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) MAKEBANGERWINDOWA0018 D1 (I 1 P I 0 W) @g b Ao (25Q PROCESS.EVAL 13Q PROCESSP 6 GETWINDOWPROP) (3 PROCESS) (22Q (ERROR!)) MAKEBANGERWINDOW D1 (P 0 W I 1 TYPE I 0 FILE F 1 RESETVARSLST) ?ghAo@ X hhQcoH Hgg Hgg H(73Q PUTWINDOWPROP 61Q PUTWINDOWPROP 47Q DSPFONT 26Q TTYDISPLAYSTREAM 22Q CREATEW 17Q CONCAT) (70Q NILL 65Q PAGEFULLFN 56Q MAKEBANGERWINDOWA0018 53Q CLOSEFN 5 TTYDISPLAYSTREAM) (43Q (GACHA 10Q) 13Q " for ") MAKEFILEBANGERA0005 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 LASTFILE P 1 NEWFILE P 0 LOOPCNT F 3 TESTFILE F 4 RESETY) Lj!S oci co Si cS Y o JI Jg (107Q REMPROP 77Q DELFILE 64Q HELP 54Q CHECKFORZEROS 50Q MAKEFILE 41Q NAMEFIELD 33Q MAKEBANGERWINDOW 22Q LOADFROM) (104Q PAGES) (61Q "Zeros found" 30Q "MAKEFILE Banger" 13Q "No TESTFILE supplied") MAKEFILEBANGER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 TESTFILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q MAKEFILEBANGERA0005) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) ZEROBANGERA0019 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 LASTFILE P 4 NEWFILE P 3 THISFILE P 2 OPTION P 1 LOOPCNT P 0 ERRCNT F 6 TMPFILENAME F 7 RESETVARSLST F 10Q TESTFILE1 F 11Q OUTPUTSTREAM F 12Q TESTFILE2 F 13Q N F 14Q NOBREAK F 15Q RESETY)  jdWhg3W og c gWhhhWcWoeg c gWhhhWcVgg c gVhhhWcW Ko g cWjWkcHciIkYW kW Vgg Kg KVjm K VgV V KVJW iHkظKWWW(363Q BINCOM 352Q CLOSEF 345Q SETFILEINFO 342Q GETFILEPTR 331Q CLOSEF 324Q COPYBYTES 313Q OPENFILE 303Q OPENFILE 270Q SPACES 261Q PRIN1 223Q GETSTREAM 215Q MAKEBANGERWINDOW 157Q CLOSEF 152Q OPENFILE 113Q CLOSEF 106Q OPENFILE 43Q CLOSEF 36Q OPENFILE) (336Q LENGTH 310Q INPUT 300Q OLD 275Q BOTH 220Q OUTPUT 163Q CLOSEF? 147Q OUTPUT 144Q ZEROBANGER.TMP 117Q CLOSEF? 103Q INPUT 47Q CLOSEF? 33Q INPUT 12Q BREAK) (212Q "Zero Banger" 76Q "No TESTFILE supplied" 25Q "No TESTFILE supplied") ZEROBANGER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 5 OUTPUTSTREAM I 4 NOBREAK I 3 N I 2 TMPFILENAME I 1 TESTFILE2 I 0 TESTFILE1 F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q ZEROBANGERA0019) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) SUSPEND.FILEBANGER D1 (P 0 PROC F 1 PUPTRACEFILE F 2 FILEBANGERS) 0RdH HH Q`o c (55Q CLOSEF 47Q PUPTRACE 26Q SUSPEND.PROCESS 20Q THIS.PROCESS 13Q PROCESSP) (40Q PUPTRACEFLG) (44Q (1500Q 640Q 276Q 520Q)) WATCHDISKPAGES D1 (P 1 LASTFILE P 0 MARGIN I 0 THRESHOLD) A@nb@HI$` ggg jn` (74Q DELFILE 66Q BLOCK 52Q OPENFILE 35Q CLOSEF 15Q DISKFREEPAGES) (55Q PUPTRACEFILE 47Q NEW 44Q OUTPUT 41Q {DSK}PUPTRACE.TMP 32Q PUPTRACEFILE) NIL BINCOMA0015 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 6 I P 4 B2 P 3 B1 P 2 HERE P 1 STRM2 P 0 STRM1 F 7 OUTPUTSTREAM F 10Q RESETVARSLST F 11Q OPTION F 12Q FILE1 F 13Q FILE2 F 14Q RESETY) Wgg Wgg 2gHhhhWcgIhhhWcWig cH I jIH kNM6H [I \$Wdg W H W oW I W oW H kZW oW JW oW JnW oW WK oW KW oW WL oW LW oW W H W oW W HWJ W I W oW W IWJ i WgHI NNk^ivWdgWW H W oW H W oW I W oW I W W WgHI H I hci(1016Q GETEOFPTR 1012Q GETEOFPTR 1005Q HELP 770Q TERPRI 762Q PRIN2 755Q GETEOFPTR 750Q PRIN1 736Q PRIN1 731Q FULLNAME 724Q PRIN1 712Q PRIN2 705Q GETEOFPTR 700Q PRIN1 666Q PRIN1 661Q FULLNAME 654Q TERPRI 617Q HELP 602Q TERPRI 575Q FBCOPYBYTES 565Q TERPRI 557Q PRIN1 545Q PRIN1 540Q FULLNAME 533Q TERPRI 525Q FBCOPYBYTES 515Q TERPRI 507Q PRIN1 475Q PRIN1 470Q FULLNAME 463Q TERPRI 455Q PRIN1 443Q PRIN2 434Q PRIN1 422Q \OUTCHAR 413Q PRIN1 401Q PRIN2 372Q PRIN1 360Q \OUTCHAR 351Q PRIN1 337Q PRIN2 324Q PRIN1 312Q PRIN2 301Q PRIN1 267Q PRIN2 257Q GETFILEPTR 252Q PRIN1 240Q PRIN1 233Q FULLNAME 226Q PRIN1 214Q PRIN1 207Q FULLNAME 202Q TERPRI 133Q GETEOFPTR 120Q GETEOFPTR 114Q GETEOFPTR 105Q GETSTREAM 25Q OPENSTREAM 12Q OPENSTREAM) (776Q BREAK 643Q NOMSG 610Q BREAK 167Q NOMSG 102Q OUTPUT 54Q CLOSEF 33Q CLOSEF 22Q OLD 17Q INPUT 7 OLD 4 INPUT) (743Q " has length " 717Q ", but " 673Q " has length " 552Q " reads:" 502Q " reads:" 450Q "]" 427Q "[" 406Q "] vs. " 365Q "[" 344Q "): " 317Q ", byte " 274Q " (page " 245Q " differ at byte " 221Q " and ") BINCOM D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 OUTPUTSTREAM I 2 OPTION I 1 FILE2 I 0 FILE1 F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q BINCOMA0015) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) CHECKFORZEROSA0025 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 2 N P 1 #FAILURES P 0 STREAM F 3 MINZEROS F 4 RESETVARSLST F 5 FILE F 6 RESETY) Ug jgHhhhTcSlcHg"H i oi i H IjhIc ijkH jJkذJSJi oi H Jki i IkY(205Q TERPRI 200Q PRIN2 170Q GETFILEPTR 163Q PRIN1 152Q PRIN2 76Q TERPRI 71Q PRIN1 60Q PRIN1 54Q FULLNAME 6 OPENSTREAM) (45Q NILL 15Q CLOSEF 3 INPUT) (157Q " zeros starting at byte " 65Q ": ") CHECKFORZEROS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 MINZEROS I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q CHECKFORZEROSA0025) (24Q ERROR 13Q INTERNAL) (10Q (DUMMY.FOR.ERRORSET)) (PRETTYCOMPRINT FILEBANGERCOMS) (RPAQQ FILEBANGERCOMS ((FNS DOFILEBANGER DOMAKEFILEBANGER DOZEROBANGER FILEBANGER FBCOPYBYTES FBMAKETESTFILE MAKEBANGERWINDOW MAKEFILEBANGER ZEROBANGER SUSPEND.FILEBANGER WATCHDISKPAGES) (FNS BINCOM) (FNS CHECKFORZEROS) (INITVARS (FBREPEATCOUNT 4) (FILEBANGERS)))) (RPAQ? FBREPEATCOUNT 4) (RPAQ? FILEBANGERS) (PUTPROPS FILEBANGER COPYRIGHT ("Xerox Corporation" 1983)) NIL