ZXTape! 0Created with Ramsoft MakeTZXD.N.P.G. q'lb9q1:7: /10 ,4;1;"LOADING GRAPHICS" """A",21*8 0:0: 9700% 236099\,20 23658j\,8 *2000  J=0 FREE=0 DOUBLE=0  X=502  Y=40(  Z=0  ONE=1 TEN=10 THIRD=ONE/3 !PAYT=4E3 "PAY=Z #MORT=2E3 $UMORT=8E3@ (BUILD=5E3 -SELL=6500d 2QBUY=900 7 A$(ONE) <RENT=1E3 AM(Y) BLIST=3E3 FCHANCE=7E3X KPASSGO=8900" PINCOME=8950" USUPER=8980# ZQUIT=8400 _CHEST=7500L `BUY=6E3p aTRANS=6250j bPROP=700 cQPRO=6010z eP$(Y,23) fINIT=9E3(# gPLAY=500 jJAIL=85004! kFLAG=Z !"HOW MANY PLAYERS? (2 TO 6) ";N =0,23;" ";1,23;" " N<2N>6130 T(N) S(N) J(N) E(N) F(N) I(N) 4,4;"O.K." INIT PL=PLAYER PLAYER=PLAYER+ONE PLAYER>N PLAYER=1 S(PLAYER)210 (I(PLAYER)I(PLAYER)=I(PLAYER)+1 DOUBLEPL=PLAYERQUIT DOUBLE=Z TURN=ONE ,6c=418:c,3;" ":c -22:7:9 ,23;"OPTIONS:" .11 ,23;"L:LIST ";12 ,23;"M:MORTGE";13 ,23;"B:BUY ";14,23;"S:SELL ";15,23;"H:HOUSES";16,23;"U:UNMORT";17,23;"Q:QUIT " 0[18,23;"T:TAPE ";19,23;"R:RESET ";20,23;" " 10:9 7T(PLAYER)=B(PLAYER)+V(PLAYER) @A(PLAYER);9 ;3,3;" PLAYER NO. ";PLAYER;" " J*5,3;"YOU HAVE:`";B(PLAYER) T)6,3;"PROPERTY:`";V(PLAYER) ^&7,3;"TOTAL:`";T(PLAYER) cSB(PLAYER)YPASSGO l+J=1502:J=0:200 n11 ,3;1;"YOU LANDED ON ";1;L(PLAYER);12 ,3;1;P$(L(PLAYER))(4):P$(L(PLAYER))(1)="0"1;11 ,18;" " q 20 vXGROUP=(P$(L(PLAYER))(3)):GROUP=GROUP-127:GROUP=-25GROUP=0 GROUP=24 CHEST GROUP=15CHANCE GROUP=25SUPER #GROUP=74JFREE=0JAIL FREE=0 GROUP=23INCOME GROUP=37%980 GROUP980 PROP  8215 QQ=700+(GROUP*TEN) QQ HP=X  GS=.5  8204 HP=Z GS=.25~  8204 HP=X  GS=THIRD  8204 HP=100d  GS=THIRD  8204 HP=Z  GS=.5  8204 HP=100d  GS=THIRD  8204 HP=150  GS=THIRD  8204  HP=150  GS=THIRD  8204 HP=200  GS=THIRD  8204  HP=200 ! GS=.5 4 5O(L(PLAYER))QBUY >O(L(PLAYER))PLAYERRENT H#13 ,3;"YOUR PROPERTY" M"PRESS ENTER TO CONTINUE ";A$ RD L14,3;" FOR SALE ";15,3;"AT `";P(L(PLAYER)) #B(PLAYER)P(L(PLAYER))930 814,3;1;2;"NOT ENOUGH CASH "  FLAG=ONE "PRESS ENTER TO CONTINUE ";A$ D "WILL YOU BUY? (Y OR N) ";A$; A$"Y"A$"B"D L17,3;" SOLD ":502:B(PLAYER)=B(PLAYER)-P(L(PLAYER)) O(L(PLAYER))=PLAYER "V(PLAYER)=V(PLAYER)+P(L(PLAYER)) $G(GROUP,PLAYER)=G(GROUP,PLAYER)+GS /G(GROUP,PLAYER).9ffffG(GROUP,PLAYER)=ONE `G(GROUP,PLAYER)=ONE16,3;" COMPLETING ";17,3;" YOUR SET "  30 D OWNER=O(L(PLAYER)) 13 ,3;"IT BELONGS TO";14,3;"PLAYER NO. ";OWNER;;15,3;"YOU MUST PAY ";16,3;"`"; M(L(PLAYER))1020 ("O";16,3;"`0:(MORTGAGED)"  1098J GROUP=21100L GROUP=51200  1250 8REN BB(PLAYER)=B(PLAYER)-REN EB(OWNER)=B(OWNER)+REN J"PRESS ENTER TO CONTINUE";A$ KD L)SN=(4*G(2,OWNER)+.5) VREN=12.5H ` C=ONESN jREN=REN*2 tC y"16,3;"(";SN;" STN"; zSN>ONE"S"; { ") `"; ~ 10808 )G(5,OWNER).6FACT=3 %G(5,OWNER).9ffffFACT=TEN REN=FACT*(D1+D2)  10808 REN=L(PLAYER) REN=REN+(REN/10 ) H(L(PLAYER))>Z1290  *G(GROUP,OWNER).9ffffREN=REN*2  10808  7REN=REN+(HP*1.43333^H(L(PLAYER))*1.02\)^GROUP) n 10808 &10 ,3;"MORTGAGE " QPRO PLAYERO(C)6900 M(C)2500 PROP H(C)2600( 4 M(C)=ONE >"V(PLAYER)=V(PLAYER)-P(C)/2 HPAY=P(C)/2 RPAYT D 116,3;1;2;"MORTGAGED" A$ D (,15,3;"IT HAS ";H(C);" HOUSES" 2&16,3;"SELL HOW MANY? "; <A FA GQA>H(C)18,3;1;" IMPOSSIBLE ":100d:300, HXH(C)=5F(PLAYER)=F(PLAYER)-1:E(PLAYER)=E(PLAYER)+(5-A):2640P J%H(C)<5E(PLAYER)=E(PLAYER)-A P H(C)=H(C)-A UV(PLAYER)=V(PLAYER)-A*HP ZPAY=A*HP/2 dPAYT "PRESS ENTER TO CONTINUE";A$ D YES=0 63,3;PLAYER;"PLAYER ";PLAYER;" OWNS;- " 6c=418:c,3;" ":c q=4 C=ONEY O(C)PLAYER3020 YES=YES+1 C C=1Y O(C)PLAYER3200 ]q,3;PLAYER;P$(C)(12):q=q+1:1;q,3;p$(C)(4) YES=YES-1 3M(C)q+1,3;"MORTGAGED":q=q+1 ֊H(C)q=q+1:4;q,5;"WITH:";H(C);" HOUSE";:H(C)>14;"S":H(C)=52;q,10 ;"AN HOTEL" q=q+1 q16C Cq17YES>0"PRESS ENTER TO CONTINUE ";A$:3080  3200 Dq=4:w=418:W,3;" ":w:C C=Y C "O.K.? ";A$ D B(PLAYER)=B(PLAYER)+PAY  PAY=0   4  xx=23  Gc=05:4500+(5*((*6))):4530:c #((d1-1)*5)+4500 , xx=27 1Gc=05:4500+(5*((*6))):4530:c 6#((d2-1)*5)+4500  7  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  0,xx;"" 1,xx;"" 2,xx;"" 3,xx;""  10 ,3;"BUILD ON" QPRO M(C)5030  2500 &G(GROUP,PLAYER)<.9ffff6400 H(C)56400 PROP B(PLAYER)>HP5080 B17,3;2;1;"NOT ENOUGH CASH":100d D H(C)=H(C)+ONE B(PLAYER)=B(PLAYER)-HP V(PLAYER)=V(PLAYER)+HP H(C)=55150 E(PLAYER)=E(PLAYER)+ONE  D F(PLAYER)=F(PLAYER)+ONE (E(PLAYER)=E(PLAYER)-4 2D p10 ,3;"BUY" rQPRO s 6080 yQPRO z12 ,3;" ";13 ,3;" ";11 ,17;" ";11 ,3;"PROPERTY NO.? "; C:C>40(6020 C<2C=3C=5C=8C=11 C=18C=21C=23C=31C=34"C=37%C=39'17,3;2;1;" IMPOSSIBLE ":1;18,3;P$(C)(4):100d:300, C ,1;12 ,3;P$(C)(4) 13 ,3;"THIS ONE?" "(Y OR N) ";A$ "A$="Y"13 ,13 ;"YES" ,A$="N"13 ,13 ;"NO ":30 A$"Y"6010z PGROUP=(P$(C)(3)):GROUP=GROUP-127:GROUP=-95_GROUP=0  GROUP6400 GROUP>TEN6400  OWNER=O(C) )17,3;"OWNER IS NO. ";OWNER OWNER FLAG6400 OWNERPLAYER62008 C17,3;2;1;"IT IS YOURS ":20  D 8PROP 9BUYER=PLAYER BTRANS GFLAG=Z LD t"ENTER PRICE `";PRICE OWNER6290 PRICE>B(BUYER)6420 B(OWNER)=B(OWNER)+PRICE "G(GROUP,OWNER)=G(GROUP,OWNER)-GS 5V(OWNER)=V(OWNER)-P(C)+(P(C)*M(C)/2)-H(C)*HP H(C)>46288 E(OWNER)=E(OWNER)-H(C) B(BUYER)=B(BUYER)-PRICE  O(C)=BUYER "G(GROUP,BUYER)=G(GROUP,BUYER)+GS 5V(BUYER)=V(BUYER)+P(C)-(P(C)*M(C)/2)+H(C)*HP H(C)>46370 E(BUYER)=E(BUYER)+H(C)  F(BUYER)=F(BUYER)+ONE F(OWNER)=F(OWNER)-1 D 817,3;1;2;" IMPOSSIBLE "  100d  D 817,3;1;2;"NOT ENOUGH CASH " .18,3;"IS `";B(BUYER);" ENOUGH?" ("(Y OR N) ";A$ 2A$"Y"6490Z <PRICE=B(BUYER) F 6280 Z d10 ,3;"SELL" nQPRO xO(C)PLAYER6900 }PROP OWNER=PLAYER D15,3;"SELL TO PLAYER";16,3;"NUMBER?..."; A A AN6400  BUYER=A TRANS D 816,3;1;2;"IT'S NOT YOURS "  150 D ['9 ,23;1;" CHANCE " \9C=11 20:C,23;1;" ":C ^@CARD=(*16)+ONE:1:CHANCE+CARD*10 :0 _PAYT `"PRESS ENTER TO CONTINUE ";A$ aD b11 ,23;"THE BANK";12 ,23;"PAYS YOU";13 ,23;" A";14,23;"DIVIDEND";15,23;" OF `50" cPAY=502 k l=11 ,23;"SPEEDING";12 ,23;"FINE `15" mPAY=-15 u vw11 ,23;"ADVANCE ";12 ,23;"TO TRAF-";13 ,23;" ALGAR ";14,23;"SQUARE" wDEP=L(PLAYER) xL(PLAYER)=25 y"DEP<250:620l zL(PLAYER)=65A {0:610b [11 ,23;"ADVANCE ";12 ,23;" TO ";13 ,23;"MAYFAIR "  L(PLAYER)=Y 0:620l [11 ,23;"DRUNK IN";12 ,23;" CHARGE.";13 ,23;"FINE `20" PAY=-20  \11 ,23;"ADVANCE ";12 ,23;"TO PALL ";13 ,23;" MALL " DEP=L(PLAYER) L(PLAYER)=12 "DEP<12 0:620l L(PLAYER)=524 0:610b y11 ,23;"GET OUT ";12 ,23;" OF ";14,23;" ";15,23;" " J(PLAYER)=J(PLAYER)-ONE  11 ,23;"YOUR ";12 ,23;"BUILDING";13 ,23;"LOAN ";14,23;"MATURES.";15,23;"RECEIVE ";16,23;" `150 " B(PLAYER)=B(PLAYER)+150  =11 ,23;"GO BACK ";12 ,23;"3 SPACES" L(PLAYER)=L(PLAYER)-3 &L(PLAYER)T(C)8460 ! TOPT=T(C) ! WINNER=C ! C !?c=318:c,3;2;" ":c !6,3;1;2;" PLAYER ";WINNER;" WON ";0;8,3;" WITH ASSETS OF";9 ,3;" `";TOPT ! "ANOTHER GAME? ";A$ !*A$="Y"10 !//A$="N""SAVE ON TAPE";A$:A$="Y"9900& !0 A$="N" !1A$"N"A$"Y"8480 ! !4I(PLAYER)=I(PLAYER)+1 !5L(PLAYER)=11 !I 8630! !J 620l !RB(PLAYER)49117,3;1;2;"NOT ENOUGH CASH":100d:I(PLAYER)=4S(PLAYER)=0:200 !$17,3;" PAID `50 " !$18,3;" RELEASED " !X=502:PAY=-X !PAYT !J=0:I(PLAYER)=Z !X4,23;" ";5,23;" ";6,23;" " !+DOUBLE=3DOUBLE=0:200 ! !J(PLAYER)-117,3;" GET OUT OF ";18,3;" JAIL FREE ":"PRESS ENTER TO CONTINUE ";A$:J(PLAYER)=J(PLAYER)+1:FREE=1:I(PLAYER)=0:620l !9 ,3;" ";8,11 ;"IN":"PRESS ENTER TO CONTINUE ";A$:DOUBLE<3DOUBLE>0I(PLAYER)=0 !g4,23;"THIS IS ";5,23;"TURN ";I(PLAYER)-1;6,23;"IN JAIL." !!"ENTER P IF YOU WISH TO PAY";A$ !X4,23;" ";5,23;" ";6,23;" " ! J=1 !A$="P"8530R! ! "L(PLAYER)=L(PLAYER)-Y "PAY=200 "PAYT "/.5,25:G=40-1 "V=04:V;9 ;4,23;"COLLECT ";5,23;"`200 FOR";6,23;"PASSING ";7,23;" GO " "V "G "u4,23;" ";5,23;" ";6,23;" ";7,23;" " " "f13 ,3;"INCOME TAX `200";14,3;"AUTOMATICALLY";15,3;"DEDUCTED" #PAY=-200 #PAYT # "PRESS ENTER TO CONTINUE ";A$ # 300, #c13 ,3;"SUPER TAX `100";14,3;"AUTOMATICALLY";15,3;"DEDUCTED" #PAY=-100d #PAYT #A$ # 300, #(B(N) #*V(N) #+L(N) #, G(TEN,N) #- PLAYER=Z #. D=300, #/O(Y) #0P(Y) #1 C=ONEN #2B(C)=1500 #AT(C)=B(C)+V(C) #F L(C)=ONE #K S(C)=ONE #ZC #[H(Y) #d#P$(ONE)="01GO " #n'P$(2)="02OLD KENT RD " #x'P$(3)="03COMMUNITY CHEST " #'P$(4)="04WHITECHAPEL RD " #'P$(5)="05INCOME TAX `200 " #'P$(6)="06KINGS CROSS STN." #'P$(7)="07ANGEL ISLINGTON " #'P$(8)="08CHANCE " #'P$(9 )="09EUSTON ROAD " #(P$(10 )="10PENTONVILLE RD " #(P$(11 )="11THE JAIL " #(P$(12 )="12PALL MALL " #(P$(13 )="13ELECTRIC COMPANY" #(P$(14)="14WHITEHALL " #(P$(15)="15NORTHUMBERLAND " #(P$(16)="16MARYLEBONE STN. " $(P$(17)="17BOW STREET " $(p$(18)="18COMMUNITY CHEST " $(P$(19)="19MARLBOROUGH ST. " $"(P$(20)="20VINE STREET " $,(P$(21)="21FREE PARKING " $6(P$(22)="22STRAND " $@(P$(23)="23CHANCE " $J(P$(24)="24FLEET STREET " $T(P$(25)="25TRAFALGAR SQUARE" $^(P$(26)="26FENCHURCH STN. " $h(P$(27)="27LEICESTER SQUARE" $r(P$(28)="28COVENTRY STREET " $|(P$(29)="29WATER WORKS " $(P$(30)="30PICCADILLY " $( P$(31)="31 GO TO JAIL " $(P$(32 )="32REGENT STREET " $(P$(33!)="33OXFORD STREET " $(P$(34")="34COMMUNITY CHEST " $(P$(35#)="35BOND STREET " $(P$(36$)="36LIVERPOOL ST STN" $(P$(37%)="37CHANCE " $(P$(38&)="38PARK LANE " $(P$(39')="39SUPER TAX `100 " $!P$(Y)="40MAYFAIR " %P(2)=60< %P(4)=60< %P(6)=200 %P(7)=100d %P(9 )=100d %P(TEN)=120x %P(12 )=140 %P(13 )=150 %P(14)=140 %P(15)=160 %P(16)=200 %P(17)=180 %P(19)=180 %P(20)=200 %P(22)=220 %P(24)=220 %P(25)=240 %P(26)=200 %P(27)=260 %P(28)=260 %P(29)=150 %P(30)=280 %P(32 )=D %P(33!)=D %P(35#)=320@ %P(36$)=200 %P(38&)=350^ %P(Y)=400 % % 9745& %0,0 %N0,175:177,0:0,-175:-177,0 %%0,17:175,0 %&0,159:175,0 %&159,0:0,175 %%17,0:0,175 %$0,33!:17,0 %$0,491:17,0 %$0,65A:17,0 %$0,81Q:17,0 %$0,96`:17,0 %%0,112p:17,0 %%0,128:17,0 %%0,143:17,0 %$33!,0:0,17 %$491,0:0,17 %$65A,0:0,17 %$81Q,0:0,17 %$96`,0:0,17 %%112p,0:0,17 %%128,0:0,17 %%145,0:0,17 &&33!,159:0,16 &&491,159:0,16 &&65A,159:0,16 &&81Q,159:0,16 &&96`,159:0,16 &'112p,159:0,16 &'128,159:0,16 &'143,159:0,16 &'176,33!:-17,0 & '176,491:-17,0 & '176,65A:-17,0 & '176,81Q:-17,0 & '176,96`:-17,0 & (176,112p:-17,0 &(176,128:-17,0 &(176,143:-17,0 & &86:20,6;"";21,6;"" &-0,4;"";1,4;"" &112 ,20;"";13 ,20;"" &!1:21,0;"||" &20,0;"" & 4:0,0;"" &1,0;"" &%7:20,16;"C" &21,17;"C" &6,20;"C" &7,21;"C" &6,0;"C" &7,1;"C" &+0:6:16,1;"" &17,1;"" & *1:6:16,20;"" &!20,12 ;"" &"50,16;"W";1,17;"W" &#+2:7:10 ,20;"" &$20,10 ;"" &%10 ,0;"" &&0,10 ;"" &'20,20;"" &(21,20;"" &)/0,20;"";1,20;"" &*"20,18;3;" 2" &+"20,14;3;" 4" &,!20,2;5;"10" &-!20,4;5;" 9" &.!20,8;5;" 7" &/!18,0;3;"12" &0!12 ,0;3;"15" &1!14,0;3;"14" &2 4,0;2;"19" &3 8,0;2;"17" &4 0,2;2;"22" &5 2,0;2;"20" &6 0,8;2;"25" &7 0,6;2;"24" &8!0,12 ;6;"27" &9!0,18;6;"30" &:!0,14;6;"28" &;!2,20;4;"32" &"18,20;1;"40" &?"14,20;1;"38" &@_180,0:75K,0:0,105i:-75K,0:0,-105i &A&180,92\:75K,0 &Bg0,23;1;7;"  1982 ";1,23;1;7;"Workforce" &CT10 ,5;1;" DO NOT ";11 ,5;" PASS GO " &D 0: 'H"GAME"9995 ':.5,20:"GRAPHICS""a",21*8 '.5,20: '10 ,10 ;"SAVED" ' -21,0;"USE VERIFY"""" TO CHECK" '  ' """:0:0:7: ' 9700%:300, ' "D.N.P.G."1 '""GRAPHICS""A",21*8 jreoublx2y(zne hir*ayaormor@uileldbu en(is hancXassg"ncom"upe#ui hesLupranjroprzН( ni(#laai4!laGRAPHICS X'yR"("]UU6@Ph8-><  `000`vEeFEEEwDDfDDwbUUeGEEeUUfUUU"UEEUU2r%%%%%"8|8||8  |8