10 REM HOCKI.ECB
   20 REM ...HOCKEY...FROM MECC : H5K3005   1-18-78
   30 PRINT "&K&J&J"
   40 PRINT ,"<#>  H O C K I  <#>&J&J"
   50 DIM B$(20)
  100 PRINT "WELCOME TO THE HOCKEY GAME"
  110 LET M=0
  120 LET T=0
  130 LET S=0
  140 PRINT "I HAVE THE NORTH STARS"
  150 PRINT "WHAT IS THE NAME OF YOUR TEAM ---=>";
  160 INPUT B$
  165 IF LEN(B$)=0 THEN  LET B$="Player "
  170 PRINT "THE PUCK HAS BEEN DROPPED FOR THE FACE OFF"
  180 LET M=M+1
  190 IF M=12 THEN 1560
  200 IF M=8 THEN 260
  210 IF M=4 THEN 340
  220 GOTO 420
  230 PRINT "END OF 2ND PERIOD"
  240 PRINT B$,S
  250 PRINT "NORTH STARS",T
  260 PRINT "END OF 2ND PERIOD"
  270 PRINT B$,S
  280 PRINT "NORTH STARS",T
  290 GOTO 420
  340 PRINT "END OF 1ST PERIOD"
  390 PRINT B$,S
  400 PRINT "NORTH STARS",T
  419 LET A=A+.5
  420 LET A=RND(A)
  430 LET A=A*10
  440 IF A<3.3 THEN 510
  490 IF A>3.3 AND A<5 THEN 530
  500 IF A>5 THEN 550
  510 PRINT "THE ";B$;" WIN THE FACE-OFF"
  520 GOTO 570
  530 PRINT "THE",B$,"COME AWAY WITH THE PUCK"
  540 GOTO 570
  550 PRINT "THE NORTH STARS WIN THE FACE OFF"
  560 GOTO 1090
  570 PRINT "DO YOU WANT TO (1)PASS TO THE CENTER"
  580 PRINT "(2)PASS TO A WING, (3)SHOOT ---=>";
  590 INPUT C
  600 IF C=1 THEN 860
  610 IF C=2 THEN 860
  620 IF C=3 THEN 640
  630 LET C=C+1
  640 LET Z=RND(Z)
  660 LET Z=Z*10
  670 IF Z<3.3 THEN 740
  680 IF Z>3.3 AND Z<6 THEN 760
  690 IF Z>6 THEN 700
  700 PRINT "******************$$$$$$$$GOAL********************$$$$$$$$"
  710 LET S=S+1
  720 PRINT "THE SCORE IS",T,"TO",S
  730 GOTO 170
  740 PRINT "######$$$$$$****PENALTY****ICING****$$$$$$######"
  750 GOTO 170
  760 PRINT "Y O U    M I S S E D"
  770 LET N=RND(L)
  780 LET N=N*10
  790 IF N<5 THEN 810
  800 IF N>5 THEN 830
  810 PRINT "THE NORTH STARS RECOVER THE PUCK"
  820 GOTO 1090
  830 PRINT "THE ";B$;" RECOVER THE PUCK"
  840 GOTO 540
  850 GOTO 1510
  860 LET D=RND(D)
  870 LET D=D*10
  890 IF D>3.3 AND D<4.5 THEN 1080
  900 IF D>4.5 AND D<6.6 THEN 1050
  910 IF D<3.3 THEN 1010
  920 IF D>6.6 AND D<8.1 THEN 940
  930 IF D>8.1 THEN 960
  940 PRINT "NICE PASS"
  950 GOTO 540
  960 PRINT "#####$$$$$PENALTY***OFFSIDE PASS$$$$$#####"
  970 GOTO 170
  980 LET Z=Z+1
  990 LET D=D+.1
 1000 GOTO 570
 1010 PRINT "THE PASS WAS PERFECT *******SCORED*********************"
 1020 LET S=S+1
 1030 PRINT T,"TO",S
 1040 GOTO 170
 1050 PRINT "PASS PICKED UP BY THE WING HE IS SKATING DOWN THE ICE WITH IT"
 1060 LET D=D+.4
 1070 GOTO 570
 1080 PRINT "THE NORTH STARS INTERCEPTED THE PASS"
 1090 LET E=RND(Z)
 1095 LET E=E*10
 1100 IF E>3.3 AND E<6.6 THEN 1130
 1110 IF E>6.6 THEN 1150
 1120 IF E<3.3 THEN 1130
 1130 PRINT "THE NORTH STARS ARE MOVING DOWN THE ICE"
 1140 GOTO 1170
 1150 PRINT "THE NORTH STARS TOOK A SHOT"
 1160 GOTO 1360
 1170 PRINT "Do you want to   (1) TRIP HIM,  (2) CHECK,"
 1180 PRINT "(3) TRY TO GET THE PUCK AWAY FROM HIM ---=>";
 1190 INPUT F
 1200 IF F=1 THEN 1230
 1210 IF F=2 THEN 1250
 1220 IF F=3 THEN 1360
 1230 PRINT ":::::********PENALTY********::::::::::"
 1240 GOTO 170
 1250 LET G=RND(Z)
 1260 LET Z=Z+1
 1270 LET G=G*10
 1280 IF G>6.6 OR G<1.1 THEN 1310
 1290 IF G<3.3 OR G>8.8 THEN 1340
 1310 PRINT "YOU KNOCKED THE PUCK LOOSE AND RECOVERED IT"
 1330 GOTO 570
 1340 PRINT "YOU FAILED TO KNOCK THE PUCK LOOSE"
 1350 GOTO 1170
 1360 PRINT "Do you want the GOALY to   (1) USE HIS STICK,"
 1370 PRINT "(2) USE HIS BOARD,  (3) USE HIS GLOVE ---=>";
 1380 INPUT H
 1385 LET R=R+1
 1390 LET R=RND(H)
 1400 LET R=R*10
 1430 IF R<5.5 THEN 1450
 1440 IF R>5.5 THEN 1470
 1450 PRINT "THE GOALY STOPPED THE PUCK AND IT WAS WHISTLED DEAD"
 1460 GOTO 170
 1470 PRINT "YELL******SCREAM:::MORE SCREAMS***THEY SCORED***MORE YELLS"
 1480 LET T=T+1
 1490 PRINT T,"TO",S
 1500 GOTO 170
 1510 LET X=RND(Z)
 1520 LET X=X*10
 1530 IF X>5 THEN 1550
 1540 GOTO 1090
 1550 GOTO 570
 1560 PRINT "THE GAME IS OVER","NORTH STARS",T
 1570 PRINT B$,S
 1580 END