?p ` ?x Gd[RKb) <mR` INX g# t {#A) +F {B E@% +n #Q
N + *> ` hH D h@ (' TYPE 2 DIGIT MONTH/4 DIGIT YEAR FOR CALENDAR') (I2,X,I4) (' MONTH MUST BE 2 DIGITS > 1 AND < 13')(' YEAR MUST BE 4 DIGITS > 0')(' THIS PROGRAM BUILDS A DESK CALENDAR FOR THE 12',/' MONTHS STARTING AT THE INPUTED MONTH FOR THE ',/' INPUTED YEAR. THE OUTPUT IS TO DSK:CALEND.AR',//) DSK SEQOUT CALEND.AR + -< X < <, , < ?, , < B, s < E,
/1& + . /0f + . 11& + 0 < G, < :, R < 9, j < 8, $ < 7, $ $ D t < 6, ] < 5, $ < 4, " t1$ + , < 4, q < 4, : t+ ' < J, , + < M, , + < 4,
x sp s sx sx rx rp s rX X u X z $ / $ 1 P ~ ^ ^ X { X aJ,@ p p /0H + W ( H / 1/( H 1+ Z //( H / 1 H 1,~ gV 0 p p /0H + b ( H /. 1 H 1+ e /.( H / 1 H 1,~ _JLz7 \ i p / 10f + n.& /$ "
&* 2 , .
( . &.
(
., .
.
7. .. (. . &* H. J h&* J r5J | , L r F h D g+ ~+ | i,~ e?$ r s F r s F s D s D + + ,~ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Op \ ! p @ / F /0H + 2 1&* 6J + 2
( 1&, H7L + 1
0 1&, 27L + 2 $ D $ . D "& # H 1.$ 8& 4" $
r.
( . .
J /.$ 8& 7"$ . r. &$ .$ D r !,~ JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER ('1',6(T5,9(A5,2X),10X,4(A5,2X),/),///) (T11,'SUNDAY',10X,'MONDAY',9X,'TUESDAY',8X,'WEDNESDAY',8X,'THURSDAY',8X,'FRIDAY',9X,'SATURDAY')(5(T5,113('.'),/,T5,'.',7(A2,13X,'.'),/,6(T5,'.',7(15X,'.'),/)),T5,113('.')) (T5,'.',2(A2,13X,'.'),15X,'.',2(8X,A9,2X,I4,8X,'.')) (T5,'.',3(15X,'.'),5X,7(A2,1X),5X,'.',5X,7(A2,1X),5X,'.') (T5,113('.')) P W&
$ .d w; z+ (: {; z+ &, < _, , < b, "& $ F y D v s. v < e,
$ .d v; y+ 3, < g, s r
/(
s 0 /( < j,
& F { ! {( . { F }"( . { H | * .
{ J u"
|.
u L | < n, F v" | v P x N v v. r < q,
. .n v; x+ H } F u"
| u J x H u u. s < r,
.( .h u;( x+ O, u.& F {*d > < t, , ,~ x sX } $> X X $ 1 X $ g $ h 0(h $ 1 08h $0 1 X $ 1 $ 1 X A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 000 1 222 33333 4 55555 6 77777 888 999 0 0 1 2 2 3 4 4 5 6 78 89 90 0 1 2 33 4 4 5555 6 7 888 99990 0 1 2 344444 56666 7 8 8 90 0 1 2 3 3 4 5 56 6 7 8 8 9 000 1 22222 333 4 555 666 7 888 9 J F M A M J J A S O N D A E A P A U U U E C O E N B R R Y N L G P T V C U R C I E Y U T O E E A U H L S E B M M R A T M E B B Y R B R E E Y E R R R AAA BBBB CCC DDDD EEEEEFFFFF GGG H H I JK K L M MN N OOO PPPP QQ RRRR SSS TTTTTU UV VW WX XY YZZZZZ A AB BC CD DE F G H H I JK K L MM MMNN NO OP PQ Q R RS S T U UV VW W X X Y Y Z AAAAABBBB C D DEEE FFF G GGGHHHHH I JKK L M M MN N NO OPPPP Q Q RRRR S T U UV VW W X Y Y ZZ A AB BC D DE F G GH H I JK K L M MN NNO OP Q Q R R S T U UV VW W W X Y ZZ A AB BC CD DE F G GH H I J JK K L M MN NO OP QQ R R S S T U U V V WW WW X X Y Z A ABBBB CCC DDDD EEEEEF GGG H H I JJJ K KLLLLLM MN N OOO P QR R SSS T UUU V W WX X Y ZZZZZ ~0 P E2]I: p @ " " / D % & F $.$ D "& F ^ D 3ZD % % 3Hv+ @*d ; $
SJ >.& .D $ $ .d ; ^+ ;
"
( 1 J # * t J ]"* ( J \
#&
] J ".* 4 * .
L(>.& *d O"
"$
].J #
]&* J ].( ; \+ L,~ ` Z (X^ . > S.~ (3~ + \ ~ + gZ . \x <x *<x .ez+ c!" b + " d b + Z . h + gg M?}
& i b + X,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1 ,> AO@ ,+ rgR~@1 ,> A@@ ,,> ,> @ 6 w+ " ,0B + z!"A`X#p 5@ w/#p !" X#p + \p + a.9'1 ,> A,> ,> O@ ,+ ,>
6 + _ 4` "` Q@ ,> < -, ,^ ,> < 0,
,^ *b + ,> < 2, ,^ 7@ ,+
,^ + ,> < 6,
,^ Z 5" ,> < 8,
,^ , 7@ ,,
,> < 9, ,^ , ,> < <, ,^ ,> < ?, ,^ (@qd 1@ ,,
1@ #+ 0@ *+ ,> < A, ,^ + ,^ ,^ ,^ ,~ (' Type G to Continue, X to Exit, T To trace.'/2H *,$) (A1) (1H 14A5/)(1H A5,1X,O6) PAUSESTOP .p X ( p X ) p + p + p X " X ~ ( p x BY\ CQ< X\ D* +