Atari 8-bit Source code

0GOTO81
50REM
51COLORT4:PLOTT37,T33:DRAWTOT37,T37:COLORT2:PLOTT37,T33:DRAWTOT41,T37:RETURN
52COLORT4:PLOTT37,T33:DRAWTOT41,T37:COLORT2:PLOTT37,T33:DRAWTOT41+T1,T33:RETURN
53COLORT4:PLOTT37,T33:DRAWTOT41+T1,T33:COLORT2:PLOTT37,T33:DRAWTOT41,T33-T4:RETURN
54COLORT4:PLOTT37,T33:DRAWTOT41,T33-T4:RETURN
55SW=T4:COLORT2:PLOTT37,T33:DRAWTOT37,T33-T4:RETURN
59REM
60POKEHITCLR,T0:FOREVER=T0TOT1STEPT0:SOUNDT0,(YY-P0)/T4-T8,T10,T8:AA=STICK(B-1)
62XX=XX+T2*(XX<131.5)*(AA=T8-T1)*((YY-P0)<154)
63XX=XX-T2*(XX>120.6)*(AA=T11)*((YY-P0)<154)
66AA=USR(PM,BALL,YY,T0):POKET53248,XX:YY=YY+S:AA=USR(PM,BALL,T0,YY)
67HHH=T0:IFRND(T0)>T1/T3THENHHH=T1
68HIT=PEEK(HITBALL):POKEHITCLR,T0:IF((HIT=T2ORHIT=T6)ANDSW)ANDHHHTHEN890
69SW=SW+T1*(SW=T0)*(STICK(R-1)<>T15)
70AA=USR(PM,BALL,YY,T0):POKET53248,XX:YY=YY+S:AA=USR(PM,BALL,T0,YY)
71HIT=PEEK(HITBALL):POKEHITCLR,T0:IF((HIT=T2ORHIT=T6)ANDSW)ANDHHHTHEN890
72IFSWTHENGOSUBT5*T10+SW:SW=SW+T1
73HIT=PEEK(HITBALL):POKEHITCLR,T0:IF((HIT=T2ORHIT=T6)ANDSW)ANDHHHTHEN890
74IFYY-P0<172THENNEXTEVER
75IFSW<T1AND(XX<123ORXX>128)THENBL=BL+T1:SOUNDT0,T200,T6,T4:FORI=T1TOT6*T10:NEXTI:GOTO77
76ST=ST+T1:SOUNDT0,T100,T10,T8:FORI=T1TOT6*T10:NEXTI
77AA=USR(PM,BALL,YY,T0):SOUNDT0,T0,T0,T0:SETCOLOR4,13,6:IFBL=T4THEN884
78IFST=T3THEN885
79GOTO825
80REM
81GOSUB5000:DIMA$(T77/T11),S(T18):IN=T1:NT=T1
82FORI=T1TOT18:S(I)=T0:NEXTI
96REM**MAINGAMELOOPFOLLOWS:,=TEAMSATBAT,&INTHEFIELD***=OUTS***=RUNNERONBASEINDICATORS***
97REM**=STRIKES***=BALLS***=ERRORS***=BATTERREACHEDBASEFLAG***=NUMBEROFRUNSSCOREDINEACHINNING
100IFB=T2THENB=T1:R=T2:GOTO120
115B=T2:R=T1
120P=T0:OT=T0:J=T0:K=T0:L=T0
200ST=T0:BL=T0:P1=P:E=T0:H=T0:GOSUB800
205REM***
210IFP>P1THENFORII=T1TOP-P1:FORI=T1TOT100:SOUNDT0,140-I,T14,T12:NEXTI:NEXTII
225REM******
230IFH=T0THENOT=OT+T1
240IFB=T2THEN250
241REM******
242IFH-T9THENBA=BA+T1
244IFH>T0ANDH<T5THENBH=BH+T1
246IFE=T1THENRE=RE+T1:BH=BH-T1
248GOTO290
249REM**
250IFH-T9THENRA=RA+T1
252IFH>T0ANDH<T5THENRH=RH+T1
254IFE=T1THENBE=BE+T1:RH=RH-T1
289REM******
290IFOT<T3THEN200
299REM***
300S(IN)=P
399REM***
400SCRSW=T0:POKET77,T0:GRAPHICST0:POKET559,T62:SETCOLORT2,T1,T4:SETCOLORT4,T8,T10:POKET752,T1
404AA=USR(ADR(MEM$),T0,P0,T256*T4)
405?:?"ALLSTARBASEBALL":?:?
410?"INNING":?:?:?"RED":?:?"BLUE"
415FORI=T1TOT9:POSITIONI*T3+T9,T4:?I;:NEXTI
420BS=T0:RS=T0:FORI=T1TOIN
422IFI/T2=INT(I/T2)THEN430
424RS=RS+S(I):POSITION(I/T2)*T3+T10,T77/T11
426?S(I);:GOTO440
430BS=BS+S(I):POSITION(I/T2)*T3+T9,T9:?S(I);
440NEXTI
450POSITIONT1,T14:?"Boxscore:RunsHitsErrorsHit%";
452POSITIONT2,T16:?"Red":POSITIONT2,T18:?"Blue"
460POSITIONT13,T16:?RS:POSITIONT19,T16:?RH:POSITIONT26,T16:?RE
462PE=INT(RH/RA*T10*T100):POSITIONT33,T16:?PE
464POSITIONT13,T18:?BS:POSITIONT19,T18:?BH:POSITIONT26,T18:?BE
466IFBA=T0THEN479
468PE=INT(BH/BA*T10*T100):POSITIONT33,T18:?PE
479POSITIONT0,T23:?"PressFiretocontinue...";
480IFSTRIG(T1-1)=T0ORSTRIG(T2-1)=T0THENGOTO485
482GOSUB950:GOTO480
485FORI=T0TOT3:SOUNDI,T0,T0,T0:NEXTI:IN=IN+T1
486IFIN=T19THEN491
487IFIN=T18ANDBS>RSTHEN491
490GOTOT100
491FORI=T1TOT100:NEXTI:POSITIONT0,T23:?"PressFIREfornextgame";
492IFSTRIG(T1-1)=T0ORSTRIG(T2-1)=T0THENRUN
493GOSUB950:GOTO492
599REM***:J,K,L=0OR1IFNO/ONERUNNERONTHATBASE
600IFH<T1ORH>T4THENRETURN
602FORI=T1TOH*T2:SETCOLORT4,RND(T0)*T16,T12
603SOUNDT0,T100,T8,T10:FORII=T1TOT100:NEXTII:NEXTI:SOUNDT0,T0,T0,T0
606GOTOH*T10+600
608REM**ADVANCERUNNERSIFORERROR***
610IFLTHENL=T0:P=P+T1
612IFKTHENK=T0:L=T1
614IFJTHENK=T1
616J=T1:RETURN
618REM**ADVANCERUNNERSIF
620IFLTHENL=T0:P=P+T1
622IFKTHENP=P+T1
624IFJTHENJ=T0:L=T1
626K=T1:RETURN
628REM**ADVANCERUNNERSIF
630IFLTHENP=P+T1
632IFKTHENP=P+T1:K=T0
634IFJTHENP=P+T1:J=T0
636L=T1:RETURN
638REM**ADVANCERUNNERSIF
640IFJTHENJ=T0:P=P+T1
642IFKTHENK=T0:P=P+T1
644IFLTHENL=T0:P=P+T1
646P=P+T1:RETURN
648REM**ADVANCERUNNERSON
650FORI=T1TOT200:NEXTI:SOUNDT0,T0,T0,T0:SETCOLORT4,T13,T6
651IFJ=T0THENJ=T1:RETURN
652IFK=T0THENK=T1:RETURN
654IFL=T0THENL=T1:RETURN
656P=P+T1:RETURN
658REM**
659REM**
660POKEHITCLR,T0:?"OUT":SETCOLORT4,T6,T12:SOUNDT0,T100,T6,T8:FORI=T1TOT200:NEXTI
661SOUNDT0,T0,T0,T0:IFJ=T0OROT>T1ORRND(T0)<THALFTHENRETURN
662?"DOUBLEPLAY!!!":SOUNDT0,T200,T10,T8:FORI=T1TOT250:NEXTI
664SOUNDT0,T0,T0,T0:IFOT=T0THEN670
666OT=OT+T1:RETURN
670OT=OT+T1:IFKANDL=T0THENK=T0:J=T1:RETURN
672IFL=T0ANDK=T0THENJ=T0:RETURN
674IFLANDK=T0THENP=P+T1:J=T0:L=T0:RETURN
676J=T0:RETURN
678REM***
680SETCOLORT4,T4,T12:SOUNDT0,T100,T6,T8:FORI=T1TOT100:NEXTI:SOUNDT0,T0,T0,T0
681IFOT>T1ORL=T0ORRND(T0)<T4/T10THENRETURN
682?"SACRIFICERunScores!!!"
683SETCOLORT4,T11,T12:SOUNDT0,T200,T6,T8:FORI=T1TOT200:NEXTI
684P=P+T1:L=T0:OT=OT+T1:H=T9:RETURN
688REM**
700GRAPHICST5:POKET559,T62:SETCOLORT4,T13,T6:SETCOLORT0,T0,T14:SETCOLORB,T9,T8:SETCOLORR,T14,T4
701POKEHITCLR,T0:SW=T3*T16+T100*(B-T1):FORI=T1TOT3:POKET704+I,SW:NEXTI
702POKET752,T1:DV=T0:AA=USR(PM,BALL,YY,T0):IFRND(T0)<THALFTHEN750
703REM****
704?"Infieldgroundball!!":?:SETCOLORT4,T1,T10
705X=INT(RND(T0)*T5*T5)*T4+T11*T5:Y=T5*T9:POKET53251-T1,X+T2:POKET53251,X:POKET704+T2,T2*T19
708A=RND(T0)*T4*T10+T2*T10:D=T39:C=(RND(T0)-THALF):E=-(RND(T0)*T3+T2)/T2:AA=USR(PM,PLAYR+T2*T19,T0,Y+P2)
710AA=USR(PM,BRUN,T0,Y+P3):FOREVER=T0TOT1STEPT0:SW=STICK(B-1):TR=STRIG(B-1)
720X=X+T3*(SW=T6+T1)*(X<T200-T8):DV=(TR=T0)*(SW=T6+T1):IFDVTHENGOSUB995:GOTO734
723X=X-T3*(SW=T11)*(X>T5*T10):DV=(TR=T0)*(SW=T11):IFDVTHENGOSUB992:GOTO734
733POKET53251,X:IFSW-T15THENPOKET53251-T1,X+T2-(T8-T1)*(SW=T11)
734IFPEEK(T53251+T3)THEN660
735COLORT0:PLOTA,D
736A=A+C:D=D+E:COLORT1:PLOTA,D:IFD<T3THENX=X/T2-T2*T11:GOTO740
737IFPEEK(T53251+T3)THEN660
738SOUNDT0,D*T5,T10,T5:IFDVTHEN735
739NEXTEVER
740IFABS(X-A)>T9THENGOTO747
742IFRND(T0)<THALFANDABS(X+T1-A)<T5THENE=T1:H=T1:?"ERROR#&%@!!":SOUNDT0,T15*T10,T10,T6:GOTO600
745H=T1:?"SINGLE":GOTO600
747H=T2:?"DOUBLE":GOTO600
749REM*****
750X=INT(RND(T0)*T5*T5)*T4+T11*T5:Y=T559/T3-T12:POKET53251,X:AA=USR(PM,PLAY,T0,Y+P3)
751?"Flyballtotheoutfield!!":?:POKET704+T2,T2*T19:POKET53251-T1,X+T2:AA=USR(PM,PLAYR+T2*T19,T0,Y+P2-T10)
752A=INT(RND(T0)*T2*T10):D=INT(RND(T0)*T5):C=RND(T0)+T1:E=RND(T0)+T6/T10
755COLORT3:PLOTT77,T3*T10:DRAWTOT77,T39:PLOTA,D:FOREVER=T0TOT1STEPT0:SW=STICK(B-1):TR=STRIG(B-1)
760X=X+T2*(SW=T6+T1)*(X<T200-T8):DV=(TR=T0)*(SW=T6+T1):IFDVTHENGOSUB995:GOTO767
761X=X-T2*(SW=T11)*(X>T5*T10):DV=(TR=T0)*(SW=T11):IFDVTHENGOSUB992:GOTO767
764DV=(TR=T0)*(SW=T15):IFDVTHENAA=USR(PM,PLAY,Y+P3,T0):AA=USR(PM,PLAYR+T2*T19,Y+P2-T10,T0)
765IFDVTHENY=Y-T8-T23*RND(T0):AA=USR(PM,PLAYU,T0,Y+P3):AA=USR(PM,PLAYR+T2*T19,T0,Y+P2-T10)
766POKET53251,X:IFSW-T15THENPOKET53251-T1,X+T2-(T8-T1)*(SW=T11)
767IFA+C>T77-T1ANDD<T26+T3THENGOTO785
769IFA+C>T77-T1THENGOTO786
770XX=PEEK(T53251+T3):IF(XX=T1)+(XX=T5)THEN?"OUT":GOTO680
774COLORT0:PLOTA,D
775A=A+C:D=D+E:COLORT1:PLOTA,D:IFD>T77/T2THENGOTO790
780SOUNDT0,A+C+X/T2+Y/T4-T3*T10,T10,T5:IFDVTHEN767
783NEXTEVER
785H=T4:?"HOMERUN":GOTO600
786H=T3:?"TRIPLE":GOTO600
790IFA>T5*T11THENGOTO747
794X=X/T2-T2*T11:GOTO742
799REM******
800SOUNDT0,T0,T0,T0:POKE623,T1:IFSWTHENAA=USR(ADR(MEM$),T0,P0,T256*T4)
801IFSCRSWTHEN825
802GRAPHICST5:POKET559,T62:SETCOLORT4,T13,T6:SETCOLORT0,T1,T10:SETCOLORB,T9,T8
803SETCOLORR,T14,T4:POKET752,T1:SCRSW=T1
808REM**
810COLORT1:PLOTT33+T2,T33-T2:DRAWTOT4,T0
811PLOTT4*T11,T33-T2:DRAWTOT5*T15,T0
814Z=T19:FORI=T5*T11TOT5*T12:PLOTI,Z:DRAWTOT4*T10,T5*T12-I:DRAWTOI,Z-T1:Z=Z-T1:NEXTI
817Z=T14:FORI=T19TOT19+T5:PLOTI,Z:DRAWTOT39,I-T19:DRAWTOI,Z-T1:Z=Z+T1:NEXTI
820COLORT3:B1=T39:B2=T5:GOSUB990
822B1=T23-T1:B2=T18-T1:GOSUB990
823B1=T14*T4:B2=T18-T1:GOSUB990
824REM**
825COLORT4:PLOTT37,T33:DRAWTOT41,T37
826PLOTT37,T33:DRAWTOT41+T1,T33
827PLOTT37,T33:DRAWTOT41,T26+T3
828PLOTT37,T33:DRAWTOT37,T26+T3
831REM**
832?"Runs";P;"Outs";OT
833?"BALLS";BL;"STRIKES";ST:?
834COLORT3:PLOTT39,T33:DRAWTOT41,T33
835PLOTT39,T33+T1:PLOTT41,T33+T1:PLOTT41-T1,T33+T2:PLOTT39-T1,T10:DRAWTOT41,T10
836COLORT2:PLOTT37,T33:DRAWTOT37,T37
837SW=T3*T16+T100*(T2-B):FORI=T1TOT3:POKET704+I,SW:NEXTI:SW=T0
840IFJTHENPOKET53248+T1,153:AA=USR(PM,BRUN,T0,PP1+T77-T2)
842IFKTHENPOKET53251-T1,111:AA=USR(PM,BRUN,T0,P2+T39)
844IFLTHENPOKET53251,83:AA=USR(PM,BRUN,T0,P3+T100+T7)
848REM
850YY=T5*T15+P0:XX=T11*T11+INT(RND(T0)*T8):POKE53248,XX
852A$="RED":IFB=T2THENA$="BLUE"
854?A$;"'SPITCH???";
855S=STICK(B-1):IFS=T15THENSOUNDT0,RND(T0)*T200,T10,T1:GOTO855
856S=S/T2:REMOFPITCH
857GOTO60
884?"WALK":H=T9:SETCOLORT4,T12,T10:SOUNDT0,T100,T6,T8:GOTO650
885?"STRIKEOUT":SETCOLORT4,T8,T10:FORI=T1TOT100:SOUNDT0,T200,T10,T8:NEXTI
886SETCOLORT4,T13,T6:SOUNDT0,T0,T0,T0:SW=T0:RETURN
887REM
890SCRSW=T0:D=RND(T0):IFRND(T0)<THALFTHEND=-D
891SOUNDT0,S,T4,T14:FOREVER=T0TOT1STEPT0
892AA=USR(PM,BALL,YY,T0):XX=XX+T2*D:POKET53248,XX:YY=YY-T5:AA=USR(PM,BALL,T0,YY)
894IFYY-P0<T2*T10THENAA=USR(ADR(MEM$),T0,P0,T256*T4):POKE623,T8:GOTO700
896SOUNDT0,(XX+YY)/T2-T39,T4,T14:NEXTEVER
949REM
950SOUND0,ASC(N$(NT)),T10,T4
954FORI=T1TOT9:NEXTI
955NT=NT+T1:IFNT>T33THENNT=T1
956RETURN
989REM
990PLOTB1,B2:PLOTB1+T1,B2:PLOTB1,B2+T1:PLOTB1+T1,B2+T1:RETURN
991REM
992AA=USR(PM,PLAYR+T2*T19,Y+P2-T10,T0):X=X-RND(0)*T16:IFX<T47THENX=T47
993AA=USR(PM,PLAY,Y+P3,T0):POKET53251-T1,X+T1:POKET53251,X:POKET53248+T1,X+T8:X=X+T1
994AA=USR(PM,PLAYL,T0,Y+PP1):AA=USR(PM,PLAYL+T19,T0,Y+P3):AA=USR(PM,PLAYL+T19*T2,Y+P2-T10,Y+P2):RETURN
995AA=USR(PM,PLAYR+T2*T19,Y+P2-T10,T0):X=X+RND(T0)*T16:IFX>T200-T15THENX=T200-T15
996AA=USR(PM,PLAY,Y+P3,T0):POKET53251-T1,X+T6+T1:POKET53251,X+T8:POKET53248+T1,X:X=X+T6+T1
997AA=USR(PM,PLAYR,T0,Y+PP1):AA=USR(PM,PLAYR+T19,T0,Y+P3):AA=USR(PM,PLAYR+T19*T2,Y+P2-T10,Y+P2):RETURN
4900REM
5000T1=1:T0=T1-T1:T2=T1+T1:T3=T2+T1:T4=T3+T1:T5=T4+T1:T6=T5+T1:T8=T6+T2:T9=T8+T1:T10=T9+T1:T11=T10+T1
5010T12=T11+T1:T13=T12+T1:T14=T13+T1:T15=T14+T1:T16=T15+T1:T18=T16+T2:T19=T18+T1:THALF=T1/T2
5020T39=T3*T13:T37=T39-T2:T33=T37-T4:T41=T39+T2:T47=T41+T6:T77=77:T559=559:T62=T77-T15:T23=T18+T5:T26=T23+T3
5030T74=T77-T3:T100=T10*T10:T200=T2*T100:T250=250:T53248=53248:T53251=T53248+T3:T256=T16*T16:T704=704
5040HITBALL=T53251+T1:HITCLR=HITBALL+T26:T752=T16*T47:T255=T256-T1:T126=126
5090REM
5100DIMBALL$(T6):BALL$="888":BALL=ADR(BALL$)
5190REM
5200DIMPLAY$(T19):PLAY$="<<ffffff":PLAY=ADR(PLAY$)
5210PLAY$(T6,T6)=CHR$(T255):PLAY$(T6+T1,T6+T1)=CHR$(T255):PLAY$(T8,T8)=CHR$(T126):PLAY$(T12,T12)=CHR$(T126)
5400REM
5500DIMPLAYU$(T19):PLAYU$="<<<fffff":PLAYU=ADR(PLAYU$)
5510PLAYU$(T6,T6)=CHR$(T255):PLAYU$(T6+T1,T6+T1)=CHR$(T126):PLAYU$(T12,T12)=CHR$(T126)
5700REM
5800DIMPLAYR$(T3*T19):PLAYR$="880":PLAYR=ADR(PLAYR$)
5810PLAYR$(T14,T14)=CHR$(T255):PLAYR$(T15,T15)=CHR$(T255):PLAYR$(T16+T1,T16+T1)=CHR$(159):PLAYR$(T47,T47)=CHR$(T33-T2)
5820PLAYR$(T18,T18)=CHR$(T255):PLAYR$(T19,T19)=CHR$(T255):PLAYR$(T37,T37)=CHR$(T255):PLAYR$(T16,T16)=CHR$(T33-T2)
5830PLAYR$(T37+T1,T37+T1)=CHR$(T255):PLAYR$(T47-T2,T47-T2)=CHR$(T26+T1):PLAYR$(T47-T1,T47-T1)=CHR$(T26+T1)
6000REM
6100DIMPLAYL$(T3*T19):PLAYL$="???pp":PLAYL=ADR(PLAYL$)
6110PLAYL$(T14,T14)=CHR$(T255):PLAYL$(T15,T15)=CHR$(T255):PLAYL$(T18,T18)=CHR$(255):PLAYL$(T14-T1,T14-T1)=CHR$(T33-T2)
6120PLAYL$(T33-T3,T33-T3)=CHR$(T26+T2):PLAYL$(T19,T19)=CHR$(T255):PLAYL$(T37,T37)=CHR$(T255)
6130PLAYL$(T33-T2,T33-T2)=CHR$(T26+T2):PLAYL$(T19*T2,T19*T2)=CHR$(T255)
6300REM
6400DIMBRUN$(T3*T19):BRUN$="<<ffffff":BRUN=ADR(BRUN$)
6410BRUN$(T6,T6)=CHR$(T126):BRUN$(T6+T1,T6+T1)=CHR$(T255):BRUN$(T12,T12)=CHR$(T126)
6490REM**
6500DIMN$(T33):N$="CC#).6..===CC#).6......"
7010REM
7020REM
7030REM
7040REM
7050DIMPMOVE$(T4*T11):PMOVE$="hh`":PM=ADR(PMOVE$)
7060DIMMEM$(89):MEM$="hNhhEhh<hh`"
7070SW=T8*INT(PEEK(T559+T2)/T8)-T8
7080P0=T256*(SW+T4)
7090AA=USR(ADR(MEM$),T0,P0,T256*T4)
7100POKET704,T14
7110POKE54279,SW
7120POKE53277,T3
7130PP1=P0+T256:P2=PP1+T256:P3=P2+T256:RETURN
32195REM
32200DATA5,16,56,56,56,16
32245REM
32250DATA18,24,153,153,153,255,255,126,24,60,60,126,102,102,102,102,102,102,231
32295REM
32300DATA18,153,153,153,219,255,126,60,24,60,60,126,102,102,102,102,102,195,129
32305REM
32320DATA18,0,0,0,0,0,0,0,0,0,0,128,248,255,255,31,159,255,255
32330DATA18,0,0,0,0,0,0,0,0,0,56,56,48,252,252,252,241,255,255
32350DATA18,0,0,0,0,0,27,27,31,14,14,4,0,0,0,0,0,0,0
32400REM
32420DATA18,0,0,0,0,0,0,0,0,0,0,1,31,255,255,248,249,255,255
32430DATA18,0,0,0,0,0,0,0,0,0,28,28,12,63,63,63,143,255,255
32450DATA18,0,0,0,0,0,216,216,248,112,112,32,0,0,0,0,0,0,0
32460REM
32470DATA18,24,24,24,60,126,255,219,153,189,60,126,102,102,102,102,102,102,231
32490REM
32500DATA104,162,5,104,149,220,202,16,250,198,220,198,222,160,0,177,224,170,168,165,223,240
32510DATA9,169,0,145,222,136,208,249,138,168,165,221,240,7,177,224,145,220,136,208,249,96
32590REM
32600DATA169,0,133,212,133,213,104,170,240,78,104,133,204,104,133,203,202,240,69,104,133,206,104,133,205,202,240
32610DATA60,104,133,213,104,133,212,162,2,165,203,208,6,202,165,204,208,1,202,134,207,166,213,240,20,160,0,165
32620DATA207,240,2,177,203,145,205,200,208,245,230,204,230,206,202,208,236,164,212,240,12,136,165,207,240,2,177
32630DATA203,145,205,152,208,244,96
32650REM**
32660DATA67,67,34,41,46,54,46,46,61,61,61
32670DATA67,67,34,41,46,54,46,46,46,46,46,46
32680DATA41,41,41,54,51,46,41,41,51,61,61,61
32690DATA41,41,41,41,43,41,36,36,46,61,61,61	

• Download link 1

• Download link 1