.; .MODULE DATIME,RELEASE=Y05,VERSION=03,COMMENT=<Date/Time prompter>
.;
	.DISABLE PREFIX, SUFFIX
	.ENABLE QUIET
	;
	.IF <DATE> <> "         " .GOTO STRTUP
.QUEDAT:
	.ASKS DATE Date [dd-mmm-yy]?
	.IF DATE = "" .GOTO 1
	DATE 'DATE'
	.IF <EXSTAT> = 1 .GOTO QUETIM
.1:	.IF DATE <> ""	;Error entering date - 'DATE'
	.IF DATE = ""	;Please enter the date
	;
	.GOTO QUEDAT

.QUETIM:
	.ASKS [1:11] TIME Time [hh:mm:ss]?
	.IF TIME = "" .GOTO 2
	TIME 'TIME'
	.IF <EXSTAT> = 1 .GOTO STRTUP
.2:	.IF TIME <> "" ;Error entering time - 'TIME'
	.IF TIME = ""  ;Please enter the time
	;
	.GOTO QUETIM
			
.STRTUP:
	.ASKS SFIL Startup file [filnam.typ]?
	.IFT <DEFAUL> .GOTO MSG
	.PARSE SFIL "." J J1
	.IF <STRLEN> EQ 1 .SETS SFIL SFIL+".COM"
	.TESTFILE 'SFIL'
	.IF <FILERR> = 346 ;File not found - 'SFIL'
	.IF <FILERR> <> 1 .GOTO STRTUP
	;
	@'SFIL'
.MSG:	.SETS TYP "Single Job"
	.IF <SYSTEM> = 10 .AND .IFF <MAPPED> .SETS TYP "Foreground Background"
	.IF <SYSTEM> EQ 10 .AND .IFT <MAPPED> .SETS TYP "Extended Memory"
	.VOL VOL '<SYDISK>''<SYUNIT>':
	;
	;	RT-11 'TYP' Monitor, volume ID 'VOL'
	;	Booted on '<DATE>' at '<TIME>' from file '<SYDISK>''<SYUNIT>':'<MONNAM>'.
	;
	.STOP
	.EXIT