RosettaCodeData/Task/Loops-For/PureBasic/loops-for.basic
2023-07-01 13:44:08 -04:00

11 lines
185 B
Text

If OpenConsole()
Define i, j
For i=1 To 5
For j=1 To i
Print("*")
Next j
PrintN("")
Next i
Print(#LFCR$+"Press ENTER to quit"): Input()
CloseConsole()
EndIf