Tournament

   1 REM COPYRIGHT (C) SEPT.1983BY JEFFREY MOORE
  10 DIM N$(22,16)
  15 DIM B$(6,32)
  20 DIM R(20)
  25 DIM W$(20)
  30 DIM L$(20)
  50 LET RND=1
  55 LET B$(1)="                                "
  60 LET B$(2)="% %R%N%D%.%N%O%.%:% % % % %R%=%R%E%S%H%U%F%F%L%E% %C%=%C%O%P%Y% "
  65 LET B$(3)="% % % % %T%E%A%M% % % % % %V%S%.% % % % % %T%E%A%M% % % % % % % "
  70 LET B$(4)="ILLEGAL FUNCTION"
  75 LET B$(5)="% % %P%=%P%O%S%T% %R%E%S%U%L%T%S% %N%=%N%E%W% %B%R%A%C%K%E%T% % "
  80 LET N$(21)="DRAWS A ""BY"""
  85 LET N$(22)="NAME TOO LONG"
 100 REM ENTER TEAM DATA
 105 CLS 
 110 PRINT AT 19,0;"ENTER THE NUMBER OF TEAMS COM-  PETING IN THIS TOURNAMENT.             (20 TEAMS MAX.)"
 115 INPUT NT
 120 IF NT<0 OR NT>20 THEN GOTO 115
 125 CLS 
 130 PRINT AT 18,0;"ENTER TEAM NAMES AS PROMPTED           (11 LETTERS MAX.)"
 135 PRINT 
 140 PRINT "% %T%E%A%M% %N%O%.% % % % % % %T%E%A%M% %N%A%M%E% % % % % % % % "
 145 FOR N=1 TO NT
 150 SCROLL 
 155 PRINT "   ";N;TAB 12;
 160 INPUT X$
 165 IF LEN X$<=11 THEN GOTO 200
 170 PRINT N$(22)
 175 FOR X=1 TO 60
 180 NEXT X
 185 PRINT AT 21,0;B$(1)
 190 PRINT AT 20,31;" "
 195 GOTO 155
 200 LET N$(N)=(STR$ (N+100))(2 TO )+" "+X$
 205 PRINT N$(N,4 TO 14)
 210 SCROLL 
 215 NEXT N
 220 FOR N=1 TO 60
 225 NEXT N
 230 FAST 
 235 CLS 
 240 GOTO 400
 300 REM CLEAR R
 310 FOR N=1 TO NT
 320 LET R(N)=0
 330 NEXT N
 340 RETURN 
 400 REM SHUFFLE
 410 FAST 
 420 IF RND<=2 THEN GOTO 490
 430 SLOW 
 440 PRINT AT 20,0;B$(4)
 450 PRINT B$(1)
 460 FOR N=1 TO 60
 465 NEXT N
 470 LET RND=RND-1
 480 GOTO 1120
 490 GOSUB 300
 500 FOR N=1 TO NT
 510 LET X=INT (RND*NT)+1
 520 FOR Y=1 TO NT
 530 IF R(Y)=X THEN GOTO 510
 540 NEXT Y
 550 LET R(N)=X
 560 NEXT N
 570 LET W$=B$(1, TO 20)
 580 LET L$=W$
 590 GOTO 1000
 600 REM 2ND.OR 3RD.PLACE TIE
 610 IF NT=3 THEN GOTO 700
 620 FOR N=1 TO NT-1
 630 FOR X=N+1 TO NT
 640 IF N$(R(N),3)="%E" AND N$(R(X),3)="%E" THEN GOTO 680
 650 NEXT X
 660 NEXT N
 670 RETURN 
 680 LET B$(6)=N$(R(N),4 TO 14)+" AND "+N$(R(X),4 TO 14)
 690 PRINT AT 12,0;B$(6);"MUST PLAY EACH OTHER NEXT ROUND TO DETERMINE THIRD PLACE."
 695 RETURN 
 700 IF N$(R(1),3)=N$(R(2),3) OR N$(R(1),3)=N$(R(3),3) THEN GOTO 730
 710 IF N$(R(2),3)=N$(R(3),3) THEN GOTO 730
 720 RETURN 
 730 PRINT AT 12,0;"% %N%O%T%E%:%  IT MAY BE NECESSARY FOR THE LOSER OF THIS ROUND TO PLAY THE LOSER OF NEXT ROUND TO      DETERMINE 2ND.PLACE WINNER."
 740 RETURN 
