Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap5_198111 - decus/20-0142/wkday.exe
There is 1 other file named wkday.exe in the archive. Click here to see a list.
?p0@?hXk?x " 
 
<++2	`h ^CHk2C@(JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC  SUNDAY.   MONDAY.   TUESDAY.  WEDNESDAY.THURSDAY. FRIDAY.   SATURDAY. (' TO EXIT FROM PROGRAM RESPOND WITH A CARRIAGE RETURN'/' WHEN PROMPTED FOR THE NAME OF THE MONTH.',/)('0MONTH ? ',$)(A3)('   DAY ? ',$)(I2)('  YEAR ? ',$)(I4)(' THE DATE: ',A3,I3,',',I5,' OCCURS ON A ',A10)(' THAT IS AN IMPOSSIBLE DAY !')(' TWENTIETH CENTURY ONLY PLEASE.')(' TYPE FIRST 3 LETTERS OF THE MONTH: ',$)      + -<Q <(,, <+,, <., <1,
 ?3Dj+% <4,, <7, <:,
 ?0d0d+ <;,, <>, <A,
 >0$60dg+!0DG"$6.d>0$0$2+!@f0+jZDH:0(H ?3H0+*d+#00+@2$?+7"0.& $ @.H7.$8& ?.d7&$"$$.7 DG <C, 0 G( <F,
+n <I,,+n <L,,+n <O,,+o <',k <',
XH
XSXT@?XUXV$?XWXX$>XY$0$?$G0 7X^XaXe	`Z(X^. >X.~(3~+V	~+aZ. \x <x*<x .ez+]!"	b+  "^	b+Z`.Z. h+ggM?}
&c	b+Q,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>;O@&+lgR~@1,>;@@&,>,>@6 w+y"&0B+t!"A`X#p5@q/#p!"X#p+y\p+ya.9'1,>;,>,>O@&+y,>
6+ _4`"`Q@,> <',,^,> <*,
,^*b~+
,> <,,,^7@&+,> </,
,^+	,> <0,
,^Z5"
,> <2,
,^,7@&,
,> <3,,^,,> <6,,^,> <9,
,^(@qd1@,,
1@#+0@*+
,> <;,,^+
,^,^,^,~(' Type G to Continue, X to Exit, T To trace.'/2H *,$)(A1)(1H 14A5/)(1H A5,1X,O6)PAUSESTOP .pX"p X#p %p %p XX~"p x<Y\=Q<X\>*+6>6`>S	YVBG9>G9=
GJ;GK/K ;koYUlrBKYX<:k
Y]@&
Y?l
\!~{-^y{-Xt{-O{-N{-N
{-M	{-M%#Of##Of"#Oe"#OeS	YVBSo&BTE)|h\6.AwBP@VKV4PbXlVkBI
YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"c
&*
 R	WJ
>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIzQ)	(RkF
a!'I
u#;LY^a)e=&3'G([+o.!%14+7?:Sx
_;
s>	qGH	HCGG]3:AP4@P5@Y-?6ta?E
7X1
0;k-wpk\B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0