Jump to content
IGNORED

All Star Baseball II by Futura


Dutchman2000

Recommended Posts

4 hours ago, pixelpedant said:

But is this the game?  Is it an All Star Baseball II which is distinct from All Star Baseball?

I can’t seem to find a II.  It was listed as a II in the triton catalog but I’m nit sure if that was just a way for them to continue to sell an older product. 

  • Like 1
Link to comment
Share on other sites

Here's the TI-BASIC version I found in my BAS/XB collection.  I hope the listing is okay for everyone to paste into Classic99.

 


1 REM ************
2 REM * BASEBALL *
3 REM ************
4 OPTION BASE 1
5 DIM PP(3),XP(3),YP(3),BB(4),BR(4),NM$(2),HT(2),RN(2,9),ER(2),FD(9,2)
6 RANDOMIZE
7 CALL CLEAR
8 CALL SCREEN(15)
9 DISPLAY TAB(6);"ALL-STAR BASEBALL":TAB(4);"AUTHOR: C.M.EHNINGER": : : : : : : : : : :
10 FOR X=1 TO 3
11 READ XP(X)
12 READ YP(X)
13 READ PP(X)
14 NEXT X
15 DATA 14,24,98,6,16,96,14,8,97
16 FOR X=1 TO 9
17 READ FD(X,1),FD(X,2)
18 NEXT X
19 DATA 14,16,23,16,6,14,6,10,6,24,8,12,8,20,12,8,12,24
20 B$=CHR$(137)
21 C$=B$&B$&"TEAM:"&B$
22 FOR X=1 TO 9
23 C$=C$&B$&STR$(X)
24 NEXT X
25 C$=C$&B$&"H"&B$&"E"
26 D$="B"&B$&"S"&B$&"O"
27 CALL CLEAR
28 CALL SCREEN(8)
29 FOR X=1 TO 2
30 CALL CLEAR
31 DISPLAY "TEAM #";STR$(X): :"ENTER YOUR NAME:": : :
32 INPUT NM$(X)
33 FOR Y=LEN(NM$(X))+1 TO 7
34 NM$(X)=NM$(X)&B$
35 NEXT Y
36 NM$(X)=SEG$(NM$(X),1,7)
37 NEXT X
38 CALL CLEAR
39 CALL CHAR(102,"1038549438442211")
40 CALL CHAR(103,"44E850E0A0A0A0A0")
41 CALL CHAR(120,"103854B838282828")
42 CALL CHAR(121,"000000183D7E3C24")
43 CALL CHAR(129,"081C2A491C142241")
44 CALL CHAR(130,"9254381038282828")
45 CALL CHAR(131,"1038549228444444")
46 CALL CHAR(33,"1818181818181818")
47 CALL CHAR(42,"183C7EFFFF7E3C18")
48 CALL CHAR(43,"FFFFFFE7E7FFFFFF")
49 CALL CHAR(44,"FFFFFFFFFFFFFFFF")
50 CALL CHAR(104,"0000000000183C7E")
51 CALL CHAR(96,"00000000183C7E99")
52 CALL CHAR(105,"FFFFFFFFE7C38100")
53 CALL CHAR(106,"00010307070301")
54 CALL CHAR(97,"0102060F0F060201")
55 CALL CHAR(107,"FEFCF8F0F0F8FCFE")
56 CALL CHAR(108,"7F3F1F0F0F1F3F7F")
57 CALL CHAR(98,"804060F0F0604080")
58 CALL CHAR(118,"80C0E0F0F0E0C080")
59 CALL CHAR(99,"995A3C3C18")
60 CALL CHAR(100,"0102040810204080")
61 CALL CHAR(101,"8040201008040201")
62 CALL CHAR(109,"000103070F1F3F7F")
63 CALL CHAR(110,"0080C0E0F0F8FCFE")
64 CALL CHAR(111,"FEFCF8F0E0C080")
65 CALL CHAR(112,"7F3F1F0F070301")
66 CALL CHAR(113,"FFFFFFFFFFFFFFFF")
67 CALL CHAR(114,"00000000003C7EFF")
68 CALL CHAR(115,"0103070707070301")
69 CALL CHAR(116,"80C0E0E0E0E0C080")
70 CALL CHAR(136,"0000001818")
71 CALL CHAR(137,"FFFFFFFFFFFFFFFF")
72 FOR X=3 TO 8
73 CALL COLOR(X,2,16)
74 NEXT X
75 CALL COLOR(13,2,1)
76 CALL COLOR(14,16,1)
77 A=1
78 GOSUB 82
79 GOSUB 100
80 GOSUB 131
81 GOTO 502
82 CALL COLOR(2,10,16)
83 CALL COLOR(9,16,10)
84 CALL COLOR(10,10,1)
85 CALL COLOR(11,10,1)
86 CALL COLOR(12,2,10)
87 CALL CHAR(138,"8040201008040201")
88 CALL CHAR(139,"0102040810204080")
89 RETURN
90 FOR X=9 TO 12
91 CALL COLOR(X,1,1)
92 NEXT X
93 RETURN
94 CALL SOUND(-20,1660,0,-4,0)
95 RETURN
96 CALL SOUND(-40,-5,0)
97 RETURN
98 CALL SOUND(-100,440,0,554,0,659,0,-5,0)
99 RETURN
100 CALL SCREEN(4)
101 S$=C$
102 J=1
103 K=2
104 GOSUB 476
105 J=22
106 K=2
107 S$=D$
108 GOSUB 476
109 Z=2
110 FOR X=1 TO 2
111 K=2
112 S$=B$&NM$(X)
113 FOR Y=1 TO I
114 E$=B$&STR$(RN(X,Y))
115 S$=S$&SEG$(E$,LEN(E$)-1,2)
116 NEXT Y
117 J=X+1
118 GOSUB 476
119 E$=B$&STR$(HT(X))
120 S$=SEG$(E$,LEN(E$)-1,2)
121 E$=B$&STR$(ER(Z))
122 S$=S$&SEG$(E$,LEN(E$)-1,2)
123 Z=Z-1
124 K=28
125 GOSUB 476
126 NEXT X
127 CALL HCHAR(A+1,2,42)
128 J=24
129 K=10
130 RETURN
131 Y=0
132 FOR X=7 TO 14
133 CALL HCHAR(X,14-Y,109)
134 CALL HCHAR(X,15-Y,100)
135 CALL HCHAR(X,16-Y,111)
136 CALL HCHAR(X,16+Y,112)
137 CALL HCHAR(X,17+Y,101)
138 CALL HCHAR(X,18+Y,110)
139 Y=Y+1
140 NEXT X
141 CALL HCHAR(5,16,104)
142 CALL HCHAR(6,15,109)
143 CALL HCHAR(6,16,96)
144 CALL HCHAR(6,17,110)
145 CALL HCHAR(7,16,105)
146 CALL HCHAR(14,7,106)
147 CALL HCHAR(14,8,97)
148 CALL HCHAR(14,9,107)
149 CALL HCHAR(14,23,108)
150 CALL HCHAR(14,24,98)
151 CALL HCHAR(14,25,118)
152 Y=7
153 FOR X=15 TO 21
154 CALL HCHAR(X,15-Y,112)
155 CALL HCHAR(X,16-Y,101)
156 CALL HCHAR(X,17-Y,110)
157 CALL HCHAR(X,15+Y,109)
158 CALL HCHAR(X,16+Y,100)
159 CALL HCHAR(X,17+Y,111)
160 Y=Y-1
161 NEXT X
162 CALL HCHAR(13,16,114)
163 CALL HCHAR(14,15,115)
164 CALL HCHAR(14,17,116)
165 CALL VCHAR(15,16,113,7)
166 CALL HCHAR(22,15,112)
167 CALL HCHAR(22,16,99)
168 CALL HCHAR(22,17,111)
169 YY=1
170 YZ=31
171 FOR X=9 TO 22
172 CALL HCHAR(X,YY,138)
173 CALL HCHAR(X,YZ,139)
174 YY=YY+1
175 YZ=YZ-1
176 NEXT X
177 CALL HCHAR(FD(1,1),FD(1,2),120)
178 CALL HCHAR(FD(2,1),FD(2,2),121)
179 FOR X=3 TO 9
180 CALL HCHAR(FD(X,1),FD(X,2),131)
181 NEXT X
182 RETURN
183 X1=21
184 X2=13
185 X3=7
186 X4=15
187 Y1=17
188 Y2=23
189 Y3=15
190 Y4=9
191 R1=99
192 R2=98
193 R3=96
194 R4=97
195 FOR X=1 TO 4
196 BB(X)=0
197 NEXT X
198 FOR X=1 TO 8
199 GOSUB 214
200 NEXT X
201 B=0
202 FOR X=4 TO 1 STEP-1
203 IF BB(X)=0 THEN 211
204 BR(X)=0
205 IF X<4 THEN 210
206 RN(A,I)=RN(A,I)+1
207 N=N-1
208 B=1
209 GOTO 211
210 BR(X+1)=1
211 NEXT X
212 B=0
213 RETURN
214 ON S+1 GOTO 215,222,231,240
215 IF BR(1)=0 THEN 222
216 BB(1)=1
217 CALL HCHAR(X1+1,Y1-1,R1)
218 CALL GCHAR(X1,Y1,R1)
219 CALL HCHAR(X1,Y1,102)
220 X1=X1-1
221 Y1=Y1+1
222 IF(BR(2)=0)+(B=1)=-2 THEN 247
223 IF BR(2)=0 THEN 231
224 BB(2)=1
225 CALL HCHAR(X2+1,Y2+1,R2)
226 CALL GCHAR(X2,Y2,R2)
227 CALL HCHAR(X2,Y2,102)
228 X2=X2-1
229 Y2=Y2-1
230 IF S>0 THEN 247
231 IF(BR(3)=0)+(B=1)=-2 THEN 247
232 IF BR(3)=0 THEN 240
233 BB(3)=1
234 CALL HCHAR(X3-1,Y3+1,R3)
235 CALL GCHAR(X3,Y3,R3)
236 CALL HCHAR(X3,Y3,102)
237 X3=X3+1
238 Y3=Y3-1
239 IF S>0 THEN 247
240 IF BR(4)=0 THEN 247
241 BB(4)=1
242 CALL HCHAR(X4-1,Y4-1,R4)
243 CALL GCHAR(X4,Y4,R4)
244 CALL HCHAR(X4,Y4,102)
245 X4=X4+1
246 Y4=Y4+1
247 RETURN
248 IF BL=9 THEN 291
249 G=0
250 H=0
251 B=0
252 C=0
253 GOSUB 486
254 CALL HCHAR(22,16,103)
255 S$="PITCHER?"
256 GOSUB 476
257 CALL KEY(1,X,Y)
258 IF Y=0 THEN 257
259 IF(X<1)+(X>3)<>0 THEN 257
260 P=X
261 GOSUB 336
262 BR(1)=1
263 GOSUB 493
264 IF N=0 THEN 273
265 IF RK=0 THEN 273
266 BR(1)=0
267 ER(A)=ER(A)+1
268 S$="BALK"
269 GOSUB 476
270 GOSUB 183
271 GOSUB 109
272 GOTO 251
273 FOR X=15 TO 21
274 CALL GCHAR(X,16,BL)
275 CALL HCHAR(X,16,43)
276 CALL HCHAR(X,16,BL)
277 NEXT X
278 IF P<3 THEN 322
279 IF T<3 THEN 292
280 GOSUB 96
281 S$="BALL"
282 GOSUB 476
283 H=H+1
284 IF H<4 THEN 253
285 S$="WALK"
286 GOSUB 476
287 B=1
288 N=N+1
289 GOSUB 183
290 GOTO 249
291 IF G=2 THEN 253 ELSE 293
292 GOSUB 96
293 S$="STRIKE"
294 G=G+1
295 GOSUB 476
296 IF G<3 THEN 253
297 S$="STRUCK OUT"
298 GOSUB 476
299 O=O+1
300 IF O<3 THEN 249 ELSE 335
301 S$="STEAL"
302 GOSUB 96
303 GOSUB 476
304 FOR X=4 TO 2 STEP-1
305 IF BR(X)<>0 THEN 308
306 NEXT X
307 GOTO 293
308 IF P<3 THEN 316
309 S$="RUNNER OUT"
310 GOSUB 476
311 O=O+1
312 BR(X)=0
313 N=N-1
314 CALL HCHAR(XP(X-1),YP(X-1),PP(X-1))
315 IF O=3 THEN 335 ELSE 293
316 RS=INT(RS*P*X)
317 IF RS THEN 309
318 S=X-1
319 GOSUB 183
320 S=0
321 GOTO 293
322 ON T GOTO 323,323,292,301
323 RK=RG
324 IF P<>T THEN 331
325 FOR X=1 TO P
326 RF=1.2*RF
327 RK=.8*RK
328 RG=1.2*RG
329 NEXT X
330 GOTO 334
331 RF=.8*RF
332 RK=1.2*RK
333 RG=.8*RG
334 GOSUB 94
335 RETURN
336 S$="BATTER?"
337 GOSUB 476
338 CALL KEY(2,X,Y)
339 IF Y=0 THEN 338
340 IF X<4 THEN 342
341 X=X-8
342 IF(X<1)+(X>4)<>0 THEN 338
343 T=X
344 S$=" "
345 GOSUB 476
346 RETURN
347 CALL KEY(0,V,W)
348 IF W=0 THEN 362
349 PF=FL
350 IF V=68 THEN 355
351 IF V<>83 THEN 362
352 IF FL=1 THEN 362
353 FL=FL-1
354 GOTO 359
355 IF FL<LM THEN 358
356 FL=LM
357 GOTO 362
358 FL=FL+1
359 CALL HCHAR(X,PF,ZZ)
360 CALL GCHAR(X,FL,ZZ)
361 CALL HCHAR(X,FL,130)
362 RETURN
363 ON RH GOTO 364,367,370,372,375
364 S$="SINGLE"
365 C=C+1
366 GOTO 377
367 S$="DOUBLE"
368 C=C+2
369 GOTO 377
370 S$="OFF-THE-WALL"
371 GOTO 373
372 S$="TRIPLE"
373 C=C+3
374 GOTO 377
375 S$="HOME-RUN"
376 C=4
377 HT(A)=HT(A)+1
378 GOSUB 476
379 RETURN
380 S$="FIELDER ERROR"
381 ER(A)=ER(A)+1
382 HT(A)=HT(A)-1
383 RG=INT(1.2*RG)
384 RF=INT(1.2*RF)
385 RK=INT(.8*RK)
386 GOSUB 476
387 GOSUB 98
388 RETURN
389 S$="OUT AT FIRST"
390 O=O+1
391 BR(1)=0
392 GOTO 408
393 S$="DOUBLE PLAY"
394 IF(O>1)+(N=0)<>0 THEN 389
395 O=O+2
396 FOR X=4 TO 2 STEP-1
397 IF BR(X)=0 THEN 400
398 BR(X)=0
399 GOTO 401
400 NEXT X
401 BR(1)=0
402 GOTO 407
403 S$="TRIPLE PLAY"
404 IF(O>0)+(N<2)<>0 THEN 393
405 GOSUB 96
406 O=O+3
407 GOSUB 96
408 GOSUB 476
409 RETURN
410 X=FD(3,1)
411 RK=RK/16
412 IF ABS(RK)<=1 THEN 417
413 S$="FOUL BALL"
414 GOSUB 476
415 BL=9
416 GOTO 439
417 ZZ=32
418 LM=32
419 FL=14
420 IF ABS(RK)<0.2 THEN 424
421 FL=10
422 IF RK<0 THEN 424
423 FL=24
424 CALL HCHAR(X,FL,130)
425 FY=FL
426 Q=0
427 FOR XX=23 TO 1 STEP-1
428 Y=16+INT(Q)
429 Q=Q+RK
430 IF(Y<1)+(Y>32)<>0 THEN 437
431 CALL GCHAR(XX,Y,BL)
432 IF BL=130 THEN 437
433 CALL HCHAR(XX,Y,136)
434 CALL HCHAR(XX,Y,BL)
435 GOSUB 347
436 NEXT XX
437 CALL HCHAR(X,FL,ZZ)
438 CALL HCHAR(X,FY,131)
439 RETURN
440 GOSUB 90
441 CALL CHAR(138,"00")
442 CALL CHAR(139,"00")
443 F=1
444 FOR X=1 TO 9
445 CALL HCHAR(FD(X,1),FD(X,2),32)
446 NEXT X
447 CALL SCREEN(8)
448 FL=12
449 LM=27
450 ZZ=32
451 X=22
452 CALL HCHAR(23,1,44,32)
453 CALL HCHAR(22,28,33)
454 CALL HCHAR(22,FL,130)
455 XX=23
456 IF RF<32 THEN 458
457 RF=32
458 FOR Y=1 TO INT(RF/2)
459 CALL GCHAR(XX,Y,BL)
460 CALL HCHAR(XX,Y,136)
461 CALL HCHAR(XX,Y,BL)
462 GOSUB 347
463 XX=XX-1
464 NEXT Y
465 LM=27
466 FOR Y=INT(RF/2)+1 TO RF
467 XX=XX+1
468 CALL GCHAR(XX,Y,BL)
469 IF BL=44 THEN 475
470 IF BL=130 THEN 475
471 CALL HCHAR(XX,Y,136)
472 CALL HCHAR(XX,Y,BL)
473 GOSUB 347
474 NEXT Y
475 RETURN
476 IF J<>24 THEN 478
477 CALL HCHAR(J,1,32,32)
478 L=K
479 FOR Y=1 TO LEN(S$)
480 E=ASC(SEG$(S$,Y,1))
481 CALL HCHAR(J,L,E)
482 L=L+1
483 NEXT Y
485 RETURN
486 J=23
487 K=2
488 S$=STR$(H)&B$&STR$(G)&B$&STR$(O)
489 GOSUB 476
490 J=24
491 K=10
492 RETURN
493 RB=INT(2*RND)+1
494 RS=RND+.2
495 RK=INT(RND+.005)
496 RC=INT(2*RND)
497 RE=INT(RND+.1)
498 RF=INT(21*RND)+5
499 RG=INT(51*RND)-25
500 RO=ABS(INT(LOG(25*RND+1)-3))
501 RETURN
502 FOR I=1 TO 9
503 FOR A=1 TO 2
504 IF F=0 THEN 512
505 CALL SCREEN(4)
506 CALL HCHAR(22,28,32)
507 CALL HCHAR(22,FL,ZZ)
508 CALL HCHAR(23,1,32,32)
509 GOSUB 82
510 GOSUB 177
511 F=0
512 FOR X=1 TO 3
513 IF BR(X+1)THEN 515
514 CALL HCHAR(XP(X),YP(X),PP(X))
515 NEXT X
516 FOR R=1 TO C
517 GOSUB 183
518 NEXT R
519 GOSUB 109
520 GOSUB 248
521 IF O<3 THEN 530
522 O=0
523 N=0
524 FOR X=1 TO 3
525 BR(X)=0
526 CALL HCHAR(XP(X),YP(X),PP(X))
527 NEXT X
528 BR(4)=0
529 GOTO 584
530 IF RB=2 THEN 554
531 GOSUB 410
532 IF BL=9 THEN 504
533 IF BL<>130 THEN 541
534 IF RE=0 THEN 538
535 GOSUB 380
536 RO=0
537 GOTO 541
538 GOSUB 96
539 IF RO THEN 548
540 RG=RG/2
541 N=N+1
542 IF ABS(RG)>12 THEN 545
543 RH=1
544 GOTO 546
545 RH=2
546 GOSUB 363
547 GOTO 504
548 ON RO GOSUB 389,393,403
549 IF O=3 THEN 522
550 IF N=0 THEN 504
551 IF RC=0 THEN 504
552 C=1
553 GOTO 504
554 GOSUB 440
555 IF BL<>130 THEN 564
556 IF RE=0 THEN 560
557 GOSUB 98
558 GOSUB 380
559 GOTO 564
560 GOSUB 96
561 IF RO THEN 548
562 RO=1
563 GOTO 548
564 GOSUB 98
565 IF RF>10 THEN 568
566 GOSUB 413
567 GOTO 504
568 N=N+1
569 IF BL<>33 THEN 572
570 RH=3
571 GOTO 582
572 IF RF>20 THEN 575
573 RH=1
574 GOTO 582
575 IF RF>26 THEN 578
576 RH=2
577 GOTO 582
578 IF RF>28 THEN 581
579 RH=4
580 GOTO 582
581 RH=5
582 GOSUB 363
583 GOTO 504
584 NEXT A
585 NEXT I

  • Like 2
