Post by Deleted on Jul 5, 2021 7:54:43 GMT -5
hello here is a little something for USA independence day!
_Title "HAPPY NEW 4TH OF JULY 2021 DEMO"
Screen 12
Print _Height / _FontHeight, _Width / _FontWidth
For n = 1 To 5
upper "HAPPY!!!", 12, 20, 2
upper "INDEPENDENCE DAY!!!", 15, 25, 3
upper "GOD BLESS AMERICA!", 18, 30, 4
upper "HAPPY 4TH OF JULY 2021!!!", 20, 35, 5
Next
Sub upper (text$, r, c, co)
Do
Color co
Locate r, c
Print text$
_Delay 0.2
Color 0
Locate r, c
Print text$
r = r - 1
Loop Until r = 10
End Sub
