Back to Main page.
Back to Main tapes page.
10  REM*****BY BILL MCFADDEN ON 11/18/76*****
20  REM*****MAKES A BOARD FOR THE GAME OF 'DOTS' *****
30  REM*****LASTACCESS 11/22/76*****
40  DIM A$[70],B$[2],C$[72],D$[72]
50  FILES PASSWD
60  READ #1;D$
70  PRINT "PASSWORD:";
80  SYSTEM G,"ECH-OFF"
90  IF G THEN 80
100  ENTER 5,G,C$
110  SYSTEM G,"ECH-ON"
120  IF G THEN 110
130  IF C$=D$ THEN 170
140  PRINT "WRONG CODE"
150  PRINT '7;
160  GOTO 150
170  PRINT "ENTER THE SIZE OF YOUR BOARD [WIDTH,LENGTH] ";
180  INPUT A,B
190  IF A<36 THEN 220
200  PRINT "MAXIMUM WIDTH IS 35"
210  GOTO 170
220  PRINT "FOR HOW MANY PEOPLE ";
230  INPUT D
240  PRINT "WHAT CHARACTER WOULD YOU LIKE TO USE ";
250  INPUT B$
260  PRINT "HOW MANY BOARDS WOULD YOU LIKE ";
270  INPUT E
280  FOR C=1 TO A*2 STEP 2
290  A$[C,C]=B$[1,1]
300  A$[C+1,C+1]=" "
310  NEXT C
320  FOR F=1 TO E
330  IF B$[LEN(B$),LEN(B$)]#'27 THEN 360
340  IF F>1 THEN 360
350  PRINT '18'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0
360  PRINT LIN(-10)
370  PRINT TAB(A)"DOTS"
380  PRINT "DIMENSIONS:"A"X"B"  DOTS:"A*B"SQUARES:"(A-1)*(B-1)
390  PRINT 
400  FOR C=1 TO B
410  PRINT  USING "#,70A,2A";A$,B$
420  PRINT A$
430  NEXT C
440  PRINT LIN(-3)
450  FOR C=1 TO D
460  PRINT "PLAYER"C"--------------------  SCORE----------"
470  PRINT 
480  NEXT C
490  PRINT LIN(-10)
500  IF B$[LEN(B$),LEN(B$)]#'27 THEN 530
510  IF F>1 THEN 530
520  PRINT '0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'0'20
530  NEXT F
540  END