.enable substitution.sets uic <uic>.parse uic "," group prog.gosub 100 ATCTL.MAC;10.gosub 100 CLNUP.MAC;2.gosub 100 DISPAT.MAC;4.gosub 100 DRACC.MAC;6.gosub 100 DRGET.MAC;32.gosub 100 FNDNM.MAC;4.gosub 100 F11PRE.MAC;25.gosub 100 GTMAP.MAC;3.gosub 100 GTRTP.MAC;1.gosub 100 INFCB.MAC;3.gosub 100 MOUNT1.MAC;15.gosub 100 MOUNT2.MAC;4.gosub 100 MOUNT3.MAC;2.gosub 100 MPHDR.MAC;3.gosub 100 NXHDR.MAC;4.gosub 100 RATCM.MAC;17.gosub 100 RDHDR.MAC;4.gosub 100 WTRN1.MAC;4.exit.100:	.parse comman ".;" file ext ver junk	.open 'file'.slp	.data 'comman'/au/-bf=[13,10]'file'.'ext';1	.closediff/ou='file'.slp/sl:dle001 [13,10]'file'.'ext' 'uic''comman'	.testfile 'file'.slp;2	.if <filerr> ne 1 .goto 200	append 'file'.slp;2 'file'.slp;1	delete 'file'.slp;2	.return.200:	delete 'file'.slp;*	; File 'comman' invalid differences	.return