Directory of image this file is from
This file as a plain text file

100 DIMT(50),C(19),F(19),Z(19)
110 FORX=1TO19\READC(X),Z(X),F(X)\NEXTX\LETX=1
120 PRINT"WELCOME TO HUISMAN STADIUM FOR TODAY	S GREAT GAME BETWEEN"
130 PRINT"THE PDP-8 PANTHERS AND (YOUR NAME PLEASE) THE ";
140 FOR A=1 TO 99\INPUT $T(A)\IF T(A)=141 THEN 150\NEXT A
150 LETT=A\PRINT\PRINT"A HIGHLY PARTISAN CROWD OF";
160 FORA=1TOT\LETB=2*RND(0)\NEXTA
170 LET A=INT(70000*RND(1))\PRINTA;
180 PRINT"FANS IS ANXIOUSLY AWAITING THE"\PRINT"START OF THE GAME."
190 PRINT"HERE IS MY TEAM:","AND HERE IS YOURS:"
200 PRINT"NAME","AVERAGE","NAME","AVERAGE"
210 PRINT"----","-------","----","-------"
220 GOSUB 400
230 PRINT\PRINT
240 PRINT"THE PANTHERS ARE TAKING THE FIELD NOW AS ANDREWS OF THE"
250 FOR A=1 TO T-1\PRINT CHR$(T(A));\NEXT A
260 PRINT" ADVANCES TO THE PLATE.  PLEASE WAIT AS THE COMPUTER SINGS"
270 PRINT"OUR NATIONAL ANTHEM TO ITSELF - 2 OR 3 TIMES!  JUST SING"
280 PRINT"ALONG UNTIL ASKED FOR YOUR PLAY."\PRINT
290 GOTO580
300 DATA.05,.412001,.05,.02,.263001,.03
310 DATA-.02,.236001,.02,.03,.316001,-.01
320 DATA.01,.241001,.03,.02,.321001,.02
330 DATA-.02,.367001,.02,-.02,.386001,-.01
340 DATA.01,.295001,.03,-.01,.296001,.02
350 DATA-.02,.319001,.02,-.02,.285001,.02
360 DATA-.03,.295001,.01,.02,.295001,.03
370 DATA.02,.218001,.02,.02,.139001,-.02
380 DATA.03,.238001,.01,.03,.231001,-.02
390 DATA 0,0,0
400 PRINT"HUISMAN",Z(1),"KLOOS",Z(2)
410 PRINT"HOEREN",Z(3),"ANDREWS",Z(4)
420 PRINT"BACCUS",Z(5),"MAYER",Z(8)
430 PRINT"SMITH",Z(7),"HANSEN",Z(6)
440 PRINT"SCHNEIDER",Z(9),"MICHEL",Z(10)
450 PRINT"ROSENBAUM",Z(11),"P. D. PEATE",Z(12)
460 PRINT"POULSEN",Z(13),"WILLIAMS",Z(14)
470 PRINT"KILGOUR",Z(15),"NELSON",Z(16)
480 PRINT "JOHNSON",Z(17),"ANKCORN",Z(18)
490 PRINT"WHITNEY"," MANAGER","IVEY"," MANAGER"\PRINT
500 PRINT"PITCHER	S OPTIONS ARE:"\PRINT"FASTBALL"
510 PRINT"BEANBALL"\PRINT"BRUSHBACK"\PRINT"BALL"\PRINT"CURVE"
520 PRINT"SLIDER"\PRINT"KNUCKLE"\PRINT"GREASEBALL (ILLEGAL)"
530 PRINT"SPITBALL (ILLEGAL)"\PRINT"CHECK"\PRINT
540 PRINT"BATTER	S OPTIONS ARE:"\PRINT"BUNT"\PRINT"SWING"
550 PRINT"HIT-AWAY"\PRINT"SACRIFICE"\PRINT"GROUNDER"\PRINT"FLY"
560 PRINT"KILL"\PRINT
570 RETURN
580 CHAIN"BASBL1"
590 END