home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D03.D64 / univerify.basic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  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.