This repository has been archived on 2024-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
microgentambly/examples/rect.mga

39 lines
639 B
Plaintext

OUT I will draw a rectangle\n
#show welcome message
INT w
#initialize width
INT h
#initialize height
IN INT w l
#input height as an int
IN INT h h
#input width as an int
INT wr
#initialize width counter
INT hr
#initialize height counter
SET wr 0
#set width counter to 0
SET hr 0
# set height counter to 0
:wrc
#row label
:wf
#column label
OUT *
#put char
INC wr
#increment width counter
JL wf wr w
#loop until desired width
OUT \n
#put newline char
SET wr 0
# set width counter to 0
INC hr
#increment height counter
JL wrc hr h
#loop until desired height
END
#quit