6,1,M 
D1 
   DOS "DEL DATE.DAS" 
   DOS "COPY /Y C:\DOS\DATE.DAS" 
   IP=31C 
   "DATE"=20C 
   RUN "DATE.DOC,2,S1,S6,20C=1C,21C <3C,22C <5C" 
   IF 22C>3 THEN MC "27" ENDIF 
   MG "PASS_1" 
   "WEEK"=22C 
   RUN "LINE.DOC,2,S1,S7,22C=1C,1C <2C,2C <3C" 
   IF 2C <>21C THEN MC "27" ENDIF 
   RUN "LJ.DOC,2,S1,S8,2C=2C,3C <3C,4C <4C,5C <5C" 
   IF ""=1C THEN MC "27" ENDIF 
   "0000"+2C$=25C RG"25C,4"=2C$ 
   IF ""=3C THEN "0"=3C ENDIF RS=3C 
   IF ""=4C THEN "0"=4C ENDIF RS=4C 
   IF ""=5C THEN "0"=5C ENDIF RS=5C 
   IP=6C RS=6C 
   RG"1C,2"=11C RG"2C,2"=12C RG"3C,4"=13C RG"4C,4"=14C RG"5C,4"=15C 
   3C+12C*11C*14C/3 FI=16C 
   4C+13C*11C*15C/7 FI=17C 
   5C+14C*911*13C/11C FI=18C 
   16C+17C+18C*99999=24C RG"24C,6"=7C 
   LG"7C,3"=20C RG"7C,3"=21C 
   "000000"+21C$+20C$=23C RG"23C,6"=7C 
   IF ""=6C THEN GOTO 32C ENDIF 
   IF 7C=6C THEN GOTO 30C ENDIF 
   IP=32C 
   "DATE"=20C 
   RUN "DATE.DOC,2,S1,S6,20C=1C,21C <5C,23C <2C" 
   21C+1=21C 
   RUN "DATE.DOC,1,S1,S6,20C=1C,21C>5C" 
   DOS "COPY /Y DATE.DAS C:\DOS" 
   MG "PASS_3" 
   GOTO 31C 
   IP=30C 
   "WEEK"=20C 
   RUN "LINE.DOC,2,S1,S7,20C=1C,21C <3C" 
   21C+1=21C 
   RUN "LINE.DOC,1,S1,S7,20C=1C,21C>3C" 
   YB=27C MM=28C DD=29C 
   29C+7=29C IF 29C>31 THEN 29C-31=29C 28C+1=28C ENDIF 
   IF 28C>12 THEN 28C-12=28C 27C+1=27C ENDIF 
   "0"+28C$=28C RG"28C,2"=28C 
   "0"+29C$=29C RG"29C,2"=29C 
   27C$+28C$+29C$=26C 
   "DATE"=20C 0=22C 
   RUN "DATE.DOC,1,S1,S6,20C=1C,26C>2C,21C>3C,22C>5C" 
   DOS "COPY /Y DATE.DAS C:\DOS" 
   MG "PASS_2" MC "27" 
D2 
D3 
D4 
D5 
D6 
D7 
D8 
D9