Conference 7.286::golf

259.0. "Scheduling program." by RANGLY::FREEMAN_KEVI (The Squeeky Wheel = Neglect) Mon Apr 25 1988 11:45

Following the form feed is a program I developed a few years ago that allows 
a person to create a schedule file which could be edited to look like the 
following.  "B" indicates a Bye.  Hope it may be of some use. (spread it around)

              / 1 / 8 / 5 / 2 / 9 /
             / 0 / 0 / 1 / 2 / 2 /
            / Y / Y / Y / Y / Y /
           / A / A / A / A / A /
          / M / M / M / M / M /
         /   /   /   /   /   /
PLAYER 1 | 2 | 3 | 4 | 5 | B |
TEAM   2 | 1 | B | 3 | 4 | 5 |
TEAM   3 | 5 | 1 | 2 | B | 4 |
PLAYER 4 | B | 5 | 1 | 2 | 3 |
TEAM   5 | 3 | 4 | B | 1 | 2 |



$ ON CONTROL_Y THEN EXIT
$ FLAG1 = 0
$ SAY:== WRITE SYS$OUTPUT
$ !CLEAR SCREEN
$ SAY ""
$ !CURSOR HOME
$ SAY ""
$PIG:
$ SAY "     This is a program that will make a schedule dependent on the number of"
$ SAY "players or teams.  Since an odd number will result in a player/team having"
$ SAY "a Bye once in the season, if your total number of players/teams is even, you"
$ SAY "must deside if they too will have a Bye.   Note also that with an even #"
$ SAY "of players/teams and a choice of the bye for their league, every other week"
$ SAY "two people/teams will have the bye.  Everyone still gets a bye!  Good Luck"
$ SAY "with your Leagues.                Regards, Kevin Freeman DTN 271-6673"
$ SAY ""
$ INQUIRE/NOPUNCT FIL "What is the name of the schedule file you wish to make? "
$ FIL = "''FIL'" - ";"
$ TEMP = F$LENGTH(FIL)
$ TEMP1 = F$LOCATE(".",FIL)
$ IF TEMP .EQS. TEMP1 THEN FIL = "''FIL'" + ".SCH"
$ CREATE 'FIL
$ ON CONTROL_Y THEN GOTO Z4
$ INQUIRE/NOPUNCT RIGHT "How many players or teams? "
$ IF RIGHT .LT. 10 THEN CB = " " + "''RIGHT'" + " |"
$ IF RIGHT .GT. 9 THEN CB = " " + "''RIGHT'" + "|"
$ TR = 1
$ FIX3 = "B"
$ variable_name = RIGHT
$ IF variable_name THEN GOTO FIX1
$ IF .NOT. variable_name THEN GOTO FIX2
$FIX1:
$ ON CONTROL_Y THEN GOTO Z5
$ SAY ""
$ T1 = 'RIGHT
$ T2 = 'RIGHT + 1
$A1:
$ IF T1 .LT. 20 THEN GOTO B1
$ IF T1 .LT. 33 THEN GOTO Z3
$ SAY ""
$ SAY "I can only make a schedule with 32 or less players/teams, Sorry!"
$ SAY ""
$ DELETE 'FIL;
$ GOTO PIG
$Z5:
$ CLOSE OUT
$Z4:
$ DELETE 'FIL;
$ EXIT
$Z3:
$ SET TERM/WIDTH=130
$ SAY ""
$ SAY "Your choice of #'s of players or teams results in too many characters per"
$ SAY "line so when you wish to print or view the schedule you will have to set"
$ SAY "your terminal for 132 characters; use this command   SET TERM/WIDTH=130 "
$ SAY "and   SET TERM/WIDTH=80  to get your terminal back to 80 characters."
$B1:
$ SAY ""
$ SAY "Working........."
$ OPEN/WRITE OUT 'FIL
$ B = 2
$ A = 1
$ C = 1
$ D = " ''C' "
$A2:
$ C = C + 1
$ IF C .LT. 10 THEN GOTO B2
$ D = D + "|" + " ''C'"
$ GOTO B3
$B2:
$ D = D + "|" + " ''C' "
$B3:
$ IF C .NES. T1 THEN GOTO A2
$ D = D + "|" + " ''FIX3' "
$ WRITE OUT D
$ C = 1
$A3:
$ G = 0
$ A = 1
$ IF B .LT. 10 THEN GOTO C1
$ D = " ''B'"
$ GOTO A4
$C1:
$ D = " ''B' "
$A4:
$ IF B .EQS. T2 THEN GOTO BYE
$ IF T1 .NES. A THEN GOTO A5
$ IF B .EQS. C THEN GOTO X1
$ D = D + "|" + " ''C'"
$ GOTO X2
$X1:
$ D = D + "|" + " ''FIX3'"
$X2:
$ WRITE OUT D
$!DONE ROW
$ B = B + 1
$ G = G + 1
$ GOTO A3
$A5:
$ IF B .NES. 1 THEN GOTO A8
$ B = B + 1
$ GOTO A6
$A8:
$ IF T2 .NES. C THEN GOTO A6
$ C = 1
$A6:
$ IF B .NES. C THEN GOTO A7
$ IF FIX3 .LT. 10  THEN D= D + "|" + " ''FIX3' "
$ IF FIX3 .GT. 9 THEN D = D + "|" + " ''FIX3'"
$ TR = A
$ CT'TR = B
$ A = A + 1
$ C = C + 1
$ GOTO A4
$A7:
$ IF C .LT. 10 THEN GOTO B4
$ D = D + "|" + " ''C'"
$ GOTO B5
$B4:
$ D = D + "|" + " ''C' "
$B5:
$ A = A + 1
$ C = C + 1
$ GOTO A4 
$BYE:
$ IF FLAG1 .EQS. 0 THEN GOTO BYE1
$ CC = 1
$BYE2:
$ IF CC .EQS. RIGHT THEN GOTO BYE1
$ CTA = CT'CC
$ IF CTA .LT. 10 THEN CB = "''CB'" + " " + "''CTA'" + " |"
$ IF CTA .GT. 9 THEN CB = "''CB'" + " " + "''CTA'" + "|"
$ CC = CC + 1
$ GOTO BYE2
$BYE1:
$ CB = "''CB'" + " 1"
$ IF FLAG1 .EQS. 1 THEN WRITE OUT CB
$ CLOSE OUT
$ IF T1 .GT. 19 THEN GOTO Z1
$ SAY "Hit a Return and you can view what it looks like.  If you have a VT100 with"
$ SAY "the Advanced Video Option or better, the schedule will have underlines."
$ SAY "Note...they may not appear on all printers as well.  LN03 works great!"
$ SAY ""
$ INQUIRE/NOPUNCT HOLD "Hit a Return to view!  "
$ TYPE 'FIL
$ INQUIRE/NOPUNCT HOLD "Hit a Return to exit!  "
$ PURGE 'FIL
$ EXIT
$Z1:
$ INQUIRE/NOPUNCT HOLD "Hit a Return to view!  "
$ SET TERM/WIDTH=130
$ TYPE 'FIL
$ INQUIRE/NOPUNCT HOLD "Hit a Return to exit!  "
$ SET TERM/WIDTH=80
$ PURGE 'FIL
$ EXIT
$FIX2:
$ INQUIRE/NOPUNCT SELEC "Selection = even Number of Players, do wish for them to have a Bye (Y/<N>) "
$ IF SELEC .EQS. "Y" THEN FIX3 = "B"
$ IF SELEC .NES. "Y" THEN FIX3 = RIGHT
$ IF SELEC .NES. "Y" THEN RIGHT = RIGHT - 1
$ IF SELEC .NES. "Y" THEN FLAG1 = 1
$ GOTO FIX1