< --------------------------------07-12-82' COPYRIGHT CONTROL TECHNOLOGY LTD, Hardware dependent lines - 50,505,506 D(H,),W(H)"(ES()X( ,*)52CLES"J" clear screen for Cifer 26839<"CALENDAR PRINTING-IS THAT WHAT YOU WANT(Y/N)";F x(,)"Y" (d CL;( )"CALENDAR PRINTING"Fn"A CALENDAR SPECIFYING WEEK NUMBERS CAN BE PRINTED FOR ANY YEAR"Dx"AFTER 1752.THE NAME OF THE USER CAN BE PRINTED AT THE TOP OF" "THE CALENDAR IF REQUIRED"$"CALENDAR FOR WHICH YEAR";& () &() &()@"GIVE NAME OF PROSPECTIVE USER (OR IF NONE)";(------------------DEFINE LEAP YEARLL(())(d(d))(())J ---------LY=1 FOR LEAP YEAR(YEAR DIVISIBLE BY 4 OR 400 BUT NOT 100)( ()"PRINTING TAKES 2 MINUTES"4 -------------ALLOCATE DAYS,MONTHS TO WEEK NosN  HW()  D(,)  >(())(()d)(())(()) W7  DAYS/MONTH"   ,B 6 A@  TJAALT () H+^WW()()()hBBr  | B  ()  A W()WD(,)      % ---------------------PRINT OUT-DW() double width for MX80&BN() back to normal   () &* DW;(());;BN,& DW;( )"CALENDAR FOR";BN0': ()"OFFICIAL WEEK NUMBERS" D !N"SunMonTueWedThuFriSat"X  b   l v" ";;" ";        "Week" "No.";   W()   "###";;   " ";    (,,);    D(,)*  H4 "###";; > R H" "; R \ f p z  ( ); form feed""ANOTHER CALENDAR(Y/N)";' x(,)"Y" CL;  "EXIT AS REQUIRED" ----------------DATA* 31,28,31,30,31,30,31,31,30,31,30,31M" January "," February"," March "," April "," May "," June "M" July "," August ","September"," October "," November"," December"" Ma