ZXTape! 0Created with Ramsoft MakeTZX0Napoleon's CampaignsEXPANSION rNr t%' %( %) %* %+ %\ %_ %a %"D$(1,1)::"EXNAP/2" &ht=1:9515+% EXNAP/2 N            & + , . 0 5 7 : ? I N Q S T V X Z ] _ ` b l                        # >                             < u v x }     @ C J L N T Y \ ^ h r u v w                     ! & ( * , . : D I L N X Z ` b p r s {                            4 > @ A C H M R S T W \ a f k p q r u z                                         " ' + U \  L V          " ' ( ) < F % %a %xN$(1,1):R$(1,1):T$(1,1)::20,10 ;1;"LOAD EXNAP/3":"EXNAP/3" &:f=0:1,502:5,6;1;"NAPOLEON'S CAMPAIGNS";20,8;"LOAD DATA TAPE":9515+% EXNAP/3 Irbd=0,0;" MONTH:";qu;" APOCALYPSE ";year;" ": Jg1=0:j=419:N$(yg,xg)=Q$(j,1)g1=j:520 j: Kg3=0:Q$(g1,1)<91[ƯQ$(g1,1)>64@g3=2  &Q$(g1,1)>96`g3=1  X byco=1:14,22;1;"IS ";15,22;Q$(ga,2);16,22;"MOVING ? " l="y"650 q ="n"co=0:800 : v 620l E800 :gd1>0yg=yd:xg=xd:defc=(gd/4):710 )N$(yd,xd)=Q$(ga,1):N$(yo,xo)=" "  j=112 8y1=yg+(*3)-1:x1=xg+(*3)-1 :y1>20y1<1x1>20x1<1712 N$(y1,x1)" "740 y1=ygx1=xg740 5O$(y1,x1)=P$(defc,1)O$(y1,x1)=" "760 j \N$(yg,xg)=" ":13 ,22;1;Q$(gd,2);14,22;"HAS BEEN " Sdefc=(ga/4)15,22;1;"INJURED ":.5,40(: K<.515,22;1;"CAPTURED ":.5,40(: ?15,22;1;"KILLED ":.5,40(: $N$(y1,x1)=N$(yg,xg):N$(yg,xg)=" " defc=(ga/4) 14,22;1;Q$(gd,2);15,22;"HAS ";16,22;"ESCAPED ":.5,40(: #A12 ,22;" ";13 ,22;" ";14,22;" ";15,22;" ";16,22;" ";17,22;" ";18,22;" ";19,22;" ";20,22;" ";21,22;" " * 4d12 ,22;1;"REVENUE ";13 ,22;" ";13 ,22;E(f): >T20,22;1;1;"ERROR!!!! ":1,502:100d: j=120:n=120:N$(j,n)" "a=(j,n)-8:a=a+7*(a=0):j,n;1;1;N$(j,n):.01z# =,502:100d:j,n;a;O$(j,n):a=7O$(j,n)=" "j,n;7;"" ="0".01z# =,502: n:j       1220 A1:1:a:0:0:y,x;155:0 Amv=1Ʀ""I$=:mv=0:.1}L,30:7:  1="0"I=0:.01z# =,30:7: #.001wn,502:65202 j=12:15+j,22;j;" ";Q$(j,8) %fo=1Z$=Q$(1,8) %fo=2Z$=Q$(2,8) 800 :12 ,22;Z$;14,22;"1 MOVEMENT";16,22;"3 OCCUPY";17,22;"4 CHANGE";18,22;"5 OPTIONS":T$(y,x)"5"fo=115,22;"2 MARCH" 7fo=2T$(yo,xo)="5"15,22;"2 SAIL" V 800 :15,22;1;" SELECT ";16,22;"OBJECTIVE " 1510:800  uga=0:ga1=0:gd=0:gd1=0:g1=0:N$(yo,xo)" "yg=yo:xg=xo:500:ga=g1:ga1=g3 7N$(yd,xd)" "yg=yd:xg=xd:500:gd=g1:gd1=g3 9Dga1>0defc=(ga/4):610b:co=16480P :Qgd1>0ƺ(gd/4)fyg=yd:xg=xd:g1=gd:defc=(gd/4):710  12 ,22;2;1;" ATTACK ":j=minmax:12 +j,22;1;j;" ";G$(j):.01z# =,-10 -j:j .1}L,30:880p att=32 20,22;2;1;" COMPUTER ";21,22;" OVERRIDE ":att=min+(*(max-min)):6683 ".4L,40(:800  'k11 ,22;P$(defc);12 ,22;4;9 ;1;12 ,22;" DEFENSE " (Pj=minmax:12 +j,22;1;j;" ";H$(j):.01z# =,-10 -j:j )@j=-2003:.05|L,j:j:.5,502 <def=32 20,22;1;4;0;" COMPUTER ";21,22;" OVERRIDE "::def=min+(*(max-min)):6719? F_j=2253:254,255:254,237:1/j,j+20:j H inv=0:attdef((ga1=0gd1>0)(ga1=1gd1=2))g=0g=1:13 ,22;1;Q$(g1,2);14,22;"ORDERS ";15,22;"COUNTER ";16,22;"ATTACK ":.8L,502:6690" IJyo,xo;tpo;0;P$(f,1);yd,xd;0;tpd;P$(defc,1) J,tpo=0yo,xo;7;P$(f,1) K/tpd=0yd,xd;7;P$(defc,1) Npg=0:r=013 ,22;"ATTACK ";14,22;"SUCCESSFUL":cas=1:6750^ Pbatt=def13 ,22;"DEFENSE ";14,22;"SUCCESFUL":cas=2:6750^ R2(ga1>0gd1=0)r=0:6734N  <cas=21510:y=yo:x=xo:800 :6248h Gga1>0800 :610b:co=11510:6248h /gd1>0800 :710:1510 1510:6248h "13","22";1;Q$("1",̰"8");"14","22";"WITHOUT ";"15","22";"ESCORT ";"16","22";"UNDER ";"17","22";"ATTACK " #\880p:qu=qu+1:100d:qu>12 qu=1:year=year+1:100d # %2:65200,10 :65201,10 :20,0;:"LOADING 2 ":20,0;:"LOADING 3 ":1:7: %+@"CHAR":"Q$"Q$():"C$"C$():"S$"S$():"R$"R$():"T$"T$() %,G"C"C():"O$"O$():"D$"D$():"N$"N$():"E"E():"P"P():"P$"P$() %-7:1::"MAP":f=C(5):year=C(2):nuke=C(4):pleft=C(1):qu=C(3):p=C(6):803#:8950" %a V 110000000121000000123210000123432100012453210001256431001235742000135786000135789eaCHAR Xc99ߙǃUUá o.W)9 **>.W)9.W)9 **><$$<qqqUUUU~$$~3333PPݥ>ffffeQ$ XZ REGIMENT WARSHIP NNAPOLEON nNEY gGROUCHY mMURAT BBLUCHER dDENNEWITZ vVON ZIETENtTHIELMANN SSCHWARTZ'BfFRANCIS I cCHARLES jDUKE JOHN WWELLINGTONpPICTON hHILL sST.VINCENTC$ Xg GLASGOW KONIGSBG COPENHAGENBRISTOL DANZIG LONDON HAMBURG BERLIN BRESLAU PRAGUE BREST PARIS LEIPZIG VIENNA LYON BELGRADE BORDEAUX GENOA MARSEILLE RAGUSA MADRID ROME GIBRALTER MALTA S$ 5XK70363B4=565@686<7>7B8@95999=:A;:;D<6<==:=D?4??B4CBR$ Xc0000000001121120000000000110011021000021012007300000020006210110054000026000212200000742000120172241000022390025212121210000000001323823271100000012323122163210000042129212622121210000022122131212821200000120071010232217000005230231712010120000100126000300010501000100000202100000020500200000007321010311120000020000200202101000000100001000002500000000001200000000000001112000040001001000000020000000T$ Xi5555555552244445555555555225522544555544544557655555545557445445566555547555444455555764555445474444555544475547444444445555555554646046604455555546666444406642555574440446044444445555544444462222044455555442202222262440555557442462744522245222222447555625522754222422555454425552542022455555557644525644245555545555445454422555555455554555554755555555554455555555555522444555575554224222222245555555C &X`(O$ X] D$ X< 1 1 1 1 2 1 5 1 1 1 1 3 3 2 2 1 1 1 1 3 1 3 3 1 2 1 2 2 1 2 4 2 5 2 11 2 2 2 3 1 1 3 2 2 3 1 5 5 2 1 1 1 2 128 3 4 5 3 11111 2 2 2 2 1 1 1 2 4 2 2 2 5 11 3 2 3 3 174 2 2 1 6 2 2 1 2 4 1 2 2 2 3 3 2 2 1 2 3 8 5 3 1 2 2 2 3 2 123 1 1 11 1 2 3 3 3 2 3 1 1 1 2 1 2 2 1 1 1 1 3 2 1 3 2 1 1 3 3 1 1 1 8 3 1 1 1 2 2 1 1 2 3 3 1 1111 1 2 1 1 2 1 2 2 1 1 2 1 1 1 2 1 2 2 2 2 N$ X) p t B v d s S N f g c n h j W m E X.dP X.^V8>HP$ -XSg/ FRANCE PRUSSIA AUSTRIA BRITAIN MAP @?9yB<|<@~||ǓaBB@<~~?UUUUUUUUUUUUUUUUUUUU? UUUUUUUUUUUUUUUUUUUU??#>?|????????8??8??p?>?=p???|@? #