P728 CEEFAX 728 Wed 3 Feb 21:00/00 |B2201204|a15Arena|i14BBBC|m10÷e÷Xd÷t÷L **********************÷e÷Xn÷t÷L * ARENA *÷e÷Xx÷t÷L * by Daniel Ta ng *÷e÷X—*÷t÷L * (c) The Micro User *÷ e÷X—4÷t÷L **********************÷e÷X—>÷u ÷F —- ÷C7:÷N:÷I" at line ";—F:÷8÷e÷X—H÷n ÷Jos(" NBD Combat")÷e÷X—R÷i÷M ÷C7:÷Ninst :÷C1÷e÷X—\÷j÷+=&2A00:÷Jsetup÷e÷X—f÷l÷M ÷ Jchars:÷Jscreen÷e÷X—p÷t÷. call:÷? C%=0 C %=1:÷=—5dH@÷e÷X÷*÷m÷? ?&8F=3 ÷Jdraw:÷U—K ÷e÷X÷4÷t÷Jexplode:÷U n1%>9 —, n2%>9÷e÷X÷ >÷k÷Lend(n1%>9):÷U —K÷e÷X÷H÷h÷5÷Jsetup:C %=0÷e÷X÷R÷tcall=&2D46:x1=&72:y1=&73÷e÷Y÷ \÷ux2=&74:y2=&75:n1%=0:n2%=0÷e÷Y÷f÷k÷G23 ;8202;0;0;0;÷e÷Y÷p÷o?&C70=&10:?&C72=&F6÷ e÷Yb÷u?&C73=&FF:?&C74=5:?&C76=2÷e÷Y,÷o?& C80=&10:?&C82=&F6÷e÷Y6÷u?&C83=&FF:?&C84= 5:?&C86=2÷e÷Y@÷o?&C90=&11:?&C92=&F6÷e÷YJ ÷o?&C93=&FF:?&C96=1:÷9÷e÷YT÷c÷5÷Jchars÷e ÷Y^÷q÷;A%=&B00—|—&C00:?A%=0:÷E÷e÷Yhd÷G23 ,128,&1F07;&7F3F;&FF7F;&FFFF;÷e÷Yrd÷G23, 129,&F8E0;&FEFC;&FFFE;&FFFF;÷f÷Y||$÷G23, 130,&FFFF;&7FFF;&3F7F;&071F;÷e÷Y—.$÷G|c
P728 CEEFAX 728 Wed 3 Feb 21:00/00 |B2202204131,& FFFF;&FEFF;&FCFE;&E0F8;÷e÷Y—8d÷G23,159,& FFFF;&FFFF;&FFFF;&FFFF;÷e÷Y—B÷ec$=—e159: ÷9÷e÷Y—L÷r÷5 ÷Jscreen:÷3:÷G19,7,0;0;÷e÷Y —V*÷S 1:÷I—12"Player 1"—17"Games"—17"Pla ydr 2b÷e÷Y—|—÷n÷S 2:÷I—16;n1%—126;n2%÷e÷ Y—j÷h÷S 7:d$=c$+c$÷e÷Y—t÷l÷I—e128—l37,c$ )—e129÷e÷Y÷.÷o÷;A%=2—|—28:÷Id$—135d$:÷E÷ e÷Y÷8÷l÷I—e130—l37,c$)—e131÷e÷Y÷B÷h÷G19, 7,7;0;:÷9÷e÷Y÷L÷l÷5 ÷Jexplode:÷> 3,7÷e÷Y ÷VV÷? ?&8F=1 X%=?x1*16:Y%=1024- ?y1*4):n 2%=n2%+1 —3 X%=?x2*16:Y%=1024- ?y2*4):n1 %=n1%+1÷e÷Z÷|—÷rv=-15:i=0.125:s=30:d=0÷e ÷Z÷j÷v÷; A%=220—|—90—0-5:v=v+i:d=d+s÷e÷Z ÷t÷w÷Jdots:X%=X%+4:÷Jdots:X%=X%M4÷e÷Z&÷r ÷, 1,0,A%,0:÷, &10,v,7,3÷e÷Z0÷w÷Jdots:X% =X%+4:÷Jdots:X%=X%-4÷e÷Z:÷es=s-1:÷E:÷9÷e ÷ZD÷c÷5 ÷Ldots÷e÷ZN÷u÷H69,X%,Y%+d:÷H69,X %,Y%+d+4÷e÷ZX÷u÷H69,X%+d,Y%:÷H69,X%+d,Y% +4÷e÷Zb÷u÷H69,X%,Y%-d:÷H69, &,Y%-d+4÷e÷Z l÷u÷H69, $-d,Y%:÷H69,X%-d,Y%+4÷e÷Zv÷]÷9÷ e÷Z—(÷c÷5 ÷Jdraw÷e÷Z—2÷j÷; A%=1 —|— 3:÷S 2÷e÷Z—<÷j÷I—217,1)"Draw!b÷e÷Z—F÷q÷,|c
P728 CEEFAX 728 Wed 3 Feb 21:00/00 |B2203204|a15Arena|i14BBBC|m35A5 1,-15,2 10,2:÷Jw(.45)÷e÷Z—P÷l÷I—217,1)—13:÷Lw(.5 )÷e÷Z—Z÷#÷E:÷9÷e÷Z—d÷m÷5 ÷Jw(t):t=t*100+ —9÷e÷Z—n÷e÷M ÷U —9>t:÷9÷e÷Z÷(÷n÷5 ÷Nhnst :÷; Y%=0 —|— 1÷e÷Z÷2÷t÷G31,0,Y%,141,129, 157,135÷e÷Z÷<÷i÷I—114"Arena":÷E÷e÷Z÷F÷p÷ I—113"by Daniel Tang"÷e÷Z÷P÷t÷I''—14"Pla yer 1 controls"÷e÷[÷Z÷q÷I'—19"A M Thrust down"÷e÷[÷d÷n÷I—19"Z M Thrust upb÷e÷[÷n ÷i÷I—19"X M Fire"÷e÷[ ÷t÷I''—14"Player 2 controlsb÷e÷[*÷q÷I'—19"S M Thrust down" ÷e÷[4÷n÷I—19"> M Thrust up"÷e÷[>÷i÷I—19" < - Fireb÷e÷[H÷p÷G31,0,23,129,157,135÷e÷ [R÷t÷I—16"Do you want sound?";÷e÷[\÷k÷M A%=—O"YyNn",—f)÷e÷[f÷r÷U A%>0:÷G23;8202; 0;0;0;÷e÷[p÷q÷Jos(bFX210,"+—k(A%—)2))÷e÷ [z÷w÷I—29,23)"Press space to go";÷e÷[—,÷ f÷M ÷U —M=32:÷9÷e÷[—6÷p÷5 ÷Jos($&700):÷B $,Y%÷e÷[—@÷iY%=7:÷.&FFF7:÷9÷e÷[—L÷r÷5 ÷Lend(A%):÷Jw(3):*FX21÷e÷[—T a$="You win Player "+—k(2+A%)÷e÷[—^÷e÷I—210,15);÷e÷ [—h÷i÷; A%=1 —|— —Q ad÷e÷[—r÷lB%=—?—ia$, A%):÷G B%÷e÷[÷,÷t÷,0,15*(B%>32),2,1:|c
P728 CEEFAX 728 Wed 3 Feb 21:17/10 |B2204204|a15Arena|i14BBBC|m385B÷Lw(.5)÷ e÷[÷6÷g÷E:÷Jw(3.5):÷9÷e÷W|c
P728 CEEFAX 728 Wed 3 Feb 21:00/20 |B2204204|a15Arena|i14BBBC|m385B÷Jw(.5)÷ e÷[÷6÷g÷E:÷Jw(3.5):÷9÷e÷W|c