1
0
mirror of https://github.com/rfivet/BCG101.git synced 2024-12-20 17:16:23 -05:00
BCG101/dec/BASEBL.BAS

51 lines
2.1 KiB
QBasic

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