19-08-88/DARTS

Home » CEEFAX disks » telesoftware8.adl » 19-08-88/DARTS

19-08-88/DARTS

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » CEEFAX disks » telesoftware8.adl
Filename:	19-08-88/DARTS
Read OK:	✔
File size:	1AE0 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_06_02_D-MU06_02.ssd » Darts
CEEFAX disks » telesoftware8.adl » 19-08-88/DARTS

File contents

   10REM >>>>> DARTS >>>>>
   20REM    Chris Ewels
   30REM  (c) Micro User
   40MODE7:PROCreloc(&E00)
   50ON ERROR PROCerror
   60MODE 7
   70PROCinit
   80PROCinstruct
   90REPEAT UNTIL GET=32
  100MODE1:VDU19,2,7;0;19,3,2;0;
  110VDU23;8202;0;0;0;
  120RESTORE 2480
  130PROCboard
  140PRINT'" DARTS" 
  150COLOUR2:PRINT" -----":COLOUR3
  160PRINT"  By C.Ewels"
  170PROCdatainput
  180PROCd(1):PROCd(2)
  190play=(A$="1")
  200first(1)=TRUE:first(2)=TRUE
  210REPEAT FOR L%=1 TO 2
  220PROCthrow(L%)
  230PROCm(6)
  240IF sc%(L%)=0 L%=5
  250NEXT
  260PRINTTAB(1,27)SPC10TAB(1,29)SPC10
  270UNTIL sc%(1)=0 OR sc%(2)=0
  280FORG=1 TO 30:SOUND1,-15,53,1:SOUND1,0,53,1:NEXT
  290PRINTTAB(9,28+(sc%(1)=0)*2);
  300COLOUR1:PRINT"WIN!":VDU30:GOTO140
  310DEFPROCthrow(S)
  320IF S=1 PRINTTAB(0,26)"*"TAB(0,28)SPC1
  330IF S=2 PRINTTAB(0,26)SPC1TAB(0,28)"*"
  340FOR G=1 TO 3:x%(G)=-100:y%(G)=-100:NEXT
  350FOR G=1 TO 3:*FX15
  360IF play AND S=2 PROCcomp:GOTO480
  370x%(G)=RND(500)+500:y%(G)=RND(1023)
  380PROCdart
  390REPEAT PROCdart:PROCcalc
  400x%(G)=x%(G)+RND(Lv%)-(Lv%/2)
  410y%(G)=y%(G)+RND(Lv%)-(Lv%/2)
  420fire=FALSE
  430IF joy(L%) PROCjoy ELSE PROCkey
  440IF x%(G)>1279 x%(G)=1279
  450IF x%(G)<260 x%(G)=260
  460IF y%(G)<0 y%(G)=0
  470IF y%(G)>1023 y%(G)=1023
  480PROCdart:UNTIL fire:PROCm(6)
  490SOUND1,-15,20,2:PROCscr
  500IF S=1 PRINTTAB(1+((G-1)*3),27);sc% ELSE PRINTTAB(1+((G-1)*3),29);sc%
  510IF M=0 GOTO 630
  520FOR lp%=1 TO 2
  530IF S=lp% IF first(lp%) IF M<>2 PROCm(1):lp%=5:GOTO580
  540IF S=lp% IF first(lp%) IF M=2 SOUND2,-15,73,2:first(lp%)=FALSE
  550IF S=lp% IF sc%(lp%)-sc%=0 IF M=2 lp%=6:GOTO580
  560IF S=lp% IF sc%(lp%)-sc%<2 PROCm(4):lp%=5:GOTO580
  570IF S=lp% IF sc%(lp%)-sc%<=0 IF M<>2 PROCm(2):lp%=5:GOTO580
  580NEXT
  590IF lp%=6 GOTO 630
  600IF lp%=7 G=6
  610sc%(S)=sc%(S)-sc%
  620PROCd(S)
  630NEXT
  640IF G=7 GOTO 670
  650SOUND1,-15,101,5:*FX15
  660Z%=INKEY(150)
  670FOR G=1 TO 3:PROCdart:NEXT
  680ENDPROC
  690DEFPROCscr
  700sc%=0:M=0:PROCcalc
  710FOR lp%=1 TO 6:IF ABS(Le-(MG(lp%)-4))<3 lp%=399:sc%=0 
  720NEXT
  730IF lp%=400 GOTO 760
  740lp%=(ang-9)/18+2:IF lp%>20 lp%=lp%-20
  750lp%=lp%*18-9:IF ABS(ang-lp%)<3 lp%=400
  760IF Le>MG(1) OR lp%=400 FOR T%=15 TO 0 STEP-3:SOUND0,-T%,5,2:NEXT
  770IF lp%=400 PROCm(5):ENDPROC
  780IF Le>MG(1) PROCm(3):ENDPROC
  790IF Le<MG(6) PROCbull:ENDPROC
  800IF Le>MG(6) AND Le<MG(5) FOR T%=1 TO 50 STEP 5:SOUND1,-9,T%,2:NEXT:sc%=25:M=1:ENDPROC
  810M=1
  820IF Le>MG(4) IF Le<MG(3) M=3
  830IF Le>MG(2) IF Le<MG(1) M=2
  840RESTORE 2480
  850D%=(ang-9)/18+2:IF D%>20 REPEAT D%=D%-21:UNTIL D%<21
  860FOR T%=1 TO D%:READ H:NEXT
  870sc%=H*M:ENDPROC
  880DEFPROCcalc
  890D=x%(G)-X:H=y%(G)-Y
  900Le=SQR(D^2+H^2)
  910IF D=0 IF H>0 ang=0:GOTO960
  920IF D=0 IF H<0 ang=180:GOTO960
  930IF D=0 IF H=0 Le=1:ang=0:ENDPROC
  940ang=DEGATN(H/D):ang=90-ang
  950IF ang>360 REPEATang=ang-360:UNTILang<=360  
  960IF x%(G)<X ang=ang+180
  970Le=INT(Le+.5):ang=INT(ang+.5)
  980ENDPROC
  990DEFPROCm(L%):RESTORE 2490
 1000VDU4:FOR T%=1 TO L%:READA$,B$:NEXT
 1010FOR A%=1 TO 13
 1020G$=MID$(A$,A%,1):H$=MID$(B$,A%,1)
 1030IF G$="&" G$=" "
 1040IF H$="&" H$=" "
 1050PRINTTAB(1,A%+6)G$" "H$:NEXT
 1060IF L%=3 OR L%=5 OR L%=6 ENDPROC
 1070FOR T%=20 TO 1 STEP -1:SOUND1,-15,T%,1:NEXT:G=3:ENDPROC
 1080DEFPROCbull
 1090FORT=1 TO 100 STEP 5:SOUND1,-15,T,2:NEXT:M=2:sc%=50
 1100FOR lp%=1 TO 2
 1110IF S=lp% IF first(lp%) first(lp%)=FALSE:SOUND1,-15,73,2
 1120NEXT
 1130ENDPROC
 1140DEFPROCcomp
 1150Lv%=Lv%/5-1
 1160IF first(2) Le=RND(MG(1)-MG(2))+MG(2):ang=RND(360):GOTO1220
 1170IF sc%(2)<=50 PROCout:GOTO1220
 1180Le=RND(MG(1))
 1190IF Lv%>3 IF RND(3)=1 Le=RND(MG(1)-MG(2))+MG(1)+RND((11-Lv%)*10)-((11-Lv%)*5)
 1200IF Lv%>6 IF RND(2)=1 Le=RND(MG(3)-MG(4))+MG(4)+RND((11-Lv%)*10)-((11-Lv%)*5)
 1210A%=21:REPEAT A%=A%-1:UNTILRND(11-Lv%)=1 OR A%=1:ang=FNang(A%)
 1220x%(G)=X+SINRADang*Le:y%(G)=Y+COSRADang*Le
 1230x%(G)=x%(G)+RND((11-Lv%)*4)-(11-Lv%)*2
 1240y%(G)=y%(G)+RND((11-Lv%)*4)-(11-Lv%)*2
 1250fire=TRUE:Lv%=(Lv%+1)*5:*FX15
 1260lp%=INKEY(75):REPEAT:ENDPROC
 1270DEFPROCout
 1280IF sc%(2)=50 Le=1:ang=RND(360):ENDPROC
 1290IF sc%(2)>40 ENDPROC
 1300IF sc%(2)/2<>INT(sc%(2)/2) GOTO 1320
 1310Le=RND(MG(1)-MG(2))+MG(2):ang=FNang(sc%(2)/2):ENDPROC
 1320A=RND(sc%(2)):IF A/2=INT(A/2) OR A>19 GOTO 1320
 1330ang=FNang(A):Le=RND(MG(1)):ENDPROC
 1340DEFFNang(D):RESTORE 2480:LOCALB%:B%=-1:REPEATB%=B%+1:READC:UNTILC=D:=B%*18
 1350DEFPROCd(A%):LOCAL Y%:Y%=(A%-1)*2
 1360PRINTTAB(1,26+Y%)"Player "STR$A%;
 1370PRINT"="RIGHT$(sp$+STR$sc%(A%),3)
 1380ENDPROC
 1390DEFPROCjoy
 1400LOCAL A%,B%:A%=ADVAL(0) AND 3
 1410IF A%>0 fire=TRUE:ENDPROC
 1420A%=1:B%=2:IF L%=2 A%=3:B%=4
 1430x%=-(ADVALA%-32767)DIV&800
 1440y%=(ADVALB%-32767)DIV&800
 1450x%(G)=x%(G)+x%:y%(G)=y%(G)+y%
 1460ENDPROC
 1470DEFPROCinit:@%=0:*FX4,1
 1480VDU23;8202;0;0;0;
 1490VDU&FF17;&FFFF;&FFFF;&FFFF;&FFFF;
 1500DIMA(21),B(21),x%(3),y%(3),sc%(2),MG(6),first(2),joy(2)
 1510sp$=STRING$(3," "):RESTORE 2570
 1520FOR T%=1 TO 6:READ MG(T%):NEXT
 1530FOR T%=0 TO 20
 1540A(T%)=SINRAD((T%*18)-9)
 1550B(T%)=COSRAD((T%*18)-9):NEXT
 1560FOR T%=1 TO 3:x%(T%)=-100
 1570y%(T%)=-100:NEXT
 1580X=775:Y=510:ENDPROC
 1590DEFPROCdraw(S,P,N):LOCAL A,B
 1600A=A(P)*MG(N)+X:B=B(P)*MG(N)+Y
 1610IF S=1 MOVEA,B ELSEIF S=2 DRAWA,B
 1620IF S=3 MOVESINRAD((T-1)*18)*490-20+X,COSRAD((T-1)*18)*490+Y+10
 1630ENDPROC
 1640DEFPROCkey:inc=8
 1650IF INKEY0=32 fire=TRUE
 1660IF INKEY-1 inc=inc*2
 1670IF INKEY-2 inc=inc*4
 1680IF INKEY-98 x%(G)=x%(G)-inc
 1690IF INKEY-67 x%(G)=x%(G)+inc
 1700IF INKEY-73 y%(G)=y%(G)+inc
 1710IF INKEY-105 y%(G)=y%(G)-inc
 1720IF INKEY$0=CHR$32 fire=TRUE
 1730ENDPROC
 1740DEFPROCdart:GCOL3,2
 1750MOVEx%(G),y%(G)-25:DRAWx%(G),y%(G)+25
 1760MOVEx%(G)-25,y%(G):DRAWx%(G)+25,y%(G)
 1770ENDPROC
 1780DEFPROCdatainput
 1790PRINT'"1/2 Players?"
 1800REPEATA$=GET$
 1810UNTILA$="1" OR A$="2"
 1820VDU11:PRINTSPC(12):VDU11
 1830FOR T%=1 TO VALA$:PRINT"Key/Joy >";T%
 1840REPEATS$=GET$:UNTILS$="J" OR S$="K"
 1850joy(T%)=(S$="J"):VDU11
 1860PRINTSPC(12):VDU11:NEXT
 1870PRINT"Level (0-9)":REPEATS$=GET$
 1880Lv%=VALS$+1:UNTIL Lv%>0 AND Lv%<11
 1890VDU11,11:PRINTSPC(12):PRINT"(3)01 or (5)01"
 1900REPEAT S%=GET-50:UNTILS%=1ORS%=3
 1910VDU11:PRINTSPC(14);
 1920IF S%=1 S%=301 ELSE S%=501
 1930sc%(1)=S%:sc%(2)=S%
 1940Lv%=Lv%*5:ENDPROC
 1950DEFPROCboard
 1960F=2:G=0:FORT=1 TO 20:A=F:F=G:G=A
 1970GCOL0,3:READ NU:VDU5
 1980PROCdraw(3,0,0):PRINT;NU
 1990FORlp%=1 TO 4 STEP 2
 2000PROCdraw(1,T,lp%):PROCdraw(1,T-1,lp%)
 2010GCOL0,F+1:PLOT85,X,Y
 2020PROCdraw(1,T,lp%+1):PROCdraw(1,T-1,lp%+1)
 2030GCOL0,G:PLOT85,X,Y:NEXT
 2040FORlp%=1 TO 4:PROCdraw(1,T,lp%):GCOL0,2
 2050PROCdraw(2,T-1,lp%):NEXT
 2060PROCdraw(1,T-1,5):PROCdraw(2,T-1,1)
 2070PROCdraw(1,T,5):PROCdraw(2,T,1):NEXT
 2080FORT=1 TO 20:PROCdraw(1,T,5):PROCdraw(1,T-1,5)
 2090GCOL0,3:PLOT85,X,Y:PROCdraw(1,T,6)
 2100PROCdraw(1,T-1,6):GCOL0,1:PLOT85,X,Y:NEXT
 2110MOVE760,530:VDU5,255:MOVE760,520
 2120VDU255:MOVE755,525:VDU255,4
 2130GCOL0,2:MOVE832,399:DRAW886,293
 2140GCOL0,3:MOVE955,333:DRAW971,317
 2150GCOL0,0:MOVE875,413:DRAW951,336
 2160ENDPROC
 2170DEFPROCerror
 2180IFERR=17 THEN RUN
 2190VDU22,7:*FX4
 2200REPORT:PRINT" at line ";ERL:END
 2210DEFPROCinstruct:RESTORE 2550
 2220FOR G%=0 TO 1:FOR H%=8 TO 22
 2230READ A%:VDU31H%G%A%:NEXT
 2240PRINT:NEXT
 2250PRINTSPC8CHR$150STRING$(14,",")" "CHR$130"By Chris Ewels"'
 2260PRINTCHR$134"Darts is a game for two players, but"
 2270PRINTCHR$134"the computer can play for one of them."
 2280PRINTCHR$134"You take it in turn to throw 3 darts"
 2290PRINTCHR$134"at a board. The first to reach zero"
 2300PRINTCHR$134"from 301 or 501 is the winner. There"
 2310PRINTCHR$134"are a few extra rules though:"
 2320PRINTCHR$129"1. You must start and finish on a"
 2330PRINTCHR$129SPC3"double or bull _ the outer ring or"
 2340PRINTCHR$129SPC3"centre _ nothing else counts."
 2350PRINTCHR$129"2. You must not go below 0."
 2360PRINTCHR$129"3. Any dart off the board does not"
 2370PRINTCHR$129SPC3"count."
 2380PRINTCHR$131SPC4"The keys are as follows:"
 2390PRINTCHR$131SPC4"Left - Z"SPC7"Right - X"
 2400PRINTCHR$131SPC4"Up   - :"SPC7"Down  - /"
 2410PRINTCHR$131SPC7"Throw dart - Space"
 2420PRINTCHR$135"The game level controls the amount of"
 2430PRINTCHR$135"hand shake your player has, as well as" 
 2440PRINTCHR$135"the skill of the computer."
 2450PRINTTAB(5,24);:VDU132,157,135
 2460PRINT"Press SPACE to start"SPC2;
 2470VDU156:ENDPROC
 2480DATA20,1,18,4,13,6,10,15,2,17,3,19,7,16,8,11,14,9,12,5
 2490DATA"Double or&&&&","bull to start"
 2500DATA"Double or&&&&","bull to stop&"
 2510DATA"Missed the&&&","board&&&&&&&&"
 2520DATA"You have&&&&&","gone bust.&&&"
 2530DATA"You hit the&&","wire&&&&&&&&&"
 2540DATA"&&&&&&&&&&&&&","&&&&&&&&&&&&&"
 2550DATA 148,235,233,32,246,180,32,247,181,32,235,161,32,230,177
 2560DATA 147,250,186,32,181,181,32,181,233,32,234,32,32,240,186
 2570DATA450,420,280,250,55,25
 2580DEFPROCreloc(Q%)
 2590IF Q%>=PAGE THEN ENDPROC
 2600P%=PAGE:L%=TOP-PAGE:*TAPE
 2610VDU129,136:PRINT"Relocating..."
 2620FOR M%=0 TO L%-1 STEP4:Q%!M%=P%!M%
 2630SOUND&11,-7,255*M%/L%,1:NEXT
 2640PAGE=Q%:*FX138,0,128
 2650*K.0OLD|MRUN|M
 2660END


