hi all

I have been trying to convert this code for ages

Sub sprint(txt$, x, y, size)
Dim ScanX As Integer
Dim ScanY As Integer
Dim background(9585)

GET (0, 0)-(639, 15), background
Line (0, 0)-(639, 15), 0, BF
LOCATE 1, 1: Print txt$
For ScanY = 0 To 12
For ScanX = 0 To 639
If Point(ScanX, ScanY) <> 0 Then
Line (ScanX * size + x, ScanY * size + y)-(ScanX * size + size + x, ScanY * size + size + y), Point(ScanX, ScanY), BF
End If
Next ScanX
Next ScanY
PUT (0, 0), background, PSET
End Sub

But I do not know how I can convert this code to work with the Future.lib

Could one of you really smart people PLEASE convert this for me and put me out of my missery

Andy

yo dude

Sub sprint(txt$, x, y, size)
Dim ScanX As Integer
Dim ScanY As Integer
Dim background(9585)

Future.Get 0, 0, 639, 15, background()
Future.FillBox 0, 0, 639, 15, 0 'theres future.line/future.box/future.fillbox
Future.Print 0, 0, txt$, 15, -1
For ScanY = 0 To 12
For ScanX = 0 To 639
If Future.Point(ScanX, ScanY) <> 0 Then
Future.FillBox ScanX * size + x, ScanY * size + y, ScanX * size + size + x, ScanY * size + size + y, Future.Point(ScanX, ScanY)
End If
Next ScanX
Next ScanY
Future.Put 0, 0, background()
End Sub

im guessing you'd want to use this in 640x480 with 8 bit color depth. use Set640x480 8 instead of SCREEN 12
drop me a line at "jasonwoodland at hotmail dawt com" to let me know if it works or not.