1PRINT"THIS IS THE REAL AND ONLY KNOWN HOCKEY GAME"
2PRINT
3PRINT"DO YOU WANT INSTRUCTIONS [N=0]";:INPUTZ7:IFZ7=0GOTO7
4PRINT"THIS HOCKEY GAME WAS MADE UP FOR THE PEOPLE AT DIGITAL BY"
5PRINT"THE PDP11/20 MEMORY AREA...RICK SIRACO AND GLENN MARTINSEN"
6PRINT,,,"3/8/73":GOTO601
7PRINT:LETR=0:LETI=0:LETJ9=0:LETJ7=0:GOTO241
10PRINT"MY PUCK AT MY BLUE LINE"
20PRINT"WHAT'S YOUR DEFENSE";:INPUTA:GOSUB1500
30RANDOMIZE
40LETB=INT(5*RND(0)):IFA>4GOTO20
50IFA=BGOTO1000
60PRINT"MY PUCK AT THE RED LINE":GOSUB1400
70PRINT"WHAT'S YOUR DEFENSE";:INPUTC:GOSUB1500
80RANDOMIZE
90LETD=INT(5*RND(0)):IFC>4GOTO70
100IFD=CGOTO1005
110PRINT"MY PUCK AT YOUR BLUE LINE"
120PRINT"WHAT'S YOUR DEFENSE";:INPUTE:GOSUB1500
130RANDOMIZE
140LETF=INT(5*RND(0)):IFE>4GOTO120
150IFE=FGOTO1010
160GOSUB890
161PRINT"WHAT IS YOUR DEFENSE";:INPUTG:GOSUB1500
162RANDOMIZE
163LETH=INT(5*RND(0)):IFG>4GOTO161
164IFG=HGOTO1015
165IFH=0GOTO208
166GOSUB910
167PRINT"WHAT IS YOUR DEFENSE";:INPUTB1:GOSUB1500
168RANDOMIZE
169LETC1=INT(20*RND(0)):IFB1>19GOTO167
170IFC1=B1GOTO1020
171IFC1<4GOTO208
172IFC1<9GOTO550
173IFC1<15GOTO560
174IFC1<21GOTO562
208PRINT : PRINT"      **** GOAL ****" : PRINT
240LETI=I+1:PRINT"SCORE   ME",I,"YOU",R
241PRINT"FACE OFF...CENTER ICE"
242PRINT"  REF DROPS THE PUCK"
243FORS5=1TO18:NEXTS5
244RANDOMIZE
245LETF9=INT(2*RND(0)):LETS5=0:IFF9=0GOTO60
246IFF9=1GOTO300:LETS5=0
251PRINT"YOUR PUCK AT YOUR BLUE LINE"
260PRINT"WHAT'S YOUR OFFENSE";:INPUTJ:GOSUB1500
270RANDOMIZE
280LETK=INT(9*RND(0)) : GOTO730
290IFJ=KGOTO1025
300PRINT"YOUR PUCK AT THE RED LINE":GOSUB1400
310PRINT"WHAT'S YOUR OFFENSE";:INPUTL:GOSUB1500
320RANDOMIZE
330LETM=INT(9*RND(0)) : GOTO740
340IFL=MGOTO1030
350PRINT"YOUR PUCK AT MY BLUE LINE"
360PRINT"WHAT'S YOUR OFFENSE";:INPUTN:GOSUB1500
370RANDOMIZE
380LETO=INT(9*RND(0)) : GOTO750
381IFN=OGOTO1035
382GOSUB920
383PRINT"WHAT'S YOUR OFFENSE";:INPUTA5:GOSUB1500
384RANDOMIZE
385LETK9=INT(9*RND(0)):IFK9<5GOTO385
386IFK9=A5GOTO1040
387IFA5=5GOTO509
388IFA5=6GOTO382
389IFA5=7GOTO391
390IFA5=8GOTO530
391GOSUB940
392PRINT"WHAT'S YOUR OFFENSE";:INPUTB5:GOSUB1500
393RANDOMIZE
394LETP5=INT(9*RND(0)):IFP5<5GOTO394
395IFP5=B5GOTO1045
396IFB5=5GOTO509
397IFB5=6GOTO391
398IFB5=7GOTO509
399IFB5=8GOTO530
400GOSUB850
401PRINT"WHAT IS YOUR OFFENSE";:INPUTG:GOSUB1500
402RANDOMIZE
403LETQ=INT(9*RND(0)) : GOTO760
405IFQ=GGOTO1075
406IFG=5GOTO251
407IFG=6GOTO400
408IFG=7GOTO251
409IFG=8GOTO251
410GOSUB870
411PRINT"WHAT IS YOUR OFFENSE";:INPUTR1:GOSUB1500
412RANDOMIZE
413LETQ2=INT(9*RND(0)) : GOTO770
415IFQ2=R1GOTO1070
416IFQ2=5GOTO400
417IFQ2=6GOTO410
418IFQ2=7GOTO400
419IFQ2=8GOTO400
420RANDOMIZE
430LETQ=INT(4*RND(0)):IFP=QGOTO10
448PRINT : PRINT"       **** GOAL ****" : PRINT
460LETR=R+1:PRINT"SCORE.......YOU"R"ME"I:GOTO241
500PRINT
502PRINT"***** GAME OVER *****"
503PRINT
504PRINT"***FINAL SCORE***PDP-11"I"***YOU"R"***"
505STOP
509RANDOMIZE
510LETD1=INT(4*RND(0)):IFD1=1GOTO448
512GOTO1090
513RANDOMIZE
514LETD1=INT(4*RND(0)):IFD1=0GOTO564
516IFD1=1GOTO566
517IFD1=2GOTO530
518IFD1=3GOTO590
530PRINT"YOUR PUCK IN THE CORNER"
531PRINT"WHAT'S YOUR PLAY";:INPUTM1:GOSUB1500
532RANDOMIZE
533LETS1=INT(13*RND(0)) : GOTO780
534IFS1=M1GOTO1040
536IFM1=10GOTO391
537IFM1=11GOTO530
538IFM1=12GOTO382
550PRINT"MY PUCK IN THE CORNER"
551PRINT"WHAT'S YOUR DEFENSE";:INPUTP1:GOSUB1500
552RANDOMIZE
553LETN1=INT(13*RND(0)) : GOTO790
554IFN1=P1GOTO1085
556IFN1=10GOTO165
557IFN1=11GOTO550
558IFN1=12GOTO160
560PRINT"YOUR GOALIE FALLS ON PUCK AND COVERS UP":GOTO1460
562PRINT"YOUR GOALIE MAKES A GREAT GLOVE SAVE":GOTO1460
564PRINT"MY GOALIE MAKES A GLOVE SAVE":GOTO1440
566PRINT"MY GOALIE FALLS ON PUCK":GOTO1440
568PRINT : PRINT"       ***** HIT THE POST *****" : GOTO1100
569PRINT : PRINT"      ***** KICK SAVE *****" : GOTO1100
570RANDOMIZE
571LETE2=INT(4*RND(0)):IFE2=1GOTO208
572GOTO1110
573RANDOMIZE
574LETE2=INT(4*RND(0)):IFE2=0GOTO560
576IFE2=1GOTO562
577IFE2=2GOTO550
578IFE2=3GOTO638
590GOSUB980
591PRINT"WHAT'S YOUR DEFENSE";:INPUTF2:GOSUB1500
592RANDOMIZE
593LETH2=INT(5*RND(0)):IFF2>4GOTO591
594IFH2=F2GOTO1060
595GOSUB960
596PRINT"WHAT'S YOUR DEFENSE";:INPUTJ2:GOSUB1500
597RANDOMIZE
598LETK2=INT(5*RND(0)) : IFJ2>4GOTO596
599IFK2=J2GOTO1065
600GOTO10
601PRINT"    THE PDP 11     VS     YOU!!!!!!"
602PRINT"  OFFENSE PLAYS  "
604PRINT" 5= SHOOT FOR GOAL "
605PRINT" 6= DROP PASS "
606PRINT" 7= FOWARD PASS "
607PRINT" 8= PASS TO THE CORNER" : PRINT
608PRINT" DEFENSE PLAYS "
612PRINT" 0= SWEEP CHECK "
613PRINT" 1= HIP CHECK "
614PRINT" 2= POOK CHECK"
615PRINT" 3= TRY AND RIDE HIM INTO THE BOARDS "
616PRINT" 4= BODY CHECK" : PRINT
618PRINT" CORNER PLAYS "
619PRINT" 10= PASS TO THE POINT "
620PRINT" 11= PASS BEHIND THE NET "
621PRINT" 12=PASS UP THE BOARDS":GOTO7
628GOSUB870
629PRINT"WHAT'S YOUR OFFENSE";:INPUTX1:GOSUB1500
630RANDOMIZE
631LETC3=INT(9*RND(0)) : GOTO800
633IFC3=X1GOTO1070
634IFX1=5GOTO638
635IFX1=6GOTO628
636IFX1=7GOTO638
638GOSUB850
639PRINT"WHAT'S YOUR OFFENSE";:INPUTW1:GOSUB1500
640RANDOMIZE
641LETD3=INT(9*RND(0)):IFD3=W1GOTO1075
642IFD3<5GOTO641
644IFW1=5GOTO251
645IFW1=6GOTO638
646IFW1=7GOTO251
647IFW1=8GOTO251
701GOSUB890
702PRINT"WHAT'S YOUR DEFENSE";:INPUTL2:GOSUB1500
703RANDOMIZE
704LETM2=INT(9*RND(0)):IFM2=L2GOTO1080
706IFM2<5GOTO704
707IFM2=5GOTO570
708IFM2=6GOTO701
709IFM2=7GOTO711
710IFM2=8GOTO550
711GOSUB910
712PRINT"WHAT'S YOUR DEFENSE";:INPUTN2:GOSUB1500
713RANDOMIZE
714LETP2=INT(9*RND(0)):IFP2=N2GOTO1085
715IFP2<5GOTO714
717IFP2=5GOTO570
718IFP2=6GOTO711
719IFP2=7GOTO570
720IFP2=8GOTO550
730IFK<5GOTO280
731IFK>8GOTO280
732IFJ<5GOTO260
733IFJ>8GOTO260
734GOTO290
740IFM<5GOTO330
741IFM>8GOTO330
742IFL<5GOTO310
743IFL>8GOTO310
744GOTO340
750IFO<5GOTO380
751IFO>8GOTO380
752IFN<5GOTO360
753IFN>8GOTO360
754GOTO381
760IFQ<5GOTO403
761IFQ>8GOTO403
762IFG<5GOTO401
763IFG>8GOTO401
764GOTO405
770IFQ2<5GOTO413
771IFQ2>8GOTO413
772IFR1<5GOTO411
773IFR1>8GOTO411
774GOTO415
780IFS1<10GOTO533
781IFS1>12GOTO533
782IFM1<10GOTO531
783IFM1>12GOTO531
784GOTO534
790IFN1<10GOTO553
791IFN1>12GOTO553
792IFP1>4GOTO551
794GOTO554
800IFC3<5GOTO631
801IFC3>8GOTO631
802IFX1<5GOTO629
803IFX1>8GOTO629
804GOTO633
850LETZ9=INT(29*RND(0)):IFZ9<21GOTO850
855PRINT"YOUR PUCK",Z9,"FT FROM YOUR GOAL":RETURN
870LETZ8=INT(16*RND(0)):IFZ8<7GOTO870
875PRINT"YOUR PUCK",Z8,"FT FROM YOUR GOAL":RETURN
890LETZ9=INT(29*RND(0)):IFZ9<21GOTO890
895PRINT"MY PUCK",Z9,"FT FROM YOUR GOAL":RETURN
910LETZ8=INT(16*RND(0)):IFZ8<7GOTO910
915PRINT"MY PUCK",Z8,"FT FROM YOUR GOAL":RETURN
920LETQ9=INT(29*RND(0)):IFQ9<21GOTO920
925PRINT"YOUR PUCK",Q9,"FT FROM MY GOAL":RETURN
940LETQ8=INT(16*RND(0)):IFQ8<7GOTO940
945PRINT"YOUR PUCK",Q8,"FT FROM MY GOAL":RETURN
960LETY9=INT(29*RND(0)):IFY9<21GOTO960
965PRINT"MY PUCK",Y9,"FT FROM MY GOAL":RETURN
980LETY8=INT(16*RND(0)):IFY8<7GOTO980
985PRINT"MY PUCK",Y8,"FT FROM MY GOAL":RETURN
1000PRINT : PRINT" ****PUCK STOLEN****" : PRINT : GOTO350
1005PRINT : PRINT" ****PLAY BROKEN UP****" : PRINT : GOTO300
1010PRINT : PRINT" ****LOOSE PUCK****" : PRINT : GOTO251
1015PRINT : PRINT" ****STEAL****" : PRINT : GOTO638
1020PRINT : PRINT" ****PLAY BROKEN UP****" : PRINT : GOTO628
1025PRINT : PRINT" ****PUCK STOLEN****" : PRINT : GOTO110
1030PRINT : PRINT" ****PUCK SWEPT AWAY****" : PRINT : GOTO60
1035PRINT : PRINT" ****STEAL****" : PRINT : GOTO10
1040PRINT : PRINT" ****BREAK AWAY****" : PRINT : GOTO595
1045PRINT : PRINT" ****PUCK STOLEN****" : PRINT : GOTO590
1050PRINT : PRINT" ****PLAY BROKEN UP****" : PRINT : GOTO166
1055PRINT : PRINT" ****PUCK SWEPT AWAY****" : PRINT : GOTO701
1060PRINT : PRINT" ****BREAK AWAY****" : PRINT : GOTO391
1065PRINT : PRINT" ****LOOSE PUCK****" : PRINT : GOTO382
1070PRINT : PRINT" ****BREAK AWAY****" : PRINT : GOTO711
1075PRINT : PRINT" ****PUCK STOLEN****" : PRINT : GOTO701
1080PRINT : PRINT" ****PLAY BROKEN UP****" : PRINT : GOTO638
1085PRINT : PRINT" ****LOOSE PUCK****" : PRINT : GOTO628
1090RANDOMIZE
1091LETH7=INT(4*RND(0)):IFH7=0GOTO564
1093IFH7=1GOTO566
1094IFH7=2GOTO568
1095IFH7=3GOTO569
1100RANDOMIZE
1101LETB7=INT(2*RND(0)):IFB7=0GOTO530
1103RANDOMIZE
1104LETB8=INT(2*RND(0)):IFB8=0GOTO590
1106IFB8=1GOTO391
1110RANDOMIZE
1115LETG9=INT(4*RND(0)):IFG9=0GOTO560
1125IFG9=1GOTO562
1130IFG9=2GOTO1200
1135IFG9=3GOTO1210
1150RANDOMIZE
1155LETC9=INT(2*RND(0)):IFC9=0GOTO711
1165IFC9=1GOTO628
1200PRINT:PRINT"     *****KICK SAVE*****     ":PRINT:GOTO1150
1210PRINT:PRINT"     *****HIT THE POST*****":PRINT:GOTO1150
1400RANDOMIZE
1405LETI9=INT(10*RND(0)):IFI9<7THENRETURN
1410IFI9=9THENPRINT"***PUCK DEFLECTED INTO STANDS***":GOTO241
1415IFI9=8THENPRINT"***PUCK TIED UP AGAINST BOARDS***":GOTO241
1420IFI9=7THENPRINT"***FORWARD PASS OFFSIDES***":GOTO241
1440PRINT"FACE OFF TO THE RIGHT OF MY GOAL"
1443PRINT"REF DROPS THE PUCK":PRINT
1444FORP9=1TO7:NEXTP9
1445RANDOMIZE
1447LETP9=INT(2*RND(0)):IFP9=0GOTO595
1451IFP9=1GOTO382
1460PRINT"FACE OFF TO THE RIGHT OF YOUR GOAL"
1463PRINT"REF DROPS THE PUCK":PRINT
1464FORT9=1TO7:NEXTT9
1465RANDOMIZE
1467LETZ7=INT(2*RND(0)):IFZ7=1GOTO160
1471IFZ7=0GOTO400
1500LETJ9=J9+1
1525IFJ9=30THENPRINT,,,"15 MIN. REMAINING"
1550IFJ9=60THENPRINT,,,"10 MIN. REMAINING"
1575IFJ9=90THENPRINT,,,"5 MIN. REMAINING"
1580IFJ9=96THENPRINT,,,"4 MIN. REMAINING"
1585IFJ9=102THENPRINT,,,"3 MIN. REMAINING"
1590IFJ9=108THENPRINT,,,"2 MIN. REMAINING"
1595IFJ9=114THENPRINT,,,"1 MIN. REMAINING"
1596IFJ9<120THENRETURN
1600GOTO1690
1690LETJ9=0:LETJ7=J7+1:PRINT"END OF PERIOD",J7,:IFJ7=3GOTO500
1710PRINT"SCORE  **  ME",I,"  **  YOU"R
1720PRINT"15 MIN. TIMEOUT":PRINT
1730FORH8=1TO1000
1740IFH8=50THENPRINT"10 MIN. REMAINING":PRINT
1750IFH8=100THENPRINT"5 MIN. REMAINING":PRINT
1760IFH8=130THENPRINT"2 MIN. REMAINING":PRINT
1770IFH8=135THENPRINT"1 MIN. REMAINING":PRINT
1780IFH8=140THENPRINT"FACE OFF WILL BE AS SOON AS PLAYERS ARE READY"
1790IFH8=145GOTO241
1795NEXTH8
