10   REM HOCKY.BS5
20   REM ...HOCKEY...from MECC : H5K3005   1-18-78
30   REM ...Adapted to SOL-20 BASIC5 by Ralph Hopkins 5/6/03
100  PRINT "&K&J";TAB(15);"WELCOME TO THE HOCKEY GAME&J"
110  M=0
120  T=0
130  S=0
140  PRINT "I HAVE THE NORTH STARS"
145  FOR O1=1 TO 9
146    PRINT TAB(9);O1;TAB(15);: GOSUB 1600: PRINT
147  NEXT O1
150  PRINT "WHAT IS THE NAME OF YOUR TEAM? ";
160  INPUT "--=>"O1
165  PRINT "&JOK, YOU ARE THE ";: GOSUB 1600: PRINT: PRINT
170  PRINT "THE PUCK HAS BEEN DROPPED FOR THE FACE OFF"
180  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  GOSUB 1600: PRINT TAB(25);S
250  PRINT "NORTH STARS";TAB(25);T
260  PRINT "END OF 2ND PERIOD"
270  GOSUB 1600: PRINT TAB(25);S
280  PRINT "NORTH STARS";TAB(25);T
290  GOTO 420
340  PRINT "END OF 1ST PERIOD"
390  GOSUB 1600: PRINT TAB(25);S
400  PRINT "NORTH STARS";TAB(25);T
419  A=A+.5
420  A=RND(A)
430  A=A*10
440  IF A<3.3 THEN 510
490  IF A>3.3 THEN IF A<5 THEN 530
500  IF A>5 THEN 550
510  PRINT "THE ";: GOSUB 1600: PRINT " WIN THE FACE-OFF"
520  GOTO 570
530  PRINT "THE ";: GOSUB 1600: PRINT " 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  C=C+1
640  Z=RND(Z)
660  Z=Z*10
670  IF Z<3.3 THEN 740
680  IF Z>3.3 THEN IF Z<6 THEN 760
690  IF Z>6 THEN 700
700  PRINT "******************$$$$$$$$GOAL********************$$$$$$$$"
710  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  N=RND(L)
780  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 ";: GOSUB 1600: PRINT " RECOVER THE PUCK"
840  GOTO 540
850  GOTO 1510
860  D=RND(D)
870  D=D*10
890  IF D>3.3 THEN IF D<4.5 THEN 1080
900  IF D>4.5 THEN IF D<6.6 THEN 1050
910  IF D<3.3 THEN 1010
920  IF D>6.6 THEN IF 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  Z=Z+1
990  D=D+.1
1000 GOTO 570
1010 PRINT "THE PASS WAS PERFECT *******SCORED*********************"
1020 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 D=D+.4
1070 GOTO 570
1080 PRINT "THE NORTH STARS INTERCEPTED THE PASS"
1090 E=RND(Z)
1095 E=E*10
1100 IF E>3.3 THEN IF 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 "(1 to 3) --=>"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 G=RND(Z)
1260 Z=Z+1
1270 G=G*10
1280 IF G>6.6 THEN 1310
1285 IF G<1.1 THEN 1310
1290 IF G<3.38 THEN 1340
1295 IF 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 R=R+1
1390 R=RND(H)
1400 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 T=T+1
1490 PRINT T,"TO",S
1500 GOTO 170
1510 X=RND(Z)
1520 X=X*10
1530 IF X>5 THEN 1550
1540 GOTO 1090
1550 GOTO 570
1560 PRINT "THE GAME IS OVER": PRINT "NORTH STARS";TAB(25);T
1570 GOSUB 1600: PRINT TAB(25);S
1580 GOTO 2000
1600 REM ... Display team names
1610 IF O1=1 THEN PRINT "Boston Bruins";       : RETURN
1620 IF O1=2 THEN PRINT "Calgary Flames";      : RETURN
1630 IF O1=3 THEN PRINT "Dallas Stars";        : RETURN
1640 IF O1=4 THEN PRINT "Detroit Redwings";    : RETURN
1650 IF O1=5 THEN PRINT "Monteal Canadiens";   : RETURN
1660 IF O1=6 THEN PRINT "New York Islanders";  : RETURN
1670 IF O1=7 THEN PRINT "New York Rangers";    : RETURN
1680 IF O1=8 THEN PRINT "Philadelphia Flyers"; : RETURN
1690 IF O1=9 THEN PRINT "Toronto Maple Leafs"; : RETURN
1695 PRINT "Mystery Team";
1699 RETURN
2000 END