Thread View: comp.sources.hp48
1 messages
1 total messages
Started by Dan Ciarniello
Tue, 06 Oct 1992 18:51
v07i022: hockey.dc - NHL Stats Viewer v2.0, Part01/01
Author: Dan Ciarniello
Date: Tue, 06 Oct 1992 18:51
Date: Tue, 06 Oct 1992 18:51
1695 lines
49548 bytes
49548 bytes
Checksum: 83070516 (verify with brik -cv)
Submitted-by: Dan Ciarniello <danc@geog.ubc.ca>
Posting-number: Volume 7, Issue 22
Archive-name: hockey.dc
BEGIN_UU hockey.doc
HOCKEY v2.00 by Dan Ciarniello
Please note: These routines require James Donnelly's Tool, Title
Browser and Data Browser libraries to be installed.
This package is for those hockey nuts who like to have National Hockey
League team stats at their fingertips at all times.
Assuming that the information on the calculator is kept up to date,
the routines will display individual team records, team versus another
team records and divisional and league standings.
The main program is MAIN. When MAIN is executed, the calc displays
the NHL teams by division (my bias is evident from the fact that
the Smythe division is listed first). Teams can be selected by using
the arrow keys to move the highlight to the desired team.
The menu is divided into two pages. The first page is for displaying
stats while the second page is for updating those stats.
The following options are available:
Page 1:
REC : Displays stats about selected team. The first line gives the
overall record in W-L-T TP (Win-Loss-Tie Total Points) format.
The second and third lines break this up into home and road
records. The fourth line gives the team's record over the
previous 10 games. Also displayed on the P10 line is the
team's streak. Ie 5W means that the team has won its last five
games while the sixth to last game was either a tie or a loss.
T 1 : Displays a team's record versus anther team. After first team
is selected, the team list is redisplayed but the only menu
option is T 2. Move the highlight to a second team and press
T 2. The first line lists the two selected teams. The second
line shows the record of the first team versus the second team.
(Thes win-loss "columns" would be reversed if the teams were
picked in the opposite order). The order of selection is
interpreted as road team versus home team so that the next two
lines give the road and home records, respectively, of the
selected teams. Finally, past 10 information is displayed as
in REC above.
DIV : Displays the selected divisional standings. A division is selected
by placing the highlight in the region defined by the given
division. eg If the highlight is on any rectangle in the first
four rows, the Smythe division is selected while the fifth to eigth
rows select the Norris division.
NHL : Similar to DIV except that league standings are displayed. The
up and down arrow keys are used to scroll through the display.
% : Similar to NHL except that league standings are according to
winning percentage. (Don't do this until each team has played
at least one game or you'll get an Undefined Result error).
EXIT : Quit the program (may also be done with ATTN but not always;
see below)
Page 2:
The menus on this page are grouped in pairs:
H W with R L
R W with H L
H T with R T
where H stands for Home
R stands for Road
W stands for Win
L stands for Loss
T stands for Tie
These options are for updating the team records. To update the stats,
select the desired team using the arrow keys and then press the
appropriate key. For instance, if the selected team lost at home,
press H L. Next, select the opponent team and press the appropriate
menu key (to prevent mistakes, only the relevant menu option is
available (in this example R W)).
NB. If you mistake picking the first team's result (eg picked R L when
you should have picked H L) pressing ATTN will cancel the option
and return you to the main menu (in this case ATTN does not break you
out of the program as it does at other times). If you don't
realize your mistake until after you've selected the second team's
result, it's to late. The only way to correct the mistake is to
do it manually by editing the data files.
I have tried to make the program as bullet proof as possible so that
non-sensical selections do not kill the program. If such a selection
is made the calc beeps at you and displays the message "Bad Choice".
You may then make another selection.
You will need a memory card to run this program since the total size
of the application and the required libraries is 37.8K.
Enjoy.
Dan Ciarniello
Atmospheric Science
University of British Columbia
END_DOC
BEGIN_RPL hockey.rpl
%%HP: T(3)A(D)F(.);
DIR
MAIN
\<< RCLF { "null"
"null" "null" VAN
LA CAL WIN EDM SJ
"null" "null"
"null" "null"
"null" "null" CHI
StL DETR TOR MINN
TAM "null" "null"
"null" "null"
"null" "null" MON
BOS HAR BUF QUE OTT
"null" "null"
"null" "null"
"null" "null" PIT
WAS NJ NYR NYI PHI
} { "Smythe"
"Division" ""
"VANCOUVER"
"LA KINGS"
"CALGARY"
"WINNIPEG"
"EDMONTON"
"SAN JOSE" "" "" ""
"Norris" "Division"
"" "CHICAGO"
"St LOUIS"
"DETROIT" "TORONTO"
"MINNESOTA" "TAMPA"
"" "" "" "Adams"
"Division" ""
"MONTREAL" "BOSTON"
"HARTFORD"
"BUFFALO" "QUEBEC"
"OTTAWA" "" "" ""
"Patrick"
"Division" ""
"PITTSBURGH"
"CAPITALS"
"NJ DEVILS"
"RANGERS"
"ISLANDERS"
"FLYERS" } { "rec"
"t 1" "div" "NHL"
"%" "exit" "h w"
"r l" "r w" "h l"
"h t" "r t" } { 1 1
"Pick a team" } 0 0
\-> flgs varlist
tlist menul title
stop1 stop2
\<< STD
DO tlist
menul title TBR \->
option
\<< SWAP
'title' STO
CASE
option -12 \>= option
-7 \<= AND option -2
== OR
THEN
varlist SWAP GET
IF DUP "null" \=/
THEN
CASE option -7 ==
THEN
"Pick loser (road)"
{ "NULLKEY" "r l"
"NULLKEY" "NULLKEY"
"NULLKEY" "NULLKEY"
}
END option -8
==
THEN
"Pick winner (home)"
"h w" "NULLKEY" 5
NDUP 6 \->LIST
END option -9
==
THEN
"Pick loser (home)"
"NULLKEY" DUP DUP
"h l" OVER DUP 6
\->LIST
END option -10
==
THEN
"Pick winner (road)"
"NULLKEY" DUP "r w"
OVER 3 NDUP 6 \->LIST
END option -11
==
THEN
"Pick road tie"
"NULLKEY" 5 NDUP
"r t" 6 \->LIST
END option -12
==
THEN
"Pick home tie"
"NULLKEY" 4 NDUP
"h t" OVER 6 \->LIST
END option -2
==
THEN
"Pick second team"
"NULLKEY" "t 2"
OVER 4 NDUP 6 \->LIST
END
END 'menul' STO
'title' 3 ROT PUT
DO tlist menul
title TBR ROT
'title' STO
IF DUP -6 \>=
OVER -1 \<= AND
THEN DROP
varlist SWAP GET
IF DUP "null"
\=/ 3 ROLLD DUP2 SAME
NOT 4 ROLL AND
THEN
IF option
DUP -9 == OVER -10
== OR SWAP -12 ==
OR
THEN 1 SF
END
CASE option
DUP -7 == SWAP -9
== OR
THEN
UPDATE
END
option DUP -8 ==
SWAP -10 == OR
THEN SWAP
UPDATE
END
option DUP -11 ==
SWAP -12 == OR
THEN TIE
END
option -2 ==
THEN TVST
"Pick a team"
END
END 1
'stop2' STO { "rec"
"t 1" "div" "NHL"
"%" "exit" "h w"
"r l" "r w" "h l"
"h t" "r t" }
'menul' STO 'title'
3 ROT PUT
ELSE DROP
"Bad Choice" 1 DISP
1400 .1 BEEP 1 WAIT
END
ELSE
IF 0 ==
THEN DROP2 1
'stop2' STO { "rec"
"t 1" "div" "NHL"
"%" "exit" "h w"
"r l" "r w" "h l"
"h t" "r t" }
'menul' STO 'title'
3 "Pick a team" PUT
ELSE DROP
END
END
UNTIL stop2
END 0 'stop2' STO
ELSE DROP
"Bad Choice" 1 DISP
1400 .1 BEEP 1 WAIT
END
END
option -1 ==
THEN
varlist SWAP GET
IF DUP "null" \=/
THEN REC2
ELSE DROP
"Bad Choice" 1 DISP
1400 .1 BEEP 1 WAIT
END
END
option -3 ==
THEN
DUP 12 MOD
IF DUP 0 ==
THEN DROP 12
END - 1 + tlist
OVER GET varlist
ROT DIV
END
option -4 ==
THEN
DROP NHL
END
option -5 ==
THEN
DROP 1 SF NHL 1 CF
END
option 0 == option
-6 == OR
THEN
DROP 1 'stop1' STO
END
DROP
END
\>>
UNTIL stop1
END flgs
STOF
\>>
\>>
NHL
\<< RCLF RECORD
VARS UPDIR 1 1 3
PICK SIZE
IF 1 FC?
THEN STD
FOR i GETI
"T" SWAP REC 3
ROLLD
NEXT
ELSE 3 FIX
FOR i GETI
PER 3 ROLLD
NEXT STD
END DROP SIZE
DUP DUP 2 + ROLLD 1
LSORT MREVERSE
\->LIST DUP OBJ\-> 3
EXTRACT \->LIST 1 1 9
START GETI
OVER 1 - "." + 4
STRCTR SWAP + 3
ROLLD
NEXT 10 14
ROLL 1 -
START GETI
OVER 1 - ". " +
SWAP + 3 ROLLD
NEXT SWAP
OVER GETI 4 PICK
". " + SWAP + 3
ROLLD DROP2 SWAP
\->LIST SWAP OBJ\-> 2
EXTRACT \->LIST
"NULLKEY" 5 NDUP
"EXIT" 6 \->LIST { 2
1 1 0
" NHL Standings"
} DBR 3 DROPN STOF
\>>
REC2
\<< \-> team
\<< { } "T"
team REC 2 GET ""
"H" team REC 2 GET
"R" team REC 2 GET
"" "P" team PAST10
" " SWAP + 6 \->LIST
"NULLKEY" 5 NDUP
"EXIT" 6 \->LIST { 2
1 1 0 } { NJ
"New Jersey Devils"
NYR
"New York Rangers"
NYI
"New York Islanders"
PHI
"Philadelphia Flyers"
WAS
"Washington Capitals"
PIT
"Pittsburgh Penguins"
QUE
"Qu\233bec Nordiques"
HAR
"Hartford Whalers"
BUF
"Buffalo Sabres"
BOS "Boston Bruins"
MON
"Montr\233al Canadiens"
OTT
"Ottawa Senators"
TOR
"Toronto Maple Leafs"
MINN
"Minnesota Stars"
DETR
"Detroit Red Wings"
CHI
"Chicago Blackhawks"
StL
"St Louis Blues"
TAM
"Tampa Lightning"
EDM
"Edmonton Oilers"
SJ
"San Jose Sharks"
LA
"Los Angeles Kings"
CAL
"Calgary Flames"
WIN "Winnipeg Jets"
VAN
"Vancouver Canucks"
} team NXTOB + DBR
3 DROPN
\>>
\>>
P10
DIR
VAN { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
WIN { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
CAL { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
LA { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
SJ { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
EDM { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
StL { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
CHI { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
DETR { "n"
"n" "n" "n" "n" "n"
"n" "n" "n" "n" }
MINN { "n"
"n" "n" "n" "n" "n"
"n" "n" "n" "n" }
TOR { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
TAM { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
MON { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
BOS { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
BUF { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
HAR { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
QUE { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
OTT { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
PIT { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
WAS { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
PHI { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
NYI { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
NYR { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
NJ { "n" "n"
"n" "n" "n" "n" "n"
"n" "n" "n" }
END
STATS
DIR
VAN
[[ 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 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 0 ]]
WIN
[[ 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 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 ]]
CAL
[[ 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 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 ]]
LA
[[ 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 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
SJ
[[ 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 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
EDM
[[ 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 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
StL
[[ 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 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
CHI
[[ 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 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
DETR
[[ 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 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
MINN
[[ 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 0 0 ]
[ 0 0 0 ]]
TOR
[[ 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 0 0 ]]
TAM
[[ 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 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 0 ]
[ 0 0 0 ]]
MON
[[ 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 ]]
BOS
[[ 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 ]]
BUF
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
HAR
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
QUE
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
OTT
[[ 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 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 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
PIT
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
WAS
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
PHI
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
NYI
[[ 0 0 0 ]
[ 0 0 0 ]]
NYR
[[ 0 0 0 ]]
NJ 0
END
RECORD
DIR
VAN
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
WIN
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
CAL
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
LA
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
SJ
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
EDM
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
StL
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
CHI
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
DETR
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
MINN
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
TOR
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
TAM
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
MON
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
BOS
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
BUF
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
HAR
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
QUE
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
OTT
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
PIT
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
WAS
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
PHI
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
NYI
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
NYR
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
NJ
[[ 0 0 0 ]
[ 0 0 0 ]
[ 0 0 0 ]]
END
TVST
\<< \-> team1 team2
\<< { } STATS
IF team1
RCL SIZE
IF DUP
TYPE
THEN 1
GET
ELSE DROP
0
END team2
RCL SIZE
IF DUP
TYPE
THEN 1
GET
ELSE DROP
0
END >
THEN team2
RCL SIZE
IF DUP
TYPE
THEN 1
GET 1 +
END team1
RCL SWAP GETROW V\->
\->STR "-" SWAP + +
"-" SWAP + +
ELSE team1
RCL SIZE
IF DUP
TYPE
THEN 1
GET 1 +
END team2
RCL SWAP GETROW V\->
\->STR 3 ROLLD \->STR
"-" + SWAP + "-" +
SWAP +
END UPDIR
20 STRCTR
" R H"
"R" team1 REC 2 GET
\->WORDS 3 DROPN 10
STRCTR "H" team2
REC 2 GET \->WORDS 3
DROPN 10 STRCTR +
" Past 10" "P"
team2 PAST10 \->WORDS
DROP2 "P" team1
PAST10 \->WORDS DROP2
10 STRCTR ROT 10
STRCTR + SWAP 10
STRCTR ROT 10
STRCTR + SWAP 6
\->LIST "NULLKEY" 5
NDUP "EXIT" 6 \->LIST
{ 2 1 1 0 } team1
" at " + team2 +
18 STRCTR " " SWAP
+ + DBR 3 DROPN
\>>
\>>
DIV
\<< \-> div
\<< div 3 + DUP
DUP 5 +
START GETI
"T" SWAP REC 3
ROLLD
NEXT DROP2
6 1 LSORT MREVERSE
\->LIST DUP OBJ\-> 3
EXTRACT \->LIST 1 1 3
PICK SIZE 1 -
START GETI
OVER 1 - ". " + " "
SWAP + SWAP + 3
ROLLD
NEXT GETI
SWAP DROP OVER SIZE
". " + " " SWAP +
SWAP + SWAP SIZE
\->LIST SWAP OBJ\-> 2
EXTRACT \->LIST
"NULLKEY" 5 NDUP
"EXIT" 6 \->LIST { 2
1 1 0 } 5 ROLL
" Division" + " "
SWAP + + DBR 3
DROPN
\>>
\>>
PAST10
\<< \-> result team
\<< { P10 }
team + RCL
IF result
"P" \=/
THEN CDR
result + P10 team
STO UPDIR
ELSE DUP {
"W" } INTERSECT
SIZE "-" + OVER {
"L" } INTERSECT
SIZE + "-" + OVER {
"T" } INTERSECT
SIZE + " " + 1
ROT REVERSE CUT
SWAP
DO CUT
IF 3
PICK ==
THEN
ROT 1 + 3 ROLLD 0
ELSE
DROP + + " P10" +
1
END
UNTIL
END
END
\>>
\>>
REC
\<< { RECORD }
OVER + RCL 3 PICK
CASE DUP "T"
==
THEN DROP 3
END "H" ==
THEN 1
END 2
END GETROW
DUP V\-> "-" SWAP + +
"-" SWAP + + 10
STRCTR SWAP
[ 2 0 1 ]
DOT SWAP OVER + 4
ROLL
IF DUP "T" \=/
THEN " "
SWAP + +
ELSE DROP
END ROT "" +
DUP SIZE 4 SWAP -
32 SWAP STRCON + 3
\->LIST
\>>
PER
\<< { RECORD }
OVER + RCL 3 GETROW
DUP
[ 2 0 1 ]
DOT SWAP CNRM / 2 /
" " SWAP + SWAP ""
+ DUP SIZE 4 SWAP -
32 SWAP STRCON +
OVER SWAP 3 \->LIST
\>>
UPDATE
\<< \-> winner
loser
\<< STATS
IF winner
RCL SIZE
IF DUP
TYPE
THEN 1
GET
ELSE DROP
0
END loser
RCL SIZE
IF DUP
TYPE
THEN 1
GET
ELSE DROP
0
END DUP2
>
THEN SWAP
DROP 1 + DUP 1 2
\->LIST winner OVER
GET 1 + winner 3
ROLLD PUT winner
RCL SWAP GETROW V\->
\->STR "-" SWAP + +
"-" SWAP + +
ELSE DROP 1
+ DUP 2 2 \->LIST
loser OVER GET 1 +
loser 3 ROLLD PUT
loser RCL SWAP
GETROW V\-> 3 ROLLD
\->STR "-" + SWAP +
"-" + SWAP +
END " vs "
+ loser + winner
" " ROT + + "W"
winner PAST10 "L"
loser PAST10 RECORD
IF 1 FC?C
THEN
[[ 0 0 0 ]
[ 0 1 0 ]
[ 0 1 0 ]]
[[ 1 0 0 ]
[ 0 0 0 ]
[ 1 0 0 ]]
ELSE
[[ 0 1 0 ]
[ 0 0 0 ]
[ 0 1 0 ]]
[[ 0 0 0 ]
[ 1 0 0 ]
[ 1 0 0 ]]
END winner
STO+ loser STO+
UPDIR
\>>
\>>
TIE
\<< \-> team1 team2
\<< STATS
IF team1
RCL SIZE
IF DUP
TYPE
THEN 1
GET
ELSE DROP
0
END team2
RCL SIZE
IF DUP
TYPE
THEN 1
GET
ELSE DROP
0
END >
THEN team2
RCL SIZE
IF DUP
TYPE
THEN 1
GET 1 +
END DUP 3
2 \->LIST team1 OVER
GET 1 + team1 3
ROLLD PUT team1 RCL
SWAP GETROW OBJ\->
DROP \->STR "-" SWAP
+ + "-" SWAP + +
ELSE team1
RCL SIZE
IF DUP
TYPE
THEN 1
GET 1 +
END DUP 3
2 \->LIST team2 OVER
GET 1 + team2 3
ROLLD PUT team2 RCL
SWAP GETROW V\-> 3
ROLLD \->STR "-" +
SWAP + "-" + SWAP +
END " vs "
+ team2 + team1 " "
ROT + + "T" team1
PAST10 "T" team2
PAST10 RECORD
[[ 0 0 0 ]
[ 0 0 1 ]
[ 0 0 1 ]]
[[ 0 0 1 ]
[ 0 0 0 ]
[ 0 0 1 ]]
IF 1 FS?C
THEN SWAP
END team1
STO+ team2 STO+
UPDIR
\>>
\>>
RESET
\<<
DO
"Are you sure?
" 1
DISP 3 FREEZE {
"yes" "no" } TMENU
-1 WAIT
CASE DUP
11.1 ==
THEN DROP
STATS 3 TVARS OBJ\->
1 SWAP
START
DUP RCL SIZE 0 CON
SWAP STO
NEXT
P10 VARS OBJ\-> 1
SWAP
START
"n" 10 NDUP 10
\->LIST SWAP STO
NEXT
RECORD VARS OBJ\-> 1
SWAP
START {
3 3 } 0 CON SWAP
STO
NEXT
UPDIR 1
END 12.1
==
THEN 1
END 0
END 0 MENU
UNTIL
END
\>>
END
END_RPL
BYTES: #AA060h 19900.5
BEGIN_UU hockey.uue
begin 644 hockey
M2%!(4#0X+466*O!_$((````%4D53150%G2W@82/#,,*B`B$`$"17!I+W5@<R
M5R=7]J.0+"J$I3$O*J2E0:<"+"JP``!Y97,L*I```&YO*S'0%2&&H_)Q&HTW
MTMD"A_LQDP(!```````1`7+I@7HCG2V`O1](+E`P115$-34O*J^AL?<<R:+2
MNQ\#,7*X'T`+@IL<M*)B&!V]^]',($PR@N0"`U`Q,)2AL?<<R:+2NQ\#,<*B
M`@<`X#:3`@$````````!2"Y`X$14!363`@$````````!@\?1NQ_-#,(D(T@N
M8"!5-/0D1409&GO/D2PJO?LQ$"-T*C`O*O.BLA(#M*)B&!V]^]',($PRLA4:
MR:*R$@/5+S*3`@$``````"$!<NF!>B/)HE+](K2BLA(#U2]"*RJ6$=(.([DV
MDF,C*S'P)0`#5$E%`YTMX&$CP332Y@(%=&5A;3%M+E!`5Q;6)N-A(T@N4#!%
M%40U->PB;2Y00%<6UA8#M""XR3'L(H?[8;@<^B[2V0+)HF)\'2LQ4/LBG2V`
MO1^THK(2`]4OTN8"!71E86TR0`N"FQS#+G*X'X;+H>\BG2V0+"K&U[$2`[4O
MTMD"V/M!*RHK,5#](EWLH>\BG2W0Y@(%=&5A;3)`"X*;',,N<K@?ALNA[R*=
M+9`L*L;7D2PJ9ZNQ$@/5+W*X'_.BXBTJ@\?1Y@(%=&5A;3$I_&%\'<FB<K8:
M;2Y00%<6UA8S+RK0_'%`'6TN4$!7%M86`[0@O?N!Y`(&1T544D]7>\^!O1\+
MR\&B`@<`T-*['V>K<;8:+"IP```MO?MQMAIGJ[$2`[4OTMD";2Y00%<6UA8#
MM""XR3'L(H?[8;@<^B[2V0+)HF)\'<FB<K8:*S%0_2*'^S$O*MZB,G@<;2Y0
M0%<6UB:3PA_&UY$L*F>KT>8"!71E86TR\Z("S1\'U-'F`@5T96%M,D`+TKL?
M2"Y@<%1$)?5T9=`=\Z("S1\+R\&B`@<`T'*V&KW[<;8:+"IP```M9ZO1NQ]G
MJ[$2`]4OPJ("#0``8C<'<K8:;2Y00%<6UB9SMAIM+E!`5Q;6%L.B`@<``.+`
M'V>K<;8:+"IP``!4;2Y00%<6UA:#Y`(&4$%35#$P+"IP``!4;2Y00%<6UB:#
MY`(&4$%35#$P2"Y@(%4T]"1%A)X"J0`PDP("`#````,`````````````````
M```````````````````````````````````````````````0````````````
M```````````````````0@)X"J0`PDP("`#````,`````````````````````
M```````````0````````````````````````````````````````````````
M```````````````0,.PBR:(22ASZ+M*[']4OTN8"!71E86TQ2P32Y@(%=&5A
M;3)+!+(5&OXUDF,C*S%P8``&55!$051%!ITMX&$CP332Y@(&=VEN;F5R;2Y0
MP/8V5R;G82-(+E`P115$-37L(FTN8'"7YN96)@>T(+C),>PBA_MAN!SZ+M+9
M`LFB8GP=*S%0^R*=+8"]'[2BLA(#U2_2Y@(%;&]S97)`"X*;',,N<K@?ALNA
M[R*=+9`L*L;7L1(#M2_2V0+8^T$K*BLQ4/TBHOO1Q1[Z+M+9`KW[@;T?R:)R
MMAJ'^Y$L*MZB,G@<;2Y@<)?FYE8FE\(?QM>1+"IGJ]'F`@9W:6YN97+SH@+-
M'P?4T>8"!G=I;FYE<D`+TKL?2"Y@<%1$)?5T9=`="\O!H@('`-#2NQ]GJW&V
M&BPJ<```+;W[<;8:9ZNQ$@.U+]+9`MC[D2PJ9ZMQN!_>HN(M*H/'T>8"!6QO
M<V5R*?QA?!W)HG*V&FTN4,#V-E<F-R\JT/QQ0!UM+E#`]C97)@>T(+W[@>0"
M!D=%5%)/5P;=,2\JT/RQL!PL*G```"UGJ]&['V>KP:("!P#0<K8:O?MQMAHK
M,5#](BPJT```('9S(&>KT>8"!6QO<V5R9ZO1Y@(&=VEN;F5R+"IP```@#OQQ
MMAIGJ\&B`@<`<-7F`@9W:6YN97)(+F``%31%%0/#H@('`,#4Y@(%;&]S97)(
M+F``%31%%0.#Y`(&4D5#3U)$PRZ2+"H@Q:'O(ITM@)X"J0`PDP("`#````,`
M````````````````````````````````````````````````````$```````
M````````````````````````$```````````@)X"J0`PDP("`#````,`````
M`````!``````````````````````````````````````````````````````
M`````````!``````````````````````L!(#M2_2V0+H*9`*`#,I(````P`P
M```````````````````````!````````````````````````````````````
M```````````````````````````!``````````#H*9`*`#,I(````P`P````
M`````````````````````````````````````````0``````````````````
M`````````````0`````````````````````K,5#](FTN8'"7YN96)K=$(&TN
M4,#V-E<FMT0@6Z'A7R,Y-K(2`PP',`!5)#70V0(>-D*G`D@N8"!5-/0D1;02
M`RG\<;8:0`LR+RI(+F!P5$0E]71UN!_H*4`$`#,I$````P``````````(```
M`````````````````!#@_QN]^^'[&P6OX2TJ!:_!H@('``#2NQ]GJ]&['RPJ
M4```9ZMQN!^XR8$P*KW[D=`:,RD0````````,M"['T@N8#!%)37TY'2V&BG\
MT;L?\Z(R>!PY-K(2`U<!,"!5-#30V0(>-D*G`D@N8"!5-/0D1;02`RG\<;8:
M0`LR+RJ:_-%X(YTM<+@?+"IP``!4<NF!>B.=+8"]'_.BLA(#U2_"H@('`(`D
MEQZH-Y(L*M4OXBTJ*S%0_2)(+F!P5$0E]71UN!\&W<&B`@<`T-*['V>K<;8:
M+"IP```MO?MQMAIGJS&3`@$````````!2"Y@,$4E-40EU;L?Z"E`!``S*1``
M``,``````````"`````````````````````0X/\;O?N1PA]GJX$P*K7\,>PB
MA_O!H@('`$#5J1[Z+M+9`BPJD```(""]^W&V&F>KL1(#M2^"O1_5+^+`'RPJ
M4```9ZMQN!^XR8$P*KW[D=`:,RD0````````,M"['T@N8#!%)37TY'2V&O.B
M,G@<.3:R$@-G`F``%31%%0-CT-D"'C823"-M+F`@5S97QT;7Y@($=&5A;1XV
M0J<"2"XP`!4#LQ(#;2Y`0%<6UG:V&D`+,NPB;2Y@(%<V5\=&QZ("!P``U:D>
M^B[2V0)(+C`P1"35Y@(&<F5S=6QT9ZN!Y`(#4#$P;2Y`0%<6UM;,(%NAL1(#
MM2_2V0*'^T&G`BPJ<```5RLQ@.0""4E.5$524T5#5+C)P:("!P#0<K8:*?Q!
MIP(L*G```$PK,8#D`@E)3E1%4E-%0U2XR7&V&BPJ<```+6>KD<(?="K`H@('
M`$"U$@-(+I"0Y$15)#55-$2%FQQGJ\&B`@L```("<K8:R:+BP!](+G`@5615
M)#55A.0"`T-55+W[,0PC2"XP,%1%->PB\Z*BR1]RZ:'O(ITMX,`?R:)RMAKS
MH@+-'[2BLA(#M2_2V0+8^W&V&F>KP:("#P```@(5`W.V&LFBLA(#U2_2#B.Y
M-K(2`]4OXE\C.3:R$@/7`C!`E&0UT-D"'C823"-M+C!`EF;G82-M+C!`EF8W
M+RIGJW&X'X?[T3$J9ZLQ$"/'V,&B`@<`0-6['T@N,"!5-#0O*M#\P20C\_LA
M,RK)HH+D`@5,4T]25$@N@-`D5615)#55-'@<A_NQ]QSSHH+D`@=%6%1204-4
M@\>1+"K)HC(O*IK\@9L<R:*2T!H#,7*,'2G\D2PJ":W!H@()`.`"<K8:+"IP
M```@O?MQMAJ]^W&V&O.B`LT?3#)RC!V]^X&]'RG\@9L<+"J0```N(&>KP:("
M!P``TKL?9ZO1NQ]GJ]&['[C),7@<O?NQ]QS>HH+D`@=%6%1204-4@\?!H@(3
M`.!4Q<2T5)35,2I(+D#@1%0%Q:("#0!0A)5$)3,J@\=!IP+>HI(L*LFB0BLJ
M*S'0,2JU_,&B`A<``$*49I<VE_;F=K8:+"JP```@(""]^W&V&F>K@>0"`T1"
M4O.B0L8?_C628R,K,:`L``145E-4!)TMX&$CP332Y@(%=&5A;3%M+E!`5Q;6
M)N-A(W0JL!(#2"Y0,$451#4U[")M+E!`5Q;6%@.T(+C),>PBA_MAN!SZ+M+9
M`LFB8GP=*S%0^R*=+8"]'[2BLA(#U2_2Y@(%=&5A;3)`"X*;',,N<K@?ALNA
M[R*=+9`L*L;7L1(#M2_2V0+8^T$K*BLQ4/TB7>RA[R*=+=#F`@5T96%M,D`+
M@IL<PRYRN!^&RZ'O(ITMD"PJQM>1+"IGJ[$2`]4OTN8"!71E86TQ0`O2NQ](
M+F!P5$0E]71ET!T+R\&B`@<`T-*['V>K<;8:+"IP```MO?MQMAIGJ[$2`[4O
MTMD";2Y00%<6UA8#M""XR3'L(H?[8;@<^B[2V0+)HF)\'<FB<K8:*S%0_2)M
M+E!`5Q;6)@.T(+W[@>0"!D=%5%)/5P;=L;`<\Z("S1\+R\&B`@<`T'*V&KW[
M<;8:+"IP```M9ZO1NQ]GJ[$2`]4OLA4:,RD0````````((#D`@935%)#5%(L
M*C`"`"`@("!2("`@("`@("`@2"PJ<```4FTN4$!7%M86@^0"`U)%0]ZB8GP=
M2"Y@T'CU)$4T-2\J9/PQDP(!`````````4@N8#!%)35$)<6B`@<`@-3F`@5T
M96%M,D@N,"!5-.0M*L;7@>0"!HU73U)$4_.B0L8?,RD0````````$(#D`@93
M5%)#5%)GJ\&B`A\```("`@("`A4V1P<2`\.B`@<``-7F`@5T96%M,D@N8``5
M-$45`X/D`@:-5T]21%/S^\&B`@<``-7F`@5T96%M,4@N8``5-$45`X/D`@:-
M5T]21%/S^S&3`@$````````!2"Y@,$4E-40EY<`?,RD0````````$(#D`@93
M5%)#5%)GJ]&['S,I$````````!"`Y`(&4U120U12#OPQDP(!`````````4@N
M8#!%)35$)76V&KW[(3,J@\?!H@(3`.!4Q<2T5)35,2I(+D#@1%0%Q:("#0!0
MA)5$)3,J@\=!IP+>HI(L*LFB0BLJ*S'0Y@(%=&5A;3$L*A`!`"`@870@(&>K
MT>8"!71E86TR9ZLQDP(!``````"``4@N8#!%)35$)<6B`@<``-*['V>K<;8:
M2"XP0"0D-2\J9/SA7R,Y-K(2`[0&8"!5-/0D161@J0+_-Q`!```@X*0D@)X"
MJ0`PDP("`#````,`````````````````````````````````````````````
M````````````````````````````````````````````````````8`L``TY9
M4@/H*9`*`#,I(````P`P````````````````````````````````````````
M``````````````````````````````````````````````````````````"X
M`##@E)4T@)X"J0`PDP("`#````,`````````````````````````````````
M````````````````````````````````````````````````````````````
M````@`L``U!(20/H*9`*`#,I(````P`P````````````````````````````
M````````````````````````````````````````````````````````````
M``````````"X`#!P%30U@)X"J0`PDP("`#````,`````````````````````
M````````````````````````````````````````````````````````````
M````````````````@`L``U!)5`/H*9`*`#,I(````P`P````````````````
M````````````````````````````````````````````````````````````
M``````````````````````"X`##P1$4U@)X"J0`PDP("`#````,`````````
M````````````````````````````````````````````````````````````
M````````````````````````````@`L``U%510/H*9`*`#,I(````P`P````
M````````````````````````````````````````````````````````````
M``````````````````````````````````"X`#"`%"0U@)X"J0`PDP("`#``
M``,`````````````````````````````````````````````````````````
M````````````````````````````````````````@`L``T)51@/H*9`*`#,I
M(````P`P````````````````````````````````````````````````````
M``````````````````````````````````````````````"X`#`@]#0U@)X"
MJ0`PDP("`#````,`````````````````````````````````````````````
M````````````````````````````````````````````````````@`L``TU/
M3@/H*9`*`#,I(````P`P````````````````````````````````````````
M``````````````````````````````````````````````````````````"X
M`#!`%=0T@)X"J0`PDP("`#````,`````````````````````````````````
M````````````````````````````````````````````````````````````
M````@`L``U1/4@/H*9`*`#,I(````P`P````````````````````````````
M````````````````````````````````````````````````````````````
M``````````"X`$#0E.3D1(">`JD`,),"`@`P```#````````````````````
M````````````````````````````````````````````````````````````
M`````````````````*`+``1$1512!.@ID`H`,RD@```#`#``````````````
M````````````````````````````````````````````````````````````
M`````````````````````````+H`,#"$E#2`G@*I`#"3`@(`,````P``````
M````````````````````````````````````````````````````````````
M``````````````````````````````"`"P`#4W1,`^@ID`H`,RD@```#`#``
M````````````````````````````````````````````````````````````
M`````````````````````````````````````+@`,%!$U#2`G@*I`#"3`@(`
M,````P``````````````````````````````````````````````````````
M``````````````````````````````````````````"`"P`"4TH"Z"F0"@`S
M*2````,`,```````````````````````````````````````````````````
M````````````````````````````````````````````````M@`@P!0D@)X"
MJ0`PDP("`#````,`````````````````````````````````````````````
M````````````````````````````````````````````````````8`L``T-!
M3`/H*9`*`#,I(````P`P````````````````````````````````````````
M``````````````````````````````````````````````````````````"X
M`#!PE>0T@)X"J0`PDP("`#````,`````````````````````````````````
M````````````````````````````````````````````````````````````
M````@`L``U9!3@/H*9`*`#,I(````P`P````````````````````````````
M````````````````````````````````````````````````````````````
M``````````#3$5`P115$-55@J0+_IST#```@X*0D,),"```````````=`##@
ME"4U@)X"20`PDP("`!````,`````````````````````````````````@`4`
M`TY920/H*9`'`#,I(````@`P````````````````````````````````````
M``````````````````````````````"(`#``A90T@)X"J0`PDP("`#````,`
M````````````````````````````````````````````````````````````
M````````````````````````````````````@`L``U=!4P/H*9`-`#,I(```
M!``P````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````#H`#``E40U@)X""0$PDP("`%````,`````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````@!$``T]45`/H*9!&`#,I(```%P`P````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````!X!#`0554T@)X".0$PDP("`&````,`````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````@!0``TA!
M4@/H*9`6`#,I(```!P`P````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````!X`3`@5&4T@)X"F0$PDP("`(````,`````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````@!H``T)/
M4P/H*9`<`#,I(```"0`P````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````#8`3#0].0T@)X"^0$PDP("`*````,`````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M@"```U1!30/H*9!#`#,I(```%@`P````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````!(!#!`]20U@)X"*0(PDP("`+````,`````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````@",`!$U)3DX$Z"F0)0`S*2``
M``P`,```````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````:@)`0%1$)46`G@*)`C"3`@(`T```
M`P``````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````````````````````````````````````"@
M*0`#0TA)`^@ID"L`,RD@```.`#``````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````````````````````````````````````````````````````,@"
M,#!%QS2`G@+I`C"3`@(`\````P``````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````"`+P`#141-`^@ID#$`,RD@```0`#``````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````````````````````````````"@#(#"E)(">`DD#,),"`@`0`0`#````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`&`U``),00+H*9`W`#,I(```$@`P````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````"&`S`P%,0T@)X"J0,PDP("`#`!``,`````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````@#L``U=)3@/H*9`]
M`#,I(```%``P````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````````````````````````````````````#H`S!@
M%>0T@)X""00PDP("`%`!``,`````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````@(`#`U`Q,`.6*O!_#PT````"
M3DH"="K`H@('`.#&H@('`.#&H@('`.#&H@('`.#&H@('`.#&H@('`.#&H@('
M`.#&H@('`.#&H@('`.#&H@('`."V$@.*`##@E"4U0*<"+"IP``!N+"IP``!N
M+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP
M``!N*S'`"``#3EE)`W0JP*("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@
MQJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@MA(#C``P`(64-$"G`BPJ
M<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```
M;BPJ<```;BPJ<```;BLQP`@``U=!4P-T*L"B`@<`X,:B`@<`X,:B`@<`X,:B
M`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X+82`XP`
M,`"51#5`IP(L*G```&XL*G```&XL*G```&XL*G```&XL*G```&XL*G```&XL
M*G```&XL*G```&XL*G```&XL*G```&XK,<`(``-/5%0#="K`H@('`.#&H@('
M`.#&H@('`.#&H@('`.#&H@('`.#&H@('`.#&H@('`.#&H@('`.#&H@('`.#&
MH@('`."V$@.,`#`0554T0*<"+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP
M``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N*S'`"``#2$%2`W0J
MP*("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("
M!P#@QJ("!P#@QJ("!P#@MA(#C``P(%1E-$"G`BPJ<```;BPJ<```;BPJ<```
M;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BLQ
MP`@``T)/4P-T*L"B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`
MX,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X+82`XP`,-#TY#1`IP(L*G```&XL
M*G```&XL*G```&XL*G```&XL*G```&XL*G```&XL*G```&XL*G```&XL*G``
M`&XL*G```&XK,<`(``-404T#="K`H@('`.#&H@('`.#&H@('`.#&H@('`.#&
MH@('`.#&H@('`.#&H@('`.#&H@('`.#&H@('`.#&H@('`."V$@.,`#!`]20U
M0*<"+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N
M+"IP``!N+"IP``!N+"IP``!N*S'`"``$34E.3@1T*L"B`@<`X,:B`@<`X,:B
M`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`
MX+82`XX`0$!41"5%0*<"+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N
M+"IP``!N+"IP``!N+"IP``!N+"IP``!N+"IP``!N*S'@"``#0TA)`W0JP*("
M!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@
MQJ("!P#@QJ("!P#@MA(#C``P,$7'-$"G`BPJ<```;BPJ<```;BPJ<```;BPJ
M<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BLQP`@`
M`T5$30-T*L"B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B
M`@<`X,:B`@<`X,:B`@<`X,:B`@<`X+82`XP`(#"E)$"G`BPJ<```;BPJ<```
M;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ
M<```;BLQH`@``DQ!`G0JP*("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@
MQJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@QJ("!P#@MA(#B@`P,!3$-$"G`BPJ
M<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```;BPJ<```
M;BPJ<```;BPJ<```;BLQP`@``U=)3@-T*L"B`@<`X,:B`@<`X,:B`@<`X,:B
M`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X,:B`@<`X+82`XP`
M,&`5Y#1`IP(L*G```&XL*G```&XL*G```&XL*G```&XL*G```&XL*G```&XL
M*G```&XL*G```&XL*G```&XL*G```&XK,=#:``1214,R!)TMX&$CP332Y@($
M=&5A;1XV0J<"*S'`H@('`$#5Y@($=&5A;4@N,"!5-.0M*L;7P:("!0#`H@('
M`(#4Y@($=&5A;4@N,"!5-.0M*L;7P:("!P`@U>8"!'1E86U(+C`@533D+2K&
MU\&B`@4`P*("!P``U>8"!'1E86U(+F``%31%%0/#H@()```"TKL?9ZLA,RJ#
MQ\&B`A,`X%3%Q+14E-4Q*D@N0.!$5`7%H@(-`%"$E40E,RJ#QT&G`MZBDBPJ
MR:)"*RHK,4"G`D@N(."DQ*(")P#@5'8'HE0F-U>6!T)49I?&-H?D`@-.65(L
M*E`"`$YE=R!9;W)K(%)A;F=E<G-(+C#@E)7$H@(I`.!4=@>2]2:W!I(TQQ;F
M1E8F-X?D`@-02$DL*K`"`%!H:6QA9&5L<&AI82!&;'EE<G-(+C!P%33%H@(K
M`'`5-H>6YG9&]^8&,A0&ET87QC:'Y`(#4$E4+"JP`@!0:71T<V)U<F=H(%!E
M;F=U:6YS2"XP$%55Q*(")0`059<N5C8&XO0F1Y865U<VA^0"`TA!4BPJ4`(`
M2&%R=&9O<F0@5VAA;&5R<T@N,"!49<2B`B$`(%1G9A;&]@8R%28F5S:'Y`(#
M0D]3+"KP`0!";W-T;VX@0G)U:6YS2"XPT/3DQ*("*0#0].9&)Y<>Q@8R%.86
M1I96YC:'Y`(#3U14+"HP`@!/='1A=V$@4V5N871O<G-(+C!`]23%H@(K`$#U
M)O?F1O<&TA0&QU8&PE069C:'Y`($34E.3BPJ,`(`36EN;F5S;W1A(%-T87)S
M2"Y`0%1$)<6B`B<`0%1&)_>61@<B548&<I7F=C:'Y`(#0TA)+"J0`@!#:&EC
M86=O($)L86-K:&%W:W-(+C`P1<?$H@(A`#!%!\+T5I<V!R+$5E<VA^0"`U1!
M32PJ,`(`5&%M<&$@3&EG:'1N:6YG2"XP4$34Q*("(P!01-;VYD;WY@;RE,96
M)C>'Y`("4THL*C`"`%-A;B!*;W-E(%-H87)K<T@N(,`4Q*(")P#`]#8'$N1V
M5L96-@>RE.9V-H?D`@-#04PL*A`"`$-A;&=A<GD@1FQA;65S2"XP<)7DQ*("
M'P!PE>;FE@97=@:B5$8WA^0"`U9!3BPJ<`(`5F%N8V]U=F5R($-A;G5C:W,K
M,=#F`@1T96%M2"Y0X(1%]21TMAI(+C!`)"0U+RID_.%?(SDVLA(#'@<PX(3$
M--#9`AXVDF$<2"Y@(%4T]"1%1!D:6Z&1+"K)HC(O*IK\@9L<PRZ2+"I@PZ'O
M(ITM8$@<H#'2Y@(!:<?8P:("!P!`U;L?2"XP(%4T-"\JT/S!)",K,5#[(ITM
M,"\JZL,!&B-M+A"0=HP=2"XP`%4D-2\JT/S!)".&Q+$2`]4O@KT?N,EQN!^'
M^^$M*F>K`<T?R:*"Y`(%3%-/4E1(+H#0)%5D520U531X'(?[L?<<\Z*"Y`('
M15A44D%#5(/'D2PJR:(2-RH#,7*,'2G\D2PJ":W!H@('`.!RMAH(HX+D`@93
M5%)#5%*]^W&V&O.B`LT?3#(RDP(!`````````3,I$````````!10RQ_)HI+0
M&@,Q<HP=*?R1+"H)K<&B`@D`X`)RMAJ]^W&V&O.B`LT?3#+2NQ\I_'&,'0BC
MHLD?+"J0```N(&>KT;L?9ZLQ+RK0_#&_'[W[,7@<O?NQ]QS>HH+D`@=%6%12
M04-4@\?!H@(3`.!4Q<2T5)35,2I(+D#@1%0%Q:("#0!0A)5$)3,J@\=!IP+>
MHI(L*LFB0BLJ+"IP`@`@("`@3DA,(%-T86YD:6YG<RLQ@.0"`T1"4O.B0L8?
M?\:18R,K,:`Y``1-04E.!)TMX&$C&<9!IP(L*M```&YU;&PL*M```&YU;&PL
M*M```&YU;&Q(+C!@%>2$Y`("3$%(+C`P%,2$Y`(#5TE.2"XP4$34A.0"`E-*
M+"K0``!N=6QL+"K0``!N=6QL+"K0``!N=6QL+"K0``!N=6QL+"K0``!N=6QL
M+"K0``!N=6QL2"XP,(24A.0"`U-T3$@N0$!41"6%Y`(#5$]22"Y`T)3DY(3D
M`@-404TL*M```&YU;&PL*M```&YU;&PL*M```&YU;&PL*M```&YU;&PL*M``
M`&YU;&PL*M```&YU;&Q(+C#0].2$Y`(#0D]32"XP@!0DA>0"`T)51D@N,!!5
M583D`@-/5%0L*M```&YU;&PL*M```&YU;&PL*M```&YU;&PL*M```&YU;&PL
M*M```&YU;&PL*M```&YU;&Q(+C``E42%Y`(#5T%32"X@X*2$Y`(#3EE22"XP
MX)25A.0"`U!(22LQ0*<"+"H0`0!3;7ET:&4L*E`!`$1I=FES:6]N+"I0```L
M*G`!`%9!3D-/559%4BPJ4`$`3$$@2TE.1U,L*C`!`$-!3$=!4EDL*E`!`%=)
M3DY)4$5'+"I0`0!%1$U/3E1/3BPJ4`$`4T%.($I/4T4L*E```"PJ4```+"I0
M```L*A`!`$YO<G)I<RPJ4`$`1&EV:7-I;VXL*E```"PJ,`$`0TA)0T%'3RPJ
M4`$`4W0@3$]525,L*C`!`$1%5%)/250L*C`!`%1/4D].5$\L*G`!`$U)3DY%
M4T]402PJ\```5$%-4$$L*E```"PJ4```+"I0```L*O```$%D86US+"I0`0!$
M:79I<VEO;BPJ4```+"I0`0!-3TY44D5!3"PJ$`$`0D]35$].+"I0`0!(05)4
M1D]21"PJ,`$`0E5&1D%,3RPJ$`$`455%0D5#+"H0`0!/5%1!5T$L*E```"PJ
M4```+"I0```L*C`!`%!A=')I8VLL*E`!`$1I=FES:6]N+"I0```L*I`!`%!)
M5%130E521T@L*E`!`$-!4$E404Q3+"IP`0!.2B!$159)3%,L*C`!`%)!3D=%
M4E,L*G`!`$E33$%.1$524RPJ$`$`1DQ915)3*S%`IP(L*K```')E8RPJL```
M="`Q+"JP``!D:78L*K```$Y(3"PJ<```)2PJT```97AI="PJL```:"!W+"JP
M``!R(&PL*K```'(@=RPJL```:"!L+"JP``!H('0L*K```'(@="LQ0*<"R:*2
M+"HL*K`!`%!I8VL@82!T96%M*S%`*RJTHA),(VTN0&#&=C;7Y@('=F%R;&ES
M=&TN4$#'EC9'U^8"!6UE;G5L;2Y00)=&QU;6Y@(%<W1O<#%M+E`P1_<&)^-A
M(X;$,0PC;2Y00,>6-D?7Y@(%;65N=6QM+E!`ET;'5H;D`@-40E+!--+F`@9O
M<'1I;VX>-M*['U0VTN8"!71I=&QE>3;2S""--]+9`FTN8/`&1Y?VYC:3`@$`
M`````""1F^W1Y@(&;W!T:6]N!*3"SQZ#Y]'F`@9O<'1I;VZ;HR*7'@GH@7HC
MG2W0Y@('=F%R;&ES=+W[87P=PRYRN!\L*M```&YU;&R=ZJ'O(ITMT'@CG2W0
MY@(&;W!T:6]N!*0BEQZH-]+9`BPJ<`(`4&EC:R!L;W-E<B`H<F]A9"ET*L"B
M`A,`X%3%Q+14E,6B`@L`(`?"QJ("$P#@5,7$M%24Q:("$P#@5,7$M%24Q:("
M$P#@5,7$M%24Q:("$P#@5,7$M%24M1(#*S%0_2)M+F#P!D>7]N:602IRZ8%Z
M(YTMP*("*0``E3:V!G*7YN96)@>"@O;65I;"H@(+`(`&<L>B`A,`X%3%Q+14
ME-4Q*D@N0.!$5`4E,RJ#Q[$2`]4OTN8"!F]P=&EO;BZD(I<>J#?2V0(L*G`"
M`%!I8VL@;&]S97(@*&AO;64I+"HP`0!.54Q,2T59A_MQN!\L*K```&@@;"G\
M<;@?,J,R>!PK,5#](FTN8/`&1Y?VYC:3`@$```````"1<NF!>B.=+<"B`BD`
M`)4VM@9RE^;F5B8'@B+W%D:6PJ("$P#@5,7$M%24=;@?+"JP``!R('<I_#$O
M*D@N0.!$5`4E,RJ#Q[$2`]4OTN8"!F]P=&EO;C,I$````````!$IEQZH-]+9
M`BPJ\`$`4&EC:R!R;V%D('1I92PJ,`$`3E5,3$M%61VC@N0"!$Y$55`L*K``
M`'(@=#*C,G@<*S%0_2)M+F#P!D>7]N8VDP(!```````@D7+I@7HCG2W`H@(?
M``"5-K8&@O;65@9"EU;&H@(3`.!4Q<2T5)2%,"I(+D#@1%0%Q:(""P"`!D*7
MPA\RHS)X'"LQ4/TB;2Y@\`9'E_;FMCDJ<NF!>B.=+<"B`B4``)4VM@8R5S;V
MYD8&0E<6UL:B`A,`X%3%Q+14E,6B`@L`0`<BD\(?"*."Y`($3D154#*C,G@<
M*S%0_2(K,5#](E0VTN8"!6UE;G5L>3;2S"!4-M+F`@5T:71L97DV,B\J#OQQ
M0!W#,-+F`@5T;&ES=&TN4-!6YE;'UN8"!71I=&QE2"XP0"4DY<`?5#;2Y@(%
M=&ET;&5Y-M+,(,,N<K@?[Z.RV1XI_&$X*OSL,7@>^B[2V0+8^]'F`@=V87)L
M:7-TO?MA?!W#+G*X'RPJT```;G5L;)WJ,2\JT/PANA]AY_&('@BC4LL?@^>A
M[R*=+3#L(FTN8/`&1Y?VYG:X'RZD(I<>*?PQDP(!````````D7+ID8`>O?LQ
MDP(!```````@D7+ID8`>^B[2V0+)HD(G'"LQ4/TBC3?2V0)M+F#P!D>7]N9V
MN!\$I"*7'KW[X4(J<NF1@!ZH-X+D`@954$1!5$75+]+F`@9O<'1I;VZ'^Y%!
M*G+IT;L?,RD0````````$"F7'@GH@7HCG2W0NQ](+F!0!4441%6T$@/5+]+F
M`@9O<'1I;VZ'^S&3`@$``````!"1<NG1NQ\S*1`````````2*9<>">B!>B-(
M+C!`E514_2)M+F#P!D>7]N:V.2IRZ8%Z(YTM@.0"!%164U0L*K`!`%!I8VL@
M82!T96%M*S%0_2(K,5#](LFB0F4C;2Y0,$?W!B>39R/-#$*G`BPJL```<F5C
M+"JP``!T(#$L*K```&1I=BPJL```3DA,+"IP```E+"K0``!E>&ET+"JP``!H
M('<L*K```'(@;"PJL```<B!W+"JP``!H(&PL*K```&@@="PJL```<B!T*S%`
M92-M+E#05N96QY9G(\T,0F4C;2Y00)=&QU:69R/SHN+`'P?4L1(#M2_2V0+8
M^\&B`AD`(!1&!C*$]I8V5I8L*H2E,9,"`P``````0`$S*9"9```````00%P:
MR:+R<1HK,5#](BLQ4/LBG2TP["*THB*7'OHNTMD"\_N1+"I4-M+F`@5S=&]P
M,GDVTLP@="K`H@(+`"!7-L:B`@L`0`<2PZ(""P!`EF;'H@(+`."$Q,2B`@<`
M4,*B`@T`4(:71L>B`@L`@`9RQZ(""P`@!\+&H@(+`"`'<L>B`@L`@`;"QJ("
M"P"`!D+'H@(+`"`'0K<2`U0VTN8"!6UE;G5L>3;2S"!4-M+F`@5T:71L97DV
M,B\J+"JP`0!0:6-K(&$@=&5A;0?4L1(#M2^"O1_5+[(2`]4OT@XC;2Y0,$?W
M!B>3:R.THD)E(VTN4#!']P8GDV<CS0RR$@.U+]+9`MC[P:("&0`@%$8&,H3V
MEC96EBPJA*4QDP(#``````!``3,ID)D``````!!`7!K)HO)Q&BLQ4/TB*S%0
M_2)M+F#P!D>7]N9F."IRZ8%Z(YTMT.8"!W9A<FQI<W2]^V%\'<,N<K@?+"K0
M``!N=6QLG>JA[R)(+D`@530D4_LBG2V`O1\L*I`!`$)A9"!#:&]I8V7)HD)8
M&C,I,````````!0PDP*9"0```````<2ED2PJ'Z>Q$@/5+[(2`]4OTN8"!F]P
M=&EO;K"C(I<>J#?2V0*'^S&3`@$``````"`!3;XQ["*'^T$K*G+IH>\BG2V`
MO1\S*1`````````2L!(#U2^2T!K)HG*V&FTN4$#'EC9'E\(?QM?1Y@('=F%R
M;&ES=`[\@>0"`T1)5BLQ4/TB;2Y@\`9'E_;F5CPJ<NF!>B.=+8"]'T@N,."$
MQ+02`]4OTN8"!F]P=&EO;MJC(I<>J#?2V0+8^Y$L*G3"@>0"`TY(3,FB4BT<
M*S%0_2)M+F#P!D>7]N9&*RIRZ='F`@9O<'1I;V[OHR*7'@GH@7HCG2V`O1_)
MHD)E(VTN4#!']P87DV<CS0RR$@/5+X*]'RLQ4/TB_C72#B-M+E`P1_<&%Y-K
3(VTN0&#&=C;W9QS^-9)C(RLQ`"LQ
`
end
sum -r/size 30505/27457 section (from "begin" to "end")
sum -r/size 63739/19909 entire input file
END_UU
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads