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
566 B
Plaintext
Raw Normal View History

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