246__________________________________________

'выход по отсутствию "змеи" POKE kfood, 253: POKE kfood + 1, code%

'запись кода и атрибута"пищи" END IF

length% = length% + 1 'увеличить длину LOCATE 1: PRINT length%

'показать новое значение длины END IF

LOOP 'конец цикла игры SLEEP: CLS END

7.7. ИГРА «САПЕР» Файл MINES.BAS

DIM mymoused TO 19) AS INTEGER

DIM dl](1 TO 10) AS INTEGER

DIM fld(l TO 10, 1 TO 10) AS INTEGER

DEFINT I-L

DATA &H50, &H53, 6H51, &H52, &H1E, SHOE, SHIP, &HA1, &H1E, &HOO

DATA &HCD, &H33, SH89, &H1E, SH20, SHOO, SH89, &HOE ,SH22 ,&HOO

DATA &H89, &H16, &H24, SHOO, &H1F, 6H5A, SH59, &H5B, SH58, &HCB

DEF SEG = VARSEGdnymoused))

mouseptrb = VARPTR(mymouse(1))

FOR l = 0 TO 29

READ code%

POKE mouseptrS + l, code% NEXT l

DATA 1, 1, 0, -1, -1, -1, 0, 1, 1, 1 FOR l = I TO 10

READ dl] (з.) NEXT I

WIDTH 80, 25 CLS

COLOR 15, 7

top$ = " " + CHR$(218) bot$ = " " + CHR$(192)

wall$ = " " + CHR$(179) ' shelf$ = " " + CHR$(195) FOR l = 1 TO 9

top$ = top$ + STRING$(4, 196) + CHR$(194)

bot$ = bot$ + STRING$(4, 196) + CHR$(193)

wall$ = wall$ + SPACE$(4) + CHR$(179)

shelf$ = shelf$ + STRING$(4, 196) + CHR$(197) NEXT l

top$ = top$ + STRING$(4, 196) + CHR$(191) bot$ = bot$ + STRING$(4, 196) + CHR$(217) wall$ = wall$ + SPACE$(4) + CHR$(179) shelf$ = shelf$ + STRING$(4, 196) + CHR$(180) PRINT top$ FOR l. = 1 TO 9

PRINT wall$: PRINT shelf $ NEXT l