ZXTape! 0Created with Ramsoft MakeTZXDICTATOR 6 68 7:7::"" "DICTATOR"12 Ndictator pbXrb0#ll# <@TQXbbӹ\\\ uƹƹb\Kh^![!@P!! b GXW K SR P:H\???˧!:\G\CF#\CF#.!FX@  ~˿####L]FH:H\???6˧6A.................................... Bpx<<xO`|8>#5dĎ`8~@`~`~!?........  INTR n1:0:cls:4,2;"DICTATOR";8,2;"Devised and Written by" +10 ,2;"Don PRIESTLEY" ]14,2;9 ;"Copyright DkTRONICS 1983"  FX i=110 (*2)20 k23779\,*100d+150:(*6)+1:y=23780\:23779\<17514  0 S23779\,*10 +20:a=5̥*10 +10 :y=23780\:a <i > FH23779\,20:a=5̥*10 +502:y=23780\:a H PFco=5010:cls=1300:s$=" " R4:hst=0 T b$="123456789":c$="987654321" n-d$(491,491):g$(8,22) p 6101 ta=1491:d$(a):a xco:4e3 CYCLE )6150:a=18:g$(a):a *a=1491:d$(a,1)="N":a bk=1e3 esc=0 mpy=60< st=4 sw=0 d=10 mth=0 coy=5e3 ad=1e3 pl=1400x pc=0 cad=1980 act=790 gr=23675{\ bkr=900 tran=1600@ pr=1700 ass=1500 aid=2060  dec=2500 rev=1800 end=3000 str=10 tune=1570" news=2750 cls=1300 war=4200h 1:7:cls ;3,7;5;1;"WELCOME to OFFICE"''' &"The best DICTATOR of our beloved"'' $"country of RITIMBA had a final"'' "rating of ";hst '' Qhst0"As this is your first attempt"''"you will no doubt do BETTER !"'' ;hst1"You can always try for ";hst+1;" !"''  ""Start with a TREASURY REPORT"''  "and a POLICE Report. (FREE)" co  act:co pr+20:600X  PICS -gr,40(:gr+1,94^:420 .gr,168:gr+1,93]:420 #gr,232:gr+1,93] a6,2;" ";7,2;" "  XREQUESTS Y c=1 [low=(*3)+2 \str=(*3)+10 bmth=mth+1 d1:6:cls e.10 ,12 ;"MONTH ";1;mth f 502 hpl jbk<0bkr lbk>0bk=bk-mpy n6:cls pP0,0;4;s$;s$;s$;s$;s$;3,11 ;"AN AUDIENCE" vr=(*24)+1 x2a=122:d$(r,1)="N"648 z)r=(r-(r/24)*24)+1:a 5a=124:d$(a,1)="N":a:630v d$(r,1)="*" 'gs=((r-1)/8)+1:gs ,t$=g$(gs,6̯g$(gs,5)-20)  r$=d$(r) 410+gs 310 ,2;"A request from t";t$(2) \14,1;"Will YOUR EXCELLENCY agree to";16,0;1;r$(18) co:0:ad  choice 1cls:1,10 ;" DECISION " 0:(21-t$)/2;gs;t$;" ask you to" ?5,0;1;r$(18)''0;1;s$ c730:a=0 cad::4;s$ c=0730 coy k$="y"760  740 =cls:10 ,1;"You have INSUFFICIENT FUNDS to" ,12 ,1;"PAY for this DECISION." ;15,4;"Your answer MUST be NO":250  c=1 x=g$(gs,1) y=(r$(gs+3))-77M x=x-y x<0x=0 g$(gs,1)=x cls act:766 act:tran:act+6 pl:co ass:d=0end  !war:d=0esc=1end  pl  pr:dec ACOUNT 7:cls:4 Da=124:4;"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$":a #gr,104h:gr+1,94^ 3,1;4;"";4,1;"";5,1;"" 8(8,8;"TREASURY REPORT" 91:9 :-1:12 ,1;" The TREASURY"; <bk0" holds $"; >bk<0" OWES $"; ?bk;",000 " @614,2;" MONTHLY COSTS are $";mpy;",000 " F@sw>017,2;"[SWISS Acct holds $";sw;",000]" J 0: BANKRUPT cls 15,3;"The TREASURY is BANKRUPT" 69 ,0;"Your POPULARITY with the ARMY &"'' %" the SECRET POLICE will DROP !"''' #" POLICE STRENGTH will drop"'' #"and YOUR own STRENGTH will DROP" Ng$(1,1)>"0"g$(1,1)=(g$(1,1)-1) Ng$(6,1)>"0"g$(6,1)=(g$(6,1)-1) Ng$(6,2)>"0"g$(6,2)=(g$(6,2)-1) st>0st=st-1 250:pl:pr   ADvice 4:1:cls =a=119:a,11 ;"? ADVICE ?":a coy:6:cls  k$"y" -1,0;1;d$(r,18): 43,0;"Your POPULARITY with ....": a=18 4x=d$(r,a+3)-77M:x=01034  $2;g$(a,6);21; x>0"+"; x;  $gs=ar<251;gs;"< "  a  :  "The STRENGTH of ...": a=16 5x=d$(r,a+11 )-77M:x=01048 $2;g$(a,6);21; x>0"+"; x a  co:cls:  CLS m23659k\,2::23659k\,0:22,0;s$;s$:.1}L,40(:0,0;: x PLOT mth2 2a=13:g$(a,34)="::":a  mthlow1450 p=16 $a=pŰg$(p,1)>low1441 /g$(p,2)+g$(a,2)str1446 p g$(a,3)="A":1450 g$(a,3)="R" g$(a,4)=p a  ASSASSIN r=(*3)+1 g$(r,3)"A" J0:0:cls:10 ,5;"ASSASSINATION ATTEMPT" 020,6;"by one of t";g$(r,7) Va=60<1-.5:23886N],a:i=23884L]:a:23886N],70F #cls:30:70F:502 Ug$(1,3)="A"g$(2,3)="A"g$(3,3)="A"1546  Lg$(6,1)>lowŰg$(6,2)>lowź(*2)1554  ;0:0:cls:12 ,10 ;"You're DEAD !"  3,-40(  d=0: E0:7:cls:12 ,8;" Attempt FAILED " &23886N],502:a=23842"]  " TUNE $a=1̱m$2 &5m$(a+1)=32 m$(a)/4:1578* (4(m$(a)-480)/6,m$(a+1)-105i *a , @TRANSFER Jd$(r,1)="*" Tt$=d$(r,411 ) Ua=18 Vt$(a)="M"1632` X$x=g$(a,1)+(t$(a)-77M) Zx>9 x=9 \x<0x=0 ^g$(a,1)=x `a ft$=d$(r,12 17) ha=16 jt$(a)="M"1652t l$x=g$(a,2)+(t$(a)-77M) nx>9 x=9 px<0x=0 rg$(a,2)=x ta | bk=bk+cst ~mpy=mpy-mcst mpy<0mpy=0  POLICE REPORT  9 :0:0:cls #gr,104h:gr+1,94^ w0,1;6;1;"";1,1;"" /6,5;"SECRET POLICE REPORT "; Jbk0Űg$(6,1)lowŰg$(6,2)low1764 ."?":12 ,8;"( costs $1000 )" coy  k$"y" bk=bk-1 0:cls:0 4"MONTH ";mth;3,0;1;1;s$ 23,8;1;" POLICE REPORT " :5,14;1;"";6,14;"" =6,1;"POPULARITY";6,21;"STRENGTHS" #62008:a=18:k$ >7+a,11 ;6;0+(g$(a,3)="R");k$ )7+a,10 ;7;1;a Ja3g$(a,3)="R"7+a,21;7;g$(a,4) Kx=g$(a,1):7+a,10 -x;7;4;c$(10 -x) Ga3g$(a,3)="A"a+7,21;7;"A" a Qa=16:7+a,22;2;7;b$(̰g$(a,2)):a *17,1;"Your STRENGTH is ";st 519,1;"STRENGTH for REVOLUTION is ";str co:4:cls: %10 ,9 ;"NOT AVAILABLE"'' Xg$(6,1)low3;"Your POPULARITY with us is ";g$(6,1)'' Pg$(6,2)low3;"POLICE strength is ";g$(6,2)'' 2bk03;"You can't AFFORD a REPORT" =23886N],30:a=180P:i=23884L]:a 23886N],502: REVOLUTION  news  +a=13:r=(*3)+1  g$(r,3)="R"1810 a  600X x23886N],502:0:2:1:2:cls:9 :10 ,11 ;0;"REVOLUTION" <a=15:.5,20:.5,10 :a 0:6:cls 112 ,8;"ESCAPE ATTEMPT ?":coy &cls:k$"y"1850: (&d$(36$,1)="*"18422 )Z10 ,2;"You have to get through the";12 ,6;"MOUNTAINS to LEFTOTO" *200:cls ,<(*((g$(4,2)/3)+.4L))1839/ -Q12 ,0;"The GUERILLAS didn't catch you":i=23842"]:end /0:cls 0ed=0:502:70F:12 ,1;"The GUERILLAS are CELEBRATING":70F:end 2"(*3)=018455 3M12 ,3;"You ESCAPE by HELICOPTER !":i=23842"]:end 5210 ,3;"The HELICOPTER won't START !" 6 150 7cls:1833) :.x=g$(r,2)+g$(g$(r,4),2) "6"1870N V"g$(k$,1)low1884\ Xh=k$:1893e \;cls:12 ,5;"You must be JOKING !":18466 b.cls:8,5;"You're ON YOUR OWN !" dco ecls f)8,0;"YOUR STRENGTH is ";st gG''g$(h,6̯g$(h,5)-20);" strength is ";g$(h,2) h''"The REVOLUTIONARY'S is ";x j 250 lF7:cls:12 ,3;"The REVOLUTION has STARTED" p 10 z6xst+g$(h,2)+(*3)-11950 E0:0:cls:10 ,4;"You have been OVERTHROWN" 012 ,8;"and ";1;"LIQUIDATED"  70F d=0:502:end G0:cls:10 ,2;"The REVOLT has been CRUSHED" a=23842"] D0,0;:a=122:ں(*5)+1;s$:a :10 ,0;"PUNISH the REVOLUTIONARIES ?" coy:k$"y"1968 (n=13:70F:y=/:n g$(r,12)="00" )g$(g$(r,4),12)="00" g$(h,2)="9" #pc=mth+2:pl:pr:600X CASH ADVICE (cst=10 *(d$(r,2)-77M) mcst=d$(r,3)-77M cstmcst2030 *9 ,1;"This decision would": cst2014 cst>0" ADD to"; cst<0" TAKE from"; !" the TREASURY $";cst;",000": mcst2020  " and": mcst<0" RAISE"; mcst>0" LOWER"; $" MONTHLY COSTS by $";mcst;",000" bk+cst>0c=1: I(cst<0mcst<0)(bk+cst<0bk+mcst<0)2034  c=1: 4c=1:10 ,7;"NO MONEY INVOLVED": 250:c=0:cls "5,0;d$(r,18) 28,2;"The CASH for this decision is" #:4;" in the TREASURY"''' @d$(38&,1)="N"" Perhaps the RUSSIANS can help ?": @d$(39',1)="N""THE AMERICANS are generous folk ":  350^:  AID F2:6:cls::2;" APPLICATION for FOREIGN AID " .12 ,13 ;1;"WAIT":502 x=k$-1 xm$="2g2d3i4d2 2g2d3i4d" $xm$="2m1j3f3j3m4r1 2v1t3r3j3l4m" tune (&mth<(*5)+32138Z @(d$(38&+x,1)="*"2128P A(g$(7+x,1)low2132T B'x12 ,0;"The RUSSIANS"; C'x12 ,0;"The AMERICANS"; D" will let you have" E2y=g$(7+x,1)*30+(*200) F$14,7;y;",000 DOLLARS" H bk=bk+y L(d$(38&+x,1)="*":2140\ P;12 ,2;"Very sorry, NO MORE LOANS":2140\ T*x12 ,12 ;2;"NIET !" V-x12 ,12 ;1;"""nuts !""" Xco: Z012 ,2;"It's TOO EARLY to give AID" \co: DECISION 6:cls V1:a=122:1;2;"********************************":a 63,5;"PRESIDENTIAL DECISION" (9 :6,1;"Try to ..." -8,4;"1. PLEASE a GROUP " .10 ,4;"2. PLEASE ALL GROUPS " .12 ,4;"3. IMPROVE your CHANCES " .14,4;"4. RAISE some CASH " .16,4;"5. STRENGTHEN a GROUP " co:cls k$<"1"k$>"5"2746 k$="1"x$="-2" k$="2"x$="35" k$="3"x$="69" k$="4"x$=":<" k$="5"x$="=?" Z(20-(((x$(2)-20)-(x$(1)-20))*3))*.5,0 y=1:z=1 /a=x$(1)-20̯x$(2)-20 d$(a,1)="*"2592  z=0 y;".":d$(a,18): ! y=y+1 "a $z2600( %co:2620< (512 ,3;"ALL of this section USED UP" *150:dec - Dk$<"0"k$>"6"dec FEk$<1Űk$>(x$(2)-20)+1-(x$-20)dec J r=((x$)-20)+k$-1 Kd$(r,1)="*"dec L#r=38&r=39'2670n Rr=37%2680x Tad V+4,0;1;d$(r,18) Xcad Zc200:dec [+4,0;1;d$(r,18) \coy ] k$"y"dec ^r=35#2674r ` act:tran d 2740 naid:act:2741 rst=st+2:act ttran+20:2740 xFcls:3,0;1;"TRANSFER to a SWISS BANK ACCOUNT"''' }(x=(bk/2):x<12720 ""The TREASURY held $";bk;",000" sw=sw+x:bk=bk-x 100d 3::"$";x;",000 has been TRANSFERRED":2736 112 ,7;"NO TRANSFER made":100d 8259 pl:co pr:rev NEWS (*3) r=(*6)+44, a=16 d$(r,1)="N"2780 %r=r+1:r=502r=44, a  V1:7:0:1:cls:0:10 ,11 ;"NEWSFLASH" *a=110 :.6,30:a )cls:10 ,11 ;"NEWSFLASH" #14,0;d$(r,18) 9 :100d tran:pl pr  END d100d:3026 '502:m$="4d3d1d3d3g1f2f1d2d1d5d" tune 5x=0:a=18:x=x+g$(a,1):a 5:6:cls 73,4;"Your RATING as PRESIDENT" &:" Total POPULARITY - ";28;x M:" MONTHS in OFFICE (";mth;"x3) - ";28;mth*3:x=x+mth*3 d3072 ':" For staying ALIVE - ";28;d [:" For MONEYGRABBING "'" ($";sw;",000 /10,000) -";28;(sw/10 ) x=x+d+(sw/10 ) ,::" Your TOTAL is ";28;1;x x>hsthst=x ):"[ Highest Score so far is ";hst;" ]"  co:cls ;0:0:cls:1,14;1;"FINAL" *pr+22:4:co:cls:140  TITLE cls 0,0;:1 /0:9 :5:a=1480 "DICTATORDICTATOR"; !.01z# =,40(-a+*10 a 923659k\,2:a=1502:.03{u\,a:a 0:a=819 3a,7;4;2;"" a :a=819:a,11 ;1;" ":a [3,0;7;"Press any key to become DICTATOR";5,12 ;" of the " F4:10 ,12 ;"RITIMBAN";16,12 ;"REPUBLIC" "g12 ,13 ;1;6;"******";13 ,13 ;" ** ";14,13 ;"******" ,t$="KPKKMKIHK`KMRPOMOP" 6a=1̱t$ ;"" @x=t$(a)-80P J"x=1620:4190^ T .5,x ^a `30:41506 h WAR pg$(5,1)>low rg$(5,2)lowrs=rs+g$(a,2) a 6g$(6,1)>lowrs=rs+g$(6,2)  rs=rs+st .12 ,5;"Ritimban Strength is ";rs Ils=0:a=16:g$(a,1)lowls=ls+g$(a,2) a .14,5;"Leftotan Strength is ";ls 018,6;"A SHORT DECISIVE WAR"  10 (ls+(*3-1)rs4320 f23886N],502:0:cls:12 ,7;" LEFTOTANS ROUTED ":i=23842"] g$(5,2)="0": 0:0:cls /7,7;" LEFTOTAN VICTORY " =23886N],255:a=15:i=23884L]:a 3d$(36$,1)="*"ƺ(*3)4340 ^d=0:d$(36$,1)="*"10 ,3;"Helicopter ENGINE FAILURE":80P N12 ,4;"YOU are judged to be an"''" ENEMY of the PEOPLE and ..." <30:70F:18,7;"Summarily EXECUTED"  rcls:12 ,3;"You ESCAPE by HELICOPTER !":23886N],70F:i=23842"]:esc=1: COY 420,11 ;7;" ""Y""= YES " ""5010 E21,0;2;s$;" KEY ";s$ a=115 ""5030 a .01z# =,30 E21,0;1;s$;" KEY ";s$ a=115 ""5030 a .01z# =,20  5012 k$=:k$=""5018 k$="y".25~,30 k$"y".25~,10 k$=""80P  k$"#" ""5042 =""5044  "`" 23659k\,2: pDATA 0"NMHQJLMMMMMPKLMMM INTRODUCE CONSCRIPTION" 3"NMMPMJMMMMMNMLMMM REQUISITION LAND for TRAINING" 1"NCMPLNMLMLMNMNIMM ATTACK ALL GUERILLA BASES" 5"NEMPLMMIMLMNMNKMMATTACK GUERILLA BASES in LEFTOTO" 3"NMMQONMMIMMNMNMMJ SACK the SECRET POLICE CHIEF" 4"NMMPMMMLMIOMMMMMMEXPEL RUSSIAN MILITARY ADVISORS" 4"NMDQMLMMMMMOLLLMM INCREASE the PAY of the TROOPS" 3"NAMQLLMLLMMPLLKLM BUY MORE ARMS and AMMUNITION" 2"NMMLONMMMMMLMMLMM STOP ARMY SIGN-UP COERCION" 4"NMMMQIMNMMMMOLMMMINCREASE the BASIC MINIMUM WAGE" 4"NMPNQOMMIMMNNNNMJ CUT the POWERS of the S.POLICE" 4"NMMMPKMKMMMMOKMMMSTOP LEFTOTAN IMMIGRANT WORKERS" 5"NCELQKMOLNMMNLLMMINTRODUCE FREE EDUCATION for ALL" 5"NMMMQJMNLNMMPJMMLLEGALISE the FORMATION of UNIONS" 3"NMMLQKMNLMMMOLLMM FREE their IMPRISONED LEADER" 0"NMSMPLMMMMMMMMLMM START a PUBLIC LOTTERY" 4"NMMKMPMMMMMLMMMMMSTOP MILITARY USE of THEIR LAND" 3"NMMMIQMLMLMMKONMM LOWER the BASIC MINIMUM WAGE" 4"NWHMMPMNMOIMMNMMMNATIONALISE AMERICAN BUSINESSES" 5"NMRMMPMJMLMMNOMLMLEVY DUTY on ALL LEFTOTO IMPORTS" 3"NMQNNPMMIMMNMNNMK CUT SPENDING on the S. POLICE" 3"NMHMMQMMMMMMMOMMM DECREASE HEAVY LAND TAXATION" 4"NMMKLPMMMMMLLNNMMRELEASE TROOPS to WORK the LAND" 4"NACNNPMJMONMMPMKMBUILD a LARGE IRRIGATION SYSTEM" 7"NMMQLLMMLMMNMMLMLMAKE ARMY CHIEF ""VICE-PRESIDENT""" 4"NLILQNMOMNMMMMLMMSET UP FREE CLINICS for WORKERS" 4"NMMLKQMMLLMLLOMMLGIVE LANDOWNERS REGIONAL POWERS" 2"NRMKMMMQMKNLMMLPMSELL AMERICAN ARMS to LEFTOTO" 5"NYMMMLMLMKPMMMMMMSELL MINING RIGHTS to U.S. FIRMS" 3"NMWKMMMMMPJMMMMNMRENT the RUSSIANS a NAVAL BASE" 4"NMENPPMMMMMLMMLMMDECREASE GENERAL TAXATION LEVEL" 4"NEMPPPMMMMMMMMLMMSTAGE a BIG POPULARITY CAMPAIGN" 3"NMUPPPMMDMMONNNMDCUT S.POLICE POWERS COMPLETELY" 3"NMGJJJMMUMMLLLLMUINCREASE S.POLICE POWERS a LOT" 5"NIMKLLMMLMMKMMMMLINCREASE YOUR BODYGUARD *" -"NAMIIJMMKMMMMMMMMBUY an ESCAPE HELICOPTER" 5"NMMMMMMMMMMMMMMMMSEE TO YOUR SWISS BANK ACCOUNT *" 4"NMMMMMMMMMMMMMMMMASK the RUSSIANS for a ""LOAN""" 6"NMMMMMMMMMMMMMMMMASK AMERICANS for FOREIGN ""AID""" 5"NZMNNPMGMKMMMMMMMNATIONALISE LEFTOTAN BUSINESSES " 5"NHMPMMMJMLMRMMKKLBUY HEAVY ARTILLERY for THE ARMY" 1"NMMMPLMMLMMMRLPMLALLOW PEASANTS FREE MOVEMENT" 5"NMMLLPMMLMMLLRLMLALLOW LANDOWNERS PRIVATE MILITIA" 4"NMMMMMMMIMMMMMQMI PRESIDENT LOSES S.POLICE FILES" 4"NMMMMMMMMMMLMMVMM CUBANS ARM and TRAIN GUERILLAS" 5"NMMMMMMMMMMIMMOMNACCIDENT. ARMY BARRACKS BLOWS UP" 1"NMMMMMMMMMMMMJMKM BANANA PRICES FALL by 98%" 2"NMMMMMMMMMMMMOMIM MAJOR EARTHQUAKE in LEFTOTO" 5"NMMMMMMMMMMMILKMMA PLAGUE SWEEPS through PEASANTS" "76::!The ARMY" "76::%The PEASANTS" "76::'The LANDOWNERS"  "06--&The GUERILLAS"  "76--&The LEFTOTANS"  "76--*The SECRET POLICE"  "7---%The RUSSIANS"  "7---&The AMERICANS" 85" ARMY "," PEASANTS ","LANDOWNERS","GUERILLAS " B5"LEFTOTANS "," S.POLICE "," RUSSIANS ","AMERICANS " X SAVE b&:"dictator"22528X,25200pb  80P 7000X dictator pbXXpbS through PEASANTS 1MMMMMMMMMMMASK AMERICANS for FOREIGN "AID" ;0M