\n1000 REM DISPLAY/MENU
\n1010 CLS 
\n1020 SLOW 
\n1030 PRINT B$(3)
\n1040 FOR N=1 TO NT
\n1050 PRINT N$(R(N), TO 14),
\n1060 IF INT (N/2)=N/2 THEN PRINT ,,
\n1070 NEXT N
\n1080 IF INT (NT/2)<>NT/2 THEN PRINT N$(21)
\n1085 IF NT=4 OR NT=3 THEN GOSUB 600
\n1086 IF B$(6)<>B$(1) AND L$=B$(1, TO 20) AND NT=2 THEN PRINT AT 12,0;B$(6);"MUST ""BATTLE"" THIS ROUND TO     BREAK THEIR TIE."
\n1090 LET X$=(STR$ (RND+100))(2 TO )
\n1100 LET B$(2,10)=CHR$ (CODE X$+128)
\n1110 LET B$(2,11)=CHR$ (CODE X$(2)+128)
\n1120 PRINT AT 20,0;B$(2);B$(5)
\n1130 IF INKEY$="" THEN GOTO 1130
\n1135 IF INKEY$="R" AND RND<=2 THEN LET RND=RND+1
\n1140 IF INKEY$="R" THEN GOTO 400
\n1150 IF INKEY$="P" THEN GOTO 2000
\n1160 IF INKEY$="N" THEN GOTO 3000
\n1170 IF INKEY$="C" THEN COPY 
\n1180 GOTO 1130
\n2000 REM POST RESULTS
\n2010 CLS 
\n2020 SLOW 
\n2030 LET Y=1
\n2040 PRINT AT 11,0;"ENTER THE NAME OF THE WINNER OF EACH MATCH AS PROMPTED TO DO SO."
\n2050 FOR N=1 TO 50
\n2060 NEXT N
\n2070 FOR N=1 TO (NT-1) STEP 2
\n2080 CLS 
\n2090 PRINT B$(3)
\n2100 PRINT 
\n2110 PRINT N$(R(N), TO 14),N$(R(N+1), TO 14)
\n2120 PRINT 
\n2130 PRINT "% % %T%H%E% %W%I%N%N%E%R% %O%F% %T%H%I%S% %M%A%T%C%H% %I%S%?% % "
\n2140 PRINT 
\n2150 INPUT X$
\n2160 LET X=LEN X$+3
\n2170 IF X<=14 THEN GOTO 2200
\n2180 PRINT N$(22)
\n2190 GOTO 2930
\n2200 IF X$<>N$(R(N),4 TO X) AND X$<>N$(R(N+1),4 TO X) THEN GOTO 2900
\n2210 IF X$=N$(R(N),4 TO X) AND X$=N$(R(N+1),4 TO X) THEN GOTO 2930
\n2220 PRINT 
\n2230 IF X$=N$(R(N+1),4 TO X) THEN GOTO 2400
\n2300 REM N$(R(N)=WIN
\n2305 PRINT N$(R(N), TO 14),"IS THE WINNER"
\n2310 PRINT "OF THIS MATCH. O.K.?(Y/N)"
\n2315 INPUT X$
\n2320 IF X$(1)<>"Y" THEN GOTO 2950
\n2325 LET W$(Y TO Y+1)=N$(R(N), TO 2)
\n2330 IF N$(R(N+1),3)="%*" THEN LET N$(R(N+1),3)="%E"
\n2335 IF N$(R(N+1),3)="%E" THEN GOTO 2350
\n2340 LET N$(R(N+1),3)="%*"
\n2345 LET L$(Y TO Y+1)=N$(R(N+1), TO 2)
\n2350 LET Y=Y+2
\n2355 NEXT N
\n2360 GOTO 2500
\n2400 REM N$(R(N+1)=WIN
\n2405 PRINT N$(R(N+1), TO 14),"IS THE WINNER"
\n2410 PRINT "OF THIS MATCH. O.K.?(Y/N)"
\n2415 INPUT X$
\n2420 IF X$<>"Y" THEN GOTO 2950
\n2425 LET W$(Y TO Y+1)=N$(R(N+1), TO 2)
\n2430 IF N$(R(N),3)="%*" THEN LET N$(R(N),3)="%E"
\n2435 IF N$(R(N),3)="%E" THEN GOTO 2450
\n2440 LET N$(R(N),3)="%*"
\n2445 LET L$(Y TO Y+1)=N$(R(N), TO 2)
\n2450 LET Y=Y+2
\n2455 NEXT N
\n2460 GOTO 2500
\n2500 IF INT (NT/2)=NT/2 THEN GOTO 2580
\n2510 CLS 
\n2520 PRINT B$(3)
\n2530 PRINT 
\n2540 PRINT N$(R(NT), TO 14),N$(21)
\n2550 PRINT 
\n2560 PRINT N$(R(NT),4 TO 14);"IS DECLARED A WINNER BY DEFAULT."
\n2570 LET W$(Y TO Y+1)=N$(R(NT), TO 2)
\n2580 PRINT 
\n2590 PRINT 
\n2600 PRINT "YOU MAY DESIRE TO MAKE A TAPE OFYOUR DATA THUS FAR TO CONTINUE  LATER OR AS A BACK-UP."
\n2610 PRINT 
\n2620 PRINT "% % %E%N%T%E%R% %1% %F%O%R% %S%A%V%E% %R%O%U%T%I%N%E%,%2% %T%0% % %R%E%T%U%R%N% %T%O% %T%H%E% %D%I%S%P%L%A%Y% %A%N%D% %M%E%N%U% "
\n2630 INPUT X
\n2640 IF X<>1 AND X<>2 THEN GOTO 2630
\n2650 GOTO (4000 AND X=1)+(1000 AND X=2)
\n2900 REM ERROR MESS.
\n2910 PRINT "ENTRY ERROR,PLEASE TRY AGAIN."
\n2920 GOTO 2960
\n2930 PRINT "PLEASE ENTER TEAM NAME AS IT    APPEARS ON THE CRT SREEN."
\n2940 GOTO 2960
\n2950 PRINT ,,"O.K.,WE""LL TRY AGAIN."
\n2960 FOR X=1 TO 60
\n2970 NEXT X
\n2980 GOTO 2080
\n3000 REM NEW BRACKET GEN.
\n3010 FAST 
\n3020 GOSUB 300
\n3030 LET X$=""
\n3040 FOR N=1 TO 10
\n3050 IF W$( TO 2)="  " THEN GOTO 3070
\n3060 LET X$=X$+W$( TO 2)
\n3070 LET W$=W$(3 TO )
\n3080 NEXT N
\n3090 FOR N=1 TO 10
\n3100 IF L$( TO 2)="  " THEN GOTO 3120
\n3110 LET X$=X$+L$( TO 2)
\n3120 LET L$=L$(3 TO )
\n3130 NEXT N
\n3140 LET NT=LEN X$/2
\n3150 FOR N=1 TO NT
\n3160 LET R(N)=VAL X$( TO 2)
\n3170 LET X$=X$(3 TO )
\n3180 NEXT N
\n3190 LET W$=B$(1, TO 20)
\n3200 LET L$=W$
\n3210 LET RND=RND+1
\n3220 GOTO 1000
\n4000 REM SAVE ROUTINE
\n4010 CLS 
\n4020 PRINT AT 11,0;"MOUNT TAPE IN RECORDER AND SET  CONTROLS FOR ""RECORD"".KEY ""S""   WHEN READY TO SAVE."
\n4030 IF INKEY$<>"S" THEN GOTO 4030
\n4040 IF INKEY$="S" THEN SAVE "TOURNAMEN%T"
\n4050 GOTO 1000
\n9000 SAVE "TOURNAMEN%T"
\n9010 RUN 1