g =252 F1$="" 0,7)"No Menu Program";: E$="Input Error!, Press A Key":dis_err: TFD 2 comp Alan D. Taylor: 21/08/88 Z88 User #0153 VER$="002"  #0 =0 $LC%=0:BELL$=(7) .1,82 8 "<< File Comparison >>" B1,82 L88,0);"[";VER$;"]" V ` "Filename 1:"; j F1$: F1$="" "menu" ItF1%=(F1$): F1%=0 E$="File "+F1$+" does not exist":dis_err: TFD ~ "Filename 2:";  F2$: F2$="" "menu" IF2%=(F2$): F2%=0 E$="File "+F2$+" does not exist":dis_err: TFD 8 #F1% E$="File "+F1$+" Empty...":dis_err: TFD 8 #F2% E$="File "+F2$+" Empty...":dis_err: TFD J #F1%<>#F2% E$="Warning! Files are not the same size...":dis_err TS= : 0:C1%=#F1%:C2%=#F2%: C1%<>C2% char_err  #F1% : TE=(-TS)/100 BSEC=#F1%/TE VE$="Done..'Files Match' Time Taken "+(TE)+" Secs, Bytes/Sec = "+(BSEC):dis_err  #0  TFD dis_err '(0,7);E$;BELL$;:E%=:0,7);(90); 2 <char_err >F C1%<32 C1$=", Char=[CTL]" C1$=", Char=["+(C1%)+"]" >P C2%<32 C2$=", Char=[CTL]" C2$=", Char=["+(C2%)+"]" bZE$="Byte Error - File1 Byte="+(C1%)+C1$+" - File2 Byte="+(C2%)+C2$+" (Continue Y/N) " &ddis_err: E%<>89 E%<>121 TFD n