DECLARE SUB ShowGridItem (x!, y!, mode)

DECLARE SUB PlayGame ()

DECLARE SUB InitializeGame ()

​

' BOMBER.BAS by Doug Lowe

' Copyright (C) 1994 DOS Resource Guide. Sept. 1994 issue, page 58

​

CLS : SCREEN 0

DIM SHARED Grid(11, 11)    ' 0-8 = adjacent bombs; 9=bomb

DIM SHARED Show(11, 11)    ' 0 = hidden  1 = exposed  2 = marked

DIM SHARED OpenX         ' Number of squares currently revealed

DIM SHARED FirstMove, StartTime

RANDOMIZE TIMER

CALL InitializeGame

EndGame = 0

OpenX = 0

Marks = 0

x = 1: y = 1: CALL ShowGridItem(x, y, 1)

DO

    COLOR 8, 3

    DO: in$ = INKEY$

        IF FirstMove = 0 THEN

            LOCATE 19, 68: PRINT USING "###"; TIMER - StartTime;