Link to comment
Share on other sites

Spoiler
20 hours ago, Torrax said:

Here's the TI-BASIC version I found in my BAS/XB collection.  I hope the listing is okay for everyone to paste into Classic99.

 

 



1 REM ************
2 REM * BASEBALL *
3 REM ************
4 OPTION BASE 1
5 DIM PP(3),XP(3),YP(3),BB(4),BR(4),NM$(2),HT(2),RN(2,9),ER(2),FD(9,2)
6 RANDOMIZE
7 CALL CLEAR
8 CALL SCREEN(15)
9 DISPLAY TAB(6);"ALL-STAR BASEBALL":TAB(4);"AUTHOR: C.M.EHNINGER": : : : : : : : : : :
10 FOR X=1 TO 3
11 READ XP(X)
12 READ YP(X)
13 READ PP(X)
14 NEXT X
15 DATA 14,24,98,6,16,96,14,8,97
16 FOR X=1 TO 9
17 READ FD(X,1),FD(X,2)
18 NEXT X
19 DATA 14,16,23,16,6,14,6,10,6,24,8,12,8,20,12,8,12,24
20 B$=CHR$(137)
21 C$=B$&B$&"TEAM:"&B$
22 FOR X=1 TO 9
23 C$=C$&B$&STR$(X)
24 NEXT X
25 C$=C$&B$&"H"&B$&"E"
26 D$="B"&B$&"S"&B$&"O"
27 CALL CLEAR
28 CALL SCREEN(8)
29 FOR X=1 TO 2
30 CALL CLEAR
31 DISPLAY "TEAM #";STR$(X): :"ENTER YOUR NAME:": : :
32 INPUT NM$(X)
33 FOR Y=LEN(NM$(X))+1 TO 7
34 NM$(X)=NM$(X)&B$
35 NEXT Y
36 NM$(X)=SEG$(NM$(X),1,7)
37 NEXT X
38 CALL CLEAR
39 CALL CHAR(102,"1038549438442211")
40 CALL CHAR(103,"44E850E0A0A0A0A0")
41 CALL CHAR(120,"103854B838282828")
42 CALL CHAR(121,"000000183D7E3C24")
43 CALL CHAR(129,"081C2A491C142241")
44 CALL CHAR(130,"9254381038282828")
45 CALL CHAR(131,"1038549228444444")
46 CALL CHAR(33,"1818181818181818")
47 CALL CHAR(42,"183C7EFFFF7E3C18")
48 CALL CHAR(43,"FFFFFFE7E7FFFFFF")
49 CALL CHAR(44,"FFFFFFFFFFFFFFFF")
50 CALL CHAR(104,"0000000000183C7E")
51 CALL CHAR(96,"00000000183C7E99")
52 CALL CHAR(105,"FFFFFFFFE7C38100")
53 CALL CHAR(106,"00010307070301")
54 CALL CHAR(97,"0102060F0F060201")
55 CALL CHAR(107,"FEFCF8F0F0F8FCFE")
56 CALL CHAR(108,"7F3F1F0F0F1F3F7F")
57 CALL CHAR(98,"804060F0F0604080")
58 CALL CHAR(118,"80C0E0F0F0E0C080")
59 CALL CHAR(99,"995A3C3C18")
60 CALL CHAR(100,"0102040810204080")
61 CALL CHAR(101,"8040201008040201")
62 CALL CHAR(109,"000103070F1F3F7F")
63 CALL CHAR(110,"0080C0E0F0F8FCFE")
64 CALL CHAR(111,"FEFCF8F0E0C080")
65 CALL CHAR(112,"7F3F1F0F070301")
66 CALL CHAR(113,"FFFFFFFFFFFFFFFF")
67 CALL CHAR(114,"00000000003C7EFF")
68 CALL CHAR(115,"0103070707070301")
69 CALL CHAR(116,"80C0E0E0E0E0C080")
70 CALL CHAR(136,"0000001818")
71 CALL CHAR(137,"FFFFFFFFFFFFFFFF")
72 FOR X=3 TO 8
73 CALL COLOR(X,2,16)
74 NEXT X
75 CALL COLOR(13,2,1)
76 CALL COLOR(14,16,1)
77 A=1
78 GOSUB 82
79 GOSUB 100
80 GOSUB 131
81 GOTO 502
82 CALL COLOR(2,10,16)
83 CALL COLOR(9,16,10)
84 CALL COLOR(10,10,1)
85 CALL COLOR(11,10,1)
86 CALL COLOR(12,2,10)
87 CALL CHAR(138,"8040201008040201")
88 CALL CHAR(139,"0102040810204080")
89 RETURN
90 FOR X=9 TO 12
91 CALL COLOR(X,1,1)
92 NEXT X
93 RETURN
94 CALL SOUND(-20,1660,0,-4,0)
95 RETURN
96 CALL SOUND(-40,-5,0)
97 RETURN
98 CALL SOUND(-100,440,0,554,0,659,0,-5,0)
99 RETURN
100 CALL SCREEN(4)
101 S$=C$
102 J=1
103 K=2
104 GOSUB 476
105 J=22
106 K=2
107 S$=D$
108 GOSUB 476
109 Z=2
110 FOR X=1 TO 2
111 K=2
112 S$=B$&NM$(X)
113 FOR Y=1 TO I
114 E$=B$&STR$(RN(X,Y))
115 S$=S$&SEG$(E$,LEN(E$)-1,2)
116 NEXT Y
117 J=X+1
118 GOSUB 476
119 E$=B$&STR$(HT(X))
120 S$=SEG$(E$,LEN(E$)-1,2)
121 E$=B$&STR$(ER(Z))
122 S$=S$&SEG$(E$,LEN(E$)-1,2)
123 Z=Z-1
124 K=28
125 GOSUB 476
126 NEXT X
127 CALL HCHAR(A+1,2,42)
128 J=24
129 K=10
130 RETURN
131 Y=0
132 FOR X=7 TO 14
133 CALL HCHAR(X,14-Y,109)
134 CALL HCHAR(X,15-Y,100)
135 CALL HCHAR(X,16-Y,111)
136 CALL HCHAR(X,16+Y,112)
137 CALL HCHAR(X,17+Y,101)
138 CALL HCHAR(X,18+Y,110)
139 Y=Y+1
140 NEXT X
141 CALL HCHAR(5,16,104)
142 CALL HCHAR(6,15,109)
143 CALL HCHAR(6,16,96)
144 CALL HCHAR(6,17,110)
145 CALL HCHAR(7,16,105)
146 CALL HCHAR(14,7,106)
147 CALL HCHAR(14,8,97)
148 CALL HCHAR(14,9,107)
149 CALL HCHAR(14,23,108)
150 CALL HCHAR(14,24,98)
151 CALL HCHAR(14,25,118)
152 Y=7
153 FOR X=15 TO 21
154 CALL HCHAR(X,15-Y,112)
155 CALL HCHAR(X,16-Y,101)
156 CALL HCHAR(X,17-Y,110)
157 CALL HCHAR(X,15+Y,109)
158 CALL HCHAR(X,16+Y,100)
159 CALL HCHAR(X,17+Y,111)
160 Y=Y-1
161 NEXT X
162 CALL HCHAR(13,16,114)
163 CALL HCHAR(14,15,115)
164 CALL HCHAR(14,17,116)
165 CALL VCHAR(15,16,113,7)
166 CALL HCHAR(22,15,112)
167 CALL HCHAR(22,16,99)
168 CALL HCHAR(22,17,111)
169 YY=1
170 YZ=31
171 FOR X=9 TO 22
172 CALL HCHAR(X,YY,138)
173 CALL HCHAR(X,YZ,139)
174 YY=YY+1
175 YZ=YZ-1
176 NEXT X
177 CALL HCHAR(FD(1,1),FD(1,2),120)
178 CALL HCHAR(FD(2,1),FD(2,2),121)
179 FOR X=3 TO 9
180 CALL HCHAR(FD(X,1),FD(X,2),131)
181 NEXT X
182 RETURN
183 X1=21
184 X2=13
185 X3=7
186 X4=15
187 Y1=17
188 Y2=23
189 Y3=15
190 Y4=9
191 R1=99
192 R2=98
193 R3=96
194 R4=97
195 FOR X=1 TO 4
196 BB(X)=0
197 NEXT X
198 FOR X=1 TO 8
199 GOSUB 214
200 NEXT X
201 B=0
202 FOR X=4 TO 1 STEP-1
203 IF BB(X)=0 THEN 211
204 BR(X)=0
205 IF X<4 THEN 210
206 RN(A,I)=RN(A,I)+1
207 N=N-1
208 B=1
209 GOTO 211
210 BR(X+1)=1
211 NEXT X
212 B=0
213 RETURN
214 ON S+1 GOTO 215,222,231,240
215 IF BR(1)=0 THEN 222
216 BB(1)=1
217 CALL HCHAR(X1+1,Y1-1,R1)
218 CALL GCHAR(X1,Y1,R1)
219 CALL HCHAR(X1,Y1,102)
220 X1=X1-1
221 Y1=Y1+1
222 IF(BR(2)=0)+(B=1)=-2 THEN 247
223 IF BR(2)=0 THEN 231
224 BB(2)=1
225 CALL HCHAR(X2+1,Y2+1,R2)
226 CALL GCHAR(X2,Y2,R2)
227 CALL HCHAR(X2,Y2,102)
228 X2=X2-1
229 Y2=Y2-1
230 IF S>0 THEN 247
231 IF(BR(3)=0)+(B=1)=-2 THEN 247
232 IF BR(3)=0 THEN 240
233 BB(3)=1
234 CALL HCHAR(X3-1,Y3+1,R3)
235 CALL GCHAR(X3,Y3,R3)
236 CALL HCHAR(X3,Y3,102)
237 X3=X3+1
238 Y3=Y3-1
239 IF S>0 THEN 247
240 IF BR(4)=0 THEN 247
241 BB(4)=1
242 CALL HCHAR(X4-1,Y4-1,R4)
243 CALL GCHAR(X4,Y4,R4)
244 CALL HCHAR(X4,Y4,102)
245 X4=X4+1
246 Y4=Y4+1
247 RETURN
248 IF BL=9 THEN 291
249 G=0
250 H=0
251 B=0
252 C=0
253 GOSUB 486
254 CALL HCHAR(22,16,103)
255 S$="PITCHER?"
256 GOSUB 476
257 CALL KEY(1,X,Y)
258 IF Y=0 THEN 257
259 IF(X<1)+(X>3)<>0 THEN 257
260 P=X
261 GOSUB 336
262 BR(1)=1
263 GOSUB 493
264 IF N=0 THEN 273
265 IF RK=0 THEN 273
266 BR(1)=0
267 ER(A)=ER(A)+1
268 S$="BALK"
269 GOSUB 476
270 GOSUB 183
271 GOSUB 109
272 GOTO 251
273 FOR X=15 TO 21
274 CALL GCHAR(X,16,BL)
275 CALL HCHAR(X,16,43)
276 CALL HCHAR(X,16,BL)
277 NEXT X
278 IF P<3 THEN 322
279 IF T<3 THEN 292
280 GOSUB 96
281 S$="BALL"
282 GOSUB 476
283 H=H+1
284 IF H<4 THEN 253
285 S$="WALK"
286 GOSUB 476
287 B=1
288 N=N+1
289 GOSUB 183
290 GOTO 249
291 IF G=2 THEN 253 ELSE 293
292 GOSUB 96
293 S$="STRIKE"
294 G=G+1
295 GOSUB 476
296 IF G<3 THEN 253
297 S$="STRUCK OUT"
298 GOSUB 476
299 O=O+1
300 IF O<3 THEN 249 ELSE 335
301 S$="STEAL"
302 GOSUB 96
303 GOSUB 476
304 FOR X=4 TO 2 STEP-1
305 IF BR(X)<>0 THEN 308
306 NEXT X
307 GOTO 293
308 IF P<3 THEN 316
309 S$="RUNNER OUT"
310 GOSUB 476
311 O=O+1
312 BR(X)=0
313 N=N-1
314 CALL HCHAR(XP(X-1),YP(X-1),PP(X-1))
315 IF O=3 THEN 335 ELSE 293
316 RS=INT(RS*P*X)
317 IF RS THEN 309
318 S=X-1
319 GOSUB 183
320 S=0
321 GOTO 293
322 ON T GOTO 323,323,292,301
323 RK=RG
324 IF P<>T THEN 331
325 FOR X=1 TO P
326 RF=1.2*RF
327 RK=.8*RK
328 RG=1.2*RG
329 NEXT X
330 GOTO 334
331 RF=.8*RF
332 RK=1.2*RK
333 RG=.8*RG
334 GOSUB 94
335 RETURN
336 S$="BATTER?"
337 GOSUB 476
338 CALL KEY(2,X,Y)
339 IF Y=0 THEN 338
340 IF X<4 THEN 342
341 X=X-8
342 IF(X<1)+(X>4)<>0 THEN 338
343 T=X
344 S$=" "
345 GOSUB 476
346 RETURN
347 CALL KEY(0,V,W)
348 IF W=0 THEN 362
349 PF=FL
350 IF V=68 THEN 355
351 IF V<>83 THEN 362
352 IF FL=1 THEN 362
353 FL=FL-1
354 GOTO 359
355 IF FL<LM THEN 358
356 FL=LM
357 GOTO 362
358 FL=FL+1
359 CALL HCHAR(X,PF,ZZ)
360 CALL GCHAR(X,FL,ZZ)
361 CALL HCHAR(X,FL,130)
362 RETURN
363 ON RH GOTO 364,367,370,372,375
364 S$="SINGLE"
365 C=C+1
366 GOTO 377
367 S$="DOUBLE"
368 C=C+2
369 GOTO 377
370 S$="OFF-THE-WALL"
371 GOTO 373
372 S$="TRIPLE"
373 C=C+3
374 GOTO 377
375 S$="HOME-RUN"
376 C=4
377 HT(A)=HT(A)+1
378 GOSUB 476
379 RETURN
380 S$="FIELDER ERROR"
381 ER(A)=ER(A)+1
382 HT(A)=HT(A)-1
383 RG=INT(1.2*RG)
384 RF=INT(1.2*RF)
385 RK=INT(.8*RK)
386 GOSUB 476
387 GOSUB 98
388 RETURN
389 S$="OUT AT FIRST"
390 O=O+1
391 BR(1)=0
392 GOTO 408
393 S$="DOUBLE PLAY"
394 IF(O>1)+(N=0)<>0 THEN 389
395 O=O+2
396 FOR X=4 TO 2 STEP-1
397 IF BR(X)=0 THEN 400
398 BR(X)=0
399 GOTO 401
400 NEXT X
401 BR(1)=0
402 GOTO 407
403 S$="TRIPLE PLAY"
404 IF(O>0)+(N<2)<>0 THEN 393
405 GOSUB 96
406 O=O+3
407 GOSUB 96
408 GOSUB 476
409 RETURN
410 X=FD(3,1)
411 RK=RK/16
412 IF ABS(RK)<=1 THEN 417
413 S$="FOUL BALL"
414 GOSUB 476
415 BL=9
416 GOTO 439
417 ZZ=32
418 LM=32
419 FL=14
420 IF ABS(RK)<0.2 THEN 424
421 FL=10
422 IF RK<0 THEN 424
423 FL=24
424 CALL HCHAR(X,FL,130)
425 FY=FL
426 Q=0
427 FOR XX=23 TO 1 STEP-1
428 Y=16+INT(Q)
429 Q=Q+RK
430 IF(Y<1)+(Y>32)<>0 THEN 437
431 CALL GCHAR(XX,Y,BL)
432 IF BL=130 THEN 437
433 CALL HCHAR(XX,Y,136)
434 CALL HCHAR(XX,Y,BL)
435 GOSUB 347
436 NEXT XX
437 CALL HCHAR(X,FL,ZZ)
438 CALL HCHAR(X,FY,131)
439 RETURN
440 GOSUB 90
441 CALL CHAR(138,"00")
442 CALL CHAR(139,"00")
443 F=1
444 FOR X=1 TO 9
445 CALL HCHAR(FD(X,1),FD(X,2),32)
446 NEXT X
447 CALL SCREEN(8)
448 FL=12
449 LM=27
450 ZZ=32
451 X=22
452 CALL HCHAR(23,1,44,32)
453 CALL HCHAR(22,28,33)
454 CALL HCHAR(22,FL,130)
455 XX=23
456 IF RF<32 THEN 458
457 RF=32
458 FOR Y=1 TO INT(RF/2)
459 CALL GCHAR(XX,Y,BL)
460 CALL HCHAR(XX,Y,136)
461 CALL HCHAR(XX,Y,BL)
462 GOSUB 347
463 XX=XX-1
464 NEXT Y
465 LM=27
466 FOR Y=INT(RF/2)+1 TO RF
467 XX=XX+1
468 CALL GCHAR(XX,Y,BL)
469 IF BL=44 THEN 475
470 IF BL=130 THEN 475
471 CALL HCHAR(XX,Y,136)
472 CALL HCHAR(XX,Y,BL)
473 GOSUB 347
474 NEXT Y
475 RETURN
476 IF J<>24 THEN 478
477 CALL HCHAR(J,1,32,32)
478 L=K
479 FOR Y=1 TO LEN(S$)
480 E=ASC(SEG$(S$,Y,1))
481 CALL HCHAR(J,L,E)
482 L=L+1
483 NEXT Y
485 RETURN
486 J=23
487 K=2
488 S$=STR$(H)&B$&STR$(G)&B$&STR$(O)
489 GOSUB 476
490 J=24
491 K=10
492 RETURN
493 RB=INT(2*RND)+1
494 RS=RND+.2
495 RK=INT(RND+.005)
496 RC=INT(2*RND)
497 RE=INT(RND+.1)
498 RF=INT(21*RND)+5
499 RG=INT(51*RND)-25
500 RO=ABS(INT(LOG(25*RND+1)-3))
501 RETURN
502 FOR I=1 TO 9
503 FOR A=1 TO 2
504 IF F=0 THEN 512
505 CALL SCREEN(4)
506 CALL HCHAR(22,28,32)
507 CALL HCHAR(22,FL,ZZ)
508 CALL HCHAR(23,1,32,32)
509 GOSUB 82
510 GOSUB 177
511 F=0
512 FOR X=1 TO 3
513 IF BR(X+1)THEN 515
514 CALL HCHAR(XP(X),YP(X),PP(X))
515 NEXT X
516 FOR R=1 TO C
517 GOSUB 183
518 NEXT R
519 GOSUB 109
520 GOSUB 248
521 IF O<3 THEN 530
522 O=0
523 N=0
524 FOR X=1 TO 3
525 BR(X)=0
526 CALL HCHAR(XP(X),YP(X),PP(X))
527 NEXT X
528 BR(4)=0
529 GOTO 584
530 IF RB=2 THEN 554
531 GOSUB 410
532 IF BL=9 THEN 504
533 IF BL<>130 THEN 541
534 IF RE=0 THEN 538
535 GOSUB 380
536 RO=0
537 GOTO 541
538 GOSUB 96
539 IF RO THEN 548
540 RG=RG/2
541 N=N+1
542 IF ABS(RG)>12 THEN 545
543 RH=1
544 GOTO 546
545 RH=2
546 GOSUB 363
547 GOTO 504
548 ON RO GOSUB 389,393,403
549 IF O=3 THEN 522
550 IF N=0 THEN 504
551 IF RC=0 THEN 504
552 C=1
553 GOTO 504
554 GOSUB 440
555 IF BL<>130 THEN 564
556 IF RE=0 THEN 560
557 GOSUB 98
558 GOSUB 380
559 GOTO 564
560 GOSUB 96
561 IF RO THEN 548
562 RO=1
563 GOTO 548
564 GOSUB 98
565 IF RF>10 THEN 568
566 GOSUB 413
567 GOTO 504
568 N=N+1
569 IF BL<>33 THEN 572
570 RH=3
571 GOTO 582
572 IF RF>20 THEN 575
573 RH=1
574 GOTO 582
575 IF RF>26 THEN 578
576 RH=2
577 GOTO 582
578 IF RF>28 THEN 581
579 RH=4
580 GOTO 582
581 RH=5
582 GOSUB 363
583 GOTO 504
584 NEXT A
585 NEXT I

 

 

