;wczytywanie i wyswietlanie tekstu wielkimi literami
;inne znaki sie nie zmieniaja

.686
.model flat
extern _ExitProcess@4	:	PROC
extern __write			:	PROC
extern __read			:	PROC

public _main

.data
tekst_pocz			db	10, 'Prosz', 169,' napisac jakis tekst '
					db	'i nacisnac Enter', 10
koniec_t			db	?
magazyn				db	80 dup (?)
nowa_linia			db	10
liczba_znakow		dd	?

.code
_main PROC

;wys. tekstu informacyjnego

;liczba znakow tekstu:
	mov		ecx, (OFFSET koniec_t) - (OFFSET tekst_pocz)
	push	ecx

	push OFFSET tekst_pocz	; adres tekstu
	push 1 ; nr urzadzenia - ekran
	call __write ; wyswietlenie tekstu zachety

	add esp, 12	;usuniecie parametrow ze stosu
; czytanie wiersza z klawiatury

	push 0
	call _ExitProcess@4	; koniec programu
_main ENDP
END