10 REM        GAME OF DARTS
20 REM FROM MICROCOMPUTING MAY 79
30 REM   MODIFIED FOR THE OSBORNE 1
40 REM     BY RAY AND STEVE GORDON
50 REM          20-MAR-82
60 CLEAR:LET O=0
70 LET V=61440!
80 LET W=128
90 PRINT CHR$(26);
100 LET Q=V:LET D=V
110 PRINT:PRINT:PRINT
120 PRINT "  *  *  *  *  *     DART  GAME     *  *  *  *  *"
130 PRINT:PRINT
140 PRINT "        TO PLAY, TYPE IN YOUR GUESS AS TO"
150 PRINT "          THE EXACT POSITION OF THE * ."
160 PRINT
170 PRINT "          FIRST GUESS THE SPACES ACROSS"
180 PRINT "          THE SCREEN FROM 1 TO 52. THEN"
190 PRINT "         GUESS THE SPACES DOWN FROM 1 TO 24."
200 PRINT
210 PRINT
220 INPUT "             TO START, ENTER 1: ",S
230 RANDOMIZE (RND)
240 IF S=1 THEN GOTO 260
250 LET O=0:LET H=0
260 PRINT
270 INPUT "              HOW MANY DARTS? ",N
280 FOR I= 1 TO N
290 POKE D,32: REM       ERASE DART
300 POKE Q,32: REM       ERASE TARGET
310 LET L=INT(RND*100)
320 IF L>24 THEN GOTO 310
330 LET C=INT(RND*100)
340 IF C>52 THEN GOTO 330
350 LET Q=V+((L-1)*W)+C
360 PRINT CHR$(26);
370 POKE Q,42: REM     PLACE TARGET
380 INPUT "  TYPE POSITION ACROSS (1-52):",T
390 IF T>52 THEN GOTO 380
400 INPUT "  TYPE POSITION DOWN (1-24):",U
410 IF U>24 THEN GOTO 400
420 LET D=V+((U-1)*W+(T-1))
430 LET H=H+1
440 POKE D,89: REM     PLACE DART
450 IF T-1=C THEN IF U=L THEN LET O=O+1
460 PRINT
470 PRINT "                  HITS = ";O
480 PRINT "              ATTEMPTS = ";H
490 FOR J=1 TO 3000: REM    TIME DELAY
500 NEXT J
510 NEXT I
520 PRINT CHR$(26):PRINT:PRINT:PRINT
530 INPUT "      WANT TO PLAY ANOTHER?(1=YES,0=NO): ",R
540 IF R=1 GOTO 250
550 PRINT "         GOODBYE, SEE YOU LATER."
560 END
PUT "      WANT TO PLAY ANOTHER?(1=YES,0=NO): ",R
540 IF R=1 GOTO 250
550 PRINT "  