Listing of file='MOVER.BAS;02' on disk='vmedia/ncc_catalog_1-sector.ccvf'
100 PLOT 12,6,6,15,27,11 110 CLEAR 4000 120 DIM N$(21),K$(21),A$(21),DATE$(21),T$(21),M$(21),S$(21),L$(21),F$(21) 125 DIM FINAM$(21),B$(21),H$(21),D$(21) 200 PRINT "CATALOG MOVER FOR CCUG DISCS--BARRY'S FORMAT":PRINT :PRINT 220 INPUT "INSERT SOURCE DISC AND HIT RETURN ! ";AA$:REM 4200 FILE "R",1,"CATALG",1 4250 GET 1,1,1;EOF 4275 FOR NUM= 2TO EOF 4300 GET 1,NUM,1;N$(NUM)[6],K$(NUM)[2],A$(NUM)[24],DATE$(NUM)[8],T$(NUM)[12],M$(NUM)[3] 4350 GET 1,NUM,56;S$(NUM)[4],L$(NUM)[5],F$(NUM)[1],FINAM$(NUM)[6],B$(NUM)[1],H$(NUM)[1],D$(NUM)[50] 4355 PRINT N$(NUM) 4360 NEXT 4375 FILE "C",1 5000 PRINT :PRINT :INPUT "INSERT DESTINATION DISK AND ENTER PROGRAM STARTING NUMBER ! ";NN 5200 FILE "R",1,"CATALG",1 5210 FOR NUM= 2TO EOF 5300 PUT 1,NN- 1+ NUM,1;N$(NUM)[6],K$(NUM)[2],A$(NUM)[24],DATE$(NUM)[8],T$(NUM)[12],M$(NUM)[3] 5350 PUT 1,NN- 1+ NUM,56;S$(NUM)[4],L$(NUM)[5],F$(NUM)[1],FINAM$(NUM)[6],B$(NUM)[1],H$(NUM)[1],D$(NUM)[50] 5400 PRINT N$(NUM) 5450 NEXT 5460 FILE "C",1