home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #3 / Commodore_Disk_User_Vol.4_3_1991_-.d64 / univerify.basic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  814 b   |  26 lines
  1. 5 poke53280,14:poke646,14:poke53281,6
  2. 10 rem  univerify -- to verify seq or text prg files: basic version. leo gunther
  3. 20 rem
  4. 30 print"[147] univerify: to verify any file!
  5. 40 [153]"source and destination files on the"
  6. 50 [153]"same drive must have different names."
  7. 60 [153]"they can be the same if using 2 drives."
  8. 70 [153]" 1wait or 2wait drives? ";
  9. 80 [141]1000:[145][171](a$[178]"1")[171]2[172](a$[178]"2")[137]90,100:[137]80
  10. 90 d[178]8:[137]110
  11. 100 d[178]9
  12. 110 [153]a$:[153]" file type? (swait or pwait or uwait) ";
  13. 120 [141]1000:[145][171](a$[178]"s")[171]2[172](a$[178]"p")[171]3[172](a$[178]"u")[137]130,140,150:[137]120
  14. 130 ft$[178]",s,r":[137]160
  15. 140 ft$[178]",p,r":[137]160
  16. 150 ft$[178]",u,r"
  17. 160 [153]a$:[153]" source file name";:[133]sn$:[139]sn$[178]""[167][128]
  18. 170 [153]" destination file name";:[133]dn$:[139]dn$[178]""[167][128]
  19. 180 [159]2,8,2,sn$[170]ft$:[159]3,d,3,dn$[170]ft$
  20. 190 [161]#2,a$:[153]".";:[139]st[167]220
  21. 200 [161]#3,b$:[145]st[137]220:[139]a$[178]b$[167]190
  22. 210 [153]"...verify error":[160]2:[160]3:[128]
  23. 220 [160]2:[160]3:[153]"...ok":[128]
  24. 1000 [161]a$:[139]a$[178]""[167]1000
  25. 1010 [142]
  26.