     REM *** CONVERTED FROM BRAND X TO DIGITAL RSTS/E BY DAVID AHL
     LET X=1 : LET A = 0 : LET B = 0 : LET D = RND(14) + 6
     PRINT " N.B. THIS PROGRAM IS DESIGNED FOR THOSE WHO KNOW NOTHING"
     PRINT " ABOUT HOCKEY LIKE MYSELF.  --- C. BUTTREY"
     PRINT " THIS IS CORNELL U. HOCKEY."
     PRINT " I AM CORNELL, YOU ARE HOMETOWN.";
     PRINT 
     PRINT " YOU HAVE THREE SHOTS:"
     PRINT "     1. SLAP SHOT."
     PRINT "     2. FLICK SHOT."
     PRINT "     3. WRIST SHOT."
     PRINT 
 160 PRINT " HERE IS THE FACE-OFF:"
     PRINT " SCORE:"
     PRINT " CORNELL ";A
     PRINT " HOMETOWN ";B
     IF X=2 THEN GOTO 240
     IF X=3 THEN GOTO 260
     IF (A+B)*3 < D THEN GOTO 290
     GOTO 1560
 240 IF ((A+B)*3)/2 < D THEN GOTO 290
     GOTO 1630
 260 IF (A+B) < D THEN GOTO 290
     GOTO 1710
 290 LET Z=RND(2)+1
     IF Z=1 THEN GOTO 330
     PRINT " HOMETOWN WINS THE FACE-OFF."
     GOTO 650
 330 PRINT " CORNELL TAKES THE FACE-OFF."
 340 LET Z=RND(3)+1
     IF Z=1 THEN GOTO 500
     IF Z=2 THEN GOTO 570
     PRINT " WRIST SHOT..."
 380 LET Z=RND(5)+1
     IF Z=4 THEN GOTO 470
     PRINT " SHOT IS MISSED."
     LET Z=RND(2)+1
     IF Z=1 THEN GOTO 450
     PRINT " CORNELL REGAINS THE PUCK."
     GOTO 340
 450 PRINT " HOMETOWN TAKES THE PUCK."
     GOTO 650
 470 PRINT " **GOOD!**"
     LET A=A+1
     GOTO 160
 500 PRINT " SLAP SHOT..."
     LET Z=RND(3)+1
     IF Z=2 THEN GOTO 540
     GOTO 560
 540 PRINT " ICING PENALTY....."
     GOTO 450
 560 GOTO 380
 570 PRINT " FLICK SHOT.."
     LET Z=RND(3)+1
     IF Z=3 THEN GOTO 610
     GOTO 640
 610 PRINT " PENALTY FOR HIGH STICKING! CORNELL MAN PUT IN BOX FOR TWO MINUTES!"
     GOTO 1110
 640 GOTO 380
 650 PRINT " YOUR SHOT";
     INPUT G
     IF G=1 THEN GOTO 720
     IF G=2 THEN GOTO 900
     IF G=3 THEN GOTO 970
     PRINT " INPUT EITHER '1' '2' OR '3'"
     GOTO 650
 720 PRINT " SLAP SHOT."
     LET Z=RND(3)+1
     IF Z=2 THEN GOTO 760
     GOTO 780
 760 PRINT " ICING PENALTY....."
     GOTO 1090
 780 LET Z=RND(5)+1
     IF Z=1 THEN GOTO 870
     PRINT " SHOT IS WIDE."
     LET Z=RND(2)+1
     IF Z=1 THEN GOTO 850
 830 PRINT " CORNELL TAKES THE PUCK."
     GOTO 990
 850 PRINT " HOMETOWN REGAINS THE PUCK."
     GOTO 650
 870 PRINT " **GOOD!**"
     LET B=B+1
     GOTO 160
 900 PRINT " FLICK SHOT...."
     LET Z=RND(3)+1
     IF Z=1 THEN GOTO 940
     GOTO 960
 940 PRINT " ICING PENALTY....."
     GOTO 830
 960 GOTO 780
 970 PRINT " WRIST SHOT.."
     GOTO 780
 990 PRINT " CORNELL SHOT:"
     LET Z=RND(3)+1
     IF Z=1 THEN GOTO 1160
     IF Z=2 THEN GOTO 1210
     PRINT " SLAP SHOT."
     LET Z=RND(5)+1
     IF Z=1 THEN GOTO 1130
     PRINT " SHOT HITS THE POST."
1070 LET Z=RND(2)+1
     IF Z=1 THEN GOTO 1110
1090 PRINT " CORNELL REGAINS THE PUCK."
     GOTO 990
1110 PRINT " HOMETOWN REGAINS THE PUCK."
     GOTO 1310
1130 PRINT " **GOOD!**"
     LET A=A+1
     GOTO 160
