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