So what's that damn Pete up to now?

[Pete]

While we're waiting for B-Plus to B-Back, here's another B-utton!

Code: (Select All)

Palette 5, 63 ' Bright white.

Palette 6, 56 ' Dark grey.

Color 0, 5 ' Bright white background.

Cls



Dim b(15) As String * 1

b(0) = " "

b(1) = "Ú"

b(2) = "Ä"

b(3) = "¿"

b(4) = "³"

b(5) = "À"

b(6) = "Ù"

b(7) = "Ã"

b(8) = "´"

b(9) = "Ä"

b(10) = "Â"

b(11) = "Á"

b(12) = "Þ"

b(13) = "Ý"

b(15) = "ß"

b(14) = "Ü"



Overlay = _NewImage(_Width * _FontWidth, _Height * _FontHeight, 32)



b_text_y% = 1

b_text_x% = 2

GoSub b_text_display



_Dest Overlay

Line (9, 7)-(102, 38), _RGB32(0, 0, 0), B

Rem Line (16, 15)-(96, 31), _RGB32(0, 0, 126), B

Overlay_Hardware = _CopyImage(Overlay, 33)

_PutImage (0, 0), Overlay_Hardware

_Dest 0

_FreeImage Overlay_Hardware

_Display

Sleep

End



b_text_display:

Locate b_text_y%, b_text_x%: Color 6, 5: Print String$(12, b(14))

Locate , b_text_x%: Color 5, 6: Print String$(12, b(0))

Locate , b_text_x%: Color 6, 5: Print String$(12, b(15));

Locate b_text_y% + 1, b_text_x% + 1: Color 6, 7: Print b(0);: Print "Activate";: Print b(0);

Rem Locate b_text_y% + 1, b_text_x% + 1: Color 15, 1: Print b(0);: Print "Activate";: Print b(0);

Return

No special effects added. I just wanted to trim that first text button example, and this ASCII-Graphics hybrid does just that.

Pete