Assign print using to a string.

[eoredson]

You mean something like this:

Code: (Select All)

'another method to assign a formatted value to a string
Color 7
Cls
Print Using "###"; 100
For X = 1 To 30
  Y = Screen(1, X)
  If Y Then s$ = s$ + Chr$(Y)
Next
Cls
Print "The output value is ";
Print RTrim$(s$)
End