%:PG$"COMPARE":NM$"22":620007" GLEN FISHER="X" CURSOR #22, SEP 1980~" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017" " AS OF OCT 10 80dEOF(3):NU$(0)nV$(1)(4):BL$" ")xHY$"---------------------------------------"3OL1ATK$(128)XI074:TK$(I):I"DO YOU HAVE A PRINTER? ";:60000:PR((IN$,1)"Y")15,8,15"COMPARE WHAT FILE...";:60000IN$""660OF$IN$:1,8,2,"0:"OF$",P" 1070:ER1:180N1:920:T$NM$RT$V$"";OF$;" ISN'T A BASIC FILE.":1:180s"WITH WHAT FILE? ";:60000NF$IN$:2,8,3,"0:"NF$",P"1070:ER2:240N2:920:U$NM$U$V$"";NF$;" ISN'T A BASIC FILE.":2:240"PR4,4:310 ,4,3(6N1:860:L1LN:S1$IN$C@N2:860:L2LN:S2$IN$`JL1;" :";L2;"":PR380sTT$:T$""380^(BL$));"PRESS A KEY"hT$:T$""360r(BL$));BL$;"|2(L1L2)400,450,570TT$"-"LNL1:S$S1$:740 N1:860:EOF620$L1LN:S1$IN$:3305S1$S2$500ATT$"-"WLNL1:S$S1$:740cTT$"+"yLNL2:S$S2$:740D0N1:860:EOFDD1L1LN:S1$IN$N2:860:EOFDD2L2LN:S2$IN$&D1330,620,610,660:TT$"+" DLNL2:S$S2$:740& NN2:860:EOF610= XL2LN:S2$IN$:330X bN1:IN$S1$:LNL1:630s lN2:IN$S2$:LNL2:630 vTT$("-+",N,1) S$IN$:740 860:EOF0640  OL0"NO DIFFERENCES." OL04,HY$:4,"- ";OF$;" + ";NF$ 4 2 1 15 G OL04,BL$:4,"- ";OF$;" + ";NF$X OL04,HY$p OL0OLLN4,BL$ OLLN:QT0:4,TT$;LN;:I1(S$) T((S$,I,1)) T34QT1QT T128QT4,(T);:830 *T1274,TK$(T128); 4T131T1434,(S$,I1);:840 >I: HPR0(0)(BL$)4,BL$;C R4:j \960:T$C$:960:LK(T$)(C$)256 fLK0EOF1:EOF(N)EOF: p960:T$C$:960 zIN$T$C$:LN(T$)256(C$):IN$"" 960:C$NU$IN$IN$C$:900  960:EOFNM1:NM$"": NM$C$:960; NM(NM$)(C$)256:NM$NM$C$A s EOFEOF(N):EOF0#N,C$:STEOF1:EOF(N)EOF EOFC$""C$NU$  END,FOR,NEXT,DATA,INPUT#,INPUT,DIM,READ LET,GOTO,RUN,IF,RESTORE,GOSUB,RETURN,REM STOP,ON,WAIT,LOAD,SAVE,VERIFY,DEF,POKEC PRINT#,PRINT,CONT,LIST,CLR,CMD,SYS,OPENk CLOSE,GET,NEW,TAB(,TO,FN,SPC(,THEN NOT,STEP,+,-,*,/,^,AND,OR,>,=,<,SGN,INT,ABS,USR FRE,POS,SQR,RND,LOG,EXP,COS,SIN$TAN,ATN,PEEK,LEN,STR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$,GO.15,ER,ER$,TK,SC$8ER1JBER62ER$"NO SUCH FILE ON DISK"WL"";ER$]V~`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110/FL(Z127)64(Z127)91Z$((Z128)255)AZL25460010\IN$IN$Z$:Z$;ZD$;Z$;{Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010(PN060250-605002"PRESS RETURN TO ";8