� >>>>> DARTS >>>>>
�    Chris Ewels
�  (c) Micro User
(�7:�reloc(&E00)
2� � �error
<� 7
F	�init
P
�instruct
Z� � �=32
d�1:�19,2,7;0;19,3,2;0;
n�23;8202;0;0;0;
x
� �tpI
�
�board
��'" DARTS" 
��2:�" -----":�3
��"  By C.Ewels"
��datainput
��d(1):�d(2)
�play=(A$="1")
�first(1)=�:first(2)=�
�� � L%=1 � 2
��throw(L%)
�	�m(6)
�� sc%(L%)=0 L%=5
��
�1,27)�10�1,29)�10
� sc%(1)=0 � sc%(2)=0
%�G=1 � 30:�1,-15,53,1:�1,0,53,1:�
"�9,28+(sc%(1)=0)*2);
,�1:�"WIN!":�30:�tL@
6��throw(S)
@� S=1 �0,26)"*"�0,28)�1
J� S=2 �0,26)�1�0,28)"*"
T%� G=1 � 3:x%(G)=-100:y%(G)=-100:�
^� G=1 � 3:*FX15
h� play � S=2 �comp:�d`A
r"x%(G)=�(500)+500:y%(G)=�(1023)
|	�dart
�� �dart:�calc
�x%(G)=x%(G)+�(Lv%)-(Lv%/2)
�y%(G)=y%(G)+�(Lv%)-(Lv%/2)
�
fire=�
�� joy(L%) �joy � �key
�� x%(G)>1279 x%(G)=1279
�� x%(G)<260 x%(G)=260
�� y%(G)<0 y%(G)=0
�� y%(G)>1023 y%(G)=1023
��dart:� fire:�m(6)
��1,-15,20,2:�scr
�7� S=1 �1+((G-1)*3),27);sc% � �1+((G-1)*3),29);sc%
�� M=0 � �DvB
� lp%=1 � 2
1� S=lp% � first(lp%) � M<>2 �m(1):lp%=5:�DDB
7� S=lp% � first(lp%) � M=2 �2,-15,73,2:first(lp%)=�
&.� S=lp% � sc%(lp%)-sc%=0 � M=2 lp%=6:�DDB
0.� S=lp% � sc%(lp%)-sc%<2 �m(4):lp%=5:�DDB
:6� S=lp% � sc%(lp%)-sc%<=0 � M<>2 �m(2):lp%=5:�DDB
D�
N� lp%=6 � �DvB
X� lp%=7 G=6
bsc%(S)=sc%(S)-sc%
l	�d(S)
v�
�� G=7 � �t^B
��1,-15,101,5:*FX15
�
Z%=�(150)
�� G=1 � 3:�dart:�
��
�	��scr
�sc%=0:M=0:�calc
�4� lp%=1 � 6:� �(Le-(MG(lp%)-4))<3 lp%=399:sc%=0 
��
�� lp%=400 � �dxB
�(lp%=(ang-9)/18+2:� lp%>20 lp%=lp%-20
�'lp%=lp%*18-9:� �(ang-lp%)<3 lp%=400
�5� Le>MG(1) � lp%=400 � T%=15 � 0 �-3:�0,-T%,5,2:�
� lp%=400 �m(5):�
� Le>MG(1) �m(3):�
� Le<MG(6) �bull:�
 C� Le>MG(6) � Le<MG(5) � T%=1 � 50 � 5:�1,-9,T%,2:�:sc%=25:M=1:�
*M=1
4� Le>MG(4) � Le<MG(3) M=3
>� Le>MG(2) � Le<MG(1) M=2
H
� �tpI
R.D%=(ang-9)/18+2:� D%>20 � D%=D%-21:� D%<21
\� T%=1 � D%:� H:�
f
sc%=H*M:�
p
��calc
zD=x%(G)-X:H=y%(G)-Y
�Le=�(D^2+H^2)
�� D=0 � H>0 ang=0:�d@C
�� D=0 � H<0 ang=180:�d@C
�� D=0 � H=0 Le=1:ang=0:�
�ang=��(H/D):ang=90-ang
�&� ang>360 �ang=ang-360:�ang<=360  
�� x%(G)<X ang=ang+180
�Le=�(Le+.5):ang=�(ang+.5)
��
���m(L%):� �tzI
��4:� T%=1 � L%:�A$,B$:�
�� A%=1 � 13
�G$=�A$,A%,1):H$=�B$,A%,1)
� G$="&" G$=" "
� H$="&" H$=" "
�1,A%+6)G$" "H$:�
$� L%=3 � L%=5 � L%=6 �
.(� T%=20 � 1 � -1:�1,-15,T%,1:�:G=3:�
8
��bull
B*�T=1 � 100 � 5:�1,-15,T,2:�:M=2:sc%=50
L� lp%=1 � 2
V1� S=lp% � first(lp%) first(lp%)=�:�1,-15,73,2
`�
j�
t
��comp
~Lv%=Lv%/5-1
�7� first(2) Le=�(MG(1)-MG(2))+MG(2):ang=�(360):�dDD
�� sc%(2)<=50 �out:�dDD
�Le=�(MG(1))
�H� Lv%>3 � �(3)=1 Le=�(MG(1)-MG(2))+MG(1)+�((11-Lv%)*10)-((11-Lv%)*5)
�H� Lv%>6 � �(2)=1 Le=�(MG(3)-MG(4))+MG(4)+�((11-Lv%)*10)-((11-Lv%)*5)
�4A%=21:� A%=A%-1:��(11-Lv%)=1 � A%=1:ang=�ang(A%)
�%x%(G)=X+��ang*Le:y%(G)=Y+��ang*Le
�(x%(G)=x%(G)+�((11-Lv%)*4)-(11-Lv%)*2
�(y%(G)=y%(G)+�((11-Lv%)*4)-(11-Lv%)*2
�fire=�:Lv%=(Lv%+1)*5:*FX15
�lp%=�(75):�:�
�	��out
!� sc%(2)=50 Le=1:ang=�(360):�

� sc%(2)>40 �
"� sc%(2)/2<>�(sc%(2)/2) � �ThE
0Le=�(MG(1)-MG(2))+MG(2):ang=�ang(sc%(2)/2):�
(*A=�(sc%(2)):� A/2=�(A/2) � A>19 � �ThE
2ang=�ang(A):Le=�(MG(1)):�
<5ݤang(D):� �tpI:�B%:B%=-1:�B%=B%+1:�C:�C=D:=B%*18
F��d(A%):� Y%:Y%=(A%-1)*2
P�1,26+Y%)"Player "�A%;
Z�"="�sp$+�sc%(A%),3)
d�
n	��joy
x� A%,B%:A%=�(0) � 3
�� A%>0 fire=�:�
�A%=1:B%=2:� L%=2 A%=3:B%=4
�x%=-(�A%-32767)�&800
�y%=(�B%-32767)�&800
�!x%(G)=x%(G)+x%:y%(G)=y%(G)+y%
��
���init:@%=0:*FX4,1
��23;8202;0;0;0;
�#�&FF17;&FFFF;&FFFF;&FFFF;&FFFF;
�9�A(21),B(21),x%(3),y%(3),sc%(2),MG(6),first(2),joy(2)
�sp$=�3," "):� �TJJ
�� T%=1 � 6:� MG(T%):�
�� T%=0 � 20
A(T%)=��((T%*18)-9)
B(T%)=��((T%*18)-9):�
� T%=1 � 3:x%(T%)=-100
"y%(T%)=-100:�
,X=775:Y=510:�
6��draw(S,P,N):� A,B
@!A=A(P)*MG(N)+X:B=B(P)*MG(N)+Y
J� S=1 �A,B �� S=2 �A,B
T6� S=3 쵲((T-1)*18)*490-20+X,��((T-1)*18)*490+Y+10
^�
h��key:inc=8
r� �0=32 fire=�
|� �-1 inc=inc*2
�� �-2 inc=inc*4
�� �-98 x%(G)=x%(G)-inc
�� �-67 x%(G)=x%(G)+inc
�� �-73 y%(G)=y%(G)+inc
�� �-105 y%(G)=y%(G)-inc
�� �0=�32 fire=�
��
���dart:�3,2
�#�x%(G),y%(G)-25:�x%(G),y%(G)+25
�#�x%(G)-25,y%(G):�x%(G)+25,y%(G)
��
���datainput
��'"1/2 Players?"
	�A$=�
