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
