mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-24 02:57:38 -05:00
51 lines
2.1 KiB
QBasic
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
|