"Locate" in the program

[bplus]

Hello, is there a way to set the distance from the edge for the whole program with "Locate"?

So far I've only found the way, see screenshot. Pretty laborious. Thanks!

Is this what you re looking for?

Code: (Select All)

PRINT "horse"
PRINT "cow"
PRINT "mule"
PRINT "pig"
PRINT "Why bring Steve's farm into this?"

PRINT: PRINT: PRINT
' Now do it again but so it indents 5 spaces...

printx "horse"
printx "cow"
printx "mule"
printx "pig"
printx "Why bring Steve's farm into this?"

SUB printx (x$)
    LOCATE , 5
    PRINT x$
END SUB

Pete

And extending that symmetrically the other way:

Code: (Select All)

Print "horse"
Print "cow"
Print "mule"
Print "pig"
Print "Why bring Steve's farm into this?"

Print
' Now do it again but so it indents 5 spaces...

printx "horse"
printx "cow"
printx "mule"
printx "pig"
printx "Why bring Steve's farm into this?"
Print
printY "horse", 50
printY "cow", 50
printY "mule", 50
printY "pig", 50
printY "Why bring Steve's farm into this?", 50
Print
printY "horse", 78
printY "cow", 78
printY "mule", 78
printY "pig", 78
printY "Why bring Steve's farm into this?", 78

Sub printx (x$)
    Locate , 5
    Print x$
End Sub

Sub printY (x$, RightPosition)
    Locate , RightPosition - Len(x$) + 1
    Print x$
End Sub