1160 PRINT " WRIST SHOT"
     LET Z=RND(5)+1
     IF Z=5 THEN GOTO 1130
     PRINT " SHOT IS HIGH."
     GOTO 1070
1210 PRINT " FLICK SHOT"
     LET Z=RND(3)+1
     IF Z=1 THEN GOTO 1250
     GOTO 1270
1250 PRINT " ICING PENALTY....."
     GOTO 450
1270 LET Z=RND(5)+1
     IF Z=1 THEN GOTO 1130
     PRINT " SHOT IS BLOCKED BY THE GOALIE."
     GOTO 1070
1310 PRINT " YOUR SHOT";
     INPUT O
     IF O=1 THEN GOTO 1430
     IF O=2 THEN GOTO 1540
     PRINT " WRIST SHOT."
     LET Z=RND(5)+1
     IF Z=2 THEN GOTO 870
     PRINT " SHOT IS BARELY WIDE..."
     LET Z=RND(3)+1
     IF Z=1 THEN GOTO 830
     PRINT " HOMETOWN REGAINS THE PUCK."
     GOTO 650
1430 PRINT " SLAP SHOT"
     LET Z=RND(3)+1
     IF Z=3 THEN GOTO 1470
     GOTO 1500
1470 PRINT " PENALTY FOR HIGH STICKING! HOMETOWN MAN PUT IN PENALTY."
     PRINT " BOX FOR TWO MINUTES."
     GOTO 830
1500 LET Z=RND(5)+1
     IF Z=1 THEN GOTO 870
     PRINT " SHOT IS TAKEN BY THE CORNELL GOALIE."
     GOTO 830
1540 PRINT " FLICK SHOT"
     GOTO 1500
1560 PRINT " ***** END OF FIRST PERIOD *****"
     LET X=2
     PRINT " SCORE:"
     PRINT " CORNELL ";A
     PRINT " HOMETOWN ";B
     PRINT
     PRINT " START OF SECOND PERIOD."
     GOTO 160
1630 PRINT " ***** END OF SECOND PERIOD *****"
     LET X=3
     PRINT " SCORE:"
     PRINT " CORNELL ";A
     PRINT " HOMETOWN ";B
     PRINT
     PRINT " START OF THIRD PERIOD."
     GOTO 160
1710 PRINT " ***** END OF GAME *****"
     IF A=B THEN GOTO 1770
     PRINT " FINAL SCORE:"
     PRINT " CORNELL ";A
     PRINT " HOMETOWN ";B
     END
1770 PRINT " SINCE SCORE IS TIED, WE WILL HAVE TO GO."
     PRINT " INTO SUDDEN-DEATH!"
     PRINT " HERE IS THE FACE-OFF."
     PRINT " SCORE:"
     PRINT " CORNELL ";A
     PRINT " HOMETOWN ";B
     LET Z=RND(2)+1
     IF Z=1 THEN GOTO 1870
     PRINT " HOMETOWN WINS THE FACE-OFF."
     GOTO 2080
1870 PRINT " CORNELL WINS THE FACE-OFF."
1880 LET Z=RND(3)+1
     IF Z=1 THEN GOTO 2040
     IF Z=2 THEN GOTO 2060
     PRINT " WRIST SHOT."
1920 LET Z=RND(5)+1
     IF Z=1 THEN GOTO 2010
     PRINT " SHOT IS MISSED."
     LET Z=RND(2)+1
     IF Z=1 THEN GOTO 1990
1970 PRINT " HOMETOWN TAKES THE PUCK."
     GOTO 2080
1990 PRINT " CORNELL REGAINS THE PUCK."
     GOTO 1880
2010 PRINT " **GOOD!**"
     LET A=A+1
     GOTO 2260
2040 PRINT " SLAP SHOT"
     GOTO 1920
2060 PRINT " FLICK SHOT."
     GOTO 1920
2080 PRINT " YOUR SHOT";
     INPUT W
     IF W=1 THEN GOTO 2220
     IF W=2 THEN GOTO 2240
     PRINT " WRIST SHOT."
2130 LET Z=RND(5)+1
     IF Z=4 THEN GOTO 2190
     PRINT " SHOT IS MISSED."
     LET Z=RND(2)+1
     IF Z=1 THEN GOTO 1990
     GOTO 1970
2190 PRINT " **GOOD!**"
     LET B=B+1
     GOTO 2260
2220 PRINT " SLAP SHOT."
     GOTO 2130
2240 PRINT " FLICK SHOT."
     GOTO 2130
2260 PRINT " GAME IS OVER!!"
     PRINT " FINAL SCORE:"
     PRINT " CORNELL ";A
     PRINT " HOMETOWN ";B
     END
