ORG		100
	Input				/Wczytanie liczby do AC.
	Subt		One		/Odjęcie zmiennej One od AC.
	Store		Liczba		/Zachowanie zawartości AC do zmiennej Liczba.
	Skipcond	000		/Jeżeli AC jest ujemny, pomin kolejna instrukcję.
	Jump		If		/Przeskocz do If.
	Jump		LoopI		/Przeskocz do LoopI.
If,	Skipcond	400		/Jeżeli AC jest równy 0, pomin kolejna instrukcję.
	Jump		LoopM		/Przeskocz do LoopM.
	Jump		LoopN		/Przeskocz do LoopN.
LoopI,	LoadI		Imie		/Początek pętki wypisującej Imię.
	OUTPUT				/Wypisanie zawartości AC.
	Load		Imie		/Wczytanie zmiennej Imię.
	ADD		One		/Dodanie 1 do AC.
	STORE		Imie		/Zapisanie zawartości AC do zmiennej Imie.
	SKIPCOND	400		/Jeżeli AC jest równy 0, pomiń kolejną instrukcję.
	Jump		LoopI		/Przeskocz do początku pętli.
	HALT				/Koniec programu.
LoopN,	LoadI		Nazw		/Początek pętki wypisującej Nazwisko.
	OUTPUT				/Wypisanie zawartości AC.
	Load		Nazw		/Wczytanie zmiennej Nazw.
	ADD		One		/Dodanie 1 do AC.
	STORE		Nazw		/Zapisanie zawartości AC do zmiennej Nazw.
	SKIPCOND	400		/Jeżeli AC jest równy 0, pomiń kolejną instrukcję.
	Jump		LoopN		/Przeskocz do początku pętli.
	HALT				/Koniec programu.
LoopM,	LoadI		Miejsc		/Początek pętki wypisującej Miejscowość.
	OUTPUT				/Wypisanie zawartości AC.
	Load		Miejsc		/Wczytanie zmiennej Miejsc.
	ADD		One		/Dodanie 1 do AC.
	STORE		Miejsc		/Zapisanie zawartości AC do zmiennej Miejsc.
	SKIPCOND	400		/Jeżeli AC jest równy 0, pomiń kolejną instrukcję.
	Jump		LoopM		/Przeskocz do początku pętli.
	HALT				/Koniec programu.
Liczba,	Dec		0
One,	Hex		001
Imie,	Hex 		124	/Imię
	Dec		80	/P
	Dec 		105	/i
	Dec 		111	/o
	Dec 		116	/t
	Dec 		114	/r
	Dec		0
Nazw,	Hex		12B	/Nzawisko
	Dec 		78	/N
	Dec 		97	/a
	Dec 		100	/d
	Dec 		111	/o
	Dec 		108	/l
	Dec 		115	/s
	Dec 		107	/k
	Dec 		105	/i
	Dec		0
Miejsc,	Hex		135	/Miejscowość
	Dec 		71	/G
	Dec 		114	/r
	Dec 		97	/a
	Dec 		110	/n
	Dec 		97	/a
	Dec		116	/t
	Dec		121	/y
	Dec		0