Print Question

BlitzPlus Forums/BlitzPlus Programming/Print Question

WolRon
 #1
Oh - my - God.

I realize that it's extremely tough...

Open in online IDE
Graphics 640,480, 0, 0

Global texty = -15

;beginning of scrolling text demo
MyPrint "hello world"
For iter = 1 To 25
	MyPrint "iteration number " + iter
Next
MyPrint "the end of the iterations."
MyPrint ""
MyPrint "Press a key to enter another line"
WaitKey()
MyPrint "Continue pressing a key"
WaitKey()
MyPrint "Line 2"
WaitKey()
MyPrint "Line 3"
WaitKey()
MyPrint "Line 4"
WaitKey()
MyPrint "Line 5"
WaitKey()
MyPrint "this is the end of the test..."
MyPrint "press the key one more time.
WaitKey()


End

Function MyPrint(txt$)
	texty = texty + 15
	If texty > 479
		scroll()
	EndIf
	Text 0, texty, txt$
	Flip
	Text 0, texty, txt$
End Function

Function scroll()
		Color 0, 0, 0
		For double = 1 To 2
			CopyRect 0, 15, 640, 465, 0, 0
			Rect 0, 466, 640, 15
			Flip
		Next
		Color 255, 255, 255
		texty = texty - 15
End Function