added CMS folder

CMS/BP.CLOCK/DSB

@@ -0,0 +1,28 @@
+OPEN 'DICT CLOCKFILE' TO CLOCK1 ELSE ABORT
+OPEN 'DICT CLOCKFILE2' TO CLOCK2 ELSE ABORT
+EOF=0; NUM.READ=0; NUM.DONE=0
+SELECT CLOCK1
+LOOP
+  READNEXT ID ELSE EOF=1
+UNTIL EOF DO
+  IF REM(NUM.READ,1) ELSE GOSUB 2000
+  GOSUB 1000
+REPEAT
+GOSUB 2000
+CRT @(0,22):"Press any key to continue...":
+ANY=""; INPUT ANY
+STOP
+*
+1000 *
+READ REC FROM CLOCK1,ID THEN
+  NUM.READ=NUM.READ+1
+  WRITE REC ON CLOCK2,ID
+  NUM.DONE=NUM.DONE+1
+END
+RETURN
+*
+2000 *
+CRT @(-1)
+CRT @(0,5):"Number records read:    ":NUM.READ
+CRT @(0,6):"Number records done:    ":NUM.DONE
+RETURN