RosettaCodeData/Task/Repeat-a-string/Action-/repeat-a-string.action

12 lines
101 B
Plaintext

Proc Main()
byte REPEAT
REPEAT=5
Do
Print("ha")
REPEAT==-1
Until REPEAT=0
Do
Return