01 LBL "SUB"
 02 "PLAYER NUM. ?"
 03 PROMPT
 04 4
 05 *
 06 LASTX
 07 -
 08 ENTER
 09 ENTER
 10 LASTX
 11 +
 12 1 E-3
 13 *
 14 +
 15 1
 16 +
 17 "NEW PLAYER"
 18 AVIEW
 19 XROM 30,03
 20 RTN
 21 LBL "BB"
 22 FIX 00
 23 CF 29
 24 "VIS. TEAM?"
 25 AON
 26 PROMPT
 27 ASTO 73
 28 "HOME TEAM?"
 29 PROMPT
 30 ASTO 74
 31 AOFF
 32 1.07204
 33 STO 00
 34 LBL 00
 35 RCL 00
 36 INT
 37 1
 38 -
 39 4
 40 /
 41 1
 42 +
 43 STO 90
 44 9
 45 MOD
 46 X=0?
 47 9
 48 "PLAYER "
 49 ARCL X
 50 RCL 90
 51 AVIEW
 52 ENTER
 53 ENTER
 54 4
 55 *
 56 1 E-3
 57 *
 58 RCL 00
 59 INT
 60 +
 61 XROM 30,03
 62 ISG 00
 63 GTO 00
 64 CLX
 65 "NOW: PRINTER"
 66 AVIEW
 67 STOP
 68 SF 12
 69 ADV
 70 CLA
 71 ARCL 73
 72 AVIEW
 73 ADV
 74 CLA
 75 1.03304
 76 STO 00
 77 CF 12
 78 XEQ 01
 79 SF 12
 80 ADV
 81 CLA
 82 ARCL 74
 83 AVIEW
 84 CLA
 85 ADV
 86 37.06904
 87 STO 00
 88 CF 12
 89 XEQ 01
 90 ADV
 91 ADV
 92 ADV
 93 ADV
 94 ADV
 95 GTO 10
 96 LBL 01
 97 CLA
 98 ARCL IND 00
 99 AVIEW
100 CLA
101 ISG 00
102 GTO 01
103 RTN
104 RTN
105 CLX
106 RTN
107 LBL 10
108 0
109 XROM 29,06
110 16
111 XROM 29,06
112 86
113 XROM 29,06
114 57
115 XROM 29,06
116 57
117 XROM 29,06
118 86
119 XROM 29,06
120 16
121 XROM 29,06
122 STO 80
123 0
124 XROM 29,06
125 62
126 XROM 29,06
127 62
128 XROM 29,06
129 62
130 XROM 29,06
131 62
132 XROM 29,06
133 62
134 XROM 29,06
135 0
136 XROM 29,06
137 STO 78
138 0
139 XROM 29,06
140 8
141 XROM 29,06
142 8
143 XROM 29,06
144 8
145 XROM 29,06
146 8
147 XROM 29,06
148 8
149 XROM 29,06
150 0
151 XROM 29,06
152 STO 81
153 0
154 XROM 29,06
155 30
156 XROM 29,06
157 62
158 XROM 29,06
159 126
160 XROM 29,06
161 62
162 XROM 29,06
163 30
164 XROM 29,06
165 0
166 XROM 29,06
167 STO 77
168 30
169 XROM 29,06
170 16
171 XROM 29,06
172 86
173 XROM 29,06
174 57
175 XROM 29,06
176 57
177 XROM 29,06
178 70
179 XROM 29,06
180 STO 79
181 "------"
182 ASTO 86
183 .935186247
184 STO 90
185 SF 12
186 "PLAY  BALL"
187 AVIEW
188 CLA
189 CF 12
190 ADV
191 "PLUG IN CRD RDR"
192 AVIEW
193 CLA
194 ADV
195 ADV
196 ADV
197 ADV
198 ADV
199 SF 11
200 RTN
201 "LOAD BB PRGM"
202 AVIEW
203 RTN
204 LBL "CARD"
205 "NAME?"
206 AON
207 PROMPT
208 AOFF
209 ASTO 00
210 "AT BATS?"
211 PROMPT
212 STO 10
213 "HITS?"
214 PROMPT
215 STO 11
216 "DOUBLES?"
217 PROMPT
218 STO 12
219 "TRIPLES?"
220 PROMPT
221 STO 13
222 "HRS.?"
223 PROMPT
224 STO 14
225 "SO?"
226 PROMPT
227 STO 15
228 "WALKS?"
229 PROMPT
230 STO 16
231 ST+ 10
232 RCL 10
233 RCL 11
234 -
235 RCL 15
236 -
237 2
238 /
239 STO 17
240 RCL 10
241 /
242 XEQ 11
243 STO 18
244 XEQ 11
245 STO 01
246 RCL 12
247 RCL 13
248 RCL 14
249 +
250 +
251 RCL 11
252 X<>Y
253 -
254 RCL 10
255 /
256 XEQ 11
257 XEQ 12
258 ST+ 01
259 RCL 15
260 RCL 10
261 /
262 XEQ 11
263 XEQ 12
264 1 E3
265 /
266 ST+ 01
267 RCL 12
268 RCL 10
269 /
270 XEQ 11
271 XEQ 12
272 XEQ 11
273 STO 02
274 RCL 17
275 RCL 10
276 /
277 XEQ 11
278 XEQ 12
279 ST+ 02
280 RCL 13
281 RCL 10
282 /
283 XEQ 11
284 XEQ 12
285 1 E3
286 /
287 ST+ 02
288 RCL 14
289 RCL 10
290 /
291 XEQ 11
292 XEQ 12
293 XEQ 11
294 STO 03
295 999
296 ST+ 03
297 CLX
298 000.003
299 XROM 30,08
300 "DONE"
301 AVIEW
302 RTN
303 LBL 11
304 1 E3
305 *
306 INT
307 RTN
308 LBL 12
309 ST+ 18
310 RCL 18
311 RTN
312 END