254____________________________________________

ipost = О FOR jst% = 1 TO temp%

'вычисление количества открытых карт IF stacks(i%, jst%) > 0 THEN ipost == ipost + 1 NEXT jst% IF ipost = 0 THEN 'верхняя карта закрыта

jst% = temp%: ist% = i%

ELSE 'определение позиции в стеке j% = j% \ 8 IF j% < ipost + 7 THEN ist% = i% IP j% < ipost THEN

jst% = j% + tempt - ipost ELSE

jst% = tempt END IF END IF END IF ELSE

IF mark% = 1 THEN ist% = i%: jstt = ptrs(ist%) END IF CASE ELSE

IF j% 0 64 AND j% < 128 THEN

'вычисление номера стека с 8 по 13 ist% = it + 1 + 2 * (j% \ 64) IF ist% < 4 THEN ist% = (5 * ist% +11) \ 2 jst% = ptrs(ist%) 'верхушка стека END IE-END SELECT END IF IF mark% = 0 THEN

IF ist% < 13 AND jst% = 0 THEN ist% = 0

'из пустых не берут ELSE

IF ist% = 13 THEN ist% = 0 'сюда не кладут END IF

IF ist% = О THEN BEEP 'сигнал неправильного выбора END IF

IF mymouse(17) > 0 THEN oldm% = 0 ELSE oldn% = 1 LOOP UNTIL ist% > 0 RETURN

7.9. ДВА ВАРИАНТА ИГРЫ «РЕВЕРСИ» Файл RVRS2.BAS

SCREEN 13

DEFINT I-К

DATA 1,1,0,-1,-1,-1,0,1,1,1

DIM dij <1 TO 10)

FOR kd = 1 ТО 10 'приращения для 8 направлений

READ temp%

dij (kd) = tempt NEXT kd