- BBO Sample
-----------------------------------------------------------
- N.B.: At the options panel, you must check the "Keyboard
- entry for bidding/play" or the script will fail.
-----------------------------------------------------------

PRAGMA FILEHELPOFF
PRAGMA HIDETABS
PRAGMA HINTSOFF
PRAGMA MENUSTUBS
PRAGMA WINCOLOR TEAL
PRAGMA RESETPLACE

MACRO winbbo Bridge Base Online
MACRO prd Mike Mardesich
MACRO pdi MM
MACRO message

- Procedures
PROC ALERT
  IF %-RUNNING winbbo%
    WINDOW %winbbo%
    PUT %-arg1%
    DELAY 200
    PUT %-arg2%
    DELAY 750
    PUT {ctrl}A%-arg3%
    DELAY 500
    PUT {enter}
    ELSE
      MESSAGE %-arg1%%-arg2% = %-arg3%
    FI

PROC SendMessage
  IF %-RUNNING winbbo%
    WINDOW %winbbo%
    PUT {ctrl}S%-args%
    ELSE
      MESSAGE %-args%
    FI

- Openings
MENU Open|1C *ALERT |1|C|16{+} any distribution
MENU Open|1D *ALERT |1|D|11-15, 2{+}!ds
- ...
- ...
- ...

- One Club
MENU 1C|1D
   CALL ALERT |1|D|0-7, negative
   TOPANEL negclub
MENU 1C|1H
   CALL ALERT |1|H|8{+} natural
   TOPANEL posclub
- ...
- ...
- ...
MENU 1C|-
MENU 1C|X|Pass *ALERT ||P|0-4 hcp
MENU 1C|X|XX *ALERT |R||5-7 hcp

- One Diamond
- ...
- ...
MENU 1D|1-H|1N *ALERT |1|N|11-13 bal
MENU 1D|1-H|1-N|2C *ALERT |2|C|requests 2!d
MENU 1D|1-H|1-N|2-C|2D *ALERT |2|D|forced
MENU 1D|1-H|1-N|2-C|2-D|Pass *ALERT ||P|weak with !ds
MENU 1D|1-H|1-N|2-C|2-D|2H *ALERT |2|H|invite
MENU 1D|1-H|1-N|2-C|2-D|2S *ALERT |2|S|invite
MENU 1D|1-H|1-N|2-C|2-D|2N *ALERT |2|N|invite
MENU 1D|1-H|1-N|2-C|2-D|3C *ALERT |3|C|invite
- ...
- ...

- Buttons
BUTTON Lobby 46 YELLOW-RED "`msg to lobby" *CallLobby
BUTTON SIT 46 YELLOW-RED "`sit/join?" *SendMessage /please have a seat{enter}
RIGHT *SendMessage /hi, join us?{enter}
- etc...