cpu 8086
	org 256
start:
	xor bx, bx
	xor dx, dx
	mov si, 81h
.:
	lodsb
	cmp al, '!'
	je .ex
	cmp al, '?'
	je .qu
	cmp al, 13
	jne .
	jmp .done

.ex:
	inc bx
	jmp .

.qu:
	inc dx
	jmp .

.done:
	mov ax, 0B800h
	mov es, ax

	test bx, bx
	jz .no

	xor di, di
	mov ax, 1E21h
	mov cx, 80 * 25
	rep stosw
	xor ax, ax
	int 16h
.no:
	xor di, di
	mov ax, 1E20h
	mov cx, 80 * 25
	rep stosw

	test dx, dx
	jz .end

	xor di, di
	mov ax, 1E20h
	stosw
	mov al, 21h
	stosw
	mov al, 20h
	stosw

.end:
	xor ax, ax
	int 16h
	mov ax, 4C00h
	int 21h