request for printing patterns with for loops tutorial

[bplus]

riffing on last

Code: (Select All)

' col is short for column
' using default non graphics screen = Screen 0
' uses rows and cols for locating a character that is printed
' this screen is 80 characters wide and 25 characters high.
' Characters not pixels, anything Ascii that is printed typing

' Locate row, col
' row 1 is top row in screen any less is error
' col 1 is the first on the left


' print 3 rows of 4 *'s across
x$ = "*"
colStart = 1: colEnd = 4 ' for 4 * across
rowStart = 1: rowEnd = 3 ' for 3 rows
GoSub printJob
Locate 10, 1: Print "press any to see 40 across, 10 down of X's "
Sleep

' 40 x 10 X's
x$ = "X"
colStart = 1: colEnd = 40 ' for 4 * across
rowStart = 1: rowEnd = 10 ' for 3 rows
GoSub printJob
End

printJob:
For row = rowStart To rowEnd
    For col = colStart To colEnd
        Locate row, col: Print x$; ' print each * one at a time  the ; let's next print occur on same line
        _Delay .1
    Next
Next
Return