I'm trying to make a bar menu.
PBCC 5.01
This compiles and acts like it's working (cursor moves) but it shows no menu items. When I hit enter it returns the correct menu item number.
It also throws some garbage characters up ("x" and upside-down "?").
what am I doing wrong?
PBCC 5.01
This compiles and acts like it's working (cursor moves) but it shows no menu items. When I hit enter it returns the correct menu item number.
It also throws some garbage characters up ("x" and upside-down "?").
what am I doing wrong?
Code:
Function showBar() As Long Dim bChoices(1:6) As String Dim bKeys(1:6) As Byte Dim bHelp(1:6) As String Dim bDisabled(1:6) As Byte Local row As Byte Local helpRow As Byte Local initial As Byte Local barAttr As Byte Local menuAttr As Byte Local keyAttr As Byte Local disAttr As Byte Local helpAttr As Byte Local choice As Integer bChoices(1)="ENTER" bChoices(2)="VIEW" bChoices(3)="SETUP" bChoices(4)="DELETE" bChoices(5)="CONSIGNEES" bChoices(6)="EXIT" ' bDisabled(1)=0 ' bDisabled(2)=0 ' bDisabled(3)=0 ' bDisabled(4)=0 ' bDisabled(5)=0 ' bDisabled(6)=0 bHelp(1)="" bHelp(2)="" bHelp(3)="" bHelp(4)="" bHelp(5)="" bHelp(6)="" bKeys(1)=1 bKeys(2)=1 bKeys(3)=1 bKeys(4)=1 bKeys(5)=1 bKeys(6)=2 row=2 helpRow=25 initial=1 barAttr=&h71 menuAttr=&h1f keyAttr=&h1e disAttr=&h10 helpAttr=&h07 choice=BarMenu(bChoices(),bKeys(),bHelp(),bDisabled(),row,helpRow,_ initial,barAttr,menuAttr,keyAttr,DisAttr,helpAttr) Function= choice End Function
Comment