10 A=53280:POKEA,3:POKEA+1,1:POKE646,6  -- ELAINE FOSTER
15 D1=2844:D2=3051:PRINT"[147] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
20 PRINTCHR$(142)"  UNIVERSAL VERIFIER/ML "
25 PRINT" THIS PRG CAN VERIFY ANY PAIR OF FILES
30 [153]" ON DISK, 1 OR 2 DRIVES, FILETYPE
35 PRINT" IRRELEVANT. SOURCE AND DESTINATION
40 [153]" FILES ON THE SAME DRIVE MUST HAVE
50 PRINT" DIFFERENT NAMES. IF USING TWO DRIVES    THEY MAY BE THE SAME.
65 [153]" 1WAIT OR 2WAIT DRIVES? ";
70 [141]1000:[153]""A$"WAIT":[151]D1,8:[151]D2,8:[139]A$[178]"2"[167][151]D1,9:[151]D2,9
160 [133]" SOURCE FILE NAME";SN$:[139]SN$[178]""[167][128]
170 [133]" DESTINATION FILE NAME";DN$:[139]DN$[178]""[167][128]
180 [129]N[178]1[164][195](SN$):[151]3030[170]N,[198]([202](SN$,N,1)):[130]:[151]3047,[195](SN$)
190 [129]N[178]1[164][195](DN$):[151]3069[170]N,[198]([202](DN$,N,1)):[130]:[151]3086,[195](DN$)
200 [153]"VERIFYING.";:[158]2800:[128]
1000 [161]A$:[139]A$[178]""[167]1000
1010 [142]