R = 0
RS$ = ""

SUB ADDNUMBERS(R, A, B)
	VALUE = A + B
	R = VALUE
END SUB

SUB ADDREV(R$, A$, B$)
	R$ = B$ + " " + A$
END SUB

SUB SAMESHIT(R$, IN$)
	R$ = IN$
END SUB

CALL ADDNUMBERS(R, 2, 2)
A  =  R
PRINT A

CALL ADDNUMBERS(R, A, 4)
PRINT  R

CALL ADDNUMBERS(R, 1, 1)
ADD  A ,  R
PRINT A

FOR I = 0 TO 2
CALL ADDNUMBERS(R, 1, 2)
MRGDJZUBRB = 0
CALL ADDNUMBERS(MRGDJZUBRB, 3, 4)
PRINT  R  +  MRGDJZUBRB
NEXT I

CALL ADDREV(RS$, "WORLD!", "HELLO")
PRINT

CALL SAMESHIT(RS$, "HEY!")
PRINT