1. Program wczytujący z urządzenie wejściowego znak oraz cyfrę. Wczytanym z urządzenia wejściowego znakiem narysować w urządzeniu wyjściowym:
- kwadrat o boku 5 dla cyfry 0,
- trójkąt równoramienny o podstawie 7 dla cyfry 1.

                	WPR 1			//wprowadzamy znak z którego ma być tworzona figura
                	ŁAD ZNAK
                	WPR 1 			//wprowadzamy cyfrę…
	ŁAD CYFRA
           	ODE ST48
                	SOZ KWADRAT		//jeśli równa się 0 to będziemy „rysować” kwadrat
                	ODE ST1
                	SOZ TROJKAT		//jeśli natomiast równa się 1 to trójkąt
                	STP
KWADRAT:POB ST5			//pobieramy stałą 5 i ładujemy do licznika lini
                	ŁAD LICZNIKLINI
PETLA:    POB ST5			//taką samą stałą ładujemy do licznika znaku
                	ŁAD LICZNIKZNAK
NASTZNAK:POB ZNAK		//wyprowadzamy znak który wcześniej wprowadziliśmy
                	WYP 2
                	POB LICZNIKZNAK 	//odejmujemy od licznika znaku 1…
                	ODE ST1
                	ŁAD LICZNIKZNAK	//…aby przy 0 wykonać skok który przechodzi do następnej
                	SOZ NASTLINIA		//…linii rysowania kwadratu
                	SOB NASTZNAK	// jeśli licznik znaku jest większy od 0 powtarzamy pętle
NASTLINIA:POB ST13
               	WYP 2  			// pobieramy stałe które odpowiadają za przejście
                	POB ST10		// do następnej linii (kody ASCII)
                	WYP 2
                	POB LICZNIKLINI	//pobieramy licznik linii i odejmujemy za każdym razem 1
                	ODE ST1			//aby gdy wartość osiągnie 0 zakończyć działanie programu
                	ŁAD LICZNIKLINI		//albo gdy wartość jest większa od 0 powrócić do ‘petla’
                	SOZ KONIEC
                	SOB PETLA
TROJKAT:POB ST1			//pobieramy stałą 1 i ładujemy do licznika linii
                	ŁAD LICZNIKLINI
PETLA2:  POB ST1			//pobieramy stałą 1 i ładujemy do licznika znaków
                	ŁAD LICZNIKZNAK
PETLA3:  	POB ZNAK		//pobieramy znak po czym wyprowadzamy go na wyjście
               	WYP 2
                	POB LICZNIKZNAK	//pobieramy licznik znaku i odejmujemy od niego licznik…
                	ODE LICZNIKLINI		//… linii by sprawdzić czy można przejść do następnej lini
                	SOZ NASTLINIA2		//jeśli po odjęciu wynik jest 0 to przechodzimy do nast. linii
                	POB LICZNIKZNAK	//następnie pobieramy licznik znaku i dodajemy…
                	DOD ST1			//… do niego stałą 1 i powtarzamy pętle3
                	ŁAD LICZNIKZNAK
                	SOB PETLA3

NASTLINIA2:POB ST13		//tak jak w przypadku kwadratu pobieramy stałe
                	WYP 2			//odpowiadające za przejście do następnej lini
                	POB ST10
                	WYP 2
                	POB LICZNIKLINI		//pobieramy licznik linii, dodajemy do niego stałą 1…
                	DOD ST1			//…po czym ładujemy do licznika linii i licznika znaku…
               	ŁAD LICZNIKLINI		//…ponieważ musi to być trójkąt równoramienny
                	ŁAD LICZNIKZNAK
                	ODE ST7
                	ODE ST1
                	SOZ KONIEC		//sprawdzamy czy już koniec rysowania przez odjecie 8 od licznika
                	SOB PETLA2
KONIEC:  STP

ST1:           	RST 1
ST5:            	RST 5
ST13:           	RST 13
ST10:           	RST 10
ST7:            	RST 7
ST48:           	RST 48
LICZNIKLINI:	RPA
LICZNIKZNAK:	RPA
CYFRA:         	RPA
ZNAK:           	RPA
                	KON