Memory full in 101

Edited by oddemann
Link to comment
Share on other sites

1 hour ago, oddemann said:

Memory full in 101

Yeah, 585 lines is a ridiculously long TI BASIC program.

 

I removed the REM statements (perhaps unnecessarily) and executed CALL FILES(0) in Classic99 to get it to run without memory errors.  Looks like it takes full advantage of an unexpanded console.

Link to comment
Share on other sites

15 minutes ago, OLD CS1 said:

Yeah, 585 lines is a ridiculously long TI BASIC program.

 

I removed the REM statements (perhaps unnecessarily) and executed CALL FILES(0) in Classic99 to get it to run without memory errors.  Looks like it takes full advantage of an unexpanded console.

Pasted in 4 to 585

Then did "CALL FILES(0)"

Run...
Memory full in 112

I got the picture of the pitch up, before it stopped ?

Link to comment
Share on other sites

Yes, this was released by Futura for the unexpanded TI.

With TI Basic you need to type from immediate mode:

 

NEW

CALL FILES(1)

OLD DSK1.ALLSTARBAS

RUN

 

I don't see an option to turn off the 32K in Classic99 to test XB with out mem-exp. Also try NEW after the CALL FILES(1) to see if more memory is freed up -- not sure if TI Basic reallocates the file buffers to 3 after a NEW.

 

