;Ако някой от комисията чете това, искам само да кажа, че ви мразя.

;init
MOV A 0
IN G
IN H
MOV F 1
MOV D 0
MOV RES 0
JZ 12

;circle
IN E
CMP E F
JZ 18
JNZ 27

;sq
IN B
IN C
OUT A
SUB H F
CMP H D
JNZ 37
JZ 12

;tr
IN B
IN C
IN B
ADD A B
SUB H F
CMP H D
JNZ 37
JZ 12

;dash
RETURN