=*,'H?m,6LgD:\ oN  @W P P PM3|m2mm3]|m3,'q}Rv>>BB<DHpHDB@~BfZBBBBbRJFB>>@@@@|~|>>>BB@@DB@<<~~BB@<B<<<B<|B (BB@b@88D88(BB8(8B<|R<DT BB0D >BBJxT< *|B<0x BBFB@TD D@ZD(@ B><<<B< <(< :@$< $< <\# # <@T2 mm\\\^\wmzm]m|m|mm\apX![!PP!!i$W K SR P U$="1":D$="q":L$="a":R$="s" LEV=1:X$="EASY"  Q$="8":A$="i":O$="k":P$="l"  PL=1 0:7:0: %0,8;"---CYCLE TRAP---" 121,3;"1986 N.Stewart & P.Walker." A=17 (""1000 2.02{# =,10 :A < 25 OLEV=3550& d n_0,0:255,0:0,175:-255,0:0,-175 xX=31:Y=87W A=224:B=87W XPOS=8:APOS=5 X,Y:A,B =U$XPOS=7 =D$XPOS=6 =L$XPOS=5 =R$XPOS=8 =Q$APOS=7 =A$APOS=6 =O$APOS=5 =P$APOS=8 XPOS=7Y=Y+1 XPOS=6Y=Y-1 XPOS=5X=X-1 XPOS=8X=X+1 APOS=7B=B+1 "APOS=6B=B-1 ,APOS=5A=A-1 6APOS=8A=A+1 @=" "1000 J(X,Y)1,8;"PLAYER 2 WINS !":0:0:1000 J(A,B)1,8;"PLAYER 1 WINS !":0:0:1000 +LEV=1.01z# =,0:150 ,LEV=2.005y# =,0:150 LEV=3150  150  _0,0:255,0:0,175:-255,0:0,-175 X=31:Y=87W A=224:B=87W XPOS=8:APOS=5 & X,Y:A,B 0=U$XPOS=7 :=D$XPOS=6 D=L$XPOS=5 N=R$XPOS=8 XCOMPUTER THINKING b+(A-1,B)APOS=5APOS=7 l+(A+1,B)APOS=8APOS=6 v+(A,B-1)APOS=6APOS=5 +(A,B+1)APOS=7APOS=8 XPOS=7Y=Y+1 XPOS=6Y=Y-1 XPOS=5X=X-1 XPOS=8X=X+1 APOS=7B=B+1 APOS=6B=B-1 APOS=5A=A-1 APOS=8A=A+1 =" "1000  H(A,B)1,8;"PLAYER 1 WINS":0:0:1000 H(X,Y)1,8;"COMPUTER WINS":0:0:1000 +LEV=1.01z# =,0:550& ,LEV=2.005y# =,0:550&  550&  !0,5;" " !1,5;" " !2,5;" " 1,6;"CYCLE TRAP" 0,20;"" 1,20;" " $2,20;"" .1,21;X$ 8(5,6;"C...CHANGE CONTROLS" B#7,6;"S...START GAME" L'9 ,6;"0...CHANGE COLOURS" V&11 ,6;"L...SELECT LEVEL" `(13 ,6;"P...NO. OF PLAYERS" j="c"2000 t="s"PL=2100d y="s"PL=1500 ~="0"3000 ="l"3500 ="p"4000 #21,8;"PLAYERS:- ";PL  1130j  0,10 ;"CONTROLS" :5,5;"PLAYER 1";5,15;"PLAYER 2" z7,5;U$;"...UP";9 ,5;D$;"...DOWN";11 ,5;L$;"...LEFT";13 ,5;R$;"...RIGHT" ~7,15;Q$;"...UP";9 ,15;A$;"...DOWN";11 ,15;O$;"...LEFT";13 ,15;P$;"...RIGHT"  "CHANGE CONTROLS ? (Y/N) ";Z$ Z$="N"z$="n":1000 Z$="Y"z$="y"2030 .5,10 :2019 "PLAYER 1. UP ? ";U$ "PLAYER 1. DOWN ? ";D$ "PLAYER 1. LEFT ? ";L$  "PLAYER 1. RIGHT ? ";R$ "PLAYER 2. UP ? ";Q$  "PLAYER 2. DOWN ? ";A$ *"PLAYER 2. LEFT ? ";O$ 4"PLAYER 2. RIGHT ? ";P$ >:1000  "PAPER ? ";P "INK ? ";I "BORDER ? ";B P:I:B::1000 .1}L,10 5LEV=1X$="FAIR":LEV=LEV+1:1000 5LEV=2X$="HARD":LEV=LEV+1:1000 1LEV=3X$="EASY":LEV=1:1000 $PL=1PL=2:1000 $PL=2PL=1:1000 exyXbWpopoU1DqLaRsXEASYQ8AiOkPl"" {# =] CLE TRAP> s