�A$="1" � A$="2"
�11:�(12):�11
& � T%=1 � �A$:�"Key/Joy >";T%
0�S$=�:�S$="J" � S$="K"
:joy(T%)=(S$="J"):�11
D�(12):�11:�
N�"Level (0-9)":�S$=�
XLv%=�S$+1:� Lv%>0 � Lv%<11
b#�11,11:�(12):�"(3)01 or (5)01"
l� S%=�-50:�S%=1�S%=3
v�11:�(14);
�� S%=1 S%=301 � S%=501
�sc%(1)=S%:sc%(2)=S%
�Lv%=Lv%*5:�
���board
�!F=2:G=0:�T=1 � 20:A=F:F=G:G=A
��0,3:� NU:�5
��draw(3,0,0):�;NU
��lp%=1 � 4 � 2
�#�draw(1,T,lp%):�draw(1,T-1,lp%)
��0,F+1:�85,X,Y
�'�draw(1,T,lp%+1):�draw(1,T-1,lp%+1)
��0,G:�85,X,Y:�
�"�lp%=1 � 4:�draw(1,T,lp%):�0,2
�draw(2,T-1,lp%):�
!�draw(1,T-1,5):�draw(2,T-1,1)
�draw(1,T,5):�draw(2,T,1):�
 )�T=1 � 20:�draw(1,T,5):�draw(1,T-1,5)
