.ENABLE SUBSTITUTION
	.ENABLE DECIMAL
	.DISABLE DISPLAY
	.ENABLE CONTROL-Z
	.ENABLE GLOBAL
	.SETS WAY P1
	.IF WAY EQ "SPRING" .GOTO CONT
	.IF WAY NE "FALL" .EXIT
.CONT:
	.SETS CLI <CLI>
	TIME
	.SETS NOW <TIME>
	.PARSE NOW ":" HOUR MIN SEC
	.SETN HRS 'HOUR'
	.IF WAY EQ "SPRING" .INC HRS
	.IF WAY EQ "FALL" .DEC HRS
	.SETS HOUR "'HRS'"
	TIME 'HOUR':'MIN':'SEC'
	TIME