1 &"WELCOME TO RSTS PING-PONG !!":&:&CHR$(7); FOR N=1 TO 10 5 INPUT"INSTRUCTIONS";A$:IFASCII(A$)<>89THEN75 10 &"THIS IS A GAME OF FAST PING-PONG. YOUR SKILL DEGREE WILL DETERMINE" 12 &"BOTH THE AMOUNT OF TIME ALLOTTED YOU FOR ANSWERING THE QUESTION" 14 &"ABOUT YOUR SHOT AND THE CHANCE THAT YOU WILL MAKE IT. THUS, IF" 16 &"YOU ARE GOOD, YOU CAN MAKE MORE SHOTS, BUT YOU MUST BE QUICK." 18 &"CALL ALL SHOTS AS FOLLOWS: SPINS ARE...":&,"LEFT SPIN","LS" 19 &,"RIGHT SPIN","RS":&,"TOPSPIN","TS":&,"BACKSPIN","BS" 20 &,"NO SPIN","NS":&"LOCATIONS ON THE TABLE ARE:":&,"LEFT COURT","LC" 22 &,"RIGHT COURT","RC":&,"'MIDDLE COURT'MC":&"SPEEDS ARE:" 24 &,"SLOW","S":&,"MEDIUM","M":&,"FAST","F":&"THUS A TYPICAL SHOT CALL" 26 &"WOULD BE: LSMCM, OR PERHAPS NSRCF. SHOTS ARE RATED ACCORDING TO" 28 &"DIFFIUULTY IN BOTH GIVING AND RECEIVING THEM -- THE EASIEST" 30 &"SHOT IS A NSMCS; THE TSRCF, LSLCF, OR BSLCF ARE EXAMPLES OF THE" 32 &"HARDEST. YOUR BEST BET IS TO TRY TO DO WHATEVER I DON'T DO, FOR, IF 34 &"I SLAM SHONG OUT OF THE BALL, FOR INSTANCE, YOU DON'T HAVE MUCH" 36 &"CHANCE IF YOU TRY TO SLAM IT BACK -- YOU WOULD TRY TO GET IT BACK" 38 &"ANY WAY POSSIBLE, LIKE WITH A NSMCS. TWO NOTES: YOU HAVE ALL THE" 40 &"TIME YOU WANT ON THE SERVE; AND DON'T JUMP THE GUN (ANSWER IT" 42 &"BEFORE IT'S ASKED) ON THE 'YOUR SHOT?' QUESTION -- IT ANNIHILATES" 44 &"YOUR CHANCES. OH, ONE MORE THING: I'M A VERY BAD SPORT..." 46 &SPACE$(41)"----" 75 RANDOMIZE 77 OPEN"KB:"ASFILE1 80 MATREADR$(7):MATREADT$(7) 85 ONERRORGOTO400 90 INPUT"AT WHAT DEGREE OF SKILL (0 TO 5) WOULD YOU LIKE TO PLAY";P9: P9,P7=P9/5+1 93 &:&"VOLLEY FOR SERVE..."CHR$(5);:SLEEP(5):& 95 IFRND(0)>.5THEN&"YOU";ELSEB3%=1:&"I"; 97 &" WON THE VOLLEY FOR SERVE.":GOTO570 100 DEFFNY%(S%,C%):F1=S%*C% 110 FNY%=INT(.04265873*F1^5-.90753968*F1^4+6.8025794*F1^3-21.96627*F1^2+29.571428*F1-10.542849):FNEND 120 DEFFNZ%(S)=.28191192E-3*S^10-.14088705E-1*S^9+.30166221*S^8- 3.6160356*S^7+26.600611*S^6-123.73387*S^5+361.0554*S^4-630.86438*S^3+ 589.53467*S^2-224.21545*S+100.01 125 DEFFNW%(S)=.39930556E-2*S^4-1.2256944*S^3+140.75347*S^2-7165.4583* S+136417.9 127 DEFFNX%(S)=-.18315018E-2*S^2+.12637363*S+2.2 130 DEFFNS(A$):IFP9<>P7THEN138 134 S1%=FNW%(ASCII(A$)):S2%=FNW%(ASCII(RIGHT(A$,3))) 136 S3%=FNX%(ASCII(RIGHT(A$,5))) 137 IFS1%>3ORS1%<1THENIFS2%<>3THENS1%=S2%ELSES1%=2:S3%=S3%+1 138 F2=FNZ%(FNY%(S1%,S2%)+S3%+FNY%(C1%,C2%)+C3%) 139 IFT1=0THENT1=20*P9 140 FNS=F2*P9/7.5/T1:FNEND 145 T1=20/3 149 C1%,C2%,C3%=1 150 WAIT(0):&:T5=TIME(0):SLEEP(1):IFTIME(0)-T5=0THENINPUT#1A$ 160 INPUT#1"YOUR SERVE. ";A$ 170 IFA$="RSTS11"THEN&"HEY!! RAH! RSTS11! ALRIGHT!! ";:GOTO610 200 IFFNS(A$)Q1%ORFNY%(S1%,S2%)+2S2%ANDS2%<>3)ORRND(0)<.5ORFNY%(S1%,S2%)+S3%<2THEN260 254 IFS2%=3THENIFS3%<2-FNY%(S1%,S2%)THEN260ELSES3%=S3%-2+FNY%(S1%,S2%) 256 GOTO265 260 ONS1%GOTO270,280,290 265 IFRND(0)<.5THEN&"WITH BACKSPIN, ";ELSE&"WITH TOPSPIN, "; 267 GOTO300 270 &"SPINNING LEFT, ";:GOTO300 280 &"SPINNING RIGHT, ";:GOTO300 290 &"WITHOUT SPIN, "; 300 ONS2%GOTO310,320,330 310 &"IN THE LEFT COURT. ";:GOTO340 320 &"IN THE RIGHT COURT. ";:GOTO340 330 &"DOWN THE MIDDLE. "; 340 &"SPEED: ";:ONS3%+1GOTO350,360,370 350 &"SLOW.":GOTO380 360 &"MEDIUM.":GOTO380 370 &"FAST." 380 &:C1%=S1%:C2%=S2%:C3%=S3%:P9=P7 390 WAIT(16/P9):SLEEP(8-S3%^2) 393 T5=TIME(0):INPUT"YOUR SHOT";A$:T1=TIME(0)-T5:GOTO200 400 IFERR=15THENRESUME410ELSERESUME403 403 &"EITHER YOU'RE GRETA GARBO OR GODZILLA JUST STEPPED IN" 405 &"FOR A BITE TO EAT. TAKE THAT POINT OVER.":GOTO570 410 &"TOO SLOW!!!":GOTO550 500 &R$(RND(0)*7+1) 550 &"MY POINT.":B%=B%+1:IFB%>20THEN700 560 B2=B%+B1%:IFB2/5=INT(B2/5)THENB3%=-1*B3%+1 565 B2=B1%^2+B%^2:IFB2=49ORB2=122THEN&:&"WELL, WELL! SKUNK GAME!": GOTO700 570 &"THE SCORE IS NOW";:ONB3%+1GOTO580,590 580 &B1%"TO"B%:GOTO145 590 &B%"TO"B1%:&:&"I SERVE:":S1%=RND(0)*3+1:S2%=RND(0)*3+1: S3%=RND(0)*3:GOTO260 600 &T$(RND(0)*7+1) 610 &"YOUR POINT.":B1%=B1%+1:IFB1%<20THEN560 700 IFABS(B1%-B%)>1THEN&"WE HAVE A WINNNAH!!"ELSEB3%=-1*B3%+1 :GOTO560 710 IFB1%>B%THEN&"AND IT IS PPHHHH-HUMPH! -- YOU....": &"PRAY SULLY NOT THE TELETYPES OF MY ABODE AGAIN*****!":GOTO800 720 &"AND HE (OF COURSE, HA-HA) IS MEEEEE!!" 730 &"JOY, OH JOY COMETH TO THE WORLD!!":WAIT(0) 740 &:INPUT"SO WE'LL PLAY ANOTHER GAME, OF COURSE";A$: IFASCII(A$)=89THENB%,B1%=0:&"GOODY!":&:&:B3%=0:GOTO145 750 INPUT"WHAT? OH, WON'T YOU RECONSIDER";A$:&"I THOUGHT AS MUCH..." 800 &CHR$(5);SYS(CHR$(9)) 1000 DATA"GOT BY YOU ANYWAY.","OFF THE END OF THE TABLE." 1010 DATA"YOU SPASTIC OR SOMETHING?","THAT WAS PRETTY POOR." 1020 DATA"RIGHT INTO THE NET.","OOOOOH! ALMOST!","YOU STINK." 1030 DATA"DAD-BLAST...MMGRSWBRR...","NICE SHOT!","OH NOOOOOOOOOO!" 1040 DATA"W H A -- ??","HEY! SHN -- WARPED TABLE! WARPED TABLE!!" 1050 DATA"WHOSE PADDLES ARE THESE, ANYWAY?","OH, FONG!!!" 1100 END