ZXTape!TrafCont FFH 59999_ ""traffic"60000`,2048  "control" traffic `̀ #Cb@#ba@b#a@!~(Qnf##~W W# W WaB! 6(#6( 6(#6( nf~W ~(nf~W ##~nf~W !~(8:\ݾ( nf~(~$ ~!~nf~(!f~2r~2u:x\G(~2s~2t ~2t~2s:x\G(~2v~2w ~2w~2v!r~(<^DM~( &^~((6(>-^~((6(>-  d!d6!nf~( 6-*`+"` ~nf~( nf~(  6(6-!~(BnfNF^V~( $:x\G( ( ((6-6( ((6-6( nf~((6(*`#"`KbB*`"b!d60Z1BX2JX3RX4ZX5A"Y6A2Y7A:Y8Z9Z+X,XLXKX+XXX1Z2ZFZEZYY@Z/ZhZHZiXjXXXXXqXrX$XDX4XTXZ?ZEYFY@ZYdZZBZAZ%Z&ZtZZZYRZQZ5Z6Z|ZZZYZZYZ=Z>ZHZGZ(Z/Z0ZOZYYY@,X(@( R6$6$6<$6<$6<$6<$6$6! Ͷ>6$= 6#>6$= 6 6$>6$= #6$>6$= ! Ͷ>6$= #>6$= >6$= #>6$= 6-Ͷ+control C0:0: F502:n=15:n,5;2;1;" ":n H150:n=812 :n,5;6;1;" ":n 150: G5:n=1519:n,5;4;1;" ":n ;20:.3,15:10 :.4L,-10 215,13 ;5;" TRAFFIC CONTROL " :60<:17,13 ;5;" Nick Hockaday " <60<:19,13 ;5;" Now press ENTER " ""22 =""24 d5:5: f$0,9 ;"TRAFFIC CONTROL" h;'" You are the controller of a city's traffic lights." lc" By pressing a key from 1 to 0you can change the traffic flow at the respective intersection." rw" But take care: although cars may sometimes enter the car parkthere are always cars trying to leave the car park." z" Your job is to ensure that the maximum no. of cars are ableto use the streets without a jamdeveloping. Right turns are" "banned throughout the city. If a car at an intersection has a go signal but is unable to move forward or to the left, then" D"this constitutes a jam. The car will flash and the game is over." !21,9 ;"Press ENTER" ""144 =""146 $:" There are 5 levels of play." U'" Level 1 is the easiest, goingup to level 5, which is the mostdifficult level." 0'" You will see 3 indicators on the screen." 2" The level you are playing on is at the top." ]" The number of cars currently on the streets is indicated nextto ";6;1;"C" f" The maximum no. of cars that you have had under your control is shown at ";6;1;"M" )" The higher ";6;1;"M"; " is, at the end" >"of the game, the higher your"'"TRAFFIC CONTROL ability is." C'"Now press 1,2,3,4 or 5 to pick the level you wish to play on." ""188 =""190 5l$=:l$"1"l$"2"l$"3"l$"4"l$"5"188 E4:7::a=0:m=0:l=l$:c$=" 0":m$=" 0" p=30-l*5 x60000`,0:60001a,0:60002b,0:60003c,0:60004d,0:60005e,l #n=60658606944 x=(n)/2 x=xn,2*x+1 n 60025y B0,7;6;" Car Park ";0,21;"LEVEL" 1,23;6;l j2,2;6;1;"1";2,10 ;"2";2,18;"3";2,26;"4" 7,14;6;1;"M";:15;5;1;m$:7,22;6;1;"C";:23;5;1;c$ p9 ,8;6;"Fly Over";9 ,2;1;"5";9 ,18;"6";9 ,26;"7" '12 ,8;6;"Fly Over" W16,2;6;1;"8";16,18;"9";16,26;"0" p17,9 ;7;"Nick";18,9 ;"Hocka-";19,9 ;"day";20,11 ;"1984" ,""a=1 .x=60189 0!60004d=0350^ 2x,248:.75@,7:.25~,8:.5,7:.5,5:.5,3:.5,2:1,0 427,14;6;1;1;"M" 69 ,6;7;" GAME OVER ";10 ,6;" ";11 ,6;"For new game";12 ,6;" press Z " 8""3128 9=""314: <l$=:l$"z"3128 > 100d ^+a=1.05|L,m/5:a=0 `n=1p:n b604640 d 600X n=1p:n 60538z  600X n=1p:n  300, X'c=60000`+256*60001a Z'm=60002b+256*60003c \c$=c:m$=m ^#c$<3c$=" "+c$:606^ `#m$<3m$=" "+m$:608` b47,15;5;m$;7,23;c$ d MapDebug o (#o q &w(a)=a+256*(a+1) !t$(a )=(" "a<10 )+a Z 1000 d=r=((at-22528X)/32 ):c=at-22528X-32 *r n (at=hl:100d:r,c;1;p;" "  ,0y1=172-r1*8:x1=3+c1*8 6.y2=172-r*8:x2=3+c*8 @(x2-x1)>240400 E(y2-y1)>160450 J%x1>x2x1=x1-1:x2=x2+1 O%x1y2y1=y1-1:y2=y2+1 Y%y1x2x1+1,y1:254-x1,0:0,y1:x2-1,0 Ox1y2x1,y1+1:0,174-y1:x1,0:0,y2-1 Oy1a=03000 H/hl=w(ix):de=w(ix+2):a=(ix+4) R 200  r1=r:c1=c at=de:100d  300, Tat=hl:100d ^=#0;0,0;ix;": ";at;"=";t$(r);",";t$(c); hat=de:100d r)#0;"->";at;"=";t$(r);",";t$(c); | 900 ix=ix+5 21004 p=3:ix=ix+2 #(ix+1)=04000 Bhl=w(ix):bc=w(ix+2):de=w(ix+4):a=(ix+6) 200 r1=r:c1=c at=bc:100d 300, at=de:100d  300, at=hl:100d =#0;0,0;ix;": ";at;"=";t$(r);",";t$(c); at=bc:100d )#0;"->";at;"=";t$(r);",";t$(c); at=de:100d  3#0;18;"& ";at;"=";t$(r);",";t$(c); < 900 ix=ix+7  3010 @""8000@ J%.1}L,10 :.1}L,0 =""8080  10000' #( 59999_ #2"This program is not part of the original Traffic Control."''"The scans of the listing were not perfectly legible, so I needed a program to debug the map data. This is that program."''"Now please rewind the TZX so"'"MapDebug can read the code file."'''' #< "traffic" #F