The program listing is from TIDIR's view option.

 

Edited by Torrax
  • Like 1
Link to comment
Share on other sites

Here's a portion from "99er's Magazine Vol.1 No.6" - Designers Spotlight interview starting on page 32.

 

GMK: What was your first game attempt on the TI-99/4?

 

CME: My first attempt was All Star Baseball written in TI Basic, of course.  The Extended Basic was not out yet; it had not even been announced. So that game was written entirely in TI Basic for the 99/4 - a machine that intrigued me with its graphics and logic capabilities.

 

You can download the PDF on the WHT FTP site to read the whole interview.

 

From the full interview it looks like the game was developed on an unexpanded TI-99/4 with a cassette system and no printer.  OUCH!!!

 

Does anyone know if there is any memory size differences in TI Basic between the 99/4 and 99/4A?

 

  • Like 2
Link to comment
Share on other sites

18 minutes ago, Torrax said:

You can download the PDF on the WHT FTP site to read the whole interview.

http://ftp.whtech.com/magazines/99er/99erv1%236.pdf

 

15 minutes ago, Torrax said:

From the full interview it looks like the game was developed on an unexpanded TI-99/4 with a cassette system and no printer.  OUCH!!!

That is how I used to do it back in the day.  Pen, paper, and cassette.

  • Like 1
