IF z<4 AND VisPen<=HomePen THEN SAY TRANSLATE$("ICING."):PRINT "ICING--FACEOFF IN "+c$(T1)+" ZONE":TN=T2:z=1:GOSUB ShowZone:GOSUB Update:GOSUB Delay:GOTO CircleFaceoff
IF z>=4 THEN :PRINT "PUCK BOUNCES INTO CORNER--":LOCATE 12,8:PRINT "TAKEN BY "+tm$(T2):TN=T2:z=7:GOSUB ShowZone:GOSUB Update:GOSUB Delay:GOTO Whichteam
IF VisPen>HomePen THEN PRINT "PUCK BOUNCES INTO CORNER--":LOCATE 12,8:PRINT "TAKEN BY "+tm$(T2):TN=T2:z=7:GOSUB ShowZone
GOSUB Update:GOSUB Delay:GOTO Whichteam
HumHomeDump:
IF z<4 AND HomePen<=VisPen THEN SAY TRANSLATE$("ICING."):PRINT "ICING--FACEOFF IN "+c$(T2)+" ZONE":TN=T1:z=1:GOSUB ShowZone:GOSUB Update:GOSUB Delay:GOTO CircleFaceoff
IF z>=4 THEN PRINT "PUCK BOUNCES INTO CORNER--":LOCATE 12,8:PRINT "TAKEN BY "+tm$(T1):TN=T1:z=7:GOSUB ShowZone:GOSUB Update:GOSUB Delay:GOTO Whichteam
IF HomePen>VisPen THEN PRINT "PUCK BOUNCES INTO CORNER--":LOCATE 12,1:PRINT "TAKEN BY "+tm$(T1):TN=T1:z=7:GOSUB ShowZone
IF z>4 AND VisPen<=HomePen THEN SAY TRANSLATE$("ICING."):PRINT "ICING--FACEOFF IN "+c$(T1)+" ZONE":TN=T2:z=7:GOSUB ShowZone:GOSUB Update:GOSUB Delay:GOTO CircleFaceoff
IF z<=4 THEN PRINT "PUCK BOUNCES INTO CORNER--":LOCATE 12,8:PRINT "TAKEN BY "+tm$(T2):TN=T2:z=1:GOSUB ShowZone:GOSUB Update:GOSUB Delay:GOTO Whichteam
IF VisPen>HomePen THEN PRINT "PUCK BOUNCES INTO CORNER--":LOCATE 12,1:PRINT "TAKEN BY "+tm$(T2):TN=T2:z=1 GOSUB ShowZone
GOSUB Update:GOSUB Delay:GOTO Whichteam
CompHomeDump:
IF z>4 AND HomePen<=VisPen THEN SAY TRANSLATE$("ICING."):PRINT "ICING--FACEOFF IN "+c$(T2)+" ZONE":TN=T1:z=7:GOSUB ShowZone:GOSUB Update:GOSUB Delay:GOTO CircleFaceoff
IF z<=4 THEN PRINT "PUCK BOUNCES INTO CORNER--":LOCATE 12,8:PRINT "TAKEN BY "+tm$(T1):TN=T1:z=1:GOSUB ShowZone:GOSUB Update:GOSUB Delay:GOTO Whichteam
IF HomePen>VisPen THEN PRINT "PUCK BOUNCES INTO CORNER--":LOCATE 12,1:PRINT "TAKEN BY "+tm$(T1):TN=T1:z=1:GOSUB ShowZone
GOSUB Update:GOSUB Delay:GOTO Whichteam
Update:
IF secs>0 THEN
secs=secs-1
ELSE
secs=5
IF mins>0 THEN
mins=mins-1
END IF
END IF
GOSUB ShowZone:GOSUB GameClock
RETURN
ShowZone:
LOCATE 14,13:COLOR 3,1
IF z=1 THEN PRINT z1$:COLOR 1,0:RETURN
IF z=2 THEN PRINT z2$:COLOR 1,0:RETURN
COLOR 2,1
IF z=3 THEN PRINT z3$:COLOR 1,0:RETURN
IF z=4 THEN PRINT z4$:COLOR 1,0:RETURN
IF z=5 THEN PRINT z5$:COLOR 1,0:RETURN
IF z=6 THEN PRINT z6$:COLOR 1,0:RETURN
PRINT z7$:COLOR 1,0:RETURN
GameClock:
COLOR 1,2:LOCATE 4,20:PRINT USING "##";mins:LOCATE 4,22:PRINT ": 0":LOCATE 4,23:PRINT USING "#";secs
IF VisPen=1 THEN GOSUB UpdateVis
IF HomePen=1 THEN GOSUB UpdateHome
IF mins=1 AND secs=0 THEN GOSUB AnnounceMinute:RETURN
IF mins=0 AND secs=0 THEN
GOSUB Horn:GOSUB Delay:GOSUB Erase11:LOCATE 14,1:PRINT SPACE$(15)+"END OF PERIOD"+SPACE$(15)
FOR y=11 TO 177 STEP 166:LINE(462,y)-(498,y+2),0,bf:NEXT
GOSUB Delay:RETURN
UpdateVis:
IF vpsecs>0 THEN
vpsecs=vpsecs-1
ELSE
vpsecs=5
vpmins=vpmins-1
END IF
IF vpmins<0 THEN vpmins=0
IF vpmins=0 AND vpsecs=0 THEN COLOR 3,2:LOCATE 7,9:PRINT " 0:00":VisPen=0:SAY TRANSLATE$(cphon$(T1)+" BACK AT FULL STRENGTH."):IF T1=T4 THEN CompPenalty=0:GOSUB PenClock:RETURN
GOSUB PenClock
RETURN
UpdateHome:
IF hpsecs>0 THEN
hpsecs=hpsecs-1
ELSE
hpsecs=5
hpmins=hpmins-1
END IF
IF hpmins<0 THEN hpmins=0
IF hpmins=0 AND hpsecs=0 THEN COLOR 3,2:LOCATE 7,30:PRINT " 0:00":HomePen=0:SAY TRANSLATE$(cphon$(T2)+" BACK AT FULL STRENGTH."):IF T2=T4 THEN CompPenalty=0:GOSUB PenClock:RETURN
GOSUB PenClock
RETURN
PenClock:
COLOR 3,2
IF vpmins>0 OR vpsecs>0 THEN LOCATE 7,9:PRINT vpmins:LOCATE 7,11:PRINT ": 0":LOCATE 7,12:PRINT USING "#";vpsecs
IF VisPen=0 THEN LOCATE 7,10:PRINT " "
IF hpmins>0 OR hpsecs>0 THEN LOCATE 7,30:PRINT hpmins:LOCATE 7,32:PRINT ": 0":LOCATE 7,33:PRINT USING "#";hpsecs
IF HomePen=0 THEN LOCATE 7,31:PRINT " "
RETURN
AnnounceMinute:
IF period<3 THEN SAY TRANSLATE$("LAST MINNIT TO PLAY IN THE PERIUD.") :ELSE SAY TRANSLATE$("LAST MINNIT TO PLAY IN THE GAME.")
RETURN
Penalty:
x=RND:IF x<0.5 THEN TN=T1 :ELSE TN=T2
IF TN=T1 AND VisPen=1 THEN VisPen=1:RETURN
IF TN=T2 AND HomePen=1 THEN HomePen=1:RETURN
GOSUB WhatPenalty
GOSUB Erase11
LOCATE 11,1
PRINT "PENALTY ON ";tm$(TN);" FOR ";Penalty$:SAY TRANSLATE$("PENALTY ON "+cphon$(TN)+" FOR "+Penalty$+".")
IF TN=T1 THEN vpmins=2:vpsecs=1:VisPen=1:GOSUB ManOrComp:GOSUB Update:GOTO Centerfaceoff
IF TN=T2 THEN hpmins=2:hpsecs=1:HomePen=1:GOSUB ManOrComp:GOSUB Update:GOTO Centerfaceoff
ManOrComp:
IF TN=T4 THEN CompPenalty=1
RETURN
WhatPenalty:
x=RND
IF x>0.91 THEN Penalty$="SLASHING":RETURN
IF x>=0.82 AND x<0.91 THEN Penalty$="HOOKING":RETURN
IF x>=0.73 AND x<0.82 THEN Penalty$="HOLDING":RETURN
IF x>=0.64 AND x<0.73 THEN Penalty$="HIGH STICKING":RETURN
IF x>=0.55 AND x<0.64 THEN Penalty$="BOARDING":RETURN
IF x>=0.46 AND x<0.55 THEN Penalty$="CROSS CHECKING":RETURN
IF x>=0.37 AND x<0.46 THEN Penalty$="ELBOWING":RETURN
IF x>=0.28 AND x<0.37 THEN Penalty$="ROUGHING":RETURN
IF x>=0.19 AND x<0.28 THEN Penalty$="TRIPPING":RETURN
IF x>=0.1 AND x<0.19 THEN Penalty$="CHARGING":RETURN
Penalty$="INTERFERENCE":RETURN
Centerfaceoff:
x=479:y=93
OBJECT.X 1,x:OBJECT.Y 1,y
z=4:GOSUB Erase11:COLOR 2,1:LOCATE 14,5:PRINT p$:GOSUB ShowZone:LOCATE 12,8:COLOR 3,1:PRINT f$:SAY TRANSLATE$("FACE OFF AT THE RED LINE."):COLOR 1,0:GOSUB Possession
DATA 1,WASHINGTON,WASHINGTUN,CAPITALS,CAPITAL CENTRE,PEETERS,PEETERS," MASON",MASON,107,2,MONTREAL,MONTREEALL,CANADIENS,THE MONTREAL FORUM," ROY ",RUAW,HAYWARD,HAYWERD,87
DATA 3,EDMONTON,EDMUNTUN,OILERS,NORTHLANDS COLISEUM," FUHR ",FIUR," MOOG ",MOOG,119,4,CHICAGO,SHICKAHGO,BLACKHAWKS,CHICAGO STADIUM,BANNERMAN,BANNERMAN,SAUVE,SAWVAY,86
DATA 5,NEW YORK,NEW YORK,ISLANDERS,NASSAU COLISEUM,HRUDEY,HRUDY,SMITH,SMITH,90,6,QUEBEC,QUEBEC,NORDIQUES,COLISEE de QUEBEC,MALARCHUK,MALARCHUK,GOSSELIN,GOSSELIN,92
DATA 7,CALGARY,CALGHERY,FLAMES,THE OLYMPIC SADDLEDOME,VERNON,VERNON,LEMELIN,LEMELIN,89,8,TORONTO,TORRONTOE,MAPLE LEAFS,MAPLE LEAF GARDENS,WREGGET,REGGET,BESTER,BESTER,57
DATA 9,PITTSBURGH,PITTSBURGH,PENGUINS,CIVIC ARENA,ROMANO,"RO MAHNO",MELOCHE,MELLOWSH,76,10,BOSTON,BOSTON,BRUINS,BOSTON GARDEN,RANFORD,RANFORD,KEANS,KEENS,86
DATA 11,WINNIPEG,WINNIPEG,JETS,WINNIPEG ARENA,REDDICK,REDDICK,PENNEY,PENNEY,59,12,DETROIT,DETROIT,RED WINGS,JOE LOUIS ARENA,STEFAN,STEFFIN,HANLON,HANLON,40
DATA 13,PHILADELPHIA,PHILADELPHIA,FLYERS,THE SPECTRUM,HEXTALL,HEXTALL,RESCH,RESH,110,14,BUFFALO,BUFFUHLOE,SABRES,MEMORIAL AUDITORIUM,BARASSO,BUHRAHSO,CLOUTIER,KLOTEEAY,80
DATA 15,VANCOUVER,VANKOOVER,CANUCKS,PACIFIC COLISEUM,BRODEUR,"BRO DIUR",YOUNG,YUNG,59,16,MINNESOTA,MINNUHSOTA,NORTH STARS,MET CENTER,BEAUPRE,"BO PRAY",TAKKO,TAKKO,85
DATA 17,NEW YORK,NEW YORK,RANGERS,MADISON SQUARE GARDEN,VANBIESBROUCK,VANBIESBROOK,FROESE,FROSE,78,18,HARTFORD,HARTFERD,WHALERS,THE HARTFORD CIVIC CENTER," LIUT",LEEOOT,WEEKS,WEEKS,84
DATA 19,LOS ANGELES,LOS ANJELLIS,KINGS,THE LOS ANGELES FORUM,ELIOT,ELLIOT,MELANSON,MELAHNSON,54,20,ST. LOUIS,SAINT LEWIS,BLUES,ST. LOUIS ARENA,WAMSLEY,WAHMSLEY,MILLEN,MILLEN,83
DATA 21,NEW JERSEY,NEW JERSEY,DEVILS,THE MEADOWLANDS ARENA,CHEVRIER,SHEVREEAY,TERRERI,TERRERI,59