RosettaCodeData/Task/Loops-For/BASIC/loops-for-13.basic
2019-09-12 10:33:56 -07: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