RosettaCodeData/Task/Loops-For/PureBasic/loops-for.basic

12 lines
185 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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