home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #3 / Commodore_Disk_User_Vol.4_3_1991_-.d64 / univerify_ml (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  18 lines
  1. 10 a=53280:pokea,3:pokea+1,1:poke646,6  -- elaine foster
  2. 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]"
  3. 20 printchr$(142)"  universal verifier/ml "
  4. 25 print" this prg can verify any pair of files
  5. 30 [153]" on disk, 1 or 2 drives, filetype
  6. 35 print" irrelevant. source and destination
  7. 40 [153]" files on the same drive must have
  8. 50 print" different names. if using two drives    they may be the same.
  9. 65 [153]" 1wait or 2wait drives? ";
  10. 70 [141]1000:[153]""a$"wait":[151]d1,8:[151]d2,8:[139]a$[178]"2"[167][151]d1,9:[151]d2,9
  11. 160 [133]" source file name";sn$:[139]sn$[178]""[167][128]
  12. 170 [133]" destination file name";dn$:[139]dn$[178]""[167][128]
  13. 180 [129]n[178]1[164][195](sn$):[151]3030[170]n,[198]([202](sn$,n,1)):[130]:[151]3047,[195](sn$)
  14. 190 [129]n[178]1[164][195](dn$):[151]3069[170]n,[198]([202](dn$,n,1)):[130]:[151]3086,[195](dn$)
  15. 200 [153]"verifying.";:[158]2800:[128]
  16. 1000 [161]a$:[139]a$[178]""[167]1000
  17. 1010 [142]
  18.