File BASBAL.30 (OMSI 30 basic source file)

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
LET N=1
730 FOR Z5=S TO 5*V(S)+N
740 LET Z1=RND(Z1)
750 NEXT Z5
760 FOR Z5=1 TO 2000
770 IF INT(Z5/N)-G<>0 THEN 950
780 LET H(J)=H(J)+RND(Z1)*M(J).4B1* B * B * B 2 OD3A& 6 KX"1*M.0B1*4B1. B2*2B3* B * B * B 7I+S2 ;U+WCD* B * B 6 N/7TKO3E2 3IWN6 WN3MWB3RF +NCD3B7U7PB 3O;I7TKE.MBJ.1R0*2B .1J4*3B * B * B 6 R +ACD7IV 3NSW.MBJ.1R0*3B .7R0*1B * B * B 2 N +ICA* B * B * B * B 2
?W+RCD7CWO+NCT+OCN3T	H3S2 3IWN

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search