Softball (TRS-80 MC10) by Jim Gerrie

SOFTBALL.C10 (for the "Extreme-256" category) can be played online here:

https://archive.org/details/softball_202407

A Youtube video of the game being played can be found here:

The latest VMC10 Emulator can be downloaded here:

https://archive.org/details/vmc-10-073-i_202405

Description of SOFTBALL Code

----------------------------

REM INIT
0 J=3.5:K=1:B$="*":C$=" ":C=40+RND(10):?"ßßßßßß¿¿¿ÏÏÏ¿¿¿ßßßßßß","ßß߯¯¯¿¿¿ÏÏÏ¿¿¿¯¯¯ßßß","ŸŸŸ¯¯¯¯¯¯ŸŸŸ",
REM PRINT PLAYFIELD
1 ?"ŸŸŸŒŸŸŸ","†Žƒ‰","߆¿¿Ž‡‹¿¿‰ß","ß߆Ž‡‹‰ßß","ßß߆Ž‡‹‰ßßß"
2 ?"ßßß߆Œ‡‹Œ‰ßßßß","ßßßßß‚ßßßßß","ßßßßß߆‰ßßßßßß",:A$(5)="ÿ":A$(6)="€ƒƒ‡":A$(7)="Ž‚":A$(8)="‹‹
3 ?"ßßßßßß߆‰ßßßßßßß ‹ÿ","ßßßßßßß߆‰ßßßßßßßß ‹€","ßßßßßßßß߆‰ßßßßßßßßß ","ßßßßßßßßß߀ßßßßßßßßßß ‡‹"
REM MAIN LOOP: PRINT PITCHER AND KEYINPUT FOR SWINGS
4 ?@58,"X":FORB=90TO470STEP32:?@B,B$;:FORZ=1TOC:NEXT:?@B,C$;:IFINKEY$<>""THENFORT=5TO8:?@214+T*32,A$(T)" ";:NEXT:IFB=378THEN7
5 NEXT:IFB=474THENS=S+1:SOUND1,2:IFS=3THENS=0:?@277,O+1"OUT":N=N+1:S=0:O=O+1:IFO=3THENO=0:R(W)=R(W)+R:R=0:W=-(W=0):N=0:K=0
REM END MAIN LOOP PRINT DETAILS AFTER PITCH
6 FORZ=1TO2500:NEXT:N=N*-(N<10):?@480,"R"R"O"O"P"N+1"T"W+1"SC"R(W);:?@0,;:ONKGOTO0:FORT=0TO9:P(T)=0:NEXT:I=I+1:INPUTE:CLS:GOTO0
REM HIT ANIMATION
7 B=500:X=19+RND(3):H=RND(0)*SGN(RND(0)-.5):FORY=25TO0STEP-1:X=X+H:P=POINT(X,Y):RESET(X,Y):IFP=4THENB=442:Y=0:S=2:GOTO9
REM RUN ANIMATIONS AND SCORE CALCULATIONS
8 IFP>1ANDP<6THENQ=P-1:?@277,Q"BASES":Y=0:P(N)=.5:FORT=0TO9:P(T)=P(T)+Q*-(P(T)>0):R=R-(P(T)>J):P(T)=P(T)*-(P(T)<=J):NEXT:N=N+1
REM PROMPT FOR NEXT PLAYER AND NEXT INNINGS
9 NEXT:?@480,"R"R"O"O"P"N+1"T"W+1"SC"R(W)"I"INT(I/2)+1;:FORZ=1TO2500:NEXT:ON-(E=0)GOTO5:PRINT@0,"T1:"R(0)"T2:"R(1):INPUTE:GOTO5
10 REM                                                                                             1         1         1         1
11 REM   1         2         3         4         5         6         7         8         9         0         1         2         3
12 REM78901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234
13 REM softball BY JIM GERRIE
14 REM 2025 10-LINER CONTEST
15 REM HIT ANY KEY TO SWING.
16 REM NO AUTO END OF GAME.
17 REM ENTER NUMBER OTHER
18 REM THAN ZERO AFTER TEAM
19 REM HAS 3 OUTS, THEN HIT A
20 REM BALL TO SEE BOTH TEAM
21 REM SCORES. HIT ENTER TO 
22 REM CONTINUE. R=CURRENT RUNS
23 REM O=OUTS    P=PLAYER
24 REM T=TEAM    SC=TEAM SCORE
25 REM IN=INNING