* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Г л а в а XIII. П р и м е р ы п р о г р а м м PRINT " Задумай слово " d: PRINT "Задумал? Ответ "; I F o t v % <> 0 THEN GOTO r 'CLS : PRINT "Давай быстрее.": GOTO d r : 'CLS LOCATE , 20 PRINT "Слово, которое ты задумал относится к животным?"; I F o t v % <> 0 THEN a$ = " a : \ s l o v a \ a n i m a l s . t x t " : GOTO a r 'CLS LOCATE , 20 PRINT "Слово, которое ты задумал относится к именам или кличкам?"; I F o t v % <> 0 THEN a$ = " a : \ s l o v a \ n a m e s . t x t " : GOTO a r 'CLS LOCATE , 20 PRINT "Слово, которое ты задумал относится к названиям городов?"; I F o t v % <> 0 THEN a$ = " a : \ s l o v a \ c i t y . t x t " : GOTO a r 'CLS LOCATE , 20 PRINT "Слово, которое ты задумал относится к школе?"; I F o t v % <> 0 THEN a$ = " a : \ s l o v a \ s c h o o l . t x t " : GOTO a r GOTO r a r : CLS COLOR 11 PRINT a$ OPEN a$ FOR INPUT AS #1 ak: DO WHILE NOT EOF(1) INPUT # 1 , s ( i t + 1) i t = i t + 1 LOOP ae: ' CLS F O R i = 1 T O i t ' CLS LOCATE , 20 PRINT "Это слово — ", s ( i ) a f : PRINT "Ответ :"; I F o t v % <> 0 THEN GOTO a l a a 1 : NEXT i ah: INPUT "Сдаюсь. Какое это слово — ", s$ F O R i = 1 T O i t I F s ( i ) = s$ THEN CLS : PRINT "Ты нечестно играешь. Я называл это слово.": GOTO au NEXT i CLOSE # 1 OPEN a$ FOR APPEND AS # 1 WRITE # 1 , s$ CLOSE # 1 GOTO a u a l : CLOSE # 1 LOCATE , 20 CLS 213