X2 Code

1 SYS65409:PRINTCHR$(14):KK=1:AS=650:ER=600:GOSUB50000:GOTO4000
2 J9=1:J8=1:B7=1:J6=1:J5=1:J4=2:A2=INT(TI*RND(TI))+1:POKE657,128
5 AB=5000:AC=5000:AD=5000:AF=5000:AG=5000:ER=5000
20 PRINT"{clear}":AS=B/C+850+AS/3:J9=1:J8=1:B7=1:J6=1:J5=1:J4=1:IFKQ>2THENPOKE120,2
32 PRINT"{clear}{white}{down}-{$d0}OSSESSIONS- ";J9$;" ";SZ$;"  {$d9}EAR:";VG:IFDS>40000THENDS=15*VG
33 PRINT"{down}{$cc}AND:";INT(A7);" ACRES ":POKE649,0:IFC=0THENC=1/999999
34 PRINT"{$d0}OPULATION:";INT(B):I1=0:I2=0:I3=0:I4=0:I5=0:I6=0:I7=0:I8=0:I9=0
35 PRINT"{$c3}ATTLE:";INT(Z):IFAS<=600THENAS=650
36 PRINT"{$c4}OCTORS:";INT(E):IFV9>0THENGOTO10200
37 PRINT"{$d4}OWNS:";INT(B/8000):IFC>(LV*15000000)THENC=LV*15000000
39 PRINT"{$d7}HEAT FOR";INT(I);" PERSONS A YEAR."
40 PRINT"{$c6}ORTUNE :";INT(C);"$"
41 PRINT"{$d3}CHOOLS:";RT:IFA7<(B/15)THENB=B/17:PRINT"{rvrs on}{$ce}OT ENOUGH ACRES ! {$c4}EAD !"
42 GOSUB61000:PRINT"{rvrs on}{yellow}{$cc}EVEL:";LV;"{left}        {$d0}OINTS:";INT(CS)
43 PRINT"{$ce}UMBER {$ce}AME            {$d0}RICE IN DOLLARS":IFB<=0THENGOTO10200
44 AS=INT(AS):PRINT"1      {$cc}AND           ";AS;" PER ACRE."
45 JH=INT(JH):PRINT"2      {$d7}HEAT          ";JH;"PER PERSON "
46 PRINT"3      {$c3}ATTLE         ";INT(J7):IH=A7-30*VG-KQ*10000
47 PRINT"4      {$c4}OCTOR/4 MONTHS";INT(DS)
48 PRINT"5      {$d3}CHOOL          50000":IFC<=-(LV*500000)THENYY=13
49 IFA7>2.13197586E+09THENPRINT"{rvrs on}{$ce}OT ENOUGH LAND TO BE SOLD !!!"
50 IFA7>2.13197586E+09THENA7=2.13197586E+09
51 IFB>(50*VG*VG/600+A7/.03)THENB=50*VG*VG/600+A7/.03
56 IFE>B/2000THENPRINT"{rvrs on}{$d9}OU'VE GOT TOO MANY DOCTORS !!! {$d3}ELL THEM AGAIN !!!"
57 JH=(2*A7/B)+1:IFJH<=0THENJH=.5
58 DS=B*0.348*.6:IFAS=<0THENAS=AS+5*(-1)
59 IFAS>0THENGOTO61
60 PRINT"{rvrs on}                                       "
61 PRINT"{$c9}F YOU WANT TO GO ON PRESS 6 AND ANY NUMBER AFTER THAT (7=SAVE)."
64 POKE649,10:IFC>(LV*15000000)THENC=LV*15000000
65 INPUT"{$d7}HAT DO YOU WANT TO BUY ";A2
66 INPUT"{$c8}OW MANY OF IT DO YOU WANT TO BUY ";A3
67 IFA2=7THENA2$="B":GOSUB4025
68 IFA2=1ANDA3>=0THENA7=A7+A3:C=C-(AS*A3):GOTO32
69 IFA2=6THENGOTO20000
70 IFA2=2THENI=I+A3:C=C-(JH*A3):GOTO32
71 IFA2=3THENZ=Z+A3:C=C-(100*A3):GOTO32
72 IFA2=4THENE=E+A3:C=C-(DS*A3):GOTO32
73 IFA2=5THENRT=RT+A3:C=C-(50000*A3):ER=ER+(5*A3*A3):GOTO32
75 IFA2=1ANDA3<0THENC=C-(AS*A3*.8):A7=A7+A3
81 JH=(A7/A7)+1
83 GOTO32
499 END
500 GOTO4000
501 Z=200:A7=3500:J9$="{$cd}R. "
502 S1=1200:S2=2300:S3=2500:S4=500:S5=600:G1=10000:G2=10000:G3=10000:G4=10000
503 C=1000000:R1=800000000:R2=939000:R3=11900000:R4=3950000:G5=10000:B=30000
504 E=0:D1=10:D2=2:D3=50:D4=200:D5=200:D6=200:D7=0:LV=1:G6=10000
505 F=0:J7=100:R7=4900100:R8=3590000:R9=1900000:R6=49500000:R5=5999999
506 G=3:INPUT"{$d4}ITLE:";J9$:INPUT"{$ce}AME:";SZ$
507 I=100:L1=50:L2=50:L3=50:L4=50:L5=50:L6=50
508 AS=(C/B)+500:LK=1000000
509 JH=(A7/B)+1:KK=(D6*20+D7*10+D5*1.1+D4*4+D3*5+D1*150+D2*200)*(KR+1)
510 DS=B*0.348
511 VG=1970
512 F=B/1000
513 G=B/500
599 PRINT"{clear}{red}"
600 GOTO2
601 PRINT"{clear}"
602 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24
603 POKEL,15:POKETH,15:POKETL,15:POKEA,0*16+0 :POKEH,15*16
604 POKEW,65
605 FORX=250TO0STEP-2:POKEFH,40:POKEFL,X:NEXT
606 FORX=150TO0STEP-4:POKEFH,40:POKEFL,X:NEXT
607 POKEW,0
608 PRINT"{rvrs on}{yellow}       {$c2}    {$cf}{shft space:4}{$ce}{shft space:4}{$d5}{shft space:4}{$d3}          "
609 PRINT:W1=2
610 PRINT"{$d9}OU GET 100000$,BECAUSE OF LOT OF POINTS !!!":C=C+100000:LV=3
611 GOTO755
650 PRINT"{clear}"
651 PRINT"{rvrs on}{yellow}     {$d3}{shft space}{$d0}{shft space}{$c5}{shft space}{$c3}{shft space}{$c9}{shft space}{$c1}{shft space}{$cc} - {$c2}{shft space}{$cf}{shft space}{$ce}{shft space}{$d5}{shft space}{$d3}        "
652 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24
653 POKEL,15:POKETH,15:POKEA,0*16+0 :POKEH,15*16
654 POKEW,65
655 FORX=250TO0STEP-2:POKEFH,40:POKEFL,X:NEXT
656 FORX=150TO0STEP-4:POKEFH,40:POKEFL,X:NEXT
658 POKEW,0:LV=4:W1=3
670 PRINT"{$d9}OU GET 200 SOLDIERS AND 25000 $ BECAUSE OF LOT OF POINTS !!!"
675 C=C+250000:D6=D6+200:KK=KK+4000:GOTO755
700 PRINT"{rvrs on}{$d4}OO MANY SCHOOLS !!! {$cc}OTS OF THEM BANKRUPT !":RT=B/1000
711 RETURN
720 PRINT"{rvrs on}{$d6}AST AMOUNTS OF YOUR WHEAT WERE ROTTEN !"
723 GOTO901
750 PRINT"{clear}"
751 PRINT"{rvrs on}{yellow}{$c2}  {$cf}{shft space:2}{$ce}{shft space:2}{$d5}{shft space:2}{$d3}"
752 PRINT:GOTO60000
753 PRINT"{$d9}OU GET A BONUS OF 500000 $ FOR SO MANY POINTS ."
754 C=C+500000:LV=2:W1=1
755 POKE198,0:WAIT198,1
756 POKE198,0:WAIT198,1:GOTO32
760 PRINT"{clear}":LV=5:KK=KK+70000
761 PRINT"{rvrs on}{$cc}EVEL:";LV:W1=4
762 PRINT" {$c2}{shft space:4}{$cf}{shft space}   {$ce} {shft space:3}{$d5}{shft space:4}{$d3}"
763 PRINT"{rvrs on}---------------------"
764 PRINT"{$c2}ECAUSE OF YOUR AMOUNT OF POINTS YOU GET 500000 $,500 SOLDIERS AND 4";
765 PRINT"00 TANKS !!!":C=C+500000:D6=D6+500:D1=D1+400
766 POKE198,0:WAIT198,1:GOTO32
790 PRINT"{clear}":LV=6:W1=5
791 PRINT"{$c5}{shft space}{$cc}{shft space}{$c9}{shft space}{$d4}{shft space}{$c5} - {$c2}{shft space:2}{$cf}{shft space:2}{$ce}{shft space:2}{$d5}{shft space:2}{$d3}"
792 PRINT"{rvrs on}{green}                                      "
793 PRINT"{$c1}S A REWARD FOR SO MANY POINTS YOU CAN HAVE A NICE HOLIDAY ";
794 PRINT"FOR A YEAR !!!{$c2}ESIDES YOU GET 250 FIGHTERPLANES AND 100000$ !"
795 VG=VG+1:C=C+100000:D2=D2+250
796 POKE198,0:WAIT198,1:GOTO32
800 IFP3<0THENP3=0
801 ZR=C
802 C=C*((100/2700)*(P3+50)/100)
803 IFC<0ANDZR>=0THENC=ZR/3
804 IFP3<2700THENPRINT"{rvrs on}{$c8}IGH RATE OF INFLATION !!!"
805 IFC>0ANDZR<=0THENC=C*(-1/3)
806 IFP3>2700THENPRINT"{rvrs on}{$cd}ORE MONEY BECAUSE OF FAVOURABLE DOLLAR-RATE !!!"
810 RETURN
820 PRINT"{clear}":LV=7:W1=6
821 PRINT"{$c4}{$cf}{$d5}{$c2}{$cc}{$c5} {$c5}{$cc}{$c9}{$d4}{$c5}-{$c2}{$cf}{$ce}{$d5}{$d3}{shft space}!!!"
822 PRINT"{rvrs on}{red}                                      "
823 PRINT"{$d7}ITH THIS HIGH AMOUNT OF POINTS YOU ARE NOW RULER OVER A PART OF "
824 PRINT"{$c3}ONGO !!!"
825 A7=A7+20000
826 PRINT"{$d9}OUR AMOUNT OF POINTS GIVES YOU FULL 20000 ACRES !!!":INPUTVC$:GOTO32
850 PRINT"{clear}":LV=8:W1=7
851 PRINT"{$d4}{$d2}{$c5}{$c2}{$cc}{$c5}{shft space}{$c5}{$cc}{$c9}{$d4}{$c5}-{$c2}{$cf}{$ce}{$d5}{$d3}{shft space}!!!"
852 PRINT:J9$="{$d0}RESIDENT"
853 PRINT"{$d9}OUR PEOPLE ELECTED YOU AS PRESIDENT !!!{$d9}OU GET 10000000 $"
854 C=C+10000000
855 POKE198,0:WAIT198,1:GOTO32
870 PRINT"{clear}":LV=9:D4=D4+2000:W1=8
871 PRINT"-{$c6}{$cf}{$d5}{$d2}{$c6}{$cf}{$cc}{$c4} {$c5}{$cc}{$c9}{$d4}{$c5}-{$c2}{$cf}{$ce}{$d5}{$d3}!!!"
872 PRINT"{rvrs on}{white}                                      "
873 PRINT"{$d9}OU GET 900000$ AND WEAPONS FOR 2000 SOLDIERS !!!":C=C+900000
874 POKE198,0:WAIT198,1:GOTO32
890 PRINT"{clear}":LV=10:W1=9
891 PRINT"{$c8}{$c9}{$c7}{$c8}{$c5}{$d3}{$d4}{shft space}{$d4}{$c1}{$ce}{$c1}{$cc}{$c1}{$ce}{$c4} {$c2}{$cf}{$ce}{$d5}{$d3} "
892 PRINT"{rvrs on}{cyan}{$cc}EVEL:10                               "
893 PRINT"{$ce}OW YOU ARE PRESIDENT OF {$c3}ONGO !!!{$ce}OTE DOWN NOW ALL YOUR POSSESSIONS";
894 PRINT" AND SETTLE IN {$c3}ONGO .{$d7}HEN THERE FIRST PRESS '{pound}' AND NEVER RETURN ";
895 PRINT"TO {$d4}ANALAND UNLESS YOU HEAR TO THE CONTRARY !!!";
896 PRINT" {$c7}OOD LUCK !!!"
897 INPUTVC$:LOAD"{$c3}ONGO"
900 GOSUB38000:GOSUB1300:POKE198,0:WAIT198,1:PRINT"{clear}{green}":IFI>BTHENGOTO720
901 PRINT"- {$c6}ACTS OF THE YEAR -":S2=S2+(VG/3):S3=S3+VG:S4=S4+(VG/4):S5=S5+(VG/6)
902 PRINT:R1=(R1*1.1):R2=(R2*1.1):R3=(R3*1.1):R4=(R4*1.1):R5=(R5*1.1)
903 PRINT"{$ce}OW IT IS  ";VG:V9=1:KR=KR-.1:R8=R8*1.1:R9=R9*1.1:B=B+E*100
904 VG=VG+1:R6=(R6*1.1):R7=(R7*1.1):R8=(R8*1.1):IFVG=2077THENGOTO[5000]
905 R9=(R9*1.1)
906 AS=B/(C+.0001)+800+(VG/20):IFAS>1500THENAS=800
907 GOSUB2000:R1=R1+50000:R2=R2+50000:R3=R3+50000:R4=R4+50000:IFAS<500THENAS=500
908 AS=AS+(INT(600*RND(1))-25):IFRT>(B/200)THENRT=(B/200)
909 I=I-B:R5=R5+50000:IFE>(B/2000)THENE=(B/2000):IFRT>(B/1500)THENGOTO700
910 G1=G1+10:G2=G2+10:G3=G3+10:G4=G4+10:G5=G5+10
911 C=C+INT(1000*RND(1))+1:G6=G6+10:R6=R6+50000:IFI>=0THENI=I*.75
912 J7=INT(80*RND(1))+80:IFI<0THENI=I*1.25
913 GOSUB9700:IFC>(LV*15000000)THENC=LV*15000000
914 PRINT"{$d2}UNNING COSTS:";VG*70+D7*30+E*DS*3-HZ+KK*.15-CS/2;" $"
915 GOSUB960:B=B+(Z/6):GOSUB9001:CS=CS+C/500+I/1000+LV*200-VG*5+TQ*10:V9=0
916 PRINT"{$c6}ORTUNE BECAUSE OF GOOD EDUCATION OF PEOPLE:";INT(RT*40*RT+B/250);"$"
917 PRINT"{rvrs on}                                       ":C=C+RT*RT*40+(B/250)
918 C=C+(-VG/2)+GH+HZ:B9=((B+(A7-2000)+(E*150)+400+I*2)*1.1):R7=R7+50000
919 AS=(((C/B)+500+((VG*50-A7)/20))):IFB9/1.25>BTHENB9=B*1.25
920 B=B9:C=C-VG*70-D7*30-E*DS*3+HZ-KK*.15+CS/2
921 PRINT"{$c6}ORTUNE :";INT(C);"$":S1=S1+(VG/2):R8=R8+50000:R9=R9+50000:GOTO950
922 IFZ>=(A7/5)THENGOTO3000
923 IFC<-100000ANDC>-2000000THENC=C*1.5
924 IFC<-(LV*1000000)THENPRINT"{$d9}OU ARE BANKRUPT !":YY=13:PRINT:::::::::GOTO60500
925 CS=CS+10*(O1+O2+O3+O4+O5+O6)+B/8+Z/10+E*10:V9=0
926 CS=CS+2.5*(A7-6000)
927 GOSUB15000:GOTO930
930 IFP3<=0THENP3=P3+(C/100000):G3=G3+1000
931 IFVG<1974ANDP4<=0THENP4=1000:G4=G4+1000
932 IFVG<1974ANDP6<=0THENP6=1000:G6=G6+1000
948 GOTO1500
949 END
950 R1=R1+20000
951 R2=R2+10000
952 R3=R3+9000
953 R4=R4+8000
954 R5=R5+7000
955 R6=R6+6000
956 R7=R7+16000
957 R8=R8+20000
958 R9=R9+80000
959 GOTO922
960 L9=(((85-L1-L2-L3-L4)*(B/900))*.9)
961 IFL9>(B*.55)THENL9=B*-.55
962 B=B+L9
963 PRINT"{$c9}MMIGRANTS:";INT(L9);"(OR EMIGRANTS)":RETURN
1000 PRINT"{$c9}F YOU WANT TO PLAY {$d4}ANALAND {$c9} THEN PRESS {$c1} (INSTEAD PRESS {$c2})."
1001 GETIM$
1002 IFIM$="A"THENGOTO[5015]
1003 IFIM$="B"THENGOTO[5020]
1004 GOTO1001
1299 END
1300 PRINT"{clear}{white}":POKE53280,4:POKE53281,0
1301 G1=G1+500:G2=G2+500:G3=G3+500:G4=G4+500:G5=G5+500:G6=G6+500
1305 PRINT"{rvrs on}{purple}         {$c1}CTIVITIES OF THE YEAR         "
1306 IFAD<=0THENAD=1000:P3=200
1307 IFER<=50THENER=50:P6=100
1308 IFAC<=50THENAC=50:P4=100
1310 PRINT
1320 GOSUB1325:PRINT"{$d9}OU ARE OFFERED ";K;" ";V$;" FOR ONLY ";N;"$."
1321 POKE649,10:GOTO1411
1325 IFVG=1970ORVG=1985ORVG=2000ORVG=2015THENK=100:V$="GOLD-SHARES":N=90000:U=1
1326 IFVG=2030ORVG=2045ORVG=2060ORVG=2075THENK=100:V$="GOLD-SHARES":N=90000:U=1
1327 IFVG=1971ORVG=1986ORVG=2001ORVG=2016THENK=5000:V$="CATTLE":N=250000:U=2
1328 IFVG=2031ORVG=2046ORVG=2061ORVG=2076THENK=5000:V$="CATTLE":N=250000:U=2
1329 IFVG=1972ORVG=1987ORVG=2002ORVG=2017THENK=5:V$="OIL-PLATFORMS":N=500000:U=3
1330 IFVG=2032ORVG=2047ORVG=2062ORVG=2077THENK=5:V$="OIL-PLATFORMS":N=500000:U=3
1331 IFVG=1973ORVG=1988ORVG=2003THENK=1000:V$="DOLLAR-SHARES":N=750000:U=4
1332 IFVG=2033ORVG=2048ORVG=2063ORVG=2078THENK=5:V$="OIL-PLATFORMS":N=500000:U=3
1333 IFVG=1974ORVG=1989THENK=1:V$="AIRLINE":N=10000000:U=5
1334 IFVG=2004ORVG=2019ORVG=2034ORVG=2049THENK=1:V$="AIRLINE":N=10000000:U=5
1335 IFVG=2018ORVG=2036ORVG=2079ORVG=2055THENK=1:V$="AIRLINE":N=10000000:U=5
1336 IFVG=2035ORVG=2050ORVG=2065ORVG=2080THENK=2000:V$="ACRES LAND":N=980000:U=6
1337 IFVG=1976ORVG=1991ORVG=2006THENK=20:V$="FIGHTER-PLANES":N=900000:U=7
1338 IFVG=2021THENK=20:V$="FIGHTER-PLANES":N=900000:U=7
1339 IFVG=1977ORVG=1992ORVG=2007ORVG=2022THENK=2:V$="FEMALE SLAVES":N=6000:U=8
1340 IFVG=2037ORVG=2051ORVG=2074ORVG=2040THENK=2:V$="FEMALE SLAVES":N=6000:U=8
1341 IFVG=1978ORVG=1993ORVG=2008ORVG=2023THENK=10:V$="BODYGUARDS":N=250000:U=9
1342 IFVG=2038ORVG=2052ORVG=2064ORVG=2073THENK=10:V$="BODYGUARDS":N=250000:U=9
1343 IFVG=1979ORVG=1994ORVG=2009ORVG=2024THENK=1:V$="GOLDMINE":N=3000000:U=10
1344 IFVG=2039ORVG=2053ORVG=2066ORVG=2072THENK=1:V$="GOLDMINE":N=3000000:U=10
1345 IFVG=1980ORVG=1995ORVG=2010ORVG=2025THENK=1:V$="HOSPITAL":N=200000:U=11
1346 IFVG=2041ORVG=2056ORVG=2067ORVG=2071THENK=1:V$="HOSPITAL":N=200000:U=11
1347 IFVG=1981ORVG=1996ORVG=2011THENK=4:V$="PRIVATE AEROPLANES":N=600000:U=12
1348 IFVG=2026ORVG=2042ORVG=2057THENK=4:V$="PRIVATE AEROPLANES":N=600000:U=12
1349 IFVG=1982ORVG=1997ORVG=2012THENK=500:V$="CO-OP SHARES":N=500000:U=13
1350 IFVG=2027ORVG=2058ORVG=2068THENK=500:V$="CO-OP SHARES":N=500000:U=13
1351 IFVG=1983ORVG=1998ORVG=2013ORVG=2028THENK=1:V$="ANTIQUE BOOK":N=500000:U=14
1352 IFVG=2043ORVG=2069ORVG=2054THENK=1:V$="ANTIQUE BOOK":N=500000:U=14
1353 IFVG=1984ORVG=1999ORVG=2014ORVG=2029THENK=1:V$="ZOO":N=10000000:U=15
1354 IFVG=2044ORVG=2070ORVG=2059THENK=1:V$="ZOO":N=10000000:U=15
1370 RETURN
1411 IFU=1ANDP1<=0THENP1=200:G1=5000:AG=1000
1412 IFU=2ANDP2<=0THENP2=200:G2=5000:AF=1000
1413 IFU=3ANDP3<=0THENP3=200:G3=5000:AD=1000
1414 IFU=4ANDP4<=0THENP4=200:G4=5000:AC=1000
1415 POKE649,10:INPUT"{$c4}O YOU ACCEPT THIS OFFER";EM$
1420 IFEM$<>"{$d9}ES"ANDEM$<>"YES"ANDEM$<>"Y"ANDEM$<>"{$d9}"THENRETURN
1421 IFU=5ANDP5<=0THENP5=200:G5=5000:AB=1000
1422 IFU=6ANDP6<=0THENP6=200:G6=5000:ER=1000
1425 C=C-N
1426 IFD2>(D6/10)THEND2=D6/10
1427 IFD1>(D6/8)THEND1=D6/8
1430 IFU=1THENO5=O5+100:RETURN
1431 IFU=11THENGOTO1455
1432 IFU=2THENZ=Z+5000:RETURN
1433 IFU=13THENGOTO1475
1434 IFU=3THENGOTO1450
1435 IFU=14THENGOTO1485
1436 IFU=4THENO3=O3+1000:RETURN
1437 IFU=15THENGOTO1495
1438 IFU=5THENGOTO1460
1440 IFU=6THENA7=A7+2000:RETURN
1441 IFU=12THENGOTO1465
1442 IFU=7THEND2=D2+20:RETURN
1444 IFU=8THENGOTO1470
1446 IFU=9THENGOTO1480
1448 IFU=10THENGOTO1490
1450 ZR=INT(VG*RND(1))+1:IFZR<=500THENPRINT"{$d9}OUR OIL-PLATFORMS ARE WORTHLESS !"
1451 IFZR<=500THENRETURN
1452 PRINT"{$d9}OU ARE LUCKY ! {$d9}OUR OIL-PLATFORMS GIVE YOU A HUGE NEW OIL-WELL ";
1453 PRINT"!!!":C=C+100000:HZ=HZ+60000:RETURN
1455 PRINT"{$d9}OUR HOSPITAL OVERCAME MANY EPIDEMICS DURING A REALLY SHORT TIME !";
1456 PRINT"{$d9}OUR POPULATION IS HARDLY GROWING  ";
1457 B=B*1.2:RETURN
1460 IFVG<=1975THENPRINT"{$d4}HIS SOCIETY IS BANKRUPT !!!"
1461 IFVG<=1975THENRETURN
1462 PRINT"{$d4}HE AIR-TRAFFIC GIVES MANY GOOD PROFITS TO YOUR STATE-TREASURY !"
1463 HZ=HZ+50000:RETURN
1465 PRINT"{$d9}OUR PRIVATE AEROPLANES REDUCE YOUR RUNNING COSTS,BECAUSE YOU ARE ";
1466 PRINT"NOW FLEXIBLE ENOUGH TO GET TO YOUR BUSINESS-PARTNERS AT ANY TIME.";
1467 CS=CS+10000:HZ=HZ+5000:RETURN
1470 PRINT"{red}{$d9}OU HAVE GREAT FUN WITH YOUR FEMALE SLAVES...":CS=CS-1000
1471 RETURN
1475 ZR=INT(VG*RND(1))+1:IFZR<=300THENPRINT"{$d4}HE COMPANIES ARE BANKRUPT !":RETURN
1476 IFZR>300ANDZR<=1000THENPRINT"{rvrs on}{$c3}RASH ON THE STOCK-EXCHANGE WITH YOUR SHARES"
1477 IFZR>300ANDZR<=1000THENPRINT"{$d4}HE SALE BRINGS YOU ONLY ";N*.3;"$."
1478 IFZR>300ANDZR<=1000THENC=C+N*.3:RETURN
1479 PRINT"{$d4}HE SALE BRINGS YOU ";N*1.3;"$ PROFIT !":C=C+N*1.3:RETURN
1480 ZR=INT(VG*RND(1))+1:IFZR>=1970THENGOTO1483
1481 PRINT"{$d9}OUR BODY-GUARDS SEEM TO BE RELIABLE !":TQ=TQ+5
1482 RETURN
1483 PRINT"{$c9}'M SORRY,BUT YOUR BODY-GUARDS ";OI$;" ARE MEMBERS OF THE {$d5}.{$d5}. !!!"
1484 YY=13:KY=8:GOTO8158
1485 ZR=INT(VG*RND(1)+1):IFZR<=500THENPRINT"{$d4}HE BOOK TURNS OUT TO BE A "
1486 IFZR<=500THENPRINT"{rvrs on}FORGERY !!!":RETURN
1487 PRINT"{$d4}HE SALE BRINGS YOU 100000 ${shft space}!!!":C=C+100000:RETURN
1490 ZR=INT(VG*RND(1))+1:IFZR<=1000THENPRINT"{$d4}HE MINE IS COMPLETELY PLUNDERED."
1491 IFZR<=1000THENRETURN
1492 PRINT"{$d4}HE MINE WAS A SUCSESSFUL INVESTMENT !!!":CS=CS+20000:AB=AB*2
1493 C=C+500000:HZ=HZ+VG*15:RETURN
1495 PRINT"{$d4}HE ZOO PROVES TO BE AN ATTRACTION FOR TOURISTS IN ";
1496 PRINT"{$d4}ANALAND ! {$c6}URTHER ON IT PROVES TO BE AN IDEAL SOURCE OF MONEY !!!"
1497 HZ=HZ+300000:RETURN
1499 END
1500 IFW1<>1ANDCS>100000ANDCS<200000THENGOTO750
1501 IFCS<=1000000THENGOTO32
1502 IFCS>=1000000ANDCS<2000000ANDW1<>2THENGOTO601
1503 IFCS>=2000000ANDCS<4000000ANDW1<>3THENGOTO650
1504 IFCS>=4000000ANDCS<8000000ANDW1<>4THENGOTO760
1505 IFCS>=8000000ANDCS<16000000ANDW1<>5THENGOTO790
1506 IFCS>=16000000ANDCS<32000000ANDW1<>6THENGOTO820
1507 IFCS>=32000000ANDCS<64000000ANDW1<>7THENGOTO850
1508 IFCS>=64000000ANDCS<128000000ANDW1<>8THENGOTO870
1509 IFCS>=128000000ANDW1<>9THENGOTO890
1510 GOTO32
2000 GOTO908
2001 IFB=<A7/0.2THENGOTO908
3000 PRINT"{rvrs on}{$d9}OU LOSE ";A7/5;"{rvrs on}ACRES OF LAND BECAUSE OF TOO MANY CATTLE ."
3001 A7=A7-(A7/5):Z=Z/2
3002 GOTO32
3680 .73171
4000 POKE53280,4:POKE53281,0:PRINT"{clear}{yellow}":IFM1$="N"THENGOTO40000
4001 PRINT"{$c4}O YOU WANT TO BEGIN WITH A NEW ({$c1}) OR AN OLD CHARACTER ({$c2}) ";
4002 INPUTP1$:IFP1$="A"THENGOTO501
4003 IFP1$="B"THENGOSUB4005:GOTO2
4004 PRINT"{clear}":GOTO4001
4005 OPEN2,8,2,"X4,S,R"
4006 INPUT#2,VG,B,A7,F,G,Z,I,E,RT,C,SZ$,R1,R2,R3,R4,R5,AS,R6,R7,R8,R9,JH,DS,LV
4007 INPUT#2,KK,S1,S2,S3,S4,S5,D1,D2,D3,D4,D5,D6,D7,J9$,O1,G1,O2,G2,O3,G3,O4,G4
4008 INPUT#2,O5,G5,O6,G6,P1,P2,P3,P4,P5,P6,AG,AF,AD,AC,AB,ER,HZ,TQ,CS,YY,V9,J7
4015 INPUT#2,L1,L2,L3,L4,J9,J4,J5,J6,J8,B7,G9,M1$,A2$:IFST=64THENCLOSE2
4020 RETURN
4025 PRINT"{$d3}AVING ";J9$;" ";SZ$;" !":M1$="N":GOSUB50005
4027 OPEN2,8,2,"@:X4,S,W"
4029 PRINT#2,VG:PRINT#2,B:PRINT#2,A7:PRINT#2,F:PRINT#2,G:PRINT#2,Z:PRINT#2,I
4030 PRINT#2,E:PRINT#2,RT:PRINT#2,C:PRINT#2,SZ$:PRINT#2,R1:PRINT#2,R2
4031 PRINT#2,R3:PRINT#2,R4:PRINT#2,R5:PRINT#2,AS:PRINT#2,R6:PRINT#2,R7
4032 PRINT#2,R8:PRINT#2,R9:PRINT#2,JH:PRINT#2,DS:PRINT#2,LV:PRINT#2,KK
4033 PRINT#2,S1:PRINT#2,S2:PRINT#2,S3
4034 PRINT#2,S4:PRINT#2,S5:PRINT#2,D1:PRINT#2,D2:PRINT#2,D3:PRINT#2,D4
4035 PRINT#2,D5:PRINT#2,D6:PRINT#2,D7:PRINT#2,J9$:PRINT#2,O1:PRINT#2,G1
4036 PRINT#2,O2:PRINT#2,G2:PRINT#2,O3:PRINT#2,G3:PRINT#2,O4:PRINT#2,G4
4037 PRINT#2,O5:PRINT#2,G5:PRINT#2,O6
4038 PRINT#2,G6:PRINT#2,P1:PRINT#2,P2:PRINT#2,P3:PRINT#2,P4:PRINT#2,P5
4039 PRINT#2,P6:PRINT#2,AG:PRINT#2,AF:PRINT#2,AD:PRINT#2,AC:PRINT#2,AB
4040 PRINT#2,ER:PRINT#2,HZ:PRINT#2,TQ:PRINT#2,CS:PRINT#2,YY:PRINT#2,V9
4041 PRINT#2,J7:PRINT#2,L1:PRINT#2,L2:PRINT#2,L3:PRINT#2,L4:PRINT#2,J9
4042 PRINT#2,J4:PRINT#2,J5:PRINT#2,J6:PRINT#2,J8:PRINT#2,B7:PRINT#2,G9
4045 PRINT#2,M1$:PRINT#2,A2$:CLOSE2:RETURN
7001 GOSUB4025:IFVG=1970ORVG=1971THENGOTO7005
7002 POKE646,0:PRINT"{down}LOAD";CHR$(34);"X11";CHR$(34);",8,1"
7003 PRINT"{down:4}RUN":PRINT"{up:10}":POKE198,3:POKE631,13:POKE632,13
7004 POKE633,13:END
7005 POKE646,0:PRINT"{down}LOAD";CHR$(34);"X9";CHR$(34);",8,1"
7006 PRINT"{down:4}RUN":PRINT"{up:10}":POKE198,3:POKE631,13:POKE632,13
7007 POKE633,13:END
8000 GOSUB35000:PRINT"{clear}":POKE649,10:IFG9=42THEN45000
8001 PRINT"{rvrs on}         {$cf}LD {$d3}TOCK-{$c5}XCHANGES            "
8002 PRINT"{down}{$d3}TEEL {$c3}O:";P1;" {$d5}NITED {$d5}NDERWORLD:";P2;" {$c4}OLLARS & {$c4}UCATS:";P3
8003 PRINT"{$d4}RABBIS &{shft space}{$d2}OLLS {$d2}OYCES:";P4;" {$c7}OLD & {$cc}EAD {$c3}O:";P5:IFG9=42THENRETURN
8004 IFVG=1970THENP1=2700:P2=2700:P3=2700:P4=2700:P5=2700:P6=2700:GOTO8030
8005 P1=(((O6/5+O1+P4+O4)*((100/1499.9999999)*P2))/470)*J9
8007 P2=((P3/2+O6/4+O5/3+O2+P2)/3)*J8:PRINT"{$c3}OMPUTER & {$c3}O:";P6
8009 P3=((P3+O3+P5/3+G2/4+P6/4+C/1000)/4)*B7:POKE198,0:WAIT198,1
8011 P4=((P6/3-P1/2+O6+O4+P4+VG-1900)/2)*J6
8013 P6=((P6+O6+VG-1900+O2/3+O4/3)/2)*J4
8015 P5=((P3/4+C/1000+P5+O5-O3-P3+2000+100*LV)/5)*J5
8016 IFP1<=0THENO1=0:G1=G1/4:J9=0:P4=P4-100
8017 IFP2<=0THENO2=0:G2=G2/4:J8=0:P6=P6-50
8018 IFP3<=0THENO3=0:G3=G3/4:B7=0:P5=P5-100
8019 IFP4<=0THENO4=0:G4=G4/4:J6=0:P1=P1-100
8020 IFP5<=0THENO5=0:G5=G5/4:J5=0:P3=P3-50
8021 IFP6<=0THENO6=0:G6=G6/4:J4=0:HZ=HZ-10000
8022 IFP1>=AGTHENP1=AG
8023 IFP2>=AFTHENP2=AF
8024 IFP3>=ADTHENP3=AD
8025 IFP4>=ACTHENP4=AC
8026 IFP5>=ABTHENP5=AB
8027 IFP6>=ERTHENP6=ER
8030 PRINT"{rvrs on}{purple}           {$d3}TOCK-{$c5}XCHANGE               ":V9=2
8032 GOSUB800
8034 IFVG<1973THENAG=AG+500:AF=AF+500:AD=AD+500:AC=AC+500:AB=AB+500:ER=ER+500
8035 PRINT:PRINT
8040 PRINT"{rvrs on}{$ce}AME              {$d0}RICE   {$d3}ALE         "
8045 PRINT"1.{$d3}TEEL {$c3}O          ";INT(P1);"    ";INT(P1*.9)
8050 PRINT"2.{$d5}NITED {$d5}NDERWORLD ";INT(P2);"    ";INT(P2*.9)
8060 PRINT"3.{$c4}OLLARS &{shft space}{$c4}UCATS  ";INT(P3);"    ";INT(P3*.9)
8065 PRINT"4.{$d4}RABBIS &{shft space}{$d2}OLLS {$d2}.";INT(P4);"    ";INT(P4*.9)
8066 PRINT"5.{$c7}OLD & {$cc}EAD {$c3}O    ";INT(P5);"    ";INT(P5*.9)
8067 PRINT"6.{$c3}OMPUTER & {$c3}O     ";INT(P6);"    ";INT(P6*.9)
8070 INPUT"{$d7}HAT DO YOU WANT TO BUY/SELL (7=FURTHER ON)";KY
8072 IFKY=1THENGOSUB8160
8075 IFKY=2THENGOSUB8250
8085 IFKY=3THENGOSUB8350
8095 IFKY=4THENGOSUB8455
8105 IFKY=5THENGOSUB8555
8115 IFKY=6THENGOSUB8655
8121 IFKY=7THENGOTO8125
8122 PRINT"{clear}{rvrs on}{purple}           {$d3}TOCK-{$c5}XCHANGE               ":GOTO8035
8125 KA=1005+10*(VG-1970):J=INT(KA*RND(1))+1
8130 IFJ<=O2THENGOTO7001
8135 KY=INT(20*RND(1))+1:IFTQ>=1THENTQ=TQ-1:GOTO7001
8140 IFKY=1THENPRINT"{rvrs on}{$d4}HE {$d5}.{$d5}. BLEW UP ONE OF YOUR SCHOOLS !"
8141 IFKY=1ANDRT>=1THENRT=RT-1
8143 IFKY=2THENPRINTKA" PEOPLE OF YOUR COUNTRY WERE VICTIMS OF A BOMB-ATTACK "
8144 IFKY=2THENPRINT"BY THE {$d5}.{$d5}.":B=B-KA
8146 IFKY=3THENPRINT"10% OF YOUR CATTLE WERE VICTIMS OF A POISON-ATTACK BY "
8147 IFKY=3THENPRINT"THE {$d5}.{$d5}.":Z=Z*.9
8149 IFKY=4THENPRINT"4 OF YOUR DOCTORS WERE VICTIMS OF AN ATTACK BY THE {$d5}.{$d5}."
8150 IFKY=4THENE=E-4:IFE<0THENE=0
8151 IFKY=9THENPRINT"{$d4}HE {$d5}.{$d5}. STOLE YOU 300 ACRES OF LAND."
8152 IFKY=5THENPRINTKA*15"$ OF YOUR FORTUNE WERE REMOVED AS FORGED MONEY ";
8153 IFKY=5THENC=C-(KA*15)
8154 IFKY=10THENGOSUB8800
8155 IFKY=6THENPRINTKY*30000"$ {rvrs on}WERE STOLEN FROM YOU .":C=C-(KY*3000)
8156 IFKY=9THENA7=A7-300:IFA7<=0THENGOTO10200
8157 IFKY=7THENPRINT"{$d5}NFORTUNATELY AN ATTEMPT BY THE {$d5}.{$d5}. ON YOUR LIFE FAILED !"
8158 IFKY=8ANDVG>1980THENPRINT"{$d4}HE {$d5}.{$d5}. KILLED YOU !!!":YY=13:GOTO10200
8159 FORZR=1TO1000:::NEXTZR:GOTO7001
8160 PRINT"{clear}"
8165 PRINT"{rvrs on}{$ce}AME:{$d3}TEEL {$c3}O"
8166 PRINT"{down}{$c2}UYING PRICE:";INT(P1);"$"
8167 PRINT"{$d3}ELLING PRICE:";INT(P1*.9);"$"
8168 PRINT"{down}{$d3}HARES IN YOUR POSSESSION:";O1
8169 PRINT"{$d3}HARES AS YET UNSOLD:";G1
8170 PRINT"{down}{$d9}OUR FORTUNE:";INT(C)
8171 INPUT"{down}{$c8}OW MANY DO YOU WANT TO {rvrs on}BUY";IU
8172 IFIU>0ANDIU<=G1THENC=C-(IU*P1):O1=O1+IU:G1=G1-IU
8174 INPUT"{$c8}OW MANY DO YOU WANT TO {rvrs on}SELL";IU
8175 IFIU>0ANDIU<=O1THENC=C+(IU*P1*.9):O1=O1-IU:G1=G1+IU
8180 RETURN
8250 PRINT"{clear}"
8255 PRINT"{rvrs on}{$ce}AME:{$d5}NITED {$d5}NDERWORLD"
8266 PRINT"{down}{$c2}UYING PRICE:";INT(P2);"$"
8267 PRINT"{$d3}ELLING PRICE:";INT(P2*.9);"$"
8268 PRINT"{down}{$d3}HARES IN YOUR POSSESSION:";O2
8269 PRINT"{$d3}HARES AS YET UNSOLD:";G2
8270 PRINT"{down}{$d9}OUR FORTUNE:";INT(C)
8271 INPUT"{down}{$c8}OW MANY DO YOU WANT TO {rvrs on}BUY ";IU
8272 IFIU>0ANDIU<=G2THENC=C-IU*P2:O2=O2+IU:G2=G2-IU
8274 INPUT"{$c8}OW MANY DO YOU WANT TO {rvrs on}SELL ";IU
8275 IFIU>0ANDIU<=O2THENC=C+(IU*P2*.9):O2=O2-IU:G2=G2+IU
8280 RETURN
8350 PRINT"{clear}"
8355 PRINT"{rvrs on}{$ce}AME:{$c4}OLLARS &{shft space}{$c4}UCATS"
8366 PRINT"{down}{$c2}UYING PRICE:";INT(P3);"$"
8367 PRINT"{$d3}ELLING PRICE:";INT(P3*.9);"$"
8368 PRINT"{down}{$d3}HARES IN YOUR POSSESSION:";O3
8369 PRINT"{$d3}HARES AS YET UNSOLD:";G3
8370 PRINT"{down}{$d9}OUR FORTUNE:";INT(C)
8371 INPUT"{down}{$c8}OW MANY DO YOU WANT TO {rvrs on}BUY ";IU
8372 IFIU>0ANDIU<=G3THENC=C-IU*P3:O3=O3+IU:G3=G3-IU
8374 INPUT"{$c8}OW MANY DO YOU WANT TO {rvrs on}SELL ";IU
8375 IFIU>0ANDIU<=O3THENC=C+(IU*P3*.9):O3=O3-IU:G3=G3+IU
8380 RETURN
8455 PRINT"{clear}{rvrs on}{$ce}AME:{$d4}RABBIS &{shft space}{$d2}OLLS {$d2}OYCES"
8466 PRINT"{down}{$c2}UYING PRICE:";INT(P4);"$"
8467 PRINT"{$d3}ELLING PRICE:";INT(P4*.9);"$"
8468 PRINT"{down}{$d3}HARES IN YOUR POSSESSION:";O4
8469 PRINT"{$d3}HARES AS YET UNSOLD:";G4
8470 PRINT"{down}{$d9}OUR FORTUNE:";INT(C)
8471 INPUT"{down}{$c8}OW MANY DO YOU WANT TO {rvrs on}BUY ";IU
8472 IFIU>0ANDIU<=G4THENC=C-IU*P4:O4=O4+IU:G4=G4-IU
8474 INPUT"{$c8}OW MANY DO YOU WANT TO {rvrs on}SELL ";IU
8475 IFIU>0ANDIU<=O4THENC=C+(IU*P4*.9):O4=O4-IU:G4=G4+IU
8480 RETURN
8555 PRINT"{clear}{rvrs on}{$ce}AME:{$c7}OLD &{shft space}{$cc}EAD {$c3}O  "
8566 PRINT"{down}{$c2}UYING PRICE:";INT(P5);"$"
8567 PRINT"{$d3}ELLING PRICE:";INT(P5*.9);"$"
8568 PRINT"{down}{$d3}HARES IN YOUR POSSESSION :";O5
8569 PRINT"{$d3}HARES AS YET UNSOLD :";G5
8570 PRINT"{down}{$d9}OUR FORTUNE :";INT(C)
8571 INPUT"{down}{$c8}OW MANY DO YOU WANT TO {rvrs on}BUY ";IU
8572 IFIU>0ANDIU<=G5THENC=C-IU*P5:O5=O5+IU:G5=G5-IU
8574 INPUT"{$c8}OW MANY DO YOU WANT TO {rvrs on}SELL ";IU
8575 IFIU>0ANDIU<=O5THENC=C+(IU*P5*.9):O5=O5-IU:G5=G5+IU
8580 RETURN
8655 PRINT"{clear}{rvrs on}{$ce}AME:{$c3}OMPUTER &{shft space}{$c3}O."
8666 PRINT"{down}{$c2}UYING PRICE:";INT(P6);"$"
8667 PRINT"{$d3}ELLING PRICE:";INT(P6*.9);"$"
8668 PRINT"{down}{$d3}HARES IN YOUR POSSESSION :";O6
8669 PRINT"{$d3}HARES AS YET UNSOLD :";G6
8670 PRINT"{down}{$d9}OUR FORTUNE :";INT(C)
8671 INPUT"{down}{$c8}OW MANY DO YOU WANT TO {rvrs on}BUY  ";IU
8672 IFIU>0ANDIU<=G6THENC=C-IU*P6:O6=O6+IU:G6=G6-IU
8674 INPUT"{$c8}OW MANY DO YOU WANT TO {rvrs on}SELL ";IU
8675 IFIU>0ANDIU<=O6THENC=C+(IU*P6*.9):O6=O6-IU:G6=G6+IU
8680 RETURN
8800 IFVG<1985THENRETURN
8801 PRINT"{$d4}HE {$d5}.{$d5}. WEAKENED YOU CONSIDERABLY !!!":C=C/1000:A7=A7-500
8900 PRINT"{$d9}OU ARE OFFERED PROTECTION BY AND AGAINST THE {$d5}NITED {$d5}NDERWORLD ";
8901 PRINT"({$d5}.{$d5}.)."
8902 PRINT"{$c1} YEAR OF PROTECTION COSTS YOU 10000 $."
8903 INPUT"{$c4}O YOU WANT TO BE PROTECTED  ";SM$
8904 IFSM$="Y"ORSM$="{$d9}ES"THENINPUT"{$c8}OW MANY YEARS";UY
8905 IFTQ>5THENGOTO8904
8906 TQ=TQ+UY:C=C-(UY*10000)
8910 IFL3<30THENRETURN
8911 PRINT"{$cd}OST OF YOUR AMUSEMENT PARKS AND CASINOS SHUT DOWN,";
8912 PRINT"AS MOST OF THEM DO NOT WISH TO HAVE ANYTHING TO DO WITH YOUR TAXES."
8913 HZ=HZ-2000:RETURN
8920 IFL3>10THENRETURN
8921 PRINT"{$d9}OUR AMUSEMENT PARKS AND CASINOS ARE STARTING TO FLOURISH BETTER";
8922 PRINT" !!!":HZ=HZ+3000:RETURN
9000 GOTO900
9001 V9=INT(20*RND(1))+1
9002 IFV9=1THENPRINT"{rvrs on}{$c4}ISTRIBUTION OF {$d3}TEEL {$c3}O DIVIDENDS :";(C/10)/(G1+1)*O1*.3
9003 IFV9=1THENC=C+((C/10)/(G1+1)*O1*.1)
9004 IFV9=2THENPRINT"{rvrs on}{$c4}ISTRIBUTION OF {$d5}.{$d5}. DIVIDENDS :";(C/10)/(G2+1)*O2*.1
9005 IFV9=2THENC=C+((C/10)/(G2+1)*O2*.1)
9006 IFV9=3THENPRINT"{rvrs on}{$c4}ISTRIBUTION OF {$c4} & {$c4} DIVIDENDS :";((C/50)/(G3+1)*O3*.1)
9007 IFV9=3THENC=C+((C/50)/(G3+1)*O3*.1)
9008 IFV9=4THENPRINT"{rvrs on}{$c4}ISTRIBUTION OF {$d4} &{shft space}{$d2} DIVIDENDS :";((C/50)/(G4+1)*O4*.1)
9009 IFV9=4THENC=C+((C/50)/(G4+1)*O4*.1)
9010 IFV9=5THENPRINT"{rvrs on}{$c4}ISTRIBUTION OF {$c7} &{shft space}{$cc} DIVIDENDS :";(C/50)/(G5+1)*O5*.1
9011 IFV9=5THENC=C+((C/50)/(G5+1)*O5*.1)
9012 IFV9=6THENPRINT"{rvrs on}{$c4}ISTRIBUTION OF {$c3} &{shft space}{$c3}O DIVIDENDS :";(C/50)/(G6+1)*O6*.1
9013 IFV9=6THENC=C+((C/50)/(G6+1)*O6*.1)
9014 IFV9=7THENPRINT"{rvrs on}{$d3}TEEL {$c3}O : {$c3}RASH ON STOCK-EXCHANGE !!!":AG=AG/4:P1=P1/4
9015 IFV9=8THENPRINT"{rvrs on}{$d5}NITED {$d5}NDERWORLD : {$c3}RASH ON STOCK-EXCHANGE :":AF=AF/4:P2=P2/4
9016 IFV9=9THENPRINT"{rvrs on}{$c4}OLLARS &{shft space}{$c4}UCATS : {$c3}RASH ON STOCK-EXCHANGE !":AD=AD/4:P3=P3/4
9017 IFV9=10THENPRINT"{rvrs on}{$d4}RABBIS &{shft space}{$d2}OLLS {$d2}.: {$c3}RASH ON STOCK-EXCHANGE!":AC=AC/4:P4=P4/4
9018 IFV9=11THENPRINT"{rvrs on}{$c7}OLD &{shft space}{$cc}EAD : {$c3}RASH ON STOCK-EXCHANGE !!!":AB=AB/4:P5=P5/4
9019 IFV9=12THENPRINT"{rvrs on}{$c3}OMPUTER &{shft space}{$c3}O : {$c3}RASH ON STOCK-EXCHANGE !!!":ER=ER/4:P6=P6/4
9020 IFV9=7THENO1=O1/2
9021 IFV9=8THENO2=O2/2
9022 IFV9=9THENO3=O3/2
9023 IFV9=10THENO4=O4/2
9024 IFV9=11THENO5=O5/2
9025 IFV9=12THENO6=O6/2
9029 RETURN
9230 PRINT"{$c3}ONGO DEMANDS THE LONG OVERDUE 'SALT-TAX' OF {$d4}ANALAND ..."
9231 PRINT"{$d4}HAT COSTS YOU ";C*.15;"$ !!!":C=C*.15:RETURN
9240 PRINT"{$d0}URE LUCK (?) GIVES YOU 25000 POINTS !":CS=CS+25000:RETURN
9250 PRINT"{$d7}HILE BUILDING A NEW STEEL-CONCERN YOUR WORKERS FIND A HUGE OIL WEL";
9251 PRINT"L ! {$d4}HIS REDUCES YOUR NECESSARY EXPENDITURE FOR THE TIME BEING ";
9252 HZ=HZ+4000:RETURN
9260 PRINT"{$cf}NE OF THE LEADING BOSSES OF THE {$d5}NITED {$d5}NDERWORLD ({$d5}.{$d5}.) HAS RECE";
9261 PRINT"NTLY BEEN TAKEN PRISONER."
9262 PRINT"{$c8}IS DEATH ON THE ELECTRIC CHAIR INCREASED ON THE ONE HAND YOUR PRES";
9263 PRINT"TIGE,LED ON THE OTHER TO THREATS BY THE {$d5}.{$d5}.":CS=CS+20000
9264 TQ=0:G2=G2+500:RETURN
9700 PRINT"{rvrs on}               {$d3}PECIAL {$c5}VENTS           "
9705 G9=INT(42*RND(1))+1:V9=1
9707 IFC>4000000THENPRINT"{rvrs on}{$d9}OU MUST PAY INCOME-TAX !":C=C*.9
9710 IFG9=1THENGOTO9750
9711 IFG9=2THENGOTO9760
9712 IFG9=3THENGOTO9770
9713 IFG9=4THENGOTO9780
9714 IFG9=5THENGOTO9790
9715 IFG9=6THENGOTO9800
9716 IFG9=7THENPRINT"{rvrs on}{$ce}OTHING SPECIAL HAPPENS !":RETURN
9717 IFG9=8THENGOTO9820
9718 IFG9=9THENGOTO9830
9719 IFG9>=10ANDG9<=12THENGOTO9840
9720 IFG9=13THENGOTO9850
9721 IFG9=14THENGOTO9860
9722 IFG9=15THENGOTO9880
9723 IFG9=16THENGOTO9890
9724 IFG9=17THENGOTO9900
9725 IFG9=18ORG9=19THENGOTO8900
9726 IFG9=20THENGOTO9910
9727 IFG9=21THENGOTO9920
9728 IFG9=22THENGOTO9930
9729 IFG9=23THENGOTO9940
9730 IFG9=24THENGOTO9950
9731 IFG9=25THENGOTO9960
9732 IFG9=26THENGOTO9970
9733 IFG9=27THENAB=AB*2:PRINT"{$c9}NCREASE IN PRICES OF {$c7}OLD &{shft space}{$cc}EAD":AB=AB+500:RETURN
9734 IFG9=28THENAB=AB/2:PRINT"{$c4}ROP OF STOCK PRICES : {$c7}OLD & {$cc}EAD":RETURN
9735 IFG9=29THENAC=AC*2:PRINT"{$c9}NCREASE IN PRICES OF {$d4}. &{shft space}{$d2}OLLS {$d2}":AC=AC+500:RETURN
9736 IFG9=30THENAC=AC/2:PRINT"{$c4}ROP OF STOCK PRICES : {$d4}RABBIS & {$d2}OLLS {$d2}OYCES":RETURN
9737 IFG9=31THENAD=AD*2:PRINT"{$c9}NCREASE IN PRICES OF {$c4}OLLARS &{shft space}{$c4}.":AD=AD+500:RETURN
9738 IFG9=32THENAD=AD/2:PRINT"{$c4}ROP OF STOCK PRICES : {$c4}OLLARS &{shft space}{$c4}UCATS ":RETURN
9739 IFG9=33THENAF=AF*2:PRINT"{$c9}NCREASE IN PRICES OF {$d5}NITED {$d5}.":AF=AF+500:RETURN
9740 IFG9=34THENAF=AF/2:PRINT"{$c4}ROP OF STOCK PRICES : {$d5}NITED {$d5}NDERWORLD ":RETURN
9741 IFG9=35THENAG=AG*2:PRINT"{$c9}NCREASE IN PRICES OF {$d3}TEEL {$c3}O.":AG=AG+500:RETURN
9742 IFG9=36THENAG=AG/2:PRINT"{$c4}ROP OF STOCK PRICES OF {$d3}TEEL {$c3}O.":RETURN
9743 IFG9=37THENER=ER*2:PRINT"{$c9}NCREASE IN PRICES : {$c3}OMPUTER &{shft space}{$c3}O":ER=ER+500:RETURN
9744 IFG9=38THENER=ER/2:PRINT"{$c4}ROP OF STOCK PRICES OF {$c3}OMPUTER & {$c3}O.":RETURN
9745 IFG9=39THENAD=AD/3:PRINT"{$c4}RASTIC DROP OF STOCK PRICES : {$c4}OLLARS &{shft space}{$c4}.":RETURN
9746 IFG9=40THENAD=AD*3:PRINT"{$c4}RASTIC INCREASE IN PRICES OF {$c4}OLLARS &{shft space}{$c4}UCATS":RETURN
9747 IFG9=41THENGOTO9980
9748 IFG9=42THENGOTO45000
9749 RETURN
9750 PRINT"{$d4}HE {$d5}NITED {$d5}NDERWORLD OFFERS YOU A SPECIAL PROTECTION-PRICE OF ";
9751 PRINT"7500 $ PER YEAR !"
9752 INPUT"{$c1}RE YOU INTERESTED ";P8$
9753 IFP8$="Y"THENINPUT"{$c8}OW MANY YEARS ";P8:C=C-P8*7500:TQ=TQ+P8
9755 IFTQ>5THENTQ=5:RETURN
9756 RETURN
9760 PRINT"{$d9}OU ARE OFFERED THE CHANCE OF MAKING A DISARMEMENT TREATY WITH {$da}AMBIBIA."
9761 INPUT"{$c4}O YOU AGREE WITH 30% ";P8$
9762 IFP8$<>"{$d9}ES"ORP8$<>"{$d9}"ORP8$<>"J"THENRETURN
9763 R6=R6*.7:D1=D1*.7:D2=D2*.7:D3=D3*.7:D4=D4*.7:D5=D5*.7:D6=D6*.7:D7=D7*.7
9764 RETURN
9770 PRINT"{$c1}N EPIDEMIC DESTROYS HUGE PARTS OF YOUR POPULATION !":B=B*.4
9771 RETURN
9780 PRINT"{$c1} TRADE AGREEMENT WITH {$c3}ONGO BRINGS YOU 100 ACRES MORE LAND !"
9781 A7=A7+100:I=I-10000:Z=Z-100:RETURN
9790 PRINT"{$d9}OU GET THE POSSIBILITY OF MANIPULATING THE {$d3}TEEL {$c3}O !!!"
9791 PRINT"{$c3}HANGE THE AMOUNT OF SHARES BY 100 MORE FOR YOU OR LESS FOR THE ";
9792 PRINT"BANK."
9793 PRINT"{$c5}VERY CHANGE COSTS YOU 100$ !"
9794 INPUT"{$c1}T WHICH RATE DO YOU WANT TO CHANGE ";P8
9795 IFP8>=-100ANDP8<=100ANDP8<0THENC=C-(-P8*100):G3=G3-P8:IFG3<0THENG3=0
9796 IFP8>=-100ANDP8<=100ANDP8>=0THENC=C-(P8*100):O3=O3+P8
9797 RETURN
9800 PRINT"{$c1} MASS MURDERER RAN AMOK AND KILLED 50 PEOPLE !"
9801 B=B-50:RETURN
9810 IFL4>50THENPRINT"{$d4}HE {$c3}HURCH HAS STIRRED UP ITS SUPPORTERS AGAINST YOU !!!"
9811 IFL4<50THENRETURN
9812 PRINT"{$d4}HEY DEMAND 8000000 $ OF YOU OR THEY WILL START CIVIL WAR !";
9813 INPUT"{$c4}O YOU ACCEPT THIS DEMAND ({$d9}) OR DO YOU ATTACK ";P8$
9814 IFP8$="J"THENC=C-8000000:RETURN
9815 PRINT"{$c3}IVIL WAR BEGINS !"
9816 B=B-(D6-D4):B=B-D7:B=B-D3/2:B=B-D1*6:B=B-D2*10:D6=D6-B/1000:D7=D7-B/900
9817 D3=D3-B/10000:D1=D1-B/20000:D2=D2-B/50000:P3=0:O1=0:G1=10:RETURN
9820 PRINT"{$d4}HE PRESIDENT OF {$cd}ALAWI VISITS YOU ! {$c8}E GIVES YOU 10 {$c7}OLD &{shft space}{$cc}EAD SH";
9821 PRINT"ARES AS A PRESENT.{$d4}HE RECEIPT COSTS YOU ";
9822 PRINT"10000 $ .":O5=O5+10:C=C-10000:RETURN
9830 IFKK>10000THENRETURN
9831 PRINT"{$d9}OUR COUNTRY GETS THE {$ce}OBEL PEACE PRIZE : $ 80.000 !!!":C=C+80000
9832 RETURN
9840 PRINT"{$d4}HIS YEAR GIVES YOU A SUPER-SPECIAL HARVEST !!!"
9841 I=I*2:C=C+8000:RETURN
9850 PRINT"{$d4}HE HARVEST THIS YEAR WAS REALLY BAD ! {$c6}URTHER ON WHEAT KILLER-BEETLE";
9851 PRINT"S DESTROYED HUGE PARTS OF YOUR WHEAT !"
9852 I=I*.7:C=C-1000:RETURN
9853 PRINT"{$c1}S A DISTINCTION YOUR COUNTRY GETS 20 {$c3}OMPUTER-SHARES !!!"
9854 O6=O6+20:P6=P6*2:ER=ER+10000:RETURN
9860 PRINT"{$d4}HE {$c5}{$c7} PUTS SOME MORE DOCTORS AT THE DISPOSAL OF YOUR COUNTRY.";
9861 PRINT".":E=(B/2000)-.1:RETURN
9870 IFL1<40ORL2<14THENRETURN
9871 PRINT"{$d9}OUR GOVERNMENT OFFICIALS BEGAN A WALKOUT AND DEMAND LOWER TAXE";
9872 PRINT"S AND HIGHER WAGES ."
9873 PRINT"{$d4}HIS LOSS OF WORKING HOURS COSTS YOU LOTS OF MONEY !!!":C=C-(KJ*.25)
9874 HZ=HZ-100:Z=Z*.9:I=I*.85:RETURN
9880 PRINT"{$d4}HE STORAGE OF TOXIC WASTE OUT OF {$d3}ENEGAL BRINGS YOU PROFIT BUT ";
9881 PRINT"100 ACRES OF LAND AND 200 CATTLE ARE BEING CONTAMINATED ";
9882 A7=A7-100:Z=Z-200:RETURN
9890 PRINT"{$c1}N AEROPLANE-DISASTER ABOVE THE CAPITAL COSTS YOU THOUSANDS OF PEOP";
9891 PRINT"LE AND ALSO OF BUILDINGS !!!":B=B*.9:RT=RT*.7:I=I*.7
9892 RETURN
9900 PRINT"{$c1} COMPUTER-MISTAKE HAS CALCULATED WRONGLY THE YEARLY TAXES.";
9901 PRINT"{$d4}HEREFORE YOU HAVE GOT TO PAY BACK THAT MONEY TO YOUR PEOPLE  !"
9902 C=C-KJ/5:RETURN
9910 PRINT"{$d4}{$cd}{shft space}({$d4}ANALAND-{$cd}OTORS) PAYS ALL {$d4}{$cd}-SHARE-HOLDERS A SPECIAL DIVI";
9911 PRINT"DEND ! {$d9}OURS IS ";(O4*P4/G4*15);"$.":C=C+(O4*P4/G4):RETURN
9920 PRINT"{$d4}{$c5}{shft space}({$d4}ANALAND-{$c5}LECTRONICS) PAYS ALL {$d4}{$c5}-SHARE-HOLDERS ({$c3}OMPUTE";
9921 PRINT"R & {$c3}O.) A SPECIAL DIVIDEND TO THE SUM OF :";O6*P6/G6;
9922 PRINT"$.":C=C+O6*O6/(O6+1):RETURN
9930 PRINT"{$c3}ONGO DEMANDS OF {$d4}ANALAND THE OVER DUE 'SALT-TAX' ..."
9931 PRINT"{$d4}HAT COSTS YOU ";C*.15;"$ !!!":C=C*.15:RETURN
9940 PRINT"{$d0}URE LUCK (?) RAISES YOUR POINTS BY 10000!":CS=CS10000:RETURN
9950 PRINT"{$c2}UILDING A NEW STEEL-CONCERN YOUR PEOPLE FIND A REALLY HUGE OIL -";
9951 PRINT" WELL ! {$d4}HAT REDUCES YOUR RUNNING COSTS !";HZ=HZ+4000:RETURN
9960 PRINT"{$cf}NE OF THE LEADING BOSSES OF THE {$d5}NITED {$d5}NDERWORLD ({$d5}.{$d5}.) WAS TAKEN";
9961 PRINT" PRISONER A SHORT TIME AGO ."
9962 PRINT"{$c8}IS DEATH ON THE ELECTRIC CHAIR HELPED TO INCREASE YOUR PRESTIGE,";
9963 PRINT"BUT LEAD TO SOME THREATS BY THE {$d5}.{$d5}.":CS=CS+20000
9964 TQ=0:G2=G2+500:O2=O2/4:RETURN
9970 PRINT"{$c1} STATE VISIT BY THE PRESIDENT OF {$da}IMBABWE LEADS TO COSTS TO THE ";
9971 PRINT"SUM OF ";VG*5;"$ FOR YOU !":C=C-VG*5:RETURN
9980 IFL4<=30THENRETURN
9981 PRINT"{$d4}HE {$c3}HURCH DELIVERS AN ULTIMATUM TO YOU TO MAKE CHURCH-TAX LOWER !";
9982 PRINT"{$cd}AKE IT 25% AT THE MOST FOR 3 YEARS OR THE {$d4}{$c3}({$d4}ANALAND-CHURCH) WILL ";
9983 PRINT"ATTACK YOU WITH ITS {$d3}H'UZUU HOW THEY CALL THE ELITE OF TEMPLE FIGHT";
9984 PRINT"ERS !!!":JZ=3:RETURN
9990 PRINT"{rvrs on}{$d4}HE {$c3}HURCH ATTACKS YOU - AS PROMISED - WITH ITS TEMPLE-FIGHTER-ELITE";
9991 PRINT" !!! {$d7}AR BEGINS ..."
9992 HZ=HZ-30000:D6=D6/2:D7=D7/2:D4=D4/2:KK=KK/3:D1=D1-1
9993 IFKK<=3000THENKK=0:C=C-5000:D6=0:RETURN
10099 IFVG<5000000THENRETURN
10200 GOTO60500
10201 LOAD"X3"
10217 END
15000 IFAS<650THENAS=650
15001 ZR=A7*AS+Z*J7+E*DS+I*JH+C+RT*50000+HZ+O1*P1+O2*P2+O3*P3+O4*O4+O5*O5
15005 ZR=ZR+O6*P6+D1*20000+D2*40000+D3*1500+D4*50+D5*10+D6*100+D7*300
15010 PRINT"{rvrs on}{$c6}ORTUNE AFTER SELLING OF EVERYTHING: ";INT(ZR);"$."
15015 PRINT"{$c2}EGINNING-{$c6}ORTUNE:4859450.46 $"
15020 ZA=(100/4859450.46)*ZR
15025 PRINT"{$d0}ROCENTUAL:";INT(ZA);"%.":POKE198,0:WAIT198,1
15030 IFVG=1975ORVG=1985ORVG=1995ORVG=2005ORVG=2015THENJ9=1:P1=1500:G1=10000
15032 IFVG=1976ORVG=1986ORVG=1996ORVG=2006ORVG=2016THENJ8=1:P2=1500:G2=10000
15034 IFVG=1977ORVG=1987ORVG=1997ORVG=2007ORVG=2017THENB7=1:P3=1500:G3=10000
15036 IFVG=1978ORVG=1988ORVG=1998ORVG=2008ORVG=2018THENJ6=1:P4=1500:G4=10000
15038 IFVG=1980ORVG=1990ORVG=2000ORVG=2010ORVG=2020THENJ4=1:P6=1500:G6=10000
15050 RETURN
20000 PRINT"{clear}":POKE650,0
20001 IFC<0THENC=C*1.05:PRINT"{$d9}OU SPEND TOO MUCH MONEY...":FORZR=0TO150:::NEXTZR
20010 PRINT"- {$d4}AXES - ";J9$;" ";SZ$
20012 PRINT"{rvrs on}{yellow}                                      ":V9=1
20015 PRINT"{$c9}NCOME-TAX:";L1;"%"
20020 INPUT"{$c3}HANGE OF INCOME-TAX AT X%.";L1
20025 IFL1<0ORL1>=100THENGOTO20000
20040 PRINT"{$d0}ROPERTY TAX:";L2;"%"
20055 INPUT"{$c3}HANGE OF PROPERTY-TAX AT X%.";L2
20060 IFL2<0ORL2>=100THENGOTO20040
20070 PRINT"{$d0}LEASURE-TAX:";L3;"%"
20075 INPUT"{$c3}HANGE OF PLEASURE-TAX AT X%.";L3
20080 IFL3<0ORL3>=100THENGOTO20070
20090 PRINT"{$c3}HURCH-TAX:";L4;"%."
20091 INPUT"{$c3}HANGE OF CHURCH-TAX AT X%.";L4
20095 IFL4>25THENGOSUB9990
20096 IFL4<0ORL4>=100THENGOTO20090
20100 KJ=(L1*3+L2*2+L3+L4*2)
20105 IFKJ>200ANDKJ<300THENB=B-30*KJ:PRINT"{rvrs on}{$d0}EOPLE HAVE NOT ENOUGH MONEY !!!"
20110 IFKJ>=300THENB=B-50*KJ:PRINT"{rvrs on}{$cc}ESS POPULATION,BECAUSE OF TAXES !"
20115 IFKJ<100THENB=B+30*KJ:PRINT"{rvrs on}{$d9}OUR PEOPLE STILL AGREE WITH YOU !!!"
20120 IFKJ<50THENB=B+50*KJ:PRINT"{rvrs on}{$d0}EOPLE PRAISE YOU !!! {$c6}ANTASTIC TAXES !"
20125 KJ=KJ+((4*B)/(500-KJ))
20130 IFL2<30THENB=B+KJ/2:PRINT"{rvrs on}{$cc}OTS OF IMMIGRANTS !!!"
20135 IFL3<25THENPRINT"{rvrs on}{$d9}OUR CASINOS ARE DOING VERY WELL !!!"
20136 IFL3<25THENKJ=KJ+(200-((L1*3+L2*2+L3+L4*2)*2))
20140 IFL4<=10THENPRINT"{rvrs on}{$d4}HE {$c3}HURCH SUPPORTS {$d4}ANALAND WITH A GREAT DONATION !!!"
20145 IFL4<=10THENKJ=KJ+6*L4
20150 IFL1<30THENPRINT"{rvrs on}{$d4}ANALANDESIAN ECONOMY IS EXCELLENT !":KJ=KJ+L1*5
20170 KJ=KJ+(B/500):IFKJ<1000ANDKJ>100THENKJ=KJ+500
20171 IFL4>50THENPRINT"{rvrs on}{$cd}OST {$d4}ANALAENISIANS LEAVE THE {$c3}HURCH !!!"
20172 IFL4>50THENKJ=KJ-6*L4
20175 IFKJ<=0THENKJ=KJ+800
20176 IF(L1+L2+L3+L4)<40THENKJ=KJ-1000
20177 IFL1>50THENPRINT"{rvrs on}{$d0}EOPLE CALL FOR CIVIL WAR WITH {$d3}AMIBIAN AID !!!"
20178 IFL1>50THENKJ=KJ-1000:VS=6:R6=R6+KK/2:KK=KK/2:D6=D6/2:D2=D2/2:D7=D7/2
20179 IFL1>50THENGOSUB[30977]
20180 IF(L1+L2+L3+L4)<70THENKJ=KJ+800
20185 KJ=KJ*2000:IFB<30000THENKJ=KJ+(B-30000)
20190 KJ=KJ*(1/50000)*B:IF(L1+L2+L3+L4)=0THENKJ=0
20255 PRINT"{rvrs on}{white}                                      "
20256 IFKJ>50000000THENKJ=KJ-1000000
20257 IFVG<1974THENKJ=KJ+2000000
20260 PRINT"{$d4}AXES ALTOGETHER:";INT(KJ):C=C+KJ
20270 PRINT"{$c6}ORTUNE ALTOGETHER:";INT(C)
20280 POKE198,0:WAIT198,1
30210 PRINT"{clear}":KQ=KQ-.5
30215 PRINT"{rvrs on}{white}{home:12}{down:7}{right:7}     {$d7} {$c1} {$d2} OR {$d0}{shft space}{$c5}{shft space}{$c1}{shft space}{$c3} {$c5}    "
30220 GETL7$
30225 IFL7$="W"THENGOTO30300
30230 IFL7$="P"THENAD=AD+50:GOTO8000
30235 GOTO30220
30300 POKE646,0:PRINT"{down}LOAD";CHR$(34);"X10";CHR$(34);",8,1"
30305 PRINT"{down:4}RUN":PRINT"{up:10}":POKE198,3:POKE631,13:POKE632,13
30310 POKE633,13:END
35000 PRINT"{clear}{lt. red}":IFVG=1970THENP1=2500:P2=2500:P3=2500:P4=2500:P5=2500:P6=2500
35001 IFKK<0THENKK=0
35005 PRINT"{rvrs on}            {$c4}EMANDS MADE BY :           ":A1=KQ
35010 PRINT"{down}{$c6}ORTUNE: ";INT(C);" ${down}":IFA1<=0THENA1=1
35015 PRINT"{down}- {$cd}INISTRY OF {$c5}DUCATION: ";INT((2*VG-RT)*200);" $"
35020 INPUT"{down}{$c8}OW MUCH ARE YOU PREPARED TO PAY ";A2
35025 IFA2=((2*VG-RT)*200)THENC=C-A2:HZ=HZ+A2/200:CS=CS+5000
35030 IFA2>=((2*VG-RT)*300)THENC=C-A2:HZ=HZ+A2/200:CS=CS+8000
35035 IFA2<((2*VG-RT)*300)ANDA2>=0THENC=C-A2:HZ=HZ-(2*VG-RT)*300+A2:CS=CS-10000
35040 IFA2<0THENCS=CS-20000:GOTO35000
35041 GOTO37000
35045 PRINT"{down}- {$cd}INISTRY OF {$d7}AR: ";INT(((KK*.25)/(KQ+1.0001)));" $"
35050 INPUT"{down}{$c8}OW MUCH ARE YOU PREPARED TO PAY ";A2
35055 IFA2=((KK*.25)/(KQ+1.0001))THENC=C-A2:KQ=KQ+1:D7=D7+50:HZ=HZ+100:CS=CS+500
35060 IFA2>((KK*.25)/(KQ+1.0001))THENC=C-A2:KQ=KQ+1:D7=D7+50:HZ=HZ+200:CS=CS+900
35065 IFA2<((KK*.25)/(KQ+1.0001))ANDA2>0THENC=C-A2:HZ=HZ-1000:CS=CS-2000
35067 IFA2<((KK*.25)/(KQ+1.0001))ANDA2>0THENKQ=KQ-1:D6=D6*.9:D1=D1-2:D2=D2-2
35070 IFA2<0THENCS=CS-10000:GOTO35045
35075 PRINT"{down}- {$cd}INISTRY OF {$d0}EACE: ";INT((KK*.2+10*VG));" $"
35080 INPUT"{down}{$c8}OW MUCH ARE YOU PREPARED TO PAY ";A2
35085 IFA2<0THENCS=CS-50000:GOTO35075
35090 IFA2>=0ANDA2<(KK*.2+10*VG)THENC=C-A2:HZ=HZ-KK*.2+A2:R1=R1*1.1:CS=CS-10000
35095 IFA2>=0ANDA2<(KK*.2+10*VG)THENR2=R2*1.1:R3=R3*1.1:R4=R4*1.1:R5=R5*1.1
35100 IFA2>=0ANDA2<(KK*.2+10*VG)THENR6=R6*1.1:R7=R7*1.1:R8=R8*1.1:R9=R9*1.1
35103 IFA2>=0ANDA2<(KK*.2+10*VG)ANDKK>2*R2THENG9=42
35105 IFA2=(KK*.2+10*VG)THENC=C-A2:HZ=HZ+2000:CS=CS+5000
35110 IFA2>(KK*.2+10*VG)THENC=C-A2:HZ=HZ+3000:CS=CS+8000:R1=R1-500000:R2=R2-5000
35115 IFA2>(KK*.2+10*VG)THENR3=R3-5000:R4=R4-5000:R5=R5-5000:R6=R6-5000
35120 IFA2>(KK*.2+10*VG)THENR7=R7-5000:R8=R8-5000:R9=R9-5000:D6=D6*.95
35125 PRINT"{down}- {$d2}EPRESENTATION OF THE PEOPLE: ";INT((.5*VG*VG+B/3));" $"
35130 INPUT"{down}{$c8}OW MUCH ARE YOU PREPARED TO PAY ";A2
35135 IFA2<0THENCS=CS-30000:GOTO35125
35140 IFA2>=0ANDA2<(.5*VG*VG+B/3)THENCS=CS-20000:HZ=HZ-5000
35145 IFA2=(.5*VG*VG+B/3)THENCS=CS+5000:HZ=HZ+5000
35150 IFA2>(.5*VG*VG+B/3)THENCS=CS+8000:HZ=HZ+8000:B=B+5000
35155 IFA2>(.5*VG*VG+B/3)THENPRINT"{rvrs on}{$cc}OTS OF IMMIGRANTS !"
35160 PRINT"{down:2}{$d9}OUR FORTUNE: ";INT(C);" $"
35165 POKE198,0:WAIT198,1:POKE198,0:RETURN
37000 IF((KK*.25)/(KQ+1.0001))<=0OR((KK*.25)/(KQ+.0001))>10000000THENGOTO37010
37005 GOTO35045
37010 PRINT"{down}- {$cd}INISTRY OF {$d7}AR: 4000000 $"
37015 INPUT"{down}{$c8}OW MUCH ARE YOU PREPARED TO PAY ";A2
37020 IFA2=4000000THENC=C-A2:KQ=KQ+1:D7=D7+50:HZ=HZ+100:CS=CS+500
37025 IFA2>4000000THENC=C-A2:KQ=KQ+1:D7=D7+50:HZ=HZ+200:CS=CS+900
37030 IFA2<4000000ANDA2>=0THENC=C-A2:HZ=HZ-1000:CS=CS-2000
37035 IFA2<0THENCS=CS-10000:GOTO35045
37040 GOTO35075
38000 POKE53280,8:POKE53281,12:POKE649,10:PRINT"{black}{clear}{down:3}"
38005 PRINT"{down:7}{right:13}";INT(B*.1/(E+.2));" PEOPLE"
38010 PRINT"     DIED OF THE PLAGUE THIS YEAR !     "
38015 B=B-(B*.1/(E+.2)):POKE198,0:WAIT198,1:POKE198,0:RETURN
40000 GOSUB4005
40005 IFA2$="B"THENGOTO2
40010 IFA2$="W"THENGOTO8000
40015 IFA2$="S"THENGOTO900
40020 PRINT"{clear}":GOTO40000
40500 PRINT"{clear}{yellow}":POKE198,0:WAIT198,1:POKE198,0:RETURN
45000 POKE649,0
45005 PRINT"{rvrs on}{$c1}NOTHER COUNTRY DECLARES WAR ON YOU !!!":G9=42
45010 GOTO30300
50000 OPEN2,8,2,"X5,S,R":INPUT#2,M1$:CLOSE2:RETURN
50005 M1$="N":OPEN2,8,2,"@:X5,S,W":PRINT#2,M1$:CLOSE2:RETURN
60000 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24
60005 POKEL,15:POKETH,15:POKETL,15:POKEA,0*16+0 :POKEH,15*16
60010 POKEW,65
60015 FORX=100TO0STEP-8:POKEFH,40:POKEFL,X:NEXT
60020 FORX=250TO0STEP-1:POKEFH,40:POKEFL,X:NEXT
60025 POKEW,0
60030 GOTO753
60500 IFB>0ANDYY<>13THENV9=0:GOTO900
60530 GOTO10201
60799 END
60999 END
61000 FORT=24TO39
61001 POKE1464+T,224:POKE55736+T,7:NEXT:RETURN
61002 END