‚‚CSASAwEread drb1:[backup]curdat.for CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABABABABABABABABABAAAAABABABABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAnABABABABABABABABABABABABABABABABABABABAAAvABABABA BABABABABABABABABABABABABABABABABABAAAAABABABABABABABABABABABABABABABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABABAAAAAAAAAAAAAAAAAAASASEBASASASASASASASASASASASASASASASASADABACBASASASASASASASASASASASASASASASASASASASAAACACACACACACACA CACACACACAlAlAmm@oo@nn@tt@hh@CAlACACACACAlACAee@aa@C CAA CINTEGER @ @C Cmonth,day,yearBABAAAAABABA C CAAAAC C CAA Copen(AA CDATA Cin/9/BAin,AACACACACACADADADADADADADADADADACSAAArA.C,in/9/ C CCAHCCHARACTER CC*CCC*15AA @BA @FILECCCCfile/'SYS$LOGIN:APPOINTS.DAT'/ DADADADADADADADADADADADADADADADADADADADADADADADACACACACACACACACACACACACACACACACACACACACACACADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADADAlAlA22@33@BANAMCCCNAME=file,err=900,status='OLD') CSArA C CAAAAAAAACACACACACACACACACACACACACAnACACACACACACA CACACACACACACACAvAvEvEDADADADADADADADADADADADADADA,,@ff@CACACACACACAff@CACACACAff@BABABABA C Cread(in,end=800)year,month,daywEspawn C CAACACACACACACACACACACACACACACACACA,,@11@00@00@00@BA @1000 CCCformat(i4,i2,i2)AAAADABA @11@00@00@BABA CAAAAAAAAAAAAAACACACACACACACACACACACACACAmm@ __@cc@oo@uu@nn@tt@,,@BABABABABABABAAAAAAAAAAAAAAADA//@00@//@BABABABABABABAif @(AAAACACACACACACACACACACACACACACACACACACADAff@CACACACACAff@CACACACACACAff@BABAfyear @.eq. @year @.and. @AAAAAAAAAAAABABAAAAADADADADADADADADABABABABABABArAfmonth @.eq. @month @.and. @ fday @.eq. @day) C @ @ @ @ @ @+ @CCC+C CAA1234565CCCCCCCCC) CSArA Cm_count @= @m_count @+ @1 C Cgoto @100 C @ C @800 Cwrite(AAAAAAAAAAAAAAAAAACABABABABABABABABABA*,*) @C' @M_count= @ ',m_count C Cgoto @999 C @900 C write(*,*)' @Cannot @open