$file_name = "file.txt"
$file_len = TFCOUNT($file_name)
WHILE($count != $file_len)
INC($k, 1)
$check_out = 0
FOR($i = $count + 1, $i < $file_len + 1 & $check_out = 0)
INC($count, 1)
IF(TFREAD($file_name, $i) = $k)
FOR($j = $count + 1, $j < $file_len + 1 & $check_out = 0)
INC($count, 1)
IF(TFREAD($file_name, $j) = "</1j-cut>")
ARRPUSH($array_story, $i+1)
ARRPUSH($array_story, $j-1)
$check_out = 1
END_IF
END_CYC
END_IF
END_CYC
END_CYC
$size = ARRSIZE($array_story)/2
PRINT("ВСЕГО РАССКАЗОВ:", $size)
FOR($i = 0, $i < $size)
PRINT(CHAR(13), CHAR(10), " Номер: ", $i+1)
FOR($k = $array_story[$i*2], $k < $array_story[$i*2+1]+1)
PRINT(TFREAD($file_name, $k))
END_CYC
END_CYC
HALT
1
Недолго проработала на Западе Алла Е., клюнувшая на газетное объявление
о наборе девушек в посудомойки. Каково же оказалось ее возмущение, когда
после пересечения границы у нее не отобрали, как это заведено, паспорт и
не продали ее в заграничный бордель, а действительно привезли в ресторан
и заставили мыть грязную посуду!
</1j-cut>
2
У евреев национальное блюдо - фаршированная рыба, у украинцев -
фаршированный перец, а у русских - фаршированный целлофан.
- А это как?
- А это сосиски.
</1j-cut>
3
- Дорогая, налей компота! Не видишь, что ли, как мне плохо?..
- Тебе какого компота, персикового или вишнёвого?
- О-гур-цо-во-го!
</1j-cut>