10 !TAKE JOURNAL ENTRIES FROM PRRSUM AND ADD TO JOURNAL (PRJ)
20 ! PROGRAM NAME: PRRJE BY CWR
30 OPEN "DK1:PAYROL.PJR" AS FILE 1%: ! FROM PRRSUM
40 DIM #1%,C$(1500%)=64%,C%(0%)
50 OPEN "DK1:PAYROL.PRJ" AS FILE 2% ! JOURNAL
60 DIM #2%,J$(1500%)=64%,J%(0%)
90 C%=C%(0%):J%=J%(0%)+1%
100 FOR I%=1% TO C%
140 J$(J%)=C$(I%):J%=J%+1%:IF J%>1500% THEN 210
150 NEXT I%
170 J%(0%)=J%-1%:PRINT "# OF JOURNAL ITEMS = ";J%-1%
180 CLOSE 1%,2%,3%
190 KILL "DK1:PAYROL.PJR":GOTO 220
210 PRINT "JOURNAL OVERFLOW":STOP
220 END