10	STRSIZ 80
20	MAP1 BDATE,B,4
30	MAP1 BD, @BDATE
40	  MAP2 BFILL,B,3
50	  MAP2 BDAY,B,1
60	MAP1 DOW,S,21,"MonTueWedThuFriSatSun"
70	MAP1 DW, @DOW
80	  MAP2 DAY'WEEK(7),S,3
90 !
95 GET'DATE:
100	INPUT "Date ? "; DT$
105	IF VAL(DT$)=-1 THEN END
110	XCALL IDTIM, DT$, IDATE, ITIME, 2, STATUS
120	IF STATUS GOTO OOPS
130	BDATE = IDATE
140	PRINT DAY'WEEK(BDAY+1)
150	GOTO GET'DATE
160 OOPS:
170	PRINT "?Invalid date"
180	GOTO GET'DATE