Link to comment
Share on other sites

5 hours ago, OLD CS1 said:

http://ftp.whtech.com/magazines/99er/99erv1%236.pdf

 

That is how I used to do it back in the day.  Pen, paper, and cassette.

Cool article. I decided to do a little research into Charles. Looks like after Futura Software he founded a company called Galaxy Software which lasted from 1987-1989. Apparently there was a legal battle over the company and someone bought the majority share of the company from Charles and there some some issues with a list of customers being used. Anyway, it would appear Charles is still alive and is 94 years old, still living in Fort Worth, TX.

 

Looks like there are two phone numbers out there fore him as well. I think PixelPendant should do some "Cold Call" episodes where he calls a past TI personality who has no idea he is about to call him. Then see what transpires if, anything. Hang-ups would be funny to watch, and interviews would be cool and awesome. So a win-win. Could even have it live so there's some TI guys in the chat that could come up with some questions to ask. Also, could use that Tide Cold Call theme from the commercials for the episodes:

 

 

Edited by Toucan
Link to comment
Share on other sites

3 minutes ago, Toucan said:

Cool article. I decided to do a little research into Charles. Looks like after Futura Software he founded a company called Galaxy Software which lasted from 1987-1989. Apparently there was a legal battle over the company and someone bought the majority share of the company from Charles and there some some issues with a list of customers being used. Anyway, it would appear Charles is still alive and is 94 years old, still living in Fort Worth, TX.

 

