White City]#]#_#WWhite City by N.M. Gardner from Sinclair User, Feb'85 ;23658j\,8:1:4:4:9 : 0p=100d:w=1:nm=23:k=4 '"Enter your name as 3 initials ";k$ o=k$ o<3o>35 o=34000  5 DEFINE GRAPHICS /f=07:a:"a"+f,a:f:n(7) #f=07:a:"r"+f,a:f #f=07:a:"s"+f,a:f #f=07:a:"t"+f,a:f #f=07:a:"u"+f,a:f #f=07:a:"q"+f,a:f #f=07:a:"p"+f,a:f  PRINT GAME {s=2633!1:g=01:6;9 +g*8,0;"":g Pl=2:f=8+l13 +l1:l;f,0;"":l=l+1:f D0;11 ,0;"":1;12 ,0;"" #d5;2;0,21;"AC/";k$:0;7;0,27;"`";p:500 (f=021:1;7;16,f;" ":.01z# =,45-:f:2;1;16,22;"":f=2330:1;7;16,f;" ":.01z# =,45-:f:16,31;" ":100d:200 -Xl=0:a=0:b=0:c=0:q=0:x=0:z=0:y=0 / 0 DOG RACE 6#i=(*7)+9 :300, 7Pa=20b=20c=20q=20x=20z=20600X+l c 546 du=30-1:t=1510 -1:t,u;" ":t:u:1;2;16,22;"":0;17,22;"" m 2;10 ,0;"":0;11 ,0;"":1;12 ,0;"":5;13 ,0;"":6;14,0;"":7;15,0;"": ,i=12 1;12 ,a;" ":k:1;12 ,a;" ":k:1;12 ,a;" ":k:1;12 ,a;" ":k:a=a+1: -i=10 2;10 ,b;" ":k:2;10 ,b;" ":k:2;10 ,b;" ":k:2;10 ,b;" ":k:b=b+1: .i=11 0;11 ,c;" ":k:0;11 ,c;" ":k:0;11 ,c;" ":k:0;11 ,c;" ":k:c=c+1: /i=13 5;13 ,q;" ":k:5;13 ,q;" ":k:5;13 ,q;" ":k:5;13 ,q;" ":k:q=q+1: 0i=146;14,x;" ":k:6;14,x;" ":k:6;14,x;" ":k:6;14,x;" ":k:x=x+1: 1i=157;15,z;" ":k:7;15,z;" ":k:7;15,z;" ":k:7;15,z;" ":k:z=z+1: 4 1;0,4;"":f=17:1;f,4;" ":f:1;8,4;"" K2;1;16,22;"":0;17,22;""  i=0 92;1;7;8,23;"^^FORM^^" =f=17:0;f,5;"":f !t$="WHITE CITY.....":h=1 g=1:f=271:f;9 ;f,5;"";g:g=g+1:f:0;3,5;"2":1;4,5;"3" df=271:n(f)=(*7)+3:5;f,14;n(f);:5;"/1":f jf=271:f;f,21;h;:"=";:7;3;1;f,nm;"0":h=h+1:f @0;3,21;"2":1;4,21;"3" D1;1;0;6;1,5;t$(15)  i=i+1  .008zn,*5  t$=t$(2)+t$(1)  8 i=31532 !18,10 ;"RACE NO:";w  520 X1;0;6;20,1;"SELECT TRAP....THEN PLACE BET.":0 620,1;" " TRAP SELECTION V="1"2;2,5;"T1":e=2:7;e,7;"*":550& V="2"0;3,5;"T2":e=3:7;e,7;"*":550& V="3"1;4,5;"T3":e=4:7;e,7;"*":550& V="4"5;5,5;"T4":e=5:7;e,7;"*":550&  V="5"6;6,5;"T5":e=6:7;e,7;"*":550& !V="6"7;7,5;"T6":e=7:7;e,7;"*":550& # 540 &&7;1;2;"BET `";m (m>p550& +$7;3;e,9 ;"`";m 0O0,28;" ":7;0;0,28;p-m:599W W XZa=200;4,3;"1":a=21:7;1;4,nm;"1" YZb=200;2,3;"1":b=21:7;1;2,nm;"1" ZZc=200;3,3;"1":c=21:7;1;3,nm;"1" [Zq=200;5,3;"1":q=21:7;1;5,nm;"1" \Zx=200;6,3;"1":x=21:7;1;6,nm;"1" ]Zz=200;7,3;"1":z=21:7;1;7,nm;"1" ` l=502 b Na=200;4,3;"2":2;1;4,nm;"2" Nb=200;2,3;"2":2;1;2,nm;"2" Nc=200;3,3;"2":2;1;3,nm;"2" Nq=200;5,3;"2":2;1;5,nm;"2" Nx=200;6,3;"2":2;1;6,nm;"2" Nz=200;7,3;"2":2;1;7,nm;"2" 1;0;5;2,1;"R";3,1;"E";4,1;"S";5,1;"U";6,1;"L";7,1;"T"  w=w+1 b21(2,9 )=96`1;19,8;"RETURN `";m*n(2)+m:p=p+(m*n(2)):120x:19,8;" ":800  c21(3,9 )=96`1;19,8;"RETURN `";m*n(3)+m:p=p+(m*n(3)):120x:19,8;" ":800  a21(4,9 )=96`1;19,8;"RETURN `";m*n(4)+m:p=p+(m*n(4)):120x:19,8;" ":800  q21(5,9 )=96`1;19,8;"RETURN `";m*n(5)+m:p=p+(m*n(5)):120x:19,8;" ":800  x21(6,9 )=96`1;19,8;"RETURN `";m*n(6)+m:p=p+(m*n(6)):120x:19,8;" ":800  z21(7,9 )=96`1;19,8;"RETURN `";m*n(7)+m:p=p+(m*n(7)):120x:19,8;" ":800  .p=p-m:0;7;0,28;p p10003000 (p01,0:2000  300,:j=07:j,0;" ":j:f=10 161:f,0;" ":f %519,14;" ":18,0;" " *nm=nm+1 s C4,7,30,491,0,0,0,0 I192,480,15,7,59;,64@,128,0 I12 ,30,240,224,220,2,1,0 E32 ,32 ,63?,7,11 ,8,8,6 L12 ,30,240,224,208,16,16,96` L0,60<,126~,102f,102f,126~,60<,24 $I24,24,24,24,24,24,24,24 J:1:1:9 :11 ,5;"BETTER LUCK NEXT TIME": (13 ,7;"ANOTHER GAME(Y/N)?" ="Y":1 '="N":11 ,12 ;"GOODBYE"  2020 0:0:5::1;10 ,0;" CONGRATULATIONS!! YOU ARE THE PROUD OWNER OF A GREYHOUND.":g=015:.008zn,g:g ?2;14,0;"" 0 #16,7;"PRESS ANY KEY"  1 6:6:9 : 72,2;k$;" is your a.c. which starts at"; !" `100. You have to accumulate" 8"`1000 or more to your account to buy a Greyhound." .'"If after 8 races your account stands"; 1" at `999 or less then your racing knowledge" " is not up to scratch." &''"Let somebody else have a try...." 11;18,6;"Press 'C' to start" ="C"4060  4050 4:4::22