Вид для печати
Коллеги, вот в староглинянные времена была куча экономических игрушек, типа "Президент", где надо было прокачивать себя из мусорщика в президенты
Я их видел на БК - президент, фараон....
Вобщем вопрос такой - было ли что-то такое под ZX (русское)
А еще - может кто-то знает ресурсы, посвященные таким игрулькам, может исходники хотя бы на уровне алгоритмов - статьи, публикации - все сгодится
Ну и тайтлы - не только под спектрум - напишите кто знает, пожалуйста.
Ну Президент, так и называется. Их даже несколько версий. Диктатор еще есть, тож клёвая.
Была какая-то игра на zx (либо Президент, либо Диктатор, либо я не знаю что), где надо было не прокачивать себя до президента, а просто оставаться у власти как можно дольше, а она всякие там события типа восстаний выдавала и варианты действий предлагала, типа покупки личного вертолета для побега, или усиления полиции, и стоимость. Я ее прошла в свое время.
1) Как называлась?
2) Где бы ее скачать? Че-то ни WoS ни V-TR-Dos не работает...
королевство зерна от ТХД... ещё королевство Эйфория....
Mugsy и Mugsy Revenge - неплохие экономические игры про мафию, особо первая.
О, точно !
"Королевство Эйфория".
Вообще, таких вещей был целый выводок... Интересно про внутренности почитать - алгоритмы там врядли забубенные сильно, может есть у кого статьи или иные публикации по этому поводу ? Чего-то пробило на поизучать.
Мы в биржу игрались... ;) Russian Stock, кажется...
Мне лично очень нравилась игра Stock market.
Сначала неделю проводим на бирже (покупаем-продаём), а потом компьютер пытается устроить разбор полётов -- в какой день хорошо получалось, в какой зря рисковали и так далее.
Интереснее всего было именно читать отзывы :)
King III - вроде то ли курская поделка, то ли переделка подобной игры
Удержаться у власти - это диктатор, а я больше как-то в Сим Сити рубился, это где остров застраивать.
Slider:
Мы в биржу игрались... Russian Stock, кажется...
rg_software:
Мне лично очень нравилась игра Stock market.
Дык, это ж оно и есть... ;)
В своё время я пытался сделать гаму "Застой First:эликсир выживания". У Мазницы идея не получила поддержки. Суть её была реконструкция выживания в брежневскую эпоху в славном городе-герое Ленинграде. Можно было играть за 1)студента;2)студентку и молодых спецов обоих полов, еще выбирать варианты родителей из разных социальных слоев.
Королевство "Эйфория", кстати стопудово еще на Микроше выходила, вот вспомнилось тут.
Странно все-таки. Текст чистый, надписи... А ведь так торкало, не оторваться
Ну, скажем, нечто похожее на то, по мотивом чего "Королевство Зерна" создано - игра-пример в конце книги "Как написать игру...", первый том!Цитата:
Сообщение от F0lken
З.Ы., оффтоп: Эх, вот те игры все надо наворотить, сюжетно они все неплохие...
А есть сие творение в электронном виде ? Можно ли ссылку ?Цитата:
Сообщение от TomCaT
Пример - на vt в книгах. У меня и в готовом виде набранном есть вроде бы.
"Как написать игру (на бейсике) - А.Капульцевич, И.Капульцевич, А.Евдокимов. Питер'95.", действительно на VT (даже первым пунктом ;) ).
А игра эта - самая последняя в приложении с играми.
я видел игру КОСМИЧЕСКАЯ ТОРГОВЛЯ. Очень простая, думаю, сделана на основе движков из книг.
SPACE TRADER что ли ?...
Страничка автора игры Dictator. Версия для PC. Оттуда же можно скачать эту игру.Цитата:
Сообщение от F0lken
Эфория лучше!Цитата:
Сообщение от Лас
Я в давние времена конвертировал на язык C игру "Королевство" (зерна) с языка "Рапира" на компьютерах Агат (игра входила в комплект ИКП-1).
Исходник вместе с екзешником можно скачать тут:
http://www.geocities.com/barmaley_m/kingdom.zip
Примерно в 97м году игра была компилирована под ОС RSX-11M (СМ-4 ЭВМ aka PDP11) и предоставлена в компьютерном классе студентам. И стала шлягером! Некоторые даже занятия прогуливали в компьютерном классе - все резались в Kingdom :)
По сравнению с оригиналом я немного изменил баланс игры, сделал последствия проникновения в город вражеского агента более страшными - особенно если их пробралось несколько! Играть стало труднее и интереснее.
В моей коллекции "Nostalgy ZX Spectrum" есть такой раздельчик - 5 сборников trd + еще одна игрулька. Надеюсь приложение дойдет!?Цитата:
Сообщение от F0lken
Вот еще одна экономическая игрулька. В предыдущем письме больше 5 файлов не удалось отправить. И второй файл список игр на 5 TRD'шках.Цитата:
Сообщение от F0lken
Сборники сам составлял в свое время, но игры вроде не все на русском.
2 vBv: аааааааааа такие ностальгические сборникииииииии! я сразу узнал оболочку. у вас брал дискеты на радиорынке еще году в 98-м :). блин, перешарил дискет не нашёл :(((. но оболочка сразу вспомнилась. а эти компиляции всё в том же виде, как и тогда были?
А с чего им меняться? Просто сконвертил в TRD.Цитата:
Сообщение от zloba
Нет, не просто - с тех пор собираю и сортирую спековский софт. И теперь это целый DVD. Половину диска занимает отсортированные программы в TR-DOS варианте! Ну много чего еще касательно Спека! Более подробное описание коллекции находится здесь в разделе СОФТ в моей теме "DVD Nostalgy ZX Spectrum". Заходи!
Народ, не могу найти игру.Цитата:
Сообщение от rasmer
Я помню у меня на диске она называлась K. Eforia
На виртуале все обрыл и на "E" и на "K" ничего не нашел.
Нашел игру AYFORIA, но это не то, она чем-то похожа, но без замечательной графики! Нужна от THD.
Исходники остались ?Цитата:
Сообщение от andrews
---------- Post added at 22:20 ---------- Previous post was at 22:17 ----------
А еще была красочная игра Дилер, где надо было торговать спековскими дискетами.
А мне нравился "музыкальный менеджер", где тебе отводилась роль раскручивать свою группу.
Ссылка прокисла за давностью. Остались ли исходники где-то ещё?Цитата:
Сообщение от Barmaley_m
Кстати, нашлись какие-то исходники, но авторство указано
Copyright (c) Ponpa Dmitriy, 41PDM. 1998.
Архив во вложении.
Источник: http://vetusware.com/download/Короле...%20RU/?id=3469
Да, остались, вот присоединенный файл. Русский текст в досовской кодировке (866), и он выглядит испорченно, если редактировать файл в редакторе Visual C++, но после компиляции работает нормально.Цитата:
Сообщение от nzeemin
Всем привет. Ничего, что я через 10 лет пишу?
В игру Президент, адаптированную для Spectrum'а Клоковым И.Б., мы очень любили играть в детстве.
В игре использован подгружаемый англо-русский шрифт.
Может кто-то подскажет, как получить листинг данной программы на бейсике и TXT формате, чтоб можно было распечатать на бумаге для изучения, комментирования.
Tapir и Taper отображают листинг, но они ничего не знают о подгружаемом шрифте.
Может можно как-то через эмулятор распечатать, сразу из бейсика?
попробуй basin (там что-то есть связанное со своими шрифтами)Цитата:
Сообщение от Bambr
http://speccy.info/w/images/2/25/BASin.png
Программа действительно корректно отображает текст на русском языке.Цитата:
Сообщение от goodboy
Хотя текст получается в странной кодировке. Русские слова латинскими буквами + UDG для недостающих букв.
Распечатать можно только в виде картинок. Но всё равно большое спасибо @googboy.
Скопировал листинг программы из Tapir.
И руками перенабрал весь русскоязычный текст.
Может кому нужно для изучения.
Скрытый текст
10 PAPER 7: CLS : BEEP 1,1
20 GO TO 100
50 GO SUB 4110: INPUT " ЖЕЛАЕТЕ ЛИ ЕЩЁ РАЗ ПОПРОБОВАТЬ СВОИ СИЛЫ? ",XX
52 IF XX=1 THEN CLS : PRINT AT 8,6;" УДАЧИ ВАМ!!!": GO SUB 4110: CLS : GO TO 100
54 CLS : PRINT AT 8,6;"ДО СКОРОГО СВИДАНИЯ!!!": GO SUB 4110: NEW
100 POKE 23609,100
101 REM ПРЕЗИДЕНТ
102 REM 34014 БАЙТ
104 DIM D(10)
105 DIM C(10,10)
106 DIM O(10): DIM D(10): DIM T(10): DIM I(10): DIM L(10): DIM G(10): DIM Z(10): DIM P(10): DIM R(10): DIM S(10,10): DIM Q(10,10): DIM W(10): DIM E(10)
107 PRINT : PRINT " НА ВОПРОСЫ ОТВЕЧАТЬ:НЕТ=0/ДА=1.": PRINT : PRINT
110 GO TO 4501
190 CLS : PRINT AT 8,10;"АВАРИЯ!!!": PRINT : GO TO 10
200 DEF FN R()=-1+2*RND
210 LET Y=.01*INT (5+47.5*(1+FN R())): RETURN
310 PRINT : PRINT " НЕ ПОНЯТНО. ПОВТОРИТЕ.": RETURN
410 INPUT "ПО РУКАМ?",X: IF (1-X)<0 THEN : GO SUB 310: GO TO 410
420 RETURN
510 INPUT "[ ПРОДАЖА=0/ПОКУПКА=1]: ";X: INPUT " [ЧТО=N]: ",Y: IF (X-1)<=0 THEN GO TO 530
520 GO SUB 310: GO TO 510
530 IF (5-Y)<0 THEN GO TO 520
532 RETURN
610 PRINT : PRINT " National Bank";
620 PRINT "-БАНКРОТ!": PRINT : PRINT : RETURN
710 INPUT "ЕЩЁ ОДНА СДЕЛКА? ";X: RETURN
810 INPUT " [УВОЛЬНЕНИЕ=0/НАЁМ=1]: ";X: INPUT " [КОГО=N]: ",Y: IF (X-1)<=0 THEN GO TO 830
820 GO SUB 310: GO TO 810
830 IF (5-Y)<0 THEN GO TO 820
840 RETURN
910 PRINT : PRINT " УЧТИТЕ НА БУДУЩЕЕ.": RETURN
920 PRINT : PRINT " УСВОИЛИ?": RETURN
1010 LET A=INT (A+.01): PRINT : PRINT : PRINT " НАЛИЧНЫЕ СРЕДСТВА ";A: PRINT : RETURN
1110 PRINT " КВАРТИРУ";: RETURN
1210 PRINT " МАШИНУ ";: RETURN
1310 PRINT " ВИЛЛУ ";: RETURN
1410 PRINT " ЯХТУ ";: RETURN
1510 PRINT " САМОЛЁТ ";: RETURN
1610 PRINT " БАР ";: RETURN
1710 PRINT " РЕСТОРАН";: RETURN
1810 PRINT " МАГАЗИН ";: RETURN
1910 PRINT " ОТЕЛЬ ";: RETURN
2010 PRINT " ЗАВОД ";: RETURN
2110 PRINT "ВЫ МОЖЕТЕ";: RETURN
2120 PRINT " КУПИТЬ ";: RETURN
2210 PRINT " ПРОДАТЬ ";: RETURN
2310 PRINT " ГОДОВОЙ": RETURN
2312 PRINT " ДОХОД";: RETURN
2410 PRINT " СТОИМОСТЬ";: RETURN
2510 PRINT " ЦЕНА ";: RETURN
2610 PRINT " МАКЛЕРА ";: RETURN
2710 PRINT " ВРАЧА ";: RETURN
2810 PRINT " АДВОКАТА ";: RETURN
2910 PRINT " ДЕТЕКТИВА ";: RETURN
3010 PRINT " ЛИЧНУЮ ОХРАНУ ";: RETURN
3110 PRINT " БИЗНЕСМЕН ": RETURN
3210 PRINT " ЛИДЕР ПРОФСОЮЗА ";: RETURN
3310 PRINT " ШЕРИФ ": RETURN
3410 PRINT " СЕНАТОР ": RETURN
3510 PRINT " ПРЕЗИДЕНТ ": RETURN
3610 LET J=0: FOR I=1 TO 5: LET J=J+C(3,I): NEXT I
3620 IF J<0 THEN GO TO 190
3625 IF J=0 THEN GO TO 3650
3630 PRINT "ВЫ ИМЕЕТЕ:"
3640 LET J=1010: FOR I=1 TO 5: LET J=J+100: IF (-(1-C(3,I))^2)<0 THEN GO TO 3650
3645 GO SUB J: PRINT
3650 NEXT I
3652 RETURN
3660 REM
3710 LET J=0: FOR I=1 TO 5: LET J=J+D(I): NEXT I
3720 IF J<0 THEN GO TO 190
3725 IF J=0 THEN GO TO 3750
3730 PRINT "ОПЛАЧИВАЕТЕ:"
3740 LET J=2510: FOR I=1 TO 5: LET J=J+100: IF (-(1-D(I))^2)<0 THEN GO TO 3750
3745 GO SUB J: PRINT
3750 NEXT I
3752 RETURN
3760 REM
3810 LET J=0: FOR I=1 TO 5: LET J=J+C(5,I): NEXT I
3820 IF J<0 THEN GO TO 190
3825 IF J=0 THEN GO TO 3850
3830 PRINT "В ВАШЕМ ВЛАДЕНИИ:"
3840 LET J=1510: FOR I=1 TO 5: LET J=J+100: IF (-(1-C(5,I))^2)<0 THEN GO TO 3850
3845 GO SUB J: PRINT
3850 NEXT I
3852 RETURN
3860 REM
3901 PRINT "В АКЦИЯХ ";INT (P)
3902 PRINT "СЧЁТ В БАНКЕ ";INT (H)
3903 PRINT "НЕДВИЖИМОСТЬ ";INT (C)
3904 PRINT "ДОХОДЫ ";INT (V)
3905 PRINT "РАСХОДЫ ";INT (U)
3906 IF K<=0 THEN GO TO 3910
3907 PRINT "КРЕДИТ ";INT (K+K*K1)
3910 PRINT "ВЕСЬ КАПИТАЛ ";INT (A+P+H+C+V-U)
3920 RETURN
3930 REM
4010 PRINT "ВАМ ВСЁ ЯСНО?": RETURN
4110 FOR F=1 TO 40: LET FF=SQR (100): NEXT F: RETURN
4501 PRINT : PRINT : PRINT : PRINT : PRINT " [bright 1]ПРЕЗИДЕНТ[bright 0] ": PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
4502 LET N=0: LET H=10^6: LET B=1: LET K=0: LET S=0: LET C=0: LET NS=0: LET NK=0
4503 INPUT " ВАШ КЛАСС [1-3] ";L: IF (3-L)<0 THEN GO TO 4503
4504 PRINT : PRINT : PRINT : PRINT " ПОЗДРАВЛЯЕМ С ПРИБЫТИЕМ В НАШУ СТРАНУ,";
4505 PRINT "ГДЕ КАЖДЫЙ МОЖЕТ СТАТЬ ПРЕЗИДЕНТОМ!!!": PRINT : GO SUB 4110: CLS
4506 PRINT " МОЖНО ДАЖЕ ПРЕДСТАВИТЬ,ЧТО..."
4507 FOR I=1 TO 5: LET C(3,I)=1: LET C(5,I)=1: LET D(I)=1: NEXT I
4508 GO SUB 3605: GO SUB 3705: GO SUB 3810
4509 PRINT "И СЧЁТ В БАНКЕ ";H;: GO SUB 4110: PRINT ","
4510 PRINT "...НО ПОКА ЭТО МЕЧТЫ.": PRINT " РЕАЛИЗУЙТЕ ИХ!!!"
4511 DIM P(10): DIM G(10)
4512 LET H=0: FOR I=1 TO 5: LET C(3,I)=0: LET C(5,I)=0: LET D(I)=0: LET P(I)=0: LET G(I)=0: NEXT I
4513 INPUT " КАКОЙ СЕЙЧАС ГОД? ";NN
4514 INPUT "ВАШ ВОЗРАСТ?",N2: IF (N2-61)<0 THEN GO TO 4516
4515 CLS : PRINT AT 8,0;" В МУМИЯХ НЕ НУЖДАЕМСЯ!": GO TO 50
4516 IF (17-N2)<0 THEN GO TO 4518
4517 CLS : PRINT AT 8,0;" МЛАДЕНЦАМ У НАС ДЕЛАТЬ НЕЧЕГО!": GO TO 50
4518 GO SUB 210: LET N3=60+20*Y: GO SUB 210: LET X=1500*L*(1+Y)
4520 INPUT "СКОЛЬКО ИМЕЕТЕ НАЛИЧНЫМИ? ";Y: IF (Y-X)<=0 THEN GO TO 4522
4521 LET Y=X*2/3: PRINT : PRINT " ОТКУДА?!": PRINT " ПО НАШИМ ДАННЫМ У ВАС ";Y
4522 LET A=Y: LET K=0: LET S=0: LET P=0
4523 LET B3=0: GO SUB 210: LET N4=L+(5-L)*Y: LET N1=0: LET U=0: LET V=.2: LET HH=0
4528 FOR I=1 TO 5: GO SUB 9910: LET S(3,I)=X: LET Q(3,I)=Z: NEXT I
4530 FOR I=1 TO 5: GO SUB 9910: LET S(5,I)=X: LET Q(5,I)=Z: LET W(I)=Z*(Y-.3): NEXT I
4532 FOR I=1 TO 5: GO SUB 210: LET E(I)=4500*Y+2000*I: NEXT I
4536 GO SUB 1010
4540 PRINT " ЧТО ВАС ИНТЕРЕСУЕТ?": PRINT " 1-ФИНАНСОВОЕ ПОЛОЖЕНИЕ": PRINT " 2-ОБЩЕСТВЕННОЕ ПОЛОЖЕНИЕ": PRINT " 3-ЛИЧНОЕ ИМУЩЕСТВО": PRINT " 4-ПОДЧИНЁННЫЕ": PRINT " 5-БИЗНЕС": PRINT " 6-БИРЖА": PRINT " 7-БАНК": PRINT " 8-РАЗВЛЕЧЕНИЯ": PRINT : PRINT
4544 INPUT "[N]",M: LET M=INT (M): IF M<=0 THEN GO TO 4536
4545 IF (M-9)>=0 THEN GO SUB 310: GO TO 4544
4546 LET I=4501+500*M: GO TO I
4710 IF (-NS)<0 THEN GO TO 4790
4712 IF S<0 THEN GO TO 4760
4713 IF S=0 THEN GO TO 4790
4720 PRINT : PRINT " ВЫ УДАЧНО ССУДИЛИ ДЕНЬГИ."
4730 PRINT " ПОЛУЧИТЕ СВОИ ";S;" И ": PRINT "БАРЫШ ";INT (S*S1);".": PRINT : PRINT : LET A=A+S*(1+S1): GO TO 4780
4760 PRINT : PRINT " ВАС НАДУЛИ СО ССУДОЙ.": PRINT "ПОТЕРЯНО-";S;".": PRINT : PRINT
4780 LET S=0
4790 RETURN
4810 IF (-NK)<0 THEN GO TO 4890
4812 IF K<=0 THEN GO TO 4880
4820 LET X=K+K*K1: PRINT : PRINT " С ВАС УДЕРЖАЛИ КРЕДИТ ": PRINT "И %%: ";INT (X);".": PRINT : PRINT : GO SUB 7110
4880 LET K=0
4890 RETURN
4910 GO SUB 210: IF (Y-.2)<0 THEN GO TO 4930
4920 RETURN
4930 GO SUB 210: LET Y=INT (10*Y): IF Y<=0 THEN GO TO 4920
4932 IF (5-Y)<0 THEN GO TO 4920
4934 IF (C(3,Y))<=0 THEN GO TO 4920
4936 LET X=Q(3,Y): LET J=4930+10*Y: GO SUB J: IF (Y-5)<0 THEN GO TO 4990
4937 IF (Y-5)=0 THEN GO TO 4995
4940 PRINT : PRINT " ВАША КВАРТИРА СГОРЕЛА.": RETURN
4950 PRINT : PRINT " ВЫ ПОПАЛИ В АВТОКАТАСТРОФУ.": PRINT "ВЫБРОСИТЕ ОСТАТКИ СВОЕГО АВТОМО-": PRINT "БИЛЯ!": RETURN
4960 PRINT : PRINT " СИОНИСТЫ ВЗОРВАЛИ ВАШУ ВИЛЛУ!": RETURN
4970 PRINT : PRINT " ЭКСТРЕМИСТЫ ЗАТОПИЛИ ВАШУ ЯХТУ!": RETURN
4980 PRINT : PRINT : PRINT " ВЫ РАЗБИЛИСЬ НА СВОЁМ САМОЛЁТЕ.": RETURN
4990 PRINT "НАНЕСЁН УЩЕРБ ";INT (X);"."
4992 LET C(3,Y)=0: LET Z=L(Y): IF Z<=0 THEN GO TO 4920
4994 PRINT "ВАМ ВЫПЛАЧИВАЕТСЯ СТРАХОВ-": PRINT "КА:";INT (Z);".": PRINT : PRINT : LET V=V+Z: LET L(Y)=0: RETURN
4995 GO TO 4110: CLS : PRINT AT 8,0;" ЛЕТАЙТЕ САМОЛЁТАМИ <АЭРОФЛОТА>!": PRINT
4996 PRINT : PRINT : PRINT " ГОСПОДА!": PRINT " БИЗНЕС ПОНЁС НЕВОСПОЛНИМУЮ ": PRINT "УТРАТУ.";
4997 PRINT " HA ";N2;" ГОДУ ОБОРВАЛАСЬ": PRINT "ЖИЗНЬ НАШЕГО КОЛЛЕГИ."
4998 PRINT : PRINT " ПРИМИТЕ СОБОЛЕЗНОВАНИЯ.": PRINT : GO TO 50
5001 PRINT : PRINT : PRINT : PRINT " ГОД ";NN+N: GO SUB 1010
5003 LET P=0: LET C=0
5005 FOR I=1 TO 5: LET P=P+P(I)*R(I): LET C=C+C(3,I)*Q(3,I)+C(5,I)*Q(5,I): NEXT I
5007 LET J=.1: GO SUB 5101: GO SUB 3901: PRINT : GO TO 5010
5009 LET J=.3: GO SUB 5101: GO TO 5012
5010 IF A<=0 THEN GO TO 5009
5012 GO SUB 4710: GO SUB 4810: GO SUB 4910: IF (N1-N4)<0 THEN GO TO 4540
5014 PRINT : PRINT : PRINT " ЗАКОНЧИЛСЯ ";NN+N;" ГОД.": PRINT : PRINT " ПОДВЕДЁМ ИТОГИ:": PRINT
5016 LET N=N+1: LET N2=N2+1: LET P=0: LET C=0: FOR I=1 TO 5: LET P=P+P(I)*R(I): LET C=C+C(3,I)*Q(3,I)+C(5,I)*Q(5,I): NEXT I
5018 GO SUB 5810: PRINT : GO SUB 3610: GO SUB 3710: GO SUB 3810
5019 FOR I=1 TO 5: LET U=U+.5*L(I): LET V=V+Z(I)*P(I): IF (-G(I))<0 THEN GO TO 5021
5020 LET L(I)=0
5021 NEXT I
5022 GO SUB 1010: GO SUB 3901: INPUT " ОПЛАЧИВАЕМ РАСХОДЫ? ";Z
5023 IF (C(3,1)+C(3,3))<0 THEN GO TO 190
5024 IF (C(3,1)+C(3,3))>0 THEN GO TO 5030
5025 GO SUB 210: LET X=1000+20*INT (Y*ABS (A)/19):: LET A=A-X
5026 PRINT : PRINT " ЗА БРОДЯЖНИЧЕСТВО-ШТРАФ:";INT (X);".": GO SUB 4010
5030 IF (1-Z)<=0 THEN GO TO 5040
5031 GO SUB 210: LET X=1000+25*INT (Y*ABS (A)/23): LET A=A-X
5032 PRINT : PRINT " ШТРАФ НАЛОГОВОГО УПРАВЛЕ-": PRINT "НИЯ:";INT (X);" ЗА ЖМОТНИЧЕСТВО!"
5040 LET A=A+V-U
5042 IF A<0 THEN GO TO 5050
5043 IF (N3-N2)<0 THEN GO TO 4996
5044 PRINT : PRINT : PRINT " НАСТУПИЛ ";NN+N;" ГОД!": PRINT
5048 GO TO 4523
5050 PRINT : PRINT " У ВАС ДЕФИЦИТ СРЕДСТВ:";-INT (A);"."
5051 IF H<=0 THEN GO TO 5053
5052 GO SUB 8211: GO TO 5042
5053 IF P<=0 THEN GO TO 5060
5054 GO SUB 210: LET X=P*Y: LET A=A+X: LET P=0: FOR I=1 TO 5: LET P(I)=0: NEXT I
5055 PRINT : PRINT " ВАШИ АКЦИИ РАСПРОДАНЫ НА ": PRINT "СУММУ:";INT (X);"."
5056 IF A<0 THEN GO TO 5060
5057 GO TO 5043
5060 IF C<=0 THEN GO TO 5070
5061 GO SUB 210: LET X=C*Y: LET A=A+X: LET C=0
5062 PRINT : PRINT " ИМУЩЕСТВО ПОШЛО С МОЛОТКА.": PRINT "ВЫРУЧЕНО:";INT (X);"."
5064 GO SUB 6610: FOR I=1 TO 5: LET C(3,I)=0: LET C(5,I)=0: NEXT I
5066 GO TO 5056
5070 GO SUB 6610: GO SUB 4110: LET X=1+INT (-.002*A): IF (15-X)<0 THEN GO TO 5080
5071 LET N2=N2+X: LET B=1
5072 PRINT : PRINT : PRINT " ЗА ДОЛГИ ВЫ ПЕРЕЕЗЖАЕТЕ НА КА-": PRINT "ЗЁННУЮ ";
5073 PRINT "КВАРТИРУ В Fort Leveck ": PRINT "СРОКОМ НА ";INT (X);" ЛЕТ.": PRINT " ПОСИДИМ?"
5074 FOR I=1 TO X: PRINT " ГОД ";NN+N: LET N=N+1: LET N1=0: LET J=N4: GO SUB 5101: GO SUB 4110: NEXT I
5075 GO SUB 210: LET A=1000*L*(1+Y)
5076 PRINT : PRINT " ВАМ ВЫДАЛИ ПОДЪЁМНЫЕ:";INT (A);"."
5077 PRINT : PRINT " ПОЛУЧИЛИ УРОК?": GO TO 5043
5080 PRINT : PRINT : PRINT : PRINT " ЗА ОГРОМНЫЕ ДОЛГИ ВЫ ПРИГОВОРЕ-": PRINT "НЫ К ВЫСШЕЙ МЕРЕ...": GO TO 4996
5101 IF (N4-N1)<=0 THEN GO TO 5110
5102 LET N1=N1+J: IF (N1-N4)>=0 THEN LET J=J+N4-N1
5103 LET J=J/N4: GO SUB 5210: LET UU=500*(2+B^2+FN R()): LET VV=0: FOR W=1 TO 5: LET UU=UU+.45*C(3,W)*Q(3,W)+D(W)*E(W): LET VV=VV+C(5,W)*W(W): NEXT W
5105 LET U=U+J*UU: LET V=V+J*VV: LET VV=LN (1+.02*B): LET H=H*EXP (J*VV)
5110 RETURN
5210 LET NK=NK-J: LET NS=NS-J: FOR W=1 TO 5: LET G(W)=G(W)-J: NEXT W: RETURN
5301 IF (-(S*S))<0 THEN GO TO 5350
5330 PRINT " 4-ДАТЬ ССУДУ"
5350 RETURN
5501 LET J=.3: GO SUB 5101: IF B3<0 THEN GO TO 190
5502 IF B3=0 THEN GO TO 5510
5504 PRINT : PRINT " ¤ BAC CK›EPO3.": GO SUB 4110: GO TO 5010
5510 GO SUB 5810: LET B3=1: IF (2*INT (.5*N+.1)-N)<0 THEN GO TO 5710
5512 LET J=.7: GO SUB 5101: GO SUB 1010: LET I=B+1: GO SUB 9910: LET I=I*100: LET Y=0
5514 FOR J=1 TO 5: LET Y=Y+.5*(C(3,J)+C(5,J))+2*D(J): NEXT J
5516 LET J=Y/(5*I/100): IF (J-1)<0 THEN GO TO 5520
5518 LET J=1
5520 PRINT " ПРИМИТЕ УЧАСТИЕ В ВЫБОРАХ."
5522 LET II=3010+I: PRINT "ИЗБИРАЕТСЯ ";: GO SUB II: IF (2-I/100)<0 THEN GO TO 5524
5523 PRINT "МУ- СОРЩИКОВ."
5524 PRINT "КАМПАНИЯ ОБОЙДЕТСЯ В ";X;".": PRINT " ВЕРОЯТНОСТЬ УСПЕХА ";INT (100*J);"%"
5528 INPUT " УЧАСТВУЕТЕ В ВЫБОРАХ? ";Y: IF (Y-1)<0 THEN GO TO 5610
5530 GO SUB 210: IF (X-A-H)<0 THEN GO TO 5540
5532 GO SUB 7310: GO TO 7210
5540 GO SUB 7110: IF (J-Y)<0 THEN GO TO 5550
5542 PRINT : PRINT " ПОЗДРАВЛЯЕМ ВАС!": PRINT " ТЕПЕРЬ ВЫ ";: GO SUB II: PRINT : LET B=I/100: IF (B-5)<0 THEN GO TO 7220
5544 PRINT : PRINT : PRINT : PRINT " [bright 1][paper 7]B[bright 0][bright 1]ВЫ ДОСТИГЛИ НЕВОЗМОЖНОГО!!![paper 7][bright 0]": PRINT : GO TO 50
5550 PRINT : PRINT " ВЫ НАБРАЛИ ТОЛЬКО ";INT (50*(1-Y));"% ГОЛОСОВ."
5610 PRINT : PRINT "СЛЕДУЮЩИЕ ВЫБОРЫ ЧЕРЕЗ ДВА ГОДА.": GO TO 7220
5710 PRINT : PRINT " В ЭТОМ ГОДУ ": PRINT " ВЫБОРЫ НЕ ПРОВОДЯТСЯ.": GO TO 7210
5810 PRINT " В НАСТОЯЩЕЕ ВРЕМЯ": PRINT " ВЫ ";: LET I=3010+B*100: GO SUB I: RETURN
6001 LET JJ=0
6002 LET J=1: GO SUB 5101
6003 GO SUB 1010: LET J=0: FOR I=1 TO 5: LET J=J+C(M,I): NEXT I
6004 IF J<0 THEN GO TO 190
6005 IF J=0 THEN GO TO 6014
6006 GO SUB 2110: PRINT : GO SUB 2210: GO SUB 2410: IF (M-4)>=0 THEN GO SUB 2310: GO SUB 2312
6007 PRINT : LET II=1010+JJ
6008 FOR I=1 TO 5: LET II=II+100: IF (C(M,I)-1)>=0 THEN GO SUB 6110
6010 NEXT I
6011 IF (4-J)<0 THEN GO TO 6030
6012 PRINT
6014 IF (4-J)<0 THEN GO TO 6030
6015 GO SUB 2110: PRINT : GO SUB 2120: GO SUB 2510: IF (M-4)>=0 THEN GO SUB 2310: GO SUB 2312
6016 PRINT : LET II=1010+JJ: FOR I=1 TO 5: LET II=II+100: IF (-C(M,I))>=0 THEN GO SUB 6210
6020 NEXT I
6021 IF (4-M)>=0 THEN PRINT : PRINT " РАСХОДЫ НА СОДЕРЖАНИЕ:45% СТОИМОСТИ В ГОД."
6030 GO SUB 510: IF X<0 THEN GO TO 5010
6031 IF X=0 THEN GO TO 6050
6032 IF (C(M,Y))<0 THEN GO TO 190
6033 IF (C(M,Y))=0 THEN GO TO 6040
6034 PRINT : PRINT : PRINT " HE –›¤Ÿ˜TE ";: LET II=3010+B*100: GO SUB II: GO TO 7210
6040 IF (A-S(M,Y))<0 THEN GO TO 7230
6042 LET A=A-S(M,Y): LET C(M,Y)=1
6044 GO SUB 710: IF (X-1)<0 THEN GO TO 7220
6045 IF (X-1)=0 THEN GO TO 6003
6046 GO SUB 310: GO TO 6044
6050 IF Y<0 THEN GO TO 5010
6051 IF Y=0 THEN GO TO 7220
6052 IF (C(M,Y)-1)<0 THEN GO TO 7240
6054 LET A=A+Q(M,Y): LET C(M,Y)=0: GO TO 6044
6110 GO SUB 6310: PRINT " ";Q(M,I);: GO SUB 6410: PRINT : RETURN
6210 GO SUB 6310: PRINT " ";S(M,I);: GO SUB 6410: PRINT : RETURN
6310 PRINT I;" ";: GO SUB II: PRINT " ";: RETURN
6410 IF (M-4)>=0 THEN PRINT " ";INT (W(I));
6420 RETURN
6501 LET J=1: GO SUB 5101
6502 GO SUB 1010
6503 IF (D(1)+D(2)+D(3)+D(4))<0 THEN GO TO 190
6504 IF (D(1)+D(2)+D(3)+D(4))=0 THEN GO TO 6520
6505 GO SUB 2110: PRINT : PRINT " УВОЛИТЬ,ЗАПЛАТИВ НЕУСТОЙКУ "
6506 LET II=2510: FOR I=1 TO 5: LET II=II+100: IF (D(I))>0 THEN PRINT I;" ";: GO SUB II: PRINT " ";2*E(I)
6508 IF D(I)<0 THEN GO TO 190
6509 IF D(I)=0 THEN GO TO 6510
6510 NEXT I
6520 IF (5-D(1)-D(2)-D(3)-D(4)-D(5))<0 THEN GO TO 190
6521 IF (5-D(1)-D(2)-D(3)-D(4)-D(5))=0 THEN GO TO 6540
6525 PRINT : GO SUB 2110: PRINT " HAHT ,¤Ÿ›AT˜B B –O“ "
6527 LET II=2510: FOR I=1 TO 5: LET II=II+100: IF (-D(I))>=0 THEN PRINT I;" ";: GO SUB II: PRINT " ";E(I)
6530 NEXT I
6540 GO SUB 810: IF X<0 THEN GO TO 6540
6541 IF X=0 THEN GO TO 6560
6542 IF Y<=0 THEN GO TO 6590
6544 IF (1-D(Y))<0 THEN GO TO 190
6545 IF (1-D(Y))=0 THEN GO TO 6034
6546 LET J=INT ((1-N1/N4)*E(Y)*.01): IF J<=0 THEN GO TO 6550
6547 LET J=50*J: PRINT : PRINT " ABAHC ";J: IF (A-J)<0 THEN GO TO 6580
6548 INPUT " ВЫПЛАЧИВАЕТЕ? ";X: IF (X-1)<>0 THEN GO TO 6592
6549 LET A=A-J: LET E(Y)=E(Y)-J
6550 LET D(Y)=1: PRINT : PRINT " ДОГОВОР ОФОРМЛЕН."
6552 GO SUB 710: IF (X-1)<>0 THEN GO TO 7220
6553 IF (X-1)=0 THEN GO TO 6502
6560 IF Y<0 THEN GO TO 6590
6561 IF Y=0 THEN GO TO 7220
6562 IF (D(Y))<0 THEN GO TO 190
6563 IF D(Y)=0 THEN GO TO 6034
6564 LET A=A-2*E(Y): LET D(Y)=0: PRINT : PRINT " ДОГОВОР РАСТОРГНУТ."
6566 IF (-A)<0 THEN GO TO 6552
6567 IF (-A)=0 THEN GO TO 7220
6568 LET U=U-A: LET A=0: GO TO 7220
6580 PRINT : GO SUB 7310: GO TO 7210
6590 PRINT : PRINT " ВЫ РЕХНУЛИСЬ?": GO TO 6502
6592 PRINT : PRINT " КАК ХОТИТЕ,ДЕЛО ВАШЕ!": GO TO 7220
6610 IF (D(1)+D(2)+D(3)+D(4)+D(5))<0 THEN GO TO 190
6611 IF (D(1)+D(2)+D(3)+D(4)+D(5))=0 THEN GO TO 6660
6620 FOR I=1 TO 5: LET D(I)=0: NEXT I
6630 PRINT : PRINT " ПОДЧИНЁННЫЕ ВАС БРОСИЛИ!"
6660 RETURN
6702 GO SUB 210: LET Y=INT (10*Y): IF (-Y)<0 THEN GO TO 6712
6710 RETURN
6712 IF (5-Y)<0 THEN GO TO 6710
6713 IF (5-Y)=0 THEN GO TO 6785
6714 IF (-D(Y))<0 THEN GO TO 6710
6716 LET J=6700+20*Y: GO SUB 210: LET X=(A+200)*Y: GO TO J
6720 IF P<=0 THEN GO TO 6738
6722 PRINT : PRINT "ВЫ НЕПРАВИЛЬНО ОФОРМЛЯЛИ СДЕЛКИ."
6724 PRINT "УБЫТОК:";INT (X);".": PRINT : PRINT " ЗАВЕДИТЕ МАКЛЕРА.": GO SUB 7110
6738 RETURN
6740 PRINT : PRINT " ВЫ ЗАБЫВАЕТЕ О ЗДОРОВЬЕ.": LET X=X+400
6742 PRINT "ПРЕБЫВАНИЕ В БОЛЬНИЦЕ ОБОШЛОСЬ": PRINT "ВАМ В ";INT (X): GO SUB 7110: RETURN
6760 PRINT : PRINT " ФИРМА <IBM> ПРЕДЪЯВИЛА ВАМ ": PRINT "ИСК В ";INT (X);".": LET Y=15*INT (X*.02)
6762 PRINT " УСЛУГИ АДВОКАТА ОБОЙДУТСЯ ": PRINT "В ";INT (Y);"."
6764 PRINT "ВЕРОЯТНОСТЬ УСПЕХА 65%": INPUT " НАНИМАЕТЕ? ";Z
6766 IF (-Z)<0 THEN GO TO 6770
6767 PRINT : PRINT " ИСК <IBM> К ВАМ УДОВЛЕТВОРЁН.": PRINT "ВЫ ПОТЕРЯЛИ ";INT (X);".": GO SUB 7110: RETURN
6770 IF (.65-FN R())<0 THEN GO TO 6775
6771 PRINT : PRINT " <IBM> ВЫПЛАЧИВАЕТ НЕУСТОЙ-": PRINT "КУ ";INT (2*Y);".": LET V=V+Y
6772 PRINT : PRINT " ИМЕЙТЕ СВОЕГО АДВОКАТА!": RETURN
6775 PRINT : PRINT " УВЫ,ДЕЛО ПРОИГРАНО.": LET U=U+X: LET X=Y: GO SUB 7110: GO TO 6772
6780 PRINT : PRINT " ВАС ШАНТАЖИРУЮТ,ВЫМОГАЯ ";INT (X);".": GO SUB 7110
6782 PRINT "ОБРАЩАЙТЕСЬ К УСЛУГАМ СЫСКНОГО ": PRINT "БЮРО."
6784 PRINT " ПРИЙДЁТСЯ ПЛАТИТЬ!": RETURN
6785 IF (-D(5))<0 THEN GO TO 6710
6786 PRINT : PRINT " У ВАС УКРАЛИ ВСЕ ЦЕННЫЕ БУМАГИ.": GO SUB 210
6787 PRINT "УБЫТОК ";INT (X): LET I=10*INT (45*Y+80+.03*X)
6788 PRINT " СЫСКНОЕ БЮРО ПРЕДЛАГАЕТ СВОИ ": PRINT "УСЛУГИ ЗА ";INT (I);"."
6789 PRINT " ШАНС ПОИМКИ ВОРОВ ";INT (Y*100);"%": INPUT " ДОГОВОРИЛИСЬ? ";X: IF (-X)<0 THEN GO TO 6792
6790 LET P=0: FOR I=1 TO 5: LET P(I)=0: NEXT I
6791 RETURN
6792 IF (FN R()-Y)<0 THEN GO TO 6796
6793 PRINT : PRINT " ВОРЫ ПОКИНУЛИ НАШУ СТРАНУ.": LET Y=450*Y+800
6795 PRINT "ВЗЫСКИВАЕМ ТОЛЬКО НАКЛАДНЫЕ РАСХОДЫ ";INT (Y): LET U=U+Y: GO SUB 910: GO TO 6790
6797 PRINT : PRINT " ВОРЫ ПОЙМАНЫ!": LET U=U+I: RETURN
7001 LET JJ=500: GO TO 6002
7110 LET A=A-X: IF A<0 THEN GO TO 7120
7115 RETURN
7120 LET U=U-A: LET A=0: RETURN
7210 PRINT : PRINT " УСВОИЛИ?"
7220 GO SUB 1010: GO TO 5010
7230 GO SUB 7310: GO TO 7210
7240 GO SUB 7410: GO TO 7210
7310 PRINT " ВЫ НЕ ИМЕЕТЕ ТРЕБУЕМОЙ СУММЫ НАЛИЧНЫМИ."
7320 LET X=1500+50*INT (10*FN R())
7330 PRINT "ЗА МОШЕЙНИЧЕСТВО ШТРАФ:";INT (X)
7340 GO SUB 7110: RETURN
7410 PRINT : PRINT " ВАМ НЕЧЕГО ПРОДАВАТЬ!"
7420 GO SUB 7320: GO SUB 7110: RETURN
7501 LET J=.4: GO SUB 5101: IF (N1-N4)<0 THEN GO TO 7505
7503 PRINT : PRINT " КОНЕЦ ГОДА-БИРЖА ЗАКРЫЛАСЬ.": GO TO 7220
7505 LET X=0: FOR I=1 TO 5: LET X=X+P(I)*R(I): NEXT I
7507 IF X<0 THEN GO TO 190
7508 IF X>0 THEN GO SUB 6702
7510 LET J=.6: GO SUB 5110: FOR I=1 TO 5: GO SUB 210: LET R(I)=100*Y: LET O(I)=0: GO SUB 210: LET Z(I)=20*Y: NEXT I
7520 GO SUB 1010: PRINT
7521 PRINT "АКЦИИ ФИРМЫ ИМЕЕТЕ КУРС ДИВИДЕН-"
7522 PRINT " ДЫ(%) "
7523 LET J=7900: FOR I=1 TO 5: LET J=J+10: PRINT I;" ";: GO SUB J: PRINT " ";P(I);" ";R(I);" ";Z(I): NEXT I
7524 PRINT : PRINT : PRINT
7525 INPUT " [ПРОДАЖА=0/ПОКУПКА=1]: ";X: INPUT " [ФИРМЫ=M]: ",I: INPUT " [КОЛИЧЕСТВО=N]: ";M
7527 IF X<0 THEN GO TO 7220
7528 IF X=0 THEN GO TO 7540
7529 LET X=1: IF (-I)<0 THEN GO TO 7531
7530 GO SUB 310: GO TO 7525
7531 IF (5-I)<0 THEN GO TO 7530
7532 LET M=INT (ABS (M)): IF X<0 THEN GO TO 7550
7533 IF (M*R(I)-A-.1)<0 THEN GO TO 7553
7535 GO SUB 7310: GO SUB 910: GO TO 7220
7540 IF I<0 THEN GO TO 7530
7541 IF I=0 THEN GO TO 7220
7542 LET X=-1: GO TO 7531
7550 IF (M-P(I)-.1)<0 THEN GO TO 7560
7551 GO SUB 7410: GO SUB 910: GO TO 7220
7553 LET Z=R(I)*5*(B+2*D(1)): IF (O(I)+M-Z-.1)<0 THEN GO TO 7570
7557 LET M=Z-O(I): PRINT " УДАЛОСЬ СКУПИТЬ ";M: GO TO 7570
7560 LET Z=(105-R(I))*5*(B+2*D(1)): IF (M-O(I)-Z-.1)<0 THEN GO TO 7570
7567 LET M=Z+O(I): PRINT " УДАЛОСЬ РЕАЛИЗОВАТЬ ";M: GO TO 7570
7570 LET M=M*X: IF (-([flash 0]M*M))>=0 THEN PRINT : PRINT " У НАС ДУРАКОВ НЕТ!"
7571 LET P(I)=INT (P(I)+.1+M): LET O(I)=O(I)+M: LET A=A-R(I)*M
7573 IF (N4-N1-.1)<0 THEN GO TO 7503
7575 GO SUB 710: IF X<=0 THEN GO TO 7220
7576 IF X>0 THEN GO TO 7520
7910 PRINT "Standart Oil ";: RETURN
7920 PRINT "Stell Company";: RETURN
7930 PRINT "IBM ";: RETURN
7940 PRINT "Suzuki ";: RETURN
7950 PRINT "Krust & Co ";: RETURN
8001 IF HH<0 THEN GO TO 190
8002 IF HH=0 THEN GO TO 8004
8003 GO SUB 610: GO TO 5010
8004 IF (FN R()-.97)<0 THEN GO TO 8007
8005 GO SUB 610: LET HH=1: LET NK=N4-N1: IF H=0 THEN GO TO 5010
8006 LET X=.1*H: LET A=A+H: PRINT : PRINT " ВАМ ВЫПЛАЧЕНА КОМПЕНСАЦИЯ ";INT (X): LET H=0: GO TO 7220
8007 PRINT : PRINT : PRINT : PRINT " National Bank": PRINT " ПРИВЕТСТВУЕТ КЛИЕНТА!": LET J=1: GO SUB 5101
8008 PRINT : PRINT " ЧТО ЖЕЛАЕТЕ?": PRINT " 1-ЗАСТРАХОВАТЬ ИМУЩЕСТВО": PRINT " 2-СДЕЛАТЬ ВКЛАД"
8009 PRINT " 3-СНЯТЬ СО СЧЁТА": GO SUB 5301: GO SUB 8401: INPUT " [N] ",X: GO TO 8101
8010 IF (C(3,1)+C(3,2)+C(3,3)+C(3,4)+C(3,5))<0 THEN GO TO 190
8011 IF (C(3,1)+C(3,2)+C(3,3)+C(3,4)+C(3,5))=0 THEN GO TO 8090
8012 PRINT : PRINT : PRINT " МОЖЕТЕ НА СУММУ": PRINT " ЗАСТРАХОВАТЬ НЕ БОЛЕЕ:"
8014 LET J=1010
8016 FOR I=1 TO 5: LET J=J+100: IF (C(3,I))<0 THEN GO TO 190
8017 IF C(3,I)>0 THEN PRINT I;" ";: GO SUB J: PRINT " ";Q(3,I)
8018 NEXT I
8020 PRINT : PRINT " ПРИ ГОДОВЫХ ВЗНОСАХ 5%"
8022 INPUT " [СТРАХУЕМ ЧТО=N]: ";X: INPUT " [НА СРОК=T]: ",Y
8024 IF X<=0 THEN GO TO 7220
8026 IF C(3,X)<0 THEN GO TO 190
8027 IF C(3,X)=0 THEN GO TO 8092
8028 INPUT " НА СУММУ ";J: LET J=ABS (J): IF (J-Q(3,X))<=0 THEN GO TO 8040
8030 PRINT : PRINT " БОЛЕЕ ЧЕМ НА СТОИМОСТЬ НЕ СТРАХУЕМ.": GO TO 7210
8040 LET G(X)=INT (ABS (Y)): LET L(X)=J
8041 INPUT " ЕЩЁ СТРАХОВКА? ";X: IF (X-1)<0 THEN GO TO 8008
8042 IF (X-1)=0 THEN GO TO 8022
8043 IF (X-1)>0 THEN GO TO 7220
8090 PRINT : PRINT " ВАМ НЕЧЕГО СТРАХОВАТЬ!": GO TO 8407
8092 PRINT : PRINT " ВЫ ОШИБЛИСЬ.": GO TO 8010
8101 LET X=INT (X): IF X<=0 THEN GO TO 7220
8102 IF (X-6)<0 THEN GO TO 8104
8103 GO SUB 310: GO TO 8008
8104 IF S=0 THEN GO TO 8107
8105 IF (X-4)<0 THEN GO TO 8109
8106 IF (X-4)=0 THEN GO TO 8407
8107 IF K<=0 THEN GO TO 8109
8108 IF (X-5)=0 THEN GO TO 8407
8109 LET X=7910+X*100: GO TO X
8110 PRINT : GO SUB 1010: PRINT " ГАРАНТИРУЕМ ДОХОД ";2*B;"% B –O“.": GO SUB 8115: GO TO 8120
8115 PRINT "СТОИМОСТЬ ОПЕРАЦИИ 5%": RETURN
8120 INPUT " СКОЛЬКО ПОМЕЩАЕТЕ? ";X: LET X=ABS (X): IF (X-A)<=0 THEN GO TO 8140
8130 GO SUB 7310: GO TO 7210
8140 LET A=A-X: LET H=H+.95*X
8150 GO TO 8008
8210 GO SUB 8211: GO TO 8150
8211 LET H=INT (.5+H): PRINT : PRINT " СЧЁТ В БАНКЕ ";H: GO SUB 8115
8220 INPUT " СКОЛЬКО БЕРЁТЕ? ";X: LET X=ABS (X): IF (X-H)<=0 THEN GO TO 8240
8230 PRINT : PRINT " ВНИМАТЕЛЬНЕЕ НАДО!": GO TO 8210
8240 LET H=H-X: LET A=A+.95*X: RETURN
8310 PRINT : PRINT : GO SUB 1010: PRINT " ДОГОВОРИМСЯ ОБ УСЛОВИЯХ."
8312 INPUT " СКОЛЬКО ДАДИТЕ? ";S: LET S=ABS (S): IF (S-A)<=0 THEN GO TO 8320
8314 PRINT : PRINT " ВЫ НЕ ИМЕЕТЕ ТРЕБУЕМОЙ СУММЫ НАЛИЧНЫМИ.": LET S=0: GO TO 7220
8320 INPUT " НА КАКОЙ СРОК? ";NS: LET NS=ABS (NS): LET J=SQR (SQR (NS)): IF (NS-11)<0 THEN GO TO 8340
8330 PRINT : PRINT " ЭК ЗАГНУЛИ!": GO TO 8320
8340 INPUT " ПОД КАКИЕ ПРОЦЕНТЫ? ";S1: LET S1=.01*ABS (S1): LET Y=32.94*J/(.6+S1)
8345 PRINT : PRINT " ШАНС ЗАРАБОТАТЬ:";INT (Y);"%": GO SUB 410: IF X<=0 THEN GO TO 8370
8350 LET A=A-S: LET X=Y/100: GO SUB 210: IF (Y-X)<0 THEN GO TO 8150
8355 LET S=-S: GO TO 8150
8370 LET S=0: GO TO 6592
8401 IF (-K)<0 THEN GO TO 8405
8403 PRINT " 5-ПОЛУЧИТЬ КРЕДИТ"
8405 RETURN
8407 PRINT : PRINT " ПРОСИМ НЕЗАМЕДЛИТЕЛЬНО ПОКИНУТЬ БАНК!": GO TO 7210
8410 GO SUB 1010: LET Y=A+H+P+C-U+V: IF (-Y)<0 THEN GO TO 8420
8412 PRINT : PRINT : PRINT " БАНКРОТАМ НЕ ДАЁМ.": GO TO 7210
8420 PRINT : PRINT : PRINT " СО ВСЕМИ ПОТРОХАМИ ВЫ СТОИ-": PRINT "ТЕ:";INT (Y);"."
8422 PRINT "ДАЁМ НА СРОК НЕ БОЛЕЕ 5 ЛЕТ.": INPUT " СКОЛЬКО? ";K: LET K=ABS (K)
8424 INPUT " СРОК? ";NK: IF (NK-6)<0 THEN GO TO 8430
8426 PRINT : PRINT " ЧИТАТЬ НЕ УМЕЕТЕ?": GO TO 8424
8430 LET K1=.01+(3+FN R())*K*NK/Y/(L+2)/5
8432 PRINT : PRINT " ДАЁМ ПОД ";INT (K1*100);"%": INPUT " БЕРЁТЕ? ";X: IF (-X)<0 THEN GO TO 8440
8434 LET K=0: GO TO 8008
8440 PRINT : PRINT " ЗАПОМНИТЕ ВРЕМЯ РАСПЛАТЫ:";NN+N+NK;".": LET A=A+K: GO TO 8150
8501 LET J=2.5: GO SUB 5101
8503 FOR I=1 TO 5: GO SUB 9910: LET T(I)=X: LET I(I)=T(I)*(2-Y): LET O(I)=100*Y: NEXT I
8505 GO SUB 1010: PRINT " РАЗВЛЕКАЯСЬ С УМОМ,МОЖНО ПОЛУ-": PRINT "ЧИТЬ И БАРЫШ.": PRINT
8510 PRINT " МОЖЕМ ЗАТ- ВОЗМ-НЫЙ ВЕР-ТЬ"
8511 PRINT "ПРЕДЛОЖИТЬ РАТЫ ДОХОД УСПЕХА(%)": PRINT
8513 LET J=8900: FOR I=1 TO 5: LET J=J+10: PRINT I;" ";: GO SUB J: PRINT " ";T(I);" ";INT (I(I));" ";O(I): NEXT I
8515 INPUT " ГУЛЯЕМ? ";X: IF (-X)<0 THEN GO TO 8520
8517 PRINT : PRINT " ВЫ ЖМОТ?!": GO TO 7220
8520 INPUT " ЧЕГО ИЗВОЛИТЕ-С? ";X: IF (-X)<0 THEN GO TO 8523
8521 PRINT : PRINT " ПРОТРЕЗВЕЛ БЫ СНАЧАЛА...": GO TO 7220
8523 IF (5-X)<0 THEN GO TO 8521
8525 IF (T(X)-A-H)<=0 THEN GO TO 8530
8527 GO SUB 7310: GO TO 7210
8530 GO SUB 210: IF (100*Y-O(X))<=0 THEN GO TO 8540
8533 PRINT : PRINT " ВАМ НЕ ВЕЗЁТ-ОДНИ РАСХОДЫ.": LET X=T(X): GO SUB 7110
8534 IF A<0 THEN GO TO 7210
8535 IF A=0 THEN GO TO 7220
8536 INPUT " ЕЩЁ ПОДРАЗВЛЕЧЁМСЯ? ";X: IF X<=0 THEN GO TO 7220
8537 GO TO 8505
8540 PRINT : PRINT : PRINT " ВАМ ПОДФАРТИЛО.ДОВОЛЬНЫ?"
8543 LET A=A-T(X)+I(X): GO TO 7220
8910 PRINT "ПРЕФЕРАНС ";: RETURN
8920 PRINT "МОНТЕ-КАРЛО";: RETURN
8930 PRINT "ЛЮБОВНИЦУ ";: RETURN
8940 PRINT "БАНКЕТ ";: RETURN
8950 PRINT "КРУИЗ ";: RETURN
9910 GO SUB 210: LET X=INT ((2+5*Y)*20*5^I): LET Z=INT (.7*X*(Y+.3)): RETURN
===========================================================================================
Variables:
c(A,A)=((0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0))
o(A)=(0,0,0,0,0,0,0,0,0,0)
d(A)=(0,0,0,0,0,0,0,0,0,0)
t(A)=(0,0,0,0,0,0,0,0,0,0)
i(A)=(0,0,0,0,0,0,0,0,0,0)
l(A)=(0,0,0,0,0,0,0,0,0,0)
g(A)=(0,0,0,0,0,0,0,0,0,0)
z(A)=(0,0,0,0,0,0,0,0,0,0)
p(A)=(0,0,0,0,0,0,0,0,0,0)
r(A)=(0,0,0,0,0,0,0,0,0,0)
s(A,A)=((0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0))
q(A,A)=((0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0),(0,0,0,0,0,0,0,0,0,0))
w(A)=(0,0,0,0,0,0,0,0,0,0)
e(A)=(0,0,0,0,0,0,0,0,0,0)
n=0
h=0F4240.004
b=1
k=0
s=0
c=0
ns=0
nk=0
[свернуть]