Looks like there are two phone numbers out there fore him as well. I think PixelPendant should do some "Call Call" episodes where he calls a past TI personality who has no idea he is about to call him. Then see what transpires if, anything. Hang-ups would be funny to watch, and interviews would be cool and awesome. So a win-win. Could even have it live so there's some TI guys in the chat that could come up with some questions to ask. Also, could use that Tide Cold Call theme from the commercials for the episodes:

 

 

I'll purchase this for you PixelPendant if you get these episodes going.

 

https://www.ebay.com/itm/165081866456?hash=item266fa560d8:g:elcAAOSwN8thR5hd

  • Haha 2
Link to comment
Share on other sites

10 hours ago, Torrax said:

Here's a portion from "99er's Magazine Vol.1 No.6" - Designers Spotlight interview starting on page 32.

 

GMK: What was your first game attempt on the TI-99/4?

 

CME: My first attempt was All Star Baseball written in TI Basic, of course.  The Extended Basic was not out yet; it had not even been announced. So that game was written entirely in TI Basic for the 99/4 - a machine that intrigued me with its graphics and logic capabilities.

 

You can download the PDF on the WHT FTP site to read the whole interview.

 

From the full interview it looks like the game was developed on an unexpanded TI-99/4 with a cassette system and no printer.  OUCH!!!

 

