added CMS folder

CMS/BP.CLOCK/ONE.BAK

@@ -0,0 +1,40 @@
+* ONE.BAK
+$INCLUDE GEN.COMMON
+OPEN 'USER' TO USER ELSE ABORT
+OPEN 'USER.BACKUP' TO USER.BACKUP ELSE ABORT
+OPEN 'CLOCK.GEN.KEYS' TO CGK ELSE ABORT
+*
+EOF=0
+T=0
+WT=0
+*
+CRT CS
+PRINT
+PRINT 'BACK UP ONE CLOCK PERIOD FOR REPROCESSING!'
+PRINT
+CRT @(0,22):CL:RV:" ENTER 'B' TO BACK UP ON PAY PERIOD :":ERV:
+INPUT BACK.ANS,4
+IF BACK.ANS # 'B' THEN STOP
+*
+CLEARFILE USER
+SELECT USER.BACKUP
+LOOP
+  READNEXT ID ELSE EOF=1
+UNTIL EOF DO
+  T=T+1
+  READ  WK.REC FROM USER.BACKUP,ID THEN
+    WRITE WK.REC ON USER,ID
+    WT=WT+1
+  END
+  CRT @(0,15):CL:" BACK UP RECORDS READ   :":T
+  CRT @(0,16):CL:" BACK UP RECORDS WRITTEN:":T  
+REPEAT
+READ DATE.REC FROM CGK,'NEXT.PAY.PERIOD' THEN
+  NEW.DATE=DATE.REC<1>-14
+  DATE.REC<1>=NEW.DATE
+  PRINT ' NEW DATE = ':OCONV(NEW.DATE,'D2/')
+  WRITE DATE.REC ON CGK,'NEXT.PAY.PERIOD'
+END
+CRT @(0,22):CL:RV:" CLOCK BACKED UP! :":ERV:
+INPUT ANY
+STOP