dodgems 0 2DODGEMS P.TOLLAND  TA$(I )=(32 +(I<10 I>11 ST=0ST=10 )*111o) 6N(P)=P+(P=0)*4-(P=5)*4 DIFF=1:SC=10 6000p:5000 ( 100d Z(PY,PX)480400 dZ(PY+P(N(PP+1),2),PX+P(N(PP+1),1))491PP=N(PP+1) n?2;PY,PX;" ":PX=PX+P(PP,1):PY=PY+P(PP,2) xPX>9 PX<12 PY>9 PY<12 I$=:I$""I$=(I$*(PT=1I$="0"PT=5I$="1")):PT=PT+(I$="1")-(I$="0"):D=(I$="1")*2-(I$="0")*2:PX=PX+D*P(N(PP+1),1):PY=PY+D*P(N(PP+1),2):.01z# =,5 }(PY,PX)="+"SC=SC+10 :3,23;SC:.01z# =,9 :SC=2200*DIFFDIFF=DIFF+1:I=15:.1}L,I*2:I:30 !PY,PX;0;(143+PP) =I=1DIFF-(DIFF=2):(CY,CX)502400 Z(CY+P(N(CP-1),2),CX+P(N(CP-1),1))491CP=N(CP-1) >CY,CX;2;O$:CX=CX+P(CP,1):CY=CY+P(CP,2) CY=10 CX=10 D=(PT-CT):CT=CT+D:CY=CY+P(N(CP-1),2)*D*2:CX=CX+P(N(CP-1),1)*D*2 1O$=(CY,CX):CY,CX;2;(143+CP):I 90Z jI=14:J=14:PY,PX;(143+J):.1}L,-10 :J:I:2,-30 K2,7;1;"GAME OVER";19,2;"TRY AGAIN ? YN" 8:8:I=10 X1:1:B$(22-I*2):J=I21-I:J,I;B$:J:0:0 3=""I=I-1+(I=0)*10 :415 "N"Ʀ"n"  *******screen set-up 62:6:6::ST=0:EN=21 1:I=STEN:ST,I;A$(I);I,ST;A$(I);EN,I;A$(I);I,EN;A$(I):I:2:I=ST+1EN-1:ST+1,I;"+";I,ST+1;"+";EN-1,I;"+";I,EN-1;"+":I 7ST=ST+2:EN=EN-2:ST<11 5020 /1,23;1;1;"DODGEMS" $4,24;2;"SCORE" _180,143:71G,0:0,10 :-71G,0:0,-10 T1:176,0:79O,0:0,175:-79O,0 M$="Your car is moving clockwise and must run over all the + and avoid the jam car. Use 0&1 to move out and in" [1:I=1̱M$10 :7+I/10 ,22;M$(II+9 ):I:0 Q5110:P(4,2):I=14:P(I,1),P(I,2):I C0,-1,1,0,0,1,-1,0 O$="+":PX=10 :ST=(*5):PY=20-ST*2:CX=11 :CY=20-ST*2:PP=4:CP=2:PT=1+ST:CT=1+ST  +2:20,23;"SCREEN";DIFF P  ******define U.D.G. p26010z:I=031:N:"A"+I,N:I: zM90Z,126~,90Z,24,60<,189,255,189 O224,71G,242,255,255,242,71G,224 M189,255,189,60<,24,90Z,126~,90Z K7,226,79O,255,255,79O,226,7 ifn MxYour car is moving clockwise and must run over all the + and avoid the jam car. Use 0&1 to move out and in- O+