.MCALL  DIR$,QIOW$,EXIT$
START:  MOV     #LINK,R5
        JSR     PC,DATE
	MOV	#DAYBUF,R0
	CALL	DAY
        DIR$    #OUTPUT
        DIR$    #BYE
LINK:   .WORD   1
        .WORD   DTEBUF
BUFF:   .BYTE   15,12
        .REPT   20.
        .ASCII  /****/
        .ENDR
        .BYTE   15,12
        .REPT   35.
        .ASCII  / /
        .ENDR
        .EVEN
DTEBUF: .ASCII  /         /
        .BYTE   12,15
        .EVEN
	.REPT	38.
	.ASCII	/ /
	.ENDR
DAYBUF:	.ASCII	/   /
	.BYTE	12,15
	.EVEN
        .REPT   20.
        .ASCII  /****/
        .ENDR
        .BYTE   12,15
BFSIZ=.-BUFF
        .EVEN
OUTPUT: QIOW$   IO.WLB,TI1,20.,100.,,,<BUFF,BFSIZ>
BYE:    EXIT$
TI1=1
        .END    START