A couple of bugs to report...

RANDOMIZE TIMER
OPTION BASE 1

TYPE RegType
AX AS INTEGER
BX AS INTEGER
CX AS INTEGER
DX AS INTEGER
END TYPE

DIM SHARED Mouse$, Game$
DIM SHARED Registers AS RegType
DIM SHARED LB%, RB%, MB%, DX%, CY%

DIM SHARED CARD(52) AS INTEGER, Player(5, 5) AS INTEGER, CardCnt AS INTEGER, Hold(5, 5) AS INTEGER
DIM SHARED Hand(5) AS INTEGER
DIM SHARED Playerx$(5, 5), Delt$, box AS INTEGER, QB AS LONG, MouseOpt AS INTEGER
DIM SHARED xx1 AS INTEGER, yy1 AS INTEGER, xspc AS INTEGER, yspc AS INTEGER, Credits AS INTEGER
DIM SHARED Bet(5) AS INTEGER, HighPair(5) AS INTEGER
xx1 = 8: yy1 = 28: xspc = 2: yspc = 5
Game$ = "Slots": REM Game choices "Evaluate" and "Slots"
Credits = 100
QB = VAL("&"): REM Get version of QB for mouse.
IF QB = 203 THEN QB = 4.5 ELSE QB = 1.1
MouseOpt% = 0: REM 0=custom mouse Cursor. 1=System mouse Cursor

''SCREEN 0, 0, 1, 0
'PALETTE 7, 63: REM Lettering
'PALETTE 13, 0: REM Lettering
'PALETTE 12, 36: REM Red Cards
'PALETTE 1, 16: REM Dark Green Dealer
'PALETTE 2, 10: REM Inner Green felt
'PALETTE 5, 32: REM Table Border Dark Redwood
'PALETTE 3, 16: REM Outer Dark Green

DO
''SCREEN 0, 0, 1, 0
IF NextRound% = 0 THEN
COLOR 7, 3: CLS
COLOR 15, 3
LOCATE 11, 33, 1, 7, 0: PRINT "Pecos Pete Poker"
LOCATE 13, 29: COLOR 12, 7: PRINT "K"; CHR$(4); : COLOR 7, 3
PRINT " Click Mouse to Begin!"
LOCATE 24, 4: PRINT "[E] Evaluate Only";
LOCATE 24, 65: PRINT "[Esc] to Quit";

REM Border
COLOR 7, 3
LOCATE 1, 1: PRINT CHR$(218); STRING$(78, 196) + CHR$(191)
FOR k = 2 TO 24
LOCATE k, 1: PRINT CHR$(179); " "; : LOCATE k, 79: PRINT " "; CHR$(179);
NEXT k
LOCATE 25, 1
PRINT CHR$(192); STRING$(78, 196); CHR$(217);

''PCOPY 1, 0: SCREEN 0, 0, 0, 0
END IF
EXIT DO
LOOP
DO: LOOP UNTIL INKEY$ = CHR$(27)
SYSTEM

-------------------------------------------

The code is from a much larger project. I had to remove the mouse but when I did, the entire 20K program compiled quickly and ran. The only problem I noticed was the border. In QB64 there is a long think line (1-column thick) about 2/3rds of the way from the top left border down. The flashing cursor at the top of that border is OK, but it should not have a thick line.

I tried remming out PCOPY, SCREEN, and PALETTE statements but the problem remained.

I also noticed after several recompile attempts to debug it, something strange happened. The compiled version would not stay on the screen. It would run and immediately close. I even deleted the old exe and recompiled but same result.







Pete

Edited in: Nothing to do with those bugs but I also compiled a numbers to English that goes past the decillions and a a drop-down file menu. Both worked flawlessly!