clrscr 'Узнал царь, что в некотором царстве, тридевятом государстве растут молодильные яблоки. Решил царь послать трех своих сыновей за яблоками. Два старших сына отправились первыми. Немного погодя отправился и младший сын, Иван. Ехал на коне Иван до перепутья. Видит - большой камень посреди дороги лежит. На камне написано : "Налево пойдешь - коня потеряешь. Направо - сам сгинешь. Прямо пойдешь - и коня потеряешь, и сам сгинешь.". Расстроился Иван, сел на камень и думает. Думал-думал, и придумал. Достал он свой трехгранный кубик, загадал для каждой грани направление и бросил под ноги. ' write 'Выбор' var 1 4 rand 'Выбор' mov Выбор 4 = 'label0002' jt 'В путь! ' write 'label0001' jmp :label0002 'Вдруг, откуда ни возьмись… ' write :label0001 read Выбор 1 = 'Прямо' jt Выбор 2 = 'Налево' jt Выбор 3 = 'Направо' jt Выбор 4 = 'Василиса' jt clrscr :Прямо clrscr 'Выпало Ивану ехать прямо. Вдруг появился змей Горыныч. Пока Иван просил змея его не трогать, конь возьми да и помри со страху. Змей хотел коня забрать, но не вышло. Решил он тогда Ивана себе на золотые прииски в рабство угнать. Работал Иван у Горыныча три года и три дня. Выдохся полностью, все здоровье начисто растерял… ' write read 'Проиграл' jmp :Налево clrscr 'Выпало Ивану ехать налево. Вдруг выскочили разбойники, сбили Ивана с коня, а самого пощадили. Погоревал он о своем добром коне и отправлися в путь. ' write read 'Локация2' jmp :Направо clrscr 'Выпало Ивану ехать направо. Вдруг выскочили разбойники, сбили Ивана с коня. Пока Иван дрался с разбойниками, конь возьми да и ускачи обратно в царские конюшни. Разбойники одолели Ивана и решили его продать в рабство змею Горынычу. Работал Иван у Горыныча три года и три дня. Выдохся полностью, все здоровье начисто растерял… ' write read 'Проиграл' jmp :Василиса clrscr 'Появляется Василиса Предудрая, красна девица, и молвит Ивану: - Что стоишь, как пень, добрый молодец! Пришёлся ты мне по сердцу, хочу за тебя замуж выйти, а в приданое у меня пара килограммов молодильных яблочек! Обрадовался тут Иван-царевич неожиданному счастью. Вернулся домой, женился на Василисе по-быстрому и стали они поживать, да добра наживать. А молодильные яблочки отдали царю-батюшке и прожил он после этого тыщу лет! ' write read 'конец' jmp :Локация2 clrscr 'Вот идет Иван через рощу. В роще заяц, попал в капкан. Просит заяц Ивана человеческим голосом освободить его. Как Ивану поступить? 1. Убить зайца, съесть и дальше пойти. 2. Помочь несчастной зверюшке. 'write read dup '1' = 'Локация3' jt dup '2' = 'Локация3' jt 'Локация2' jmp :Локация3 clrscr 'Шел, шел Иван и забрел в тридевятое царство. Долго ему пришлось стараться, чтобы добыть молодильные яблоки. Вот возвращается Иван обратно домой. А тут старшие братья его уже ждут в засаде. Не смог справиться Иван с братьями, убили они его и разрубили тело на мелкие кусочки, а яблоки отобрали и сами решили отнести домой. ' write read swap dup '2' = 'Заяцжив' jt '############################ Да, может стоило все же помочь зайцу? А то лежит Иван, изрубленный на кусочки и уже никогда не оживет. ' write 'совсемконец' jmp :Заяцжив clrscr 'Не проходит и часа… ' write read 'Прибегает Заяц с мертвой и живой водой. Мертвой оросил Ивана - стало тело целым. Живой оросил - поднялся Иван на ноги, отер лоб и промолвил: "Как долго я спал!". Рассказал ему Заяц о том, что братья сделали. Разгневался Иван, нагнал братьев, отобрал яблоки и прочитал им нравоучительную лекцию.' write read clrscr 'Обрадовался Царь возвращению сыновей, наелся яблок и закатил пир на весь мир!' write read 'конец' jmp :Проиграл ' Сожрал Ивана Горыныч на ужин, так как работать царевич больше не мог. ' write 'совсемконец' jmp :конец 'Поздравляю!' write :совсемконец