Does anyone know if there is any memory size differences in TI Basic between the 99/4 and 99/4A?

 

The /4 has 256 bytes more RAM, due to not having a built in lower case character set.

Link to comment
Share on other sites

  • 2 weeks later...

Ok @Dutchman2000, I dumped my original Floppy and Cassette Tape, and saved into a dedicated page on the TI99iuc's DB as I like to do for preservation.
An hard work for organize all the stuff, restoring etc...  I have also compared some version of this game I had into my hard disk.

 

Software

asbaseballlogo.jpg

https://www.ti99iuc.it/web/index.php?pageid=database_cerca&archivioid=836#.YVr0bZpByUk

 

 

Documentation
asbasbdocslogo.jpg

https://www.ti99iuc.it/web/index.php?pageid=database_cerca&archivioid=833#.YVrxaZpByUk

 

 

Over the official versions I have copied from my original Floppy Disk and Cassette Tape, I also found an Extended BASIC version that not seems to be an official release, maybe a modified version from someone but I haven't found additional infos.
asbxb32klogo.jpg
It will need Extended BASIC + 32K, Floppy Disk System and Speech Synthesizer, it is a multiload game and use Text-To-Speech utility.

you can read details here: 

https://www.ti99iuc.it/web/index.php?pageid=database_cerca&archivioid=837#.YVr2LZpByUk

 

 

Hope it will be appreciated from the community :) 
If someone of you will have additional infos to share I will be happy to add in the page.

 

Edited by ti99iuc
  • Like 3
  • Thanks 1
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...