*�0,3:�85,X,Y:�draw(1,T,6)
4!�draw(1,T-1,6):�0,1:�85,X,Y:�
>�760,530:�5,255:�760,520
H�255:�755,525:�255,4
R�0,2:�832,399:�886,293
\�0,3:�955,333:�971,317
f�0,0:�875,413:�951,336
p�
z��error
�
�=17 � �
��22,7:*FX4
��:�" at line ";�:�
���instruct:� �dvI
�� G%=0 � 1:� H%=8 � 22
�� A%:�31H%G%A%:�
��:�
�+�8�150�14,",")" "�130"By Chris Ewels"'
�/�134"Darts is a game for two players, but"
�1�134"the computer can play for one of them."
�/�134"You take it in turn to throw 3 darts"
�.�134"at a board. The first to reach zero"
�/�134"from 301 or 501 is the winner. There"
	(�134"are a few extra rules though:"
	,�129"1. You must start and finish on a"
	/�129�3"double or bull _ the outer ring or"
	$*�129�3"centre _ nothing else counts."
	.&�129"2. You must not go below 0."
	8-�129"3. Any dart off the board does not"
	B�129�3"count."
	L%�131�4"The keys are as follows:"
	V"�131�4"Left - Z"�7"Right - X"
	`"�131�4"Up   - :"�7"Down  - /"
	j�131�7"Throw dart - Space"
	t0�135"The game level controls the amount of"
	~2�135"hand shake your player has, as well as" 
	�%�135"the skill of the computer."
	��5,24);:�132,157,135
	��"Press SPACE to start"�2;
	�
�156:�
	�7�20,1,18,4,13,6,10,15,2,17,3,19,7,16,8,11,14,9,12,5
	�$�"Double or&&&&","bull to start"
	�$�"Double or&&&&","bull to stop&"
	�$�"Missed the&&&","board&&&&&&&&"
	�$�"You have&&&&&","gone bust.&&&"
	�$�"You hit the&&","wire&&&&&&&&&"
	�$�"&&&&&&&&&&&&&","&&&&&&&&&&&&&"
	�=� 148,235,233,32,246,180,32,247,181,32,235,161,32,230,177
<� 147,250,186,32,181,181,32,181,233,32,234,32,32,240,186

�450,420,280,250,55,25
��reloc(Q%)
� Q%>=� � �
(P%=�:L%=�P-�:*TAPE
2�129,136:�"Relocating..."
< � M%=0 � L%-1 �4:Q%!M%=P%!M%
F�&11,-7,255*M%/L%,1:�
P�=Q%:*FX138,0,128
Z*K.0OLD|MRUN|M
d�
�

00000000  0d 00 0a 17 f4 20 3e 3e  3e 3e 3e 20 44 41 52 54  |..... >>>>> DART|
00000010  53 20 3e 3e 3e 3e 3e 0d  00 14 14 f4 20 20 20 20  |S >>>>>.....    |
00000020  43 68 72 69 73 20 45 77  65 6c 73 0d 00 1e 15 f4  |Chris Ewels.....|
00000030  20 20 28 63 29 20 4d 69  63 72 6f 20 55 73 65 72  |  (c) Micro User|
00000040  0d 00 28 13 eb 37 3a f2  72 65 6c 6f 63 28 26 45  |..(..7:.reloc(&E|
00000050  30 30 29 0d 00 32 0e ee  20 85 20 f2 65 72 72 6f  |00)..2.. . .erro|
00000060  72 0d 00 3c 07 eb 20 37  0d 00 46 09 f2 69 6e 69  |r..<.. 7..F..ini|
00000070  74 0d 00 50 0d f2 69 6e  73 74 72 75 63 74 0d 00  |t..P..instruct..|
00000080  5a 0c f5 20 fd 20 a5 3d  33 32 0d 00 64 1a eb 31  |Z.. . .=32..d..1|
00000090  3a ef 31 39 2c 32 2c 37  3b 30 3b 31 39 2c 33 2c  |:.19,2,7;0;19,3,|
000000a0  32 3b 30 3b 0d 00 6e 13  ef 32 33 3b 38 32 30 32  |2;0;..n..23;8202|
000000b0  3b 30 3b 30 3b 30 3b 0d  00 78 0a f7 20 8d 74 70  |;0;0;0;..x.. .tp|
000000c0  49 0d 00 82 0a f2 62 6f  61 72 64 0d 00 8c 0f f1  |I.....board.....|
000000d0  27 22 20 44 41 52 54 53  22 20 0d 00 96 13 fb 32  |'" DARTS" .....2|
000000e0  3a f1 22 20 2d 2d 2d 2d  2d 22 3a fb 33 0d 00 a0  |:." -----":.3...|
000000f0  13 f1 22 20 20 42 79 20  43 2e 45 77 65 6c 73 22  |.."  By C.Ewels"|
00000100  0d 00 aa 0e f2 64 61 74  61 69 6e 70 75 74 0d 00  |.....datainput..|
00000110  b4 0f f2 64 28 31 29 3a  f2 64 28 32 29 0d 00 be  |...d(1):.d(2)...|
00000120  11 70 6c 61 79 3d 28 41  24 3d 22 31 22 29 0d 00  |.play=(A$="1")..|
00000130  c8 19 66 69 72 73 74 28  31 29 3d b9 3a 66 69 72  |..first(1)=.:fir|
00000140  73 74 28 32 29 3d b9 0d  00 d2 10 f5 20 e3 20 4c  |st(2)=...... . L|
00000150  25 3d 31 20 b8 20 32 0d  00 dc 0e f2 74 68 72 6f  |%=1 . 2.....thro|
00000160  77 28 4c 25 29 0d 00 e6  09 f2 6d 28 36 29 0d 00  |w(L%).....m(6)..|
00000170  f0 14 e7 20 73 63 25 28  4c 25 29 3d 30 20 4c 25  |... sc%(L%)=0 L%|
00000180  3d 35 0d 00 fa 05 ed 0d  01 04 17 f1 8a 31 2c 32  |=5...........1,2|
00000190  37 29 89 31 30 8a 31 2c  32 39 29 89 31 30 0d 01  |7).10.1,29).10..|
000001a0  0e 19 fd 20 73 63 25 28  31 29 3d 30 20 84 20 73  |... sc%(1)=0 . s|
000001b0  63 25 28 32 29 3d 30 0d  01 18 25 e3 47 3d 31 20  |c%(2)=0...%.G=1 |
000001c0  b8 20 33 30 3a d4 31 2c  2d 31 35 2c 35 33 2c 31  |. 30:.1,-15,53,1|
000001d0  3a d4 31 2c 30 2c 35 33  2c 31 3a ed 0d 01 22 19  |:.1,0,53,1:...".|
000001e0  f1 8a 39 2c 32 38 2b 28  73 63 25 28 31 29 3d 30  |..9,28+(sc%(1)=0|
000001f0  29 2a 32 29 3b 0d 01 2c  18 fb 31 3a f1 22 57 49  |)*2);..,..1:."WI|
00000200  4e 21 22 3a ef 33 30 3a  e5 8d 74 4c 40 0d 01 36  |N!":.30:..tL@..6|
00000210  0e dd f2 74 68 72 6f 77  28 53 29 0d 01 40 1c e7  |...throw(S)..@..|
00000220  20 53 3d 31 20 f1 8a 30  2c 32 36 29 22 2a 22 8a  | S=1 ..0,26)"*".|
00000230  30 2c 32 38 29 89 31 0d  01 4a 1c e7 20 53 3d 32  |0,28).1..J.. S=2|
00000240  20 f1 8a 30 2c 32 36 29  89 31 8a 30 2c 32 38 29  | ..0,26).1.0,28)|
00000250  22 2a 22 0d 01 54 25 e3  20 47 3d 31 20 b8 20 33  |"*"..T%. G=1 . 3|
00000260  3a 78 25 28 47 29 3d 2d  31 30 30 3a 79 25 28 47  |:x%(G)=-100:y%(G|
00000270  29 3d 2d 31 30 30 3a ed  0d 01 5e 13 e3 20 47 3d  |)=-100:...^.. G=|
00000280  31 20 b8 20 33 3a 2a 46  58 31 35 0d 01 68 1c e7  |1 . 3:*FX15..h..|
00000290  20 70 6c 61 79 20 80 20  53 3d 32 20 f2 63 6f 6d  | play . S=2 .com|
000002a0  70 3a e5 8d 64 60 41 0d  01 72 22 78 25 28 47 29  |p:..d`A..r"x%(G)|
000002b0  3d b3 28 35 30 30 29 2b  35 30 30 3a 79 25 28 47  |=.(500)+500:y%(G|
000002c0  29 3d b3 28 31 30 32 33  29 0d 01 7c 09 f2 64 61  |)=.(1023)..|..da|
000002d0  72 74 0d 01 86 11 f5 20  f2 64 61 72 74 3a f2 63  |rt..... .dart:.c|
000002e0  61 6c 63 0d 01 90 1e 78  25 28 47 29 3d 78 25 28  |alc....x%(G)=x%(|
000002f0  47 29 2b b3 28 4c 76 25  29 2d 28 4c 76 25 2f 32  |G)+.(Lv%)-(Lv%/2|
00000300  29 0d 01 9a 1e 79 25 28  47 29 3d 79 25 28 47 29  |)....y%(G)=y%(G)|
00000310  2b b3 28 4c 76 25 29 2d  28 4c 76 25 2f 32 29 0d  |+.(Lv%)-(Lv%/2).|
00000320  01 a4 0a 66 69 72 65 3d  a3 0d 01 ae 19 e7 20 6a  |...fire=...... j|
00000330  6f 79 28 4c 25 29 20 f2  6a 6f 79 20 8b 20 f2 6b  |oy(L%) .joy . .k|
00000340  65 79 0d 01 b8 1b e7 20  78 25 28 47 29 3e 31 32  |ey..... x%(G)>12|
00000350  37 39 20 78 25 28 47 29  3d 31 32 37 39 0d 01 c2  |79 x%(G)=1279...|
00000360  19 e7 20 78 25 28 47 29  3c 32 36 30 20 78 25 28  |.. x%(G)<260 x%(|
00000370  47 29 3d 32 36 30 0d 01  cc 15 e7 20 79 25 28 47  |G)=260..... y%(G|
00000380  29 3c 30 20 79 25 28 47  29 3d 30 0d 01 d6 1b e7  |)<0 y%(G)=0.....|
00000390  20 79 25 28 47 29 3e 31  30 32 33 20 79 25 28 47  | y%(G)>1023 y%(G|
000003a0  29 3d 31 30 32 33 0d 01  e0 16 f2 64 61 72 74 3a  |)=1023.....dart:|
000003b0  fd 20 66 69 72 65 3a f2  6d 28 36 29 0d 01 ea 14  |. fire:.m(6)....|
000003c0  d4 31 2c 2d 31 35 2c 32  30 2c 32 3a f2 73 63 72  |.1,-15,20,2:.scr|
000003d0  0d 01 f4 37 e7 20 53 3d  31 20 f1 8a 31 2b 28 28  |...7. S=1 ..1+((|
000003e0  47 2d 31 29 2a 33 29 2c  32 37 29 3b 73 63 25 20  |G-1)*3),27);sc% |
000003f0  8b 20 f1 8a 31 2b 28 28  47 2d 31 29 2a 33 29 2c  |. ..1+((G-1)*3),|
00000400  32 39 29 3b 73 63 25 0d  01 fe 10 e7 20 4d 3d 30  |29);sc%..... M=0|
00000410  20 e5 20 8d 44 76 42 0d  02 08 0f e3 20 6c 70 25  | . .DvB..... lp%|
00000420  3d 31 20 b8 20 32 0d 02  12 31 e7 20 53 3d 6c 70  |=1 . 2...1. S=lp|
00000430  25 20 e7 20 66 69 72 73  74 28 6c 70 25 29 20 e7  |% . first(lp%) .|
00000440  20 4d 3c 3e 32 20 f2 6d  28 31 29 3a 6c 70 25 3d  | M<>2 .m(1):lp%=|
00000450  35 3a e5 8d 44 44 42 0d  02 1c 37 e7 20 53 3d 6c  |5:..DDB...7. S=l|
00000460  70 25 20 e7 20 66 69 72  73 74 28 6c 70 25 29 20  |p% . first(lp%) |
00000470  e7 20 4d 3d 32 20 d4 32  2c 2d 31 35 2c 37 33 2c  |. M=2 .2,-15,73,|
00000480  32 3a 66 69 72 73 74 28  6c 70 25 29 3d a3 0d 02  |2:first(lp%)=...|
00000490  26 2e e7 20 53 3d 6c 70  25 20 e7 20 73 63 25 28  |&.. S=lp% . sc%(|
000004a0  6c 70 25 29 2d 73 63 25  3d 30 20 e7 20 4d 3d 32  |lp%)-sc%=0 . M=2|
000004b0  20 6c 70 25 3d 36 3a e5  8d 44 44 42 0d 02 30 2e  | lp%=6:..DDB..0.|
000004c0  e7 20 53 3d 6c 70 25 20  e7 20 73 63 25 28 6c 70  |. S=lp% . sc%(lp|
000004d0  25 29 2d 73 63 25 3c 32  20 f2 6d 28 34 29 3a 6c  |%)-sc%<2 .m(4):l|
000004e0  70 25 3d 35 3a e5 8d 44  44 42 0d 02 3a 36 e7 20  |p%=5:..DDB..:6. |
000004f0  53 3d 6c 70 25 20 e7 20  73 63 25 28 6c 70 25 29  |S=lp% . sc%(lp%)|
00000500  2d 73 63 25 3c 3d 30 20  e7 20 4d 3c 3e 32 20 f2  |-sc%<=0 . M<>2 .|
00000510  6d 28 32 29 3a 6c 70 25  3d 35 3a e5 8d 44 44 42  |m(2):lp%=5:..DDB|
00000520  0d 02 44 05 ed 0d 02 4e  12 e7 20 6c 70 25 3d 36  |..D....N.. lp%=6|
00000530  20 e5 20 8d 44 76 42 0d  02 58 0f e7 20 6c 70 25  | . .DvB..X.. lp%|
00000540  3d 37 20 47 3d 36 0d 02  62 15 73 63 25 28 53 29  |=7 G=6..b.sc%(S)|
00000550  3d 73 63 25 28 53 29 2d  73 63 25 0d 02 6c 09 f2  |=sc%(S)-sc%..l..|
00000560  64 28 53 29 0d 02 76 05  ed 0d 02 80 10 e7 20 47  |d(S)..v....... G|
00000570  3d 37 20 e5 20 8d 74 5e  42 0d 02 8a 16 d4 31 2c  |=7 . .t^B.....1,|
00000580  2d 31 35 2c 31 30 31 2c  35 3a 2a 46 58 31 35 0d  |-15,101,5:*FX15.|
00000590  02 94 0d 5a 25 3d a6 28  31 35 30 29 0d 02 9e 15  |...Z%=.(150)....|
000005a0  e3 20 47 3d 31 20 b8 20  33 3a f2 64 61 72 74 3a  |. G=1 . 3:.dart:|
000005b0  ed 0d 02 a8 05 e1 0d 02  b2 09 dd f2 73 63 72 0d  |............scr.|
000005c0  02 bc 13 73 63 25 3d 30  3a 4d 3d 30 3a f2 63 61  |...sc%=0:M=0:.ca|
000005d0  6c 63 0d 02 c6 34 e3 20  6c 70 25 3d 31 20 b8 20  |lc...4. lp%=1 . |
000005e0  36 3a e7 20 94 28 4c 65  2d 28 4d 47 28 6c 70 25  |6:. .(Le-(MG(lp%|
000005f0  29 2d 34 29 29 3c 33 20  6c 70 25 3d 33 39 39 3a  |)-4))<3 lp%=399:|
00000600  73 63 25 3d 30 20 0d 02  d0 05 ed 0d 02 da 14 e7  |sc%=0 ..........|
00000610  20 6c 70 25 3d 34 30 30  20 e5 20 8d 64 78 42 0d  | lp%=400 . .dxB.|
00000620  02 e4 28 6c 70 25 3d 28  61 6e 67 2d 39 29 2f 31  |..(lp%=(ang-9)/1|
00000630  38 2b 32 3a e7 20 6c 70  25 3e 32 30 20 6c 70 25  |8+2:. lp%>20 lp%|
00000640  3d 6c 70 25 2d 32 30 0d  02 ee 27 6c 70 25 3d 6c  |=lp%-20...'lp%=l|
00000650  70 25 2a 31 38 2d 39 3a  e7 20 94 28 61 6e 67 2d  |p%*18-9:. .(ang-|
00000660  6c 70 25 29 3c 33 20 6c  70 25 3d 34 30 30 0d 02  |lp%)<3 lp%=400..|
00000670  f8 35 e7 20 4c 65 3e 4d  47 28 31 29 20 84 20 6c  |.5. Le>MG(1) . l|
00000680  70 25 3d 34 30 30 20 e3  20 54 25 3d 31 35 20 b8  |p%=400 . T%=15 .|
00000690  20 30 20 88 2d 33 3a d4  30 2c 2d 54 25 2c 35 2c  | 0 .-3:.0,-T%,5,|
000006a0  32 3a ed 0d 03 02 15 e7  20 6c 70 25 3d 34 30 30  |2:...... lp%=400|
000006b0  20 f2 6d 28 35 29 3a e1  0d 03 0c 16 e7 20 4c 65  | .m(5):...... Le|
000006c0  3e 4d 47 28 31 29 20 f2  6d 28 33 29 3a e1 0d 03  |>MG(1) .m(3):...|
000006d0  16 16 e7 20 4c 65 3c 4d  47 28 36 29 20 f2 62 75  |... Le<MG(6) .bu|
000006e0  6c 6c 3a e1 0d 03 20 43  e7 20 4c 65 3e 4d 47 28  |ll:... C. Le>MG(|
000006f0  36 29 20 80 20 4c 65 3c  4d 47 28 35 29 20 e3 20  |6) . Le<MG(5) . |
00000700  54 25 3d 31 20 b8 20 35  30 20 88 20 35 3a d4 31  |T%=1 . 50 . 5:.1|
00000710  2c 2d 39 2c 54 25 2c 32  3a ed 3a 73 63 25 3d 32  |,-9,T%,2:.:sc%=2|
00000720  35 3a 4d 3d 31 3a e1 0d  03 2a 07 4d 3d 31 0d 03  |5:M=1:...*.M=1..|
00000730  34 1d e7 20 4c 65 3e 4d  47 28 34 29 20 e7 20 4c  |4.. Le>MG(4) . L|
00000740  65 3c 4d 47 28 33 29 20  4d 3d 33 0d 03 3e 1d e7  |e<MG(3) M=3..>..|
00000750  20 4c 65 3e 4d 47 28 32  29 20 e7 20 4c 65 3c 4d  | Le>MG(2) . Le<M|
00000760  47 28 31 29 20 4d 3d 32  0d 03 48 0a f7 20 8d 74  |G(1) M=2..H.. .t|
00000770  70 49 0d 03 52 2e 44 25  3d 28 61 6e 67 2d 39 29  |pI..R.D%=(ang-9)|
00000780  2f 31 38 2b 32 3a e7 20  44 25 3e 32 30 20 f5 20  |/18+2:. D%>20 . |
00000790  44 25 3d 44 25 2d 32 31  3a fd 20 44 25 3c 32 31  |D%=D%-21:. D%<21|
000007a0  0d 03 5c 15 e3 20 54 25  3d 31 20 b8 20 44 25 3a  |..\.. T%=1 . D%:|
000007b0  f3 20 48 3a ed 0d 03 66  0d 73 63 25 3d 48 2a 4d  |. H:...f.sc%=H*M|
000007c0  3a e1 0d 03 70 0a dd f2  63 61 6c 63 0d 03 7a 17  |:...p...calc..z.|
000007d0  44 3d 78 25 28 47 29 2d  58 3a 48 3d 79 25 28 47  |D=x%(G)-X:H=y%(G|
000007e0  29 2d 59 0d 03 84 11 4c  65 3d b6 28 44 5e 32 2b  |)-Y....Le=.(D^2+|
000007f0  48 5e 32 29 0d 03 8e 1b  e7 20 44 3d 30 20 e7 20  |H^2)..... D=0 . |
00000800  48 3e 30 20 61 6e 67 3d  30 3a e5 8d 64 40 43 0d  |H>0 ang=0:..d@C.|
00000810  03 98 1d e7 20 44 3d 30  20 e7 20 48 3c 30 20 61  |.... D=0 . H<0 a|
00000820  6e 67 3d 31 38 30 3a e5  8d 64 40 43 0d 03 a2 1c  |ng=180:..d@C....|
00000830  e7 20 44 3d 30 20 e7 20  48 3d 30 20 4c 65 3d 31  |. D=0 . H=0 Le=1|
00000840  3a 61 6e 67 3d 30 3a e1  0d 03 ac 1a 61 6e 67 3d  |:ang=0:.....ang=|
00000850  9d 99 28 48 2f 44 29 3a  61 6e 67 3d 39 30 2d 61  |..(H/D):ang=90-a|
00000860  6e 67 0d 03 b6 26 e7 20  61 6e 67 3e 33 36 30 20  |ng...&. ang>360 |
00000870  f5 61 6e 67 3d 61 6e 67  2d 33 36 30 3a fd 61 6e  |.ang=ang-360:.an|
00000880  67 3c 3d 33 36 30 20 20  0d 03 c0 19 e7 20 78 25  |g<=360  ..... x%|
00000890  28 47 29 3c 58 20 61 6e  67 3d 61 6e 67 2b 31 38  |(G)<X ang=ang+18|
000008a0  30 0d 03 ca 1d 4c 65 3d  a8 28 4c 65 2b 2e 35 29  |0....Le=.(Le+.5)|
000008b0  3a 61 6e 67 3d a8 28 61  6e 67 2b 2e 35 29 0d 03  |:ang=.(ang+.5)..|
000008c0  d4 05 e1 0d 03 de 12 dd  f2 6d 28 4c 25 29 3a f7  |.........m(L%):.|
000008d0  20 8d 74 7a 49 0d 03 e8  1b ef 34 3a e3 20 54 25  | .tzI.....4:. T%|
000008e0  3d 31 20 b8 20 4c 25 3a  f3 41 24 2c 42 24 3a ed  |=1 . L%:.A$,B$:.|
000008f0  0d 03 f2 0f e3 20 41 25  3d 31 20 b8 20 31 33 0d  |..... A%=1 . 13.|
00000900  03 fc 1d 47 24 3d c1 41  24 2c 41 25 2c 31 29 3a  |...G$=.A$,A%,1):|
00000910  48 24 3d c1 42 24 2c 41  25 2c 31 29 0d 04 06 13  |H$=.B$,A%,1)....|
00000920  e7 20 47 24 3d 22 26 22  20 47 24 3d 22 20 22 0d  |. G$="&" G$=" ".|
00000930  04 10 13 e7 20 48 24 3d  22 26 22 20 48 24 3d 22  |.... H$="&" H$="|
00000940  20 22 0d 04 1a 16 f1 8a  31 2c 41 25 2b 36 29 47  | "......1,A%+6)G|
00000950  24 22 20 22 48 24 3a ed  0d 04 24 1a e7 20 4c 25  |$" "H$:...$.. L%|
00000960  3d 33 20 84 20 4c 25 3d  35 20 84 20 4c 25 3d 36  |=3 . L%=5 . L%=6|
00000970  20 e1 0d 04 2e 28 e3 20  54 25 3d 32 30 20 b8 20  | ....(. T%=20 . |
00000980  31 20 88 20 2d 31 3a d4  31 2c 2d 31 35 2c 54 25  |1 . -1:.1,-15,T%|
00000990  2c 31 3a ed 3a 47 3d 33  3a e1 0d 04 38 0a dd f2  |,1:.:G=3:...8...|
000009a0  62 75 6c 6c 0d 04 42 2a  e3 54 3d 31 20 b8 20 31  |bull..B*.T=1 . 1|
000009b0  30 30 20 88 20 35 3a d4  31 2c 2d 31 35 2c 54 2c  |00 . 5:.1,-15,T,|
000009c0  32 3a ed 3a 4d 3d 32 3a  73 63 25 3d 35 30 0d 04  |2:.:M=2:sc%=50..|
000009d0  4c 0f e3 20 6c 70 25 3d  31 20 b8 20 32 0d 04 56  |L.. lp%=1 . 2..V|
000009e0  31 e7 20 53 3d 6c 70 25  20 e7 20 66 69 72 73 74  |1. S=lp% . first|
000009f0  28 6c 70 25 29 20 66 69  72 73 74 28 6c 70 25 29  |(lp%) first(lp%)|
00000a00  3d a3 3a d4 31 2c 2d 31  35 2c 37 33 2c 32 0d 04  |=.:.1,-15,73,2..|
00000a10  60 05 ed 0d 04 6a 05 e1  0d 04 74 0a dd f2 63 6f  |`....j....t...co|
00000a20  6d 70 0d 04 7e 0f 4c 76  25 3d 4c 76 25 2f 35 2d  |mp..~.Lv%=Lv%/5-|
00000a30  31 0d 04 88 37 e7 20 66  69 72 73 74 28 32 29 20  |1...7. first(2) |
00000a40  4c 65 3d b3 28 4d 47 28  31 29 2d 4d 47 28 32 29  |Le=.(MG(1)-MG(2)|
00000a50  29 2b 4d 47 28 32 29 3a  61 6e 67 3d b3 28 33 36  |)+MG(2):ang=.(36|
00000a60  30 29 3a e5 8d 64 44 44  0d 04 92 1b e7 20 73 63  |0):..dDD..... sc|
00000a70  25 28 32 29 3c 3d 35 30  20 f2 6f 75 74 3a e5 8d  |%(2)<=50 .out:..|
00000a80  64 44 44 0d 04 9c 0f 4c  65 3d b3 28 4d 47 28 31  |dDD....Le=.(MG(1|
00000a90  29 29 0d 04 a6 48 e7 20  4c 76 25 3e 33 20 e7 20  |))...H. Lv%>3 . |
00000aa0  b3 28 33 29 3d 31 20 4c  65 3d b3 28 4d 47 28 31  |.(3)=1 Le=.(MG(1|
00000ab0  29 2d 4d 47 28 32 29 29  2b 4d 47 28 31 29 2b b3  |)-MG(2))+MG(1)+.|
00000ac0  28 28 31 31 2d 4c 76 25  29 2a 31 30 29 2d 28 28  |((11-Lv%)*10)-((|
00000ad0  31 31 2d 4c 76 25 29 2a  35 29 0d 04 b0 48 e7 20  |11-Lv%)*5)...H. |
00000ae0  4c 76 25 3e 36 20 e7 20  b3 28 32 29 3d 31 20 4c  |Lv%>6 . .(2)=1 L|
00000af0  65 3d b3 28 4d 47 28 33  29 2d 4d 47 28 34 29 29  |e=.(MG(3)-MG(4))|
00000b00  2b 4d 47 28 34 29 2b b3  28 28 31 31 2d 4c 76 25  |+MG(4)+.((11-Lv%|
00000b10  29 2a 31 30 29 2d 28 28  31 31 2d 4c 76 25 29 2a  |)*10)-((11-Lv%)*|
00000b20  35 29 0d 04 ba 34 41 25  3d 32 31 3a f5 20 41 25  |5)...4A%=21:. A%|
00000b30  3d 41 25 2d 31 3a fd b3  28 31 31 2d 4c 76 25 29  |=A%-1:..(11-Lv%)|
00000b40  3d 31 20 84 20 41 25 3d  31 3a 61 6e 67 3d a4 61  |=1 . A%=1:ang=.a|
00000b50  6e 67 28 41 25 29 0d 04  c4 25 78 25 28 47 29 3d  |ng(A%)...%x%(G)=|
00000b60  58 2b b5 b2 61 6e 67 2a  4c 65 3a 79 25 28 47 29  |X+..ang*Le:y%(G)|
00000b70  3d 59 2b 9b b2 61 6e 67  2a 4c 65 0d 04 ce 28 78  |=Y+..ang*Le...(x|
00000b80  25 28 47 29 3d 78 25 28  47 29 2b b3 28 28 31 31  |%(G)=x%(G)+.((11|
00000b90  2d 4c 76 25 29 2a 34 29  2d 28 31 31 2d 4c 76 25  |-Lv%)*4)-(11-Lv%|
00000ba0  29 2a 32 0d 04 d8 28 79  25 28 47 29 3d 79 25 28  |)*2...(y%(G)=y%(|
00000bb0  47 29 2b b3 28 28 31 31  2d 4c 76 25 29 2a 34 29  |G)+.((11-Lv%)*4)|
00000bc0  2d 28 31 31 2d 4c 76 25  29 2a 32 0d 04 e2 1e 66  |-(11-Lv%)*2....f|
00000bd0  69 72 65 3d b9 3a 4c 76  25 3d 28 4c 76 25 2b 31  |ire=.:Lv%=(Lv%+1|
00000be0  29 2a 35 3a 2a 46 58 31  35 0d 04 ec 11 6c 70 25  |)*5:*FX15....lp%|
00000bf0  3d a6 28 37 35 29 3a f5  3a e1 0d 04 f6 09 dd f2  |=.(75):.:.......|
00000c00  6f 75 74 0d 05 00 21 e7  20 73 63 25 28 32 29 3d  |out...!. sc%(2)=|
00000c10  35 30 20 4c 65 3d 31 3a  61 6e 67 3d b3 28 33 36  |50 Le=1:ang=.(36|
00000c20  30 29 3a e1 0d 05 0a 11  e7 20 73 63 25 28 32 29  |0):...... sc%(2)|
00000c30  3e 34 30 20 e1 0d 05 14  22 e7 20 73 63 25 28 32  |>40 ....". sc%(2|
00000c40  29 2f 32 3c 3e a8 28 73  63 25 28 32 29 2f 32 29  |)/2<>.(sc%(2)/2)|
00000c50  20 e5 20 8d 54 68 45 0d  05 1e 30 4c 65 3d b3 28  | . .ThE...0Le=.(|
00000c60  4d 47 28 31 29 2d 4d 47  28 32 29 29 2b 4d 47 28  |MG(1)-MG(2))+MG(|
00000c70  32 29 3a 61 6e 67 3d a4  61 6e 67 28 73 63 25 28  |2):ang=.ang(sc%(|
00000c80  32 29 2f 32 29 3a e1 0d  05 28 2a 41 3d b3 28 73  |2)/2):...(*A=.(s|
00000c90  63 25 28 32 29 29 3a e7  20 41 2f 32 3d a8 28 41  |c%(2)):. A/2=.(A|
00000ca0  2f 32 29 20 84 20 41 3e  31 39 20 e5 20 8d 54 68  |/2) . A>19 . .Th|
00000cb0  45 0d 05 32 1d 61 6e 67  3d a4 61 6e 67 28 41 29  |E..2.ang=.ang(A)|
00000cc0  3a 4c 65 3d b3 28 4d 47  28 31 29 29 3a e1 0d 05  |:Le=.(MG(1)):...|
00000cd0  3c 35 dd a4 61 6e 67 28  44 29 3a f7 20 8d 74 70  |<5..ang(D):. .tp|
00000ce0  49 3a ea 42 25 3a 42 25  3d 2d 31 3a f5 42 25 3d  |I:.B%:B%=-1:.B%=|
00000cf0  42 25 2b 31 3a f3 43 3a  fd 43 3d 44 3a 3d 42 25  |B%+1:.C:.C=D:=B%|
00000d00  2a 31 38 0d 05 46 1c dd  f2 64 28 41 25 29 3a ea  |*18..F...d(A%):.|
00000d10  20 59 25 3a 59 25 3d 28  41 25 2d 31 29 2a 32 0d  | Y%:Y%=(A%-1)*2.|
00000d20  05 50 1b f1 8a 31 2c 32  36 2b 59 25 29 22 50 6c  |.P...1,26+Y%)"Pl|
00000d30  61 79 65 72 20 22 c3 41  25 3b 0d 05 5a 18 f1 22  |ayer ".A%;..Z.."|
00000d40  3d 22 c2 73 70 24 2b c3  73 63 25 28 41 25 29 2c  |=".sp$+.sc%(A%),|
00000d50  33 29 0d 05 64 05 e1 0d  05 6e 09 dd f2 6a 6f 79  |3)..d....n...joy|
00000d60  0d 05 78 17 ea 20 41 25  2c 42 25 3a 41 25 3d 96  |..x.. A%,B%:A%=.|
00000d70  28 30 29 20 80 20 33 0d  05 82 13 e7 20 41 25 3e  |(0) . 3..... A%>|
00000d80  30 20 66 69 72 65 3d b9  3a e1 0d 05 8c 1e 41 25  |0 fire=.:.....A%|
00000d90  3d 31 3a 42 25 3d 32 3a  e7 20 4c 25 3d 32 20 41  |=1:B%=2:. L%=2 A|
00000da0  25 3d 33 3a 42 25 3d 34  0d 05 96 18 78 25 3d 2d  |%=3:B%=4....x%=-|
00000db0  28 96 41 25 2d 33 32 37  36 37 29 81 26 38 30 30  |(.A%-32767).&800|
00000dc0  0d 05 a0 17 79 25 3d 28  96 42 25 2d 33 32 37 36  |....y%=(.B%-3276|
00000dd0  37 29 81 26 38 30 30 0d  05 aa 21 78 25 28 47 29  |7).&800...!x%(G)|
00000de0  3d 78 25 28 47 29 2b 78  25 3a 79 25 28 47 29 3d  |=x%(G)+x%:y%(G)=|
00000df0  79 25 28 47 29 2b 79 25  0d 05 b4 05 e1 0d 05 be  |y%(G)+y%........|
00000e00  16 dd f2 69 6e 69 74 3a  40 25 3d 30 3a 2a 46 58  |...init:@%=0:*FX|
00000e10  34 2c 31 0d 05 c8 13 ef  32 33 3b 38 32 30 32 3b  |4,1.....23;8202;|
00000e20  30 3b 30 3b 30 3b 0d 05  d2 23 ef 26 46 46 31 37  |0;0;0;...#.&FF17|
00000e30  3b 26 46 46 46 46 3b 26  46 46 46 46 3b 26 46 46  |;&FFFF;&FFFF;&FF|
00000e40  46 46 3b 26 46 46 46 46  3b 0d 05 dc 39 de 41 28  |FF;&FFFF;...9.A(|
00000e50  32 31 29 2c 42 28 32 31  29 2c 78 25 28 33 29 2c  |21),B(21),x%(3),|
00000e60  79 25 28 33 29 2c 73 63  25 28 32 29 2c 4d 47 28  |y%(3),sc%(2),MG(|
00000e70  36 29 2c 66 69 72 73 74  28 32 29 2c 6a 6f 79 28  |6),first(2),joy(|
00000e80  32 29 0d 05 e6 16 73 70  24 3d c4 33 2c 22 20 22  |2)....sp$=.3," "|
00000e90  29 3a f7 20 8d 54 4a 4a  0d 05 f0 19 e3 20 54 25  |):. .TJJ..... T%|
00000ea0  3d 31 20 b8 20 36 3a f3  20 4d 47 28 54 25 29 3a  |=1 . 6:. MG(T%):|
00000eb0  ed 0d 05 fa 0f e3 20 54  25 3d 30 20 b8 20 32 30  |...... T%=0 . 20|
00000ec0  0d 06 04 17 41 28 54 25  29 3d b5 b2 28 28 54 25  |....A(T%)=..((T%|
00000ed0  2a 31 38 29 2d 39 29 0d  06 0e 19 42 28 54 25 29  |*18)-9)....B(T%)|
00000ee0  3d 9b b2 28 28 54 25 2a  31 38 29 2d 39 29 3a ed  |=..((T%*18)-9):.|
00000ef0  0d 06 18 1a e3 20 54 25  3d 31 20 b8 20 33 3a 78  |..... T%=1 . 3:x|
00000f00  25 28 54 25 29 3d 2d 31  30 30 0d 06 22 11 79 25  |%(T%)=-100..".y%|
00000f10  28 54 25 29 3d 2d 31 30  30 3a ed 0d 06 2c 11 58  |(T%)=-100:...,.X|
00000f20  3d 37 37 35 3a 59 3d 35  31 30 3a e1 0d 06 36 17  |=775:Y=510:...6.|
00000f30  dd f2 64 72 61 77 28 53  2c 50 2c 4e 29 3a ea 20  |..draw(S,P,N):. |
00000f40  41 2c 42 0d 06 40 21 41  3d 41 28 50 29 2a 4d 47  |A,B..@!A=A(P)*MG|
00000f50  28 4e 29 2b 58 3a 42 3d  42 28 50 29 2a 4d 47 28  |(N)+X:B=B(P)*MG(|
00000f60  4e 29 2b 59 0d 06 4a 1a  e7 20 53 3d 31 20 ec 41  |N)+Y..J.. S=1 .A|
00000f70  2c 42 20 8b e7 20 53 3d  32 20 df 41 2c 42 0d 06  |,B .. S=2 .A,B..|
00000f80  54 36 e7 20 53 3d 33 20  ec b5 b2 28 28 54 2d 31  |T6. S=3 ...((T-1|
00000f90  29 2a 31 38 29 2a 34 39  30 2d 32 30 2b 58 2c 9b  |)*18)*490-20+X,.|
00000fa0  b2 28 28 54 2d 31 29 2a  31 38 29 2a 34 39 30 2b  |.((T-1)*18)*490+|
00000fb0  59 2b 31 30 0d 06 5e 05  e1 0d 06 68 0f dd f2 6b  |Y+10..^....h...k|
00000fc0  65 79 3a 69 6e 63 3d 38  0d 06 72 12 e7 20 a6 30  |ey:inc=8..r.. .0|
00000fd0  3d 33 32 20 66 69 72 65  3d b9 0d 06 7c 13 e7 20  |=32 fire=...|.. |
00000fe0  a6 2d 31 20 69 6e 63 3d  69 6e 63 2a 32 0d 06 86  |.-1 inc=inc*2...|
00000ff0  13 e7 20 a6 2d 32 20 69  6e 63 3d 69 6e 63 2a 34  |.. .-2 inc=inc*4|
00001000  0d 06 90 1a e7 20 a6 2d  39 38 20 78 25 28 47 29  |..... .-98 x%(G)|
00001010  3d 78 25 28 47 29 2d 69  6e 63 0d 06 9a 1a e7 20  |=x%(G)-inc..... |
00001020  a6 2d 36 37 20 78 25 28  47 29 3d 78 25 28 47 29  |.-67 x%(G)=x%(G)|
00001030  2b 69 6e 63 0d 06 a4 1a  e7 20 a6 2d 37 33 20 79  |+inc..... .-73 y|
00001040  25 28 47 29 3d 79 25 28  47 29 2b 69 6e 63 0d 06  |%(G)=y%(G)+inc..|
00001050  ae 1b e7 20 a6 2d 31 30  35 20 79 25 28 47 29 3d  |... .-105 y%(G)=|
00001060  79 25 28 47 29 2d 69 6e  63 0d 06 b8 13 e7 20 bf  |y%(G)-inc..... .|
00001070  30 3d bd 33 32 20 66 69  72 65 3d b9 0d 06 c2 05  |0=.32 fire=.....|
00001080  e1 0d 06 cc 0f dd f2 64  61 72 74 3a e6 33 2c 32  |.......dart:.3,2|
00001090  0d 06 d6 23 ec 78 25 28  47 29 2c 79 25 28 47 29  |...#.x%(G),y%(G)|
000010a0  2d 32 35 3a df 78 25 28  47 29 2c 79 25 28 47 29  |-25:.x%(G),y%(G)|
000010b0  2b 32 35 0d 06 e0 23 ec  78 25 28 47 29 2d 32 35  |+25...#.x%(G)-25|
000010c0  2c 79 25 28 47 29 3a df  78 25 28 47 29 2b 32 35  |,y%(G):.x%(G)+25|
000010d0  2c 79 25 28 47 29 0d 06  ea 05 e1 0d 06 f4 0f dd  |,y%(G)..........|
000010e0  f2 64 61 74 61 69 6e 70  75 74 0d 06 fe 14 f1 27  |.datainput.....'|
000010f0  22 31 2f 32 20 50 6c 61  79 65 72 73 3f 22 0d 07  |"1/2 Players?"..|
00001100  08 09 f5 41 24 3d be 0d  07 12 14 fd 41 24 3d 22  |...A$=......A$="|
00001110  31 22 20 84 20 41 24 3d  22 32 22 0d 07 1c 12 ef  |1" . A$="2".....|
00001120  31 31 3a f1 89 28 31 32  29 3a ef 31 31 0d 07 26  |11:..(12):.11..&|
00001130  20 e3 20 54 25 3d 31 20  b8 20 bb 41 24 3a f1 22  | . T%=1 . .A$:."|
00001140  4b 65 79 2f 4a 6f 79 20  3e 22 3b 54 25 0d 07 30  |Key/Joy >";T%..0|
00001150  1a f5 53 24 3d be 3a fd  53 24 3d 22 4a 22 20 84  |..S$=.:.S$="J" .|
00001160  20 53 24 3d 22 4b 22 0d  07 3a 18 6a 6f 79 28 54  | S$="K"..:.joy(T|
00001170  25 29 3d 28 53 24 3d 22  4a 22 29 3a ef 31 31 0d  |%)=(S$="J"):.11.|
00001180  07 44 10 f1 89 28 31 32  29 3a ef 31 31 3a ed 0d  |.D...(12):.11:..|
00001190  07 4e 18 f1 22 4c 65 76  65 6c 20 28 30 2d 39 29  |.N.."Level (0-9)|
000011a0  22 3a f5 53 24 3d be 0d  07 58 1e 4c 76 25 3d bb  |":.S$=...X.Lv%=.|
000011b0  53 24 2b 31 3a fd 20 4c  76 25 3e 30 20 80 20 4c  |S$+1:. Lv%>0 . L|
000011c0  76 25 3c 31 31 0d 07 62  23 ef 31 31 2c 31 31 3a  |v%<11..b#.11,11:|
000011d0  f1 89 28 31 32 29 3a f1  22 28 33 29 30 31 20 6f  |..(12):."(3)01 o|
000011e0  72 20 28 35 29 30 31 22  0d 07 6c 18 f5 20 53 25  |r (5)01"..l.. S%|
000011f0  3d a5 2d 35 30 3a fd 53  25 3d 31 84 53 25 3d 33  |=.-50:.S%=1.S%=3|
00001200  0d 07 76 0f ef 31 31 3a  f1 89 28 31 34 29 3b 0d  |..v..11:..(14);.|
00001210  07 80 1a e7 20 53 25 3d  31 20 53 25 3d 33 30 31  |.... S%=1 S%=301|
00001220  20 8b 20 53 25 3d 35 30  31 0d 07 8a 17 73 63 25  | . S%=501....sc%|
00001230  28 31 29 3d 53 25 3a 73  63 25 28 32 29 3d 53 25  |(1)=S%:sc%(2)=S%|
00001240  0d 07 94 0f 4c 76 25 3d  4c 76 25 2a 35 3a e1 0d  |....Lv%=Lv%*5:..|
00001250  07 9e 0b dd f2 62 6f 61  72 64 0d 07 a8 21 46 3d  |.....board...!F=|
00001260  32 3a 47 3d 30 3a e3 54  3d 31 20 b8 20 32 30 3a  |2:G=0:.T=1 . 20:|
00001270  41 3d 46 3a 46 3d 47 3a  47 3d 41 0d 07 b2 10 e6  |A=F:F=G:G=A.....|
00001280  30 2c 33 3a f3 20 4e 55  3a ef 35 0d 07 bc 15 f2  |0,3:. NU:.5.....|
00001290  64 72 61 77 28 33 2c 30  2c 30 29 3a f1 3b 4e 55  |draw(3,0,0):.;NU|
000012a0  0d 07 c6 12 e3 6c 70 25  3d 31 20 b8 20 34 20 88  |.....lp%=1 . 4 .|
000012b0  20 32 0d 07 d0 23 f2 64  72 61 77 28 31 2c 54 2c  | 2...#.draw(1,T,|
000012c0  6c 70 25 29 3a f2 64 72  61 77 28 31 2c 54 2d 31  |lp%):.draw(1,T-1|
000012d0  2c 6c 70 25 29 0d 07 da  12 e6 30 2c 46 2b 31 3a  |,lp%).....0,F+1:|
000012e0  f0 38 35 2c 58 2c 59 0d  07 e4 27 f2 64 72 61 77  |.85,X,Y...'.draw|
000012f0  28 31 2c 54 2c 6c 70 25  2b 31 29 3a f2 64 72 61  |(1,T,lp%+1):.dra|
00001300  77 28 31 2c 54 2d 31 2c  6c 70 25 2b 31 29 0d 07  |w(1,T-1,lp%+1)..|
00001310  ee 12 e6 30 2c 47 3a f0  38 35 2c 58 2c 59 3a ed  |...0,G:.85,X,Y:.|
00001320  0d 07 f8 22 e3 6c 70 25  3d 31 20 b8 20 34 3a f2  |...".lp%=1 . 4:.|
00001330  64 72 61 77 28 31 2c 54  2c 6c 70 25 29 3a e6 30  |draw(1,T,lp%):.0|
00001340  2c 32 0d 08 02 16 f2 64  72 61 77 28 32 2c 54 2d  |,2.....draw(2,T-|
00001350  31 2c 6c 70 25 29 3a ed  0d 08 0c 21 f2 64 72 61  |1,lp%):....!.dra|
00001360  77 28 31 2c 54 2d 31 2c  35 29 3a f2 64 72 61 77  |w(1,T-1,5):.draw|
00001370  28 32 2c 54 2d 31 2c 31  29 0d 08 16 1f f2 64 72  |(2,T-1,1).....dr|
00001380  61 77 28 31 2c 54 2c 35  29 3a f2 64 72 61 77 28  |aw(1,T,5):.draw(|
00001390  32 2c 54 2c 31 29 3a ed  0d 08 20 29 e3 54 3d 31  |2,T,1):... ).T=1|
000013a0  20 b8 20 32 30 3a f2 64  72 61 77 28 31 2c 54 2c  | . 20:.draw(1,T,|
000013b0  35 29 3a f2 64 72 61 77  28 31 2c 54 2d 31 2c 35  |5):.draw(1,T-1,5|
000013c0  29 0d 08 2a 1d e6 30 2c  33 3a f0 38 35 2c 58 2c  |)..*..0,3:.85,X,|
000013d0  59 3a f2 64 72 61 77 28  31 2c 54 2c 36 29 0d 08  |Y:.draw(1,T,6)..|
000013e0  34 21 f2 64 72 61 77 28  31 2c 54 2d 31 2c 36 29  |4!.draw(1,T-1,6)|
000013f0  3a e6 30 2c 31 3a f0 38  35 2c 58 2c 59 3a ed 0d  |:.0,1:.85,X,Y:..|
00001400  08 3e 1c ec 37 36 30 2c  35 33 30 3a ef 35 2c 32  |.>..760,530:.5,2|
00001410  35 35 3a ec 37 36 30 2c  35 32 30 0d 08 48 18 ef  |55:.760,520..H..|
00001420  32 35 35 3a ec 37 35 35  2c 35 32 35 3a ef 32 35  |255:.755,525:.25|
00001430  35 2c 34 0d 08 52 1a e6  30 2c 32 3a ec 38 33 32  |5,4..R..0,2:.832|
00001440  2c 33 39 39 3a df 38 38  36 2c 32 39 33 0d 08 5c  |,399:.886,293..\|
00001450  1a e6 30 2c 33 3a ec 39  35 35 2c 33 33 33 3a df  |..0,3:.955,333:.|
00001460  39 37 31 2c 33 31 37 0d  08 66 1a e6 30 2c 30 3a  |971,317..f..0,0:|
00001470  ec 38 37 35 2c 34 31 33  3a df 39 35 31 2c 33 33  |.875,413:.951,33|
00001480  36 0d 08 70 05 e1 0d 08  7a 0b dd f2 65 72 72 6f  |6..p....z...erro|
00001490  72 0d 08 84 0d e7 9f 3d  31 37 20 8c 20 f9 0d 08  |r......=17 . ...|
000014a0  8e 0e ef 32 32 2c 37 3a  2a 46 58 34 0d 08 98 16  |...22,7:*FX4....|
000014b0  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
000014c0  3a e0 0d 08 a2 15 dd f2  69 6e 73 74 72 75 63 74  |:.......instruct|
000014d0  3a f7 20 8d 64 76 49 0d  08 ac 1a e3 20 47 25 3d  |:. .dvI..... G%=|
000014e0  30 20 b8 20 31 3a e3 20  48 25 3d 38 20 b8 20 32  |0 . 1:. H%=8 . 2|
000014f0  32 0d 08 b6 14 f3 20 41  25 3a ef 33 31 48 25 47  |2..... A%:.31H%G|
00001500  25 41 25 3a ed 0d 08 c0  07 f1 3a ed 0d 08 ca 2b  |%A%:......:....+|
00001510  f1 89 38 bd 31 35 30 c4  31 34 2c 22 2c 22 29 22  |..8.150.14,",")"|
00001520  20 22 bd 31 33 30 22 42  79 20 43 68 72 69 73 20  | ".130"By Chris |
00001530  45 77 65 6c 73 22 27 0d  08 d4 2f f1 bd 31 33 34  |Ewels"'.../..134|
00001540  22 44 61 72 74 73 20 69  73 20 61 20 67 61 6d 65  |"Darts is a game|
00001550  20 66 6f 72 20 74 77 6f  20 70 6c 61 79 65 72 73  | for two players|
00001560  2c 20 62 75 74 22 0d 08  de 31 f1 bd 31 33 34 22  |, but"...1..134"|
00001570  74 68 65 20 63 6f 6d 70  75 74 65 72 20 63 61 6e  |the computer can|
00001580  20 70 6c 61 79 20 66 6f  72 20 6f 6e 65 20 6f 66  | play for one of|
00001590  20 74 68 65 6d 2e 22 0d  08 e8 2f f1 bd 31 33 34  | them.".../..134|
000015a0  22 59 6f 75 20 74 61 6b  65 20 69 74 20 69 6e 20  |"You take it in |
000015b0  74 75 72 6e 20 74 6f 20  74 68 72 6f 77 20 33 20  |turn to throw 3 |
000015c0  64 61 72 74 73 22 0d 08  f2 2e f1 bd 31 33 34 22  |darts"......134"|
000015d0  61 74 20 61 20 62 6f 61  72 64 2e 20 54 68 65 20  |at a board. The |
000015e0  66 69 72 73 74 20 74 6f  20 72 65 61 63 68 20 7a  |first to reach z|
000015f0  65 72 6f 22 0d 08 fc 2f  f1 bd 31 33 34 22 66 72  |ero".../..134"fr|
00001600  6f 6d 20 33 30 31 20 6f  72 20 35 30 31 20 69 73  |om 301 or 501 is|
00001610  20 74 68 65 20 77 69 6e  6e 65 72 2e 20 54 68 65  | the winner. The|
00001620  72 65 22 0d 09 06 28 f1  bd 31 33 34 22 61 72 65  |re"...(..134"are|
00001630  20 61 20 66 65 77 20 65  78 74 72 61 20 72 75 6c  | a few extra rul|
00001640  65 73 20 74 68 6f 75 67  68 3a 22 0d 09 10 2c f1  |es though:"...,.|
00001650  bd 31 32 39 22 31 2e 20  59 6f 75 20 6d 75 73 74  |.129"1. You must|
00001660  20 73 74 61 72 74 20 61  6e 64 20 66 69 6e 69 73  | start and finis|
00001670  68 20 6f 6e 20 61 22 0d  09 1a 2f f1 bd 31 32 39  |h on a".../..129|
00001680  89 33 22 64 6f 75 62 6c  65 20 6f 72 20 62 75 6c  |.3"double or bul|
00001690  6c 20 5f 20 74 68 65 20  6f 75 74 65 72 20 72 69  |l _ the outer ri|
000016a0  6e 67 20 6f 72 22 0d 09  24 2a f1 bd 31 32 39 89  |ng or"..$*..129.|
000016b0  33 22 63 65 6e 74 72 65  20 5f 20 6e 6f 74 68 69  |3"centre _ nothi|
000016c0  6e 67 20 65 6c 73 65 20  63 6f 75 6e 74 73 2e 22  |ng else counts."|
000016d0  0d 09 2e 26 f1 bd 31 32  39 22 32 2e 20 59 6f 75  |...&..129"2. You|
000016e0  20 6d 75 73 74 20 6e 6f  74 20 67 6f 20 62 65 6c  | must not go bel|
000016f0  6f 77 20 30 2e 22 0d 09  38 2d f1 bd 31 32 39 22  |ow 0."..8-..129"|
00001700  33 2e 20 41 6e 79 20 64  61 72 74 20 6f 66 66 20  |3. Any dart off |
00001710  74 68 65 20 62 6f 61 72  64 20 64 6f 65 73 20 6e  |the board does n|
00001720  6f 74 22 0d 09 42 13 f1  bd 31 32 39 89 33 22 63  |ot"..B...129.3"c|
00001730  6f 75 6e 74 2e 22 0d 09  4c 25 f1 bd 31 33 31 89  |ount."..L%..131.|
00001740  34 22 54 68 65 20 6b 65  79 73 20 61 72 65 20 61  |4"The keys are a|
00001750  73 20 66 6f 6c 6c 6f 77  73 3a 22 0d 09 56 22 f1  |s follows:"..V".|
00001760  bd 31 33 31 89 34 22 4c  65 66 74 20 2d 20 5a 22  |.131.4"Left - Z"|
00001770  89 37 22 52 69 67 68 74  20 2d 20 58 22 0d 09 60  |.7"Right - X"..`|
00001780  22 f1 bd 31 33 31 89 34  22 55 70 20 20 20 2d 20  |"..131.4"Up   - |
00001790  3a 22 89 37 22 44 6f 77  6e 20 20 2d 20 2f 22 0d  |:".7"Down  - /".|
000017a0  09 6a 1f f1 bd 31 33 31  89 37 22 54 68 72 6f 77  |.j...131.7"Throw|
000017b0  20 64 61 72 74 20 2d 20  53 70 61 63 65 22 0d 09  | dart - Space"..|
000017c0  74 30 f1 bd 31 33 35 22  54 68 65 20 67 61 6d 65  |t0..135"The game|
000017d0  20 6c 65 76 65 6c 20 63  6f 6e 74 72 6f 6c 73 20  | level controls |
000017e0  74 68 65 20 61 6d 6f 75  6e 74 20 6f 66 22 0d 09  |the amount of"..|
000017f0  7e 32 f1 bd 31 33 35 22  68 61 6e 64 20 73 68 61  |~2..135"hand sha|
00001800  6b 65 20 79 6f 75 72 20  70 6c 61 79 65 72 20 68  |ke your player h|
00001810  61 73 2c 20 61 73 20 77  65 6c 6c 20 61 73 22 20  |as, as well as" |
00001820  0d 09 88 25 f1 bd 31 33  35 22 74 68 65 20 73 6b  |...%..135"the sk|
00001830  69 6c 6c 20 6f 66 20 74  68 65 20 63 6f 6d 70 75  |ill of the compu|
00001840  74 65 72 2e 22 0d 09 92  19 f1 8a 35 2c 32 34 29  |ter."......5,24)|
00001850  3b 3a ef 31 33 32 2c 31  35 37 2c 31 33 35 0d 09  |;:.132,157,135..|
00001860  9c 1e f1 22 50 72 65 73  73 20 53 50 41 43 45 20  |..."Press SPACE |
00001870  74 6f 20 73 74 61 72 74  22 89 32 3b 0d 09 a6 0a  |to start".2;....|
00001880  ef 31 35 36 3a e1 0d 09  b0 37 dc 32 30 2c 31 2c  |.156:....7.20,1,|
00001890  31 38 2c 34 2c 31 33 2c  36 2c 31 30 2c 31 35 2c  |18,4,13,6,10,15,|
000018a0  32 2c 31 37 2c 33 2c 31  39 2c 37 2c 31 36 2c 38  |2,17,3,19,7,16,8|
000018b0  2c 31 31 2c 31 34 2c 39  2c 31 32 2c 35 0d 09 ba  |,11,14,9,12,5...|
000018c0  24 dc 22 44 6f 75 62 6c  65 20 6f 72 26 26 26 26  |$."Double or&&&&|
000018d0  22 2c 22 62 75 6c 6c 20  74 6f 20 73 74 61 72 74  |","bull to start|
000018e0  22 0d 09 c4 24 dc 22 44  6f 75 62 6c 65 20 6f 72  |"...$."Double or|
000018f0  26 26 26 26 22 2c 22 62  75 6c 6c 20 74 6f 20 73  |&&&&","bull to s|
00001900  74 6f 70 26 22 0d 09 ce  24 dc 22 4d 69 73 73 65  |top&"...$."Misse|
00001910  64 20 74 68 65 26 26 26  22 2c 22 62 6f 61 72 64  |d the&&&","board|
00001920  26 26 26 26 26 26 26 26  22 0d 09 d8 24 dc 22 59  |&&&&&&&&"...$."Y|
00001930  6f 75 20 68 61 76 65 26  26 26 26 26 22 2c 22 67  |ou have&&&&&","g|
00001940  6f 6e 65 20 62 75 73 74  2e 26 26 26 22 0d 09 e2  |one bust.&&&"...|
00001950  24 dc 22 59 6f 75 20 68  69 74 20 74 68 65 26 26  |$."You hit the&&|
00001960  22 2c 22 77 69 72 65 26  26 26 26 26 26 26 26 26  |","wire&&&&&&&&&|
00001970  22 0d 09 ec 24 dc 22 26  26 26 26 26 26 26 26 26  |"...$."&&&&&&&&&|
00001980  26 26 26 26 22 2c 22 26  26 26 26 26 26 26 26 26  |&&&&","&&&&&&&&&|
00001990  26 26 26 26 22 0d 09 f6  3d dc 20 31 34 38 2c 32  |&&&&"...=. 148,2|
000019a0  33 35 2c 32 33 33 2c 33  32 2c 32 34 36 2c 31 38  |35,233,32,246,18|
000019b0  30 2c 33 32 2c 32 34 37  2c 31 38 31 2c 33 32 2c  |0,32,247,181,32,|
000019c0  32 33 35 2c 31 36 31 2c  33 32 2c 32 33 30 2c 31  |235,161,32,230,1|
000019d0  37 37 0d 0a 00 3c dc 20  31 34 37 2c 32 35 30 2c  |77...<. 147,250,|
000019e0  31 38 36 2c 33 32 2c 31  38 31 2c 31 38 31 2c 33  |186,32,181,181,3|
000019f0  32 2c 31 38 31 2c 32 33  33 2c 33 32 2c 32 33 34  |2,181,233,32,234|
00001a00  2c 33 32 2c 33 32 2c 32  34 30 2c 31 38 36 0d 0a  |,32,32,240,186..|
00001a10  0a 1a dc 34 35 30 2c 34  32 30 2c 32 38 30 2c 32  |...450,420,280,2|
00001a20  35 30 2c 35 35 2c 32 35  0d 0a 14 0f dd f2 72 65  |50,55,25......re|
00001a30  6c 6f 63 28 51 25 29 0d  0a 1e 0f e7 20 51 25 3e  |loc(Q%)..... Q%>|
00001a40  3d 90 20 8c 20 e1 0d 0a  28 16 50 25 3d 90 3a 4c  |=. . ...(.P%=.:L|
00001a50  25 3d b8 50 2d 90 3a 2a  54 41 50 45 0d 0a 32 1d  |%=.P-.:*TAPE..2.|
00001a60  ef 31 32 39 2c 31 33 36  3a f1 22 52 65 6c 6f 63  |.129,136:."Reloc|
00001a70  61 74 69 6e 67 2e 2e 2e  22 0d 0a 3c 20 e3 20 4d  |ating..."..< . M|
00001a80  25 3d 30 20 b8 20 4c 25  2d 31 20 88 34 3a 51 25  |%=0 . L%-1 .4:Q%|
00001a90  21 4d 25 3d 50 25 21 4d  25 0d 0a 46 19 d4 26 31  |!M%=P%!M%..F..&1|
00001aa0  31 2c 2d 37 2c 32 35 35  2a 4d 25 2f 4c 25 2c 31  |1,-7,255*M%/L%,1|
00001ab0  3a ed 0d 0a 50 15 d0 3d  51 25 3a 2a 46 58 31 33  |:...P..=Q%:*FX13|
00001ac0  38 2c 30 2c 31 32 38 0d  0a 5a 12 2a 4b 2e 30 4f  |8,0,128..Z.*K.0O|
00001ad0  4c 44 7c 4d 52 55 4e 7c  4d 0d 0a 64 05 e0 0d ff  |LD|MRUN|M..d....|
00001ae0

19-08-88/DARTS.m0

19-08-88/DARTS.m1

19-08-88/DARTS.m2

19-08-88/DARTS.m4

19-08-88/DARTS.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .