5 POKE53280,14:POKE646,14:POKE53281,6
10 REM  UNIVERIFY -- TO VERIFY SEQ OR TEXT PRG FILES: BASIC VERSION. LEO GUNTHER
20 REM
30 PRINT"[147] UNIVERIFY: TO VERIFY ANY FILE!
40 [153]"SOURCE AND DESTINATION FILES ON THE"
50 [153]"SAME DRIVE MUST HAVE DIFFERENT NAMES."
60 [153]"THEY CAN BE THE SAME IF USING 2 DRIVES."
70 [153]" 1WAIT OR 2WAIT DRIVES? ";
80 [141]1000:[145][171](A$[178]"1")[171]2[172](A$[178]"2")[137]90,100:[137]80
90 D[178]8:[137]110
100 D[178]9
110 [153]A$:[153]" FILE TYPE? (SWAIT OR PWAIT OR UWAIT) ";
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
130 FT$[178]",S,R":[137]160
140 FT$[178]",P,R":[137]160
150 FT$[178]",U,R"
160 [153]A$:[153]" SOURCE FILE NAME";:[133]SN$:[139]SN$[178]""[167][128]
170 [153]" DESTINATION FILE NAME";:[133]DN$:[139]DN$[178]""[167][128]
180 [159]2,8,2,SN$[170]FT$:[159]3,D,3,DN$[170]FT$
190 [161]#2,A$:[153]".";:[139]ST[167]220
200 [161]#3,B$:[145]ST[137]220:[139]A$[178]B$[167]190
210 [153]"...VERIFY ERROR":[160]2:[160]3:[128]
220 [160]2:[160]3:[153]"...OK":[128]
1000 [161]A$:[139]A$[178]""[167]1000
1010 [142]