File COMBO

Directory of image this file is from
This file as a plain text file

@E Z=1\INPUT N@@@J LPRINT "THE NUMBER OF PLAYERS=";N\LPRINT @@@O T=(N)*(N-1)/2@@@T LPRINT "THE NUMBER OF TEAMS=";T@@@Y LPRINT\LPRINT "THE TEAMS ARE:" @@@^ FOR I= 1 TO N@@@
 FOR J=(I+1) TO N @@@( X=I*10\Y=J @@@- R=X+Y@@@2 LPRINT R;@@@7 NEXT J\NEXT I\LPRINT @@@< PRINT "NO. OF TEAMS=";T@@AA LPRINT @@AF LPRINT TAB(0);"GAME";TAB(5);"TEAM";TAB(10);"TEAM"@@AK FOR A=1 TO N @@AP FOR B=1 TO N @@AU FOR C=1 TO N @@AZ FOR D =1 TO N@@A
 IF A<>B GO TO 105@@A$ GO TO 190@@A) IF A<>C GO TO 115@@A. GO TO 190@@A3 IF A<>D GO TO 125@@A8 GO TO 190@@A= IF B<>C GO TO 135@@BB GO TO 190@@BG IF B<>D GO TO 145@@BL GO TO 190@@BQ IF C<>D GO TO 155@@BV GO TO 190@@B[ IF A>= B GO TO 190 @@B  IF C>=D GO TO 190@@B% IFA>=C GO TO 190 @@B* IF A>=D GO TO 190@@B/ T1=(10*A)+B\T2=(10*C)+D@@B4 LPRINT TAB(0);Z;TAB(6);T1;TAB(11);T2 @@B9 Z=Z+1@@B> NEXT D @@CC NEXT C @@CH NEXT B @@CM NEXT A @@CR END@@
?@@ GO TO 155@@BV GO TO 190@@B[ IF A>= B GO TO 190 @@B  IF C>=D GO TO 190@@B% IFA>=C GO TO 190 @@B* IF A>=D GO TO 190@@B/ T1=(10*A)+B\T2=(10*C)+D@@B4 LPRINT 



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search