E DTR 12 12 2 0 I*( WORK “ϊ•t YYMMDD Γή°ΐ \‘’ ) IDATEDS IDS I 1 20SRY I 1 40SRYY I 1 80SRYMD I 3 80YYMMDD I 3 60YYMM I 5 80MMDD I 3 40YY I 5 60MM I 7 80DD +C*( ?FIELD ‚Μ—j“ϊ‚ΜŒŸυ ) C MOVE DATE YYMMDD “ϊ•t Μ¨°ΩΔή C Z-ADD19 SRY < 20 ’‹I > C MOVE SRYY D$NEND 40 C MOVE MM D$TSUK 20 C MOVE DD D$DAY 20 C EXSR DAYSET C****************************************************** C DAYSET BEGSR C****************************************************** C*( —j“ϊ‚ΜŽZo ) C* ( D\NEND = Ό—ο 19XX ”N ) 4,0 C* ( D\TSUK = XX ŒŽ ) 2,0 C* ----> YOBI —j“ϊ 4 CSR D$NEND IFNE *ZEROS CSR D$NEND SUB 1 NENWK 40 CSR ELSE CSR MOVE *ZEROS NENWK CSR END C* CSR NENWK MULT 365 NISU 70 CSR NENWK DIV 4 URUU 40 CSR ADD URUU NISU CSR D$TSUK SUB 1 TUKIWK 20 CSR DO TUKIWK I 20 CSR ADD DTR,I NISU CSR END CSR TUKIWK IFGT 1 CSR D$NEND DIV 4 URUU CSR MVR URUU1 10 CSR 0 IFEQ URUU1 CSR ADD 1 NISU CSR END CSR END C**(YOBI) CSR NISU DIV 7 NISU1 70 CSR MVR YOBI# 20 C** SUNDAY IS 7 CSR YOBI# IFEQ *ZERO CSR Z-ADD7 YOBI# CSR END CSR ADD 5 YOBI# CSR YOBI IFGT 7 CSR SUB 7 YOBI# CSR END C* YOBI# = 1 2 3 4 5 6 7 C* ŒŽ ‰Ξ … –Ψ ‹ΰ “y “ϊ CSR YOBI# IFEQ 1 CSR MOVE ' ŒŽ ' YOBI 4 CSR END CSR YOBI# IFEQ 2 CSR MOVE ' ‰Ξ ' YOBI 4 CSR END CSR YOBI# IFEQ 3 CSR MOVE ' … ' YOBI 4 CSR END CSR YOBI# IFEQ 4 CSR MOVE ' –Ψ ' YOBI 4 CSR END CSR YOBI# IFEQ 5 CSR MOVE ' ‹ΰ ' YOBI 4 CSR END CSR YOBI# IFEQ 6 CSR MOVE ' “y ' YOBI 4 CSR END CSR YOBI# IFEQ 7 CSR MOVE ' “ϊ ' YOBI 4 CSR END C* CSR ENDSR ** DTR ŒŽ•Κ“ϊ” 312831303130313130313031