10 REM---BULLSEYE - T. BRANTNER
20 POKE53280,0:POKE53281,0:PRINTCHR$(8)CHR$(142)"[147]"
30 FORA=832TO1022:READZ:POKEA,Z:NEXT
40 FORA=49152TO49259:READZ:POKEA,Z:NEXT
50 DIMSE%(13,18),QT(3,14),SC(1)
60 FORA=0TO13:FORZ=0TO18:READSE%(A,Z):NEXT:NEXT
70 FORA=0TO3:FORZ=0TO3:READQT(A,Z):QT(A,4+Z)=QT(A,Z)*2:QT(A,8+Z)=QT(A,Z)*3
80 NEXT:QT(A,12)=25:QT(A,13)=50:NEXT
90 TC=646:SP=2040:V=53248:S1=54272:J2=56320:A=RND(-TI)
100 POKEV+16,0:POKEV+28,7:POKEV+37,11:POKEV+38,12
110 SC(0)=301:SC(1)=301
120 REM---MAIN
130 PL=0:POKEV+21,0:POKE53265,11:GOSUB510:POKE53265,27
140 DN=2:CS=SC(PL):POKEV+1,0:POKEV+3,0:POKEV+5,0:POKEV+21,7
150 CY=4:IFPLTHENCX=3:GOSUB470:PRINT"   ":PRINTTAB(CX)"   "
160 POKETC,6+PL*7:CX=3+PL*31:GOSUB470:PRINT"[161][194][187][157][157][157][188][194][162]"
170 GOSUB300:CY=13-DN:CX=3+PL*31:A=PV:GOSUB450:CS=CS-PV
180 CY=15:IFCS<0THENCX=2+PL*31:GOSUB470:PRINT"BROKE":GOTO220
190 CX=3+PL*31:A=CS:GOSUB450:IFCS=0THEN250
200 DN=DN-1:IFDN>-1THEN170
210 SC(PL)=CS
220 FORA=1TO1500:NEXT:PL=PL+1:IFPL<2THEN140
230 GOTO130
240 REM---WINNER
250 CY=23:CX=11:GOSUB470:POKETC,(PEEK(TC)AND7)+1
260 PRINT"WINNER: PLAYER "MID$("ONETWO",1+PL*3,3)
270 PRINTTAB(8)"PRESS FIRE TO PLAY AGAIN";:IFPEEK(J2)AND16THEN250
280 GOTO110
290 REM---MOVE DART
300 POKESP+DN,13:POKEV+39+DN,6+PL*7
310 POKE2,173:POKE3,141:POKE4,RND(1)*2:POKE5,RND(1)*2:POKE6,DN
320 SYS49152:XP=PEEK(2):YP=PEEK(3)
330 REM---THROW
340 GOSUB490:POKES1+5,153:POKES1+4,16:POKES1+4,17
350 FORA=0TO23:POKESP+DN,13+A/11:POKEV+1+DN*2,YP-A:POKES1+1,140-A
360 FORZ=1TO10:NEXT:NEXT
370 GOSUB490:POKES1+5,3:POKES1+1,10:POKES1+4,16:POKES1+4,17:YP=YP-23
380 REM---SCORE
390 PV=0:X%=(XP-98)/4:Y%=(YP-85)/4
400 IFX%<0ORX%>37ORY%<0ORY%>27THENRETURN
410 A=0:IFX%>18THENA=1:X%=37-X%
420 IFY%>13THENA=A+2:Y%=27-Y%
430 Z=SE%(Y%,X%):PV=QT(A,Z):RETURN
440 REM---PRINT NUMBER
450 GOSUB470:PRINT""RIGHT$(" "+STR$(A),3):RETURN
460 REM---PLOT
470 POKE214,CY-1:PRINT:PRINTTAB(CX);:RETURN
480 REM---CLEAR SID
490 FORA=S1TOS1+23:POKEA,0:NEXT:POKES1+24,15:RETURN
500 REM---BOARD
510 PRINT"[147]       [188] [146][208][165] [146] [161] [146]   [146] [203] [146][183]   [146][183] [167][146][170][161] [146][183]"
520 PRINT"        [129] [146][183][161] [146] [161] [146]   [146]  [183][208][161][190] [146][183] [183][208][161] [146][183]"
530 PRINT"       [158][188][162][162][146][190][162][162][146][190][162][162][146][190][162][162][146][190][162][162][146][190] [162][162][146][190][162][162][146][190][162][162][146][190]"
540 PRINT"       [155][182]          [175][175][175][175]          [146][181]"
550 PRINT"       [182]      [172][162][146]   12   [155][162][187]      [146][181]"
560 PRINT"       [182]    [172][146][190]1  [158][162][162][162][162][162][162]  8[155][188][187]    [146][181]"
570 PRINT"       [182]   [146][190]   [153][162][162][146][187]    [172][153][162][146][162]   [155][188]   [146][181]"
580 PRINT" [182][184][184][184][184][184][194]  [146][190]  [158][162][153][162][146][162] [188][146]    [190] [146][162][153][162][158][146][162]  [155][188]  [194][146][184][184][184][184][184][181]"
590 PRINT" [182] ONE [155][194] [146][190]5 [158][190][146][190][162]  [162][158][146][172][162][162][187][162]  [162][158][146][188][188][146] 4[155][161] [194][146] TWO [155][181]"
600 PRINT" [182][198][198][198][198][198][194][172][146]  [158][161][146][165]  [188][172][190][146][161]  [161][188][146][187][190]  [158][167][161]  [155] [194][146][198][198][198][198][198][181]"
610 PRINT" [182]     [194][146][190]  [158][170][146]  [172][172][146] [187] [146]   [172][146] [158][187][146][187]  [180][146]  [155][161][194][146]     [181]"
620 PRINT" [182]     [194][146]  [153][161][165] [188][146][172][162]  [188][190][188][190]  [162][187][190] [167][153][146][161]  [155][194][146]     [181]"
630 PRINT" [182]     [194][146]11[153][161][165]  [161]   [146][161][161][146][161][161]   [146][161]  [167][153][146][161]9 [155][194][146]     [181]"
640 PRINT" [182]     [194][146]  [153][161][165] [172][146][188][162][146]  [172][187][172][187]  [162][146][190][187] [167][153][146][161]  [155][194][146]     [181]"
650 PRINT" [182][197][197][197][197][197][194][146][187]  [158][170][146]  [188][188][146] [190] [146]   [188][146] [158][190][146][190]  [180][146]  [155][172][194][146][197][197][197][197][197][181]"
660 PRINT" [182]     [194][188][146]  [158][161][146][165]  [172][188][187][146][161]  [161][172][146][190][187]  [158][167][161]  [155][190][194][146]     [181]"
670 PRINT" [182][185][185][185][185][185][194] [146][187]2 [158][187][146][187][162]  [146][162][158][188][162][162][146][190][162]  [146][162][158][172][172][146] 7[155][172] [194][146][185][185][185][185][185][181]"
680 PRINT"       [182]  [146][187]  [158][162][153][146][162][162] [172][146]    [187] [162][153][146][162][158][162][146]  [155][172]  [146][181]"
690 PRINT"       [182]   [146][187]   [153][162][146][162][190]    [188][153][162][162][146]   [155][172]   [146][181]"
700 PRINT"       [182]    [188][146][187]6  [158][162][162][162][162][162][162][146]  3[155][172][190]    [146][181]"
710 PRINT"       [182]      [188][146][162]   10   [155][162][190]      [146][181]"
720 PRINT"       [182]          [183][183][183][183]          [146][181]"
730 CY=10:CX=3:A=SC(0):GOSUB450:CX=34:A=SC(1):GOTO450
740 REM---DART DATA
750 DATA 0,48,0,0,48,0,0,48,0,0,48,0,0,252,0,0,236,0,0,116,0,0,236,0,0,116
760 DATA 0,0,236,0,0,116,0,0,252,0,3,187,0,14,186,192,58,186,176,58,186,176
770 DATA 58,186,176,14,254,192,3,51,0,0,48,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0
780 DATA 0,0,48,0,0,48,0,0,252,0,0,236,0,0,116,0,0,116,0,3,187,0,14,186,192
790 DATA 58,186,176,10,254,128,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0,0,0,0,0
800 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,48,0,0,48,0,0,48,0,0,184,0,63
810 DATA 255,240,0,184,0,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0
820 DATA 0,0,0,0,0,0,0
830 REM---ML DATA
840 DATA 165,6,10,168,165,2,153,0,208,165,3,153,1,208,173,0
850 DATA 220,170,41,16,208,1,96,138,74,74,41,3,168,136,192,2
860 DATA 144,2,164,4,24,165,2,121,106,192,201,91,176,7,152
870 DATA 73,1,168,76,55,192,133,2,132,4,138,41,3,168,136,192
880 DATA 2,144,2,164,5,24,165,3,121,106,192,201,97,144,4,201
890 DATA 230,144,7,152,73,1,168,76,91,192,133,3,132,5,162,8
900 DATA 160,0,200,208,253,202,208,250,76,0,192,1,255
910 REM---SCORE DATA
920 DATA14,14,14,14,14,14,14,14,14,14,14,14,14,4,4,4,4,4,4
930 DATA14,14,14,14,14,14,14,14,14,14,14,5,5,0,0,0,0,0,0
940 DATA14,14,14,14,14,14,14,14,14,5,5,1,1,1,0,0,0,0,0
950 DATA14,14,14,14,14,14,14,5,5,1,1,1,1,1,0,0,0,0,0
960 DATA14,14,14,14,14,6,6,1,1,1,1,1,1,1,1,0,0,0,0
970 DATA14,14,14,14,6,6,2,1,1,1,1,1,1,1,1,0,0,0,0
980 DATA14,14,14,6,6,2,2,2,2,1,1,1,1,9,9,9,8,8,8
990 DATA14,14,6,2,2,2,2,2,2,2,1,9,9,9,1,1,0,0,0
1000 DATA14,14,6,2,2,2,2,2,2,2,2,9,1,1,1,1,0,0,0
1010 DATA14,6,2,2,2,2,2,2,2,10,10,2,2,1,1,1,1,0,0
1020 DATA14,6,2,2,2,2,2,2,10,10,2,2,2,2,1,1,1,0,0
1030 DATA7,3,3,3,3,3,2,2,10,2,2,2,2,2,2,2,1,1,0
1040 DATA7,3,3,3,3,3,3,11,3,3,3,2,2,2,2,2,2,12,12
1050 DATA7,3,3,3,3,3,3,11,3,3,3,3,3,3,3,3,12,12,13
1060 REM---SECTION VALUES
1070 DATA12,1,5,11,12,8,4,9,10,6,2,11,10,3,7,9