.title	lites
 
	.enabl	lc
	.mcall	C$C
	C$C 
	.MACRO	PRINT,A,B
	MOV	A,WRITE+Q.IOPL
	MOV	B,WRITE+Q.IOPL+2
	.MCALL	DIR$
	DIR$	#WRITE
	.ENDM	PRINT
TIM=10.
	.MCALL	QIOW$,MRKT$S,ASTX$S,WTSE$S,CLEF$S
 
L1:	.ASCII	<ESC>"[0;1;3q"		; Lite #1
	L1S=.-L1
L2:	.ASCII	<ESC>"[0;2;4q"		; Lite #2
	L2S=.-L2
L3:	.ASCII	<ESC>"[0;3;1q"		; Lite #3
	L3S=.-L3
L4:	.ASCII	<ESC>"[0;4;2q"		; Lite #4
	L4S=.-L4
 
 
WRITE:	QIOW$	IO.WVB!TF.WAL,5,1,200,,,<0,0,0>
 
START:	PRINT	#L1,#L1S		; Light Lite #1
	MRKT$S	#5,#TIM,#1		; Wait a bit
	WTSE$S	#5			; Wait for time
	CLEF$S	#5
	PRINT	#L2,#L2S		; Light Lite #2
	MRKT$S	#5,#TIM,#1		; Wait a bit
	WTSE$S	#5			; Wait for time
	CLEF$S	#5
	PRINT	#L3,#L3S		; Light Lite #3
	MRKT$S	#5,#TIM,#1		; Wait a bit
	WTSE$S	#5			; Wait for time
	CLEF$S	#5
	PRINT	#L4,#L4S		; Light Lite #4
	MRKT$S	#5,#TIM,#1		; Wait a bit
	WTSE$S	#5			; Wait for time
	CLEF$S	#5
	JMP	START			; And start over again
	.end	start