Dutchman2000 Posted September 18, 2021 Share Posted September 18, 2021 Does anyone have a copy of this game? I’ve been looking for it for a long time.. Quote Link to comment Share on other sites More sharing options...
Dutchman2000 Posted September 19, 2021 Author Share Posted September 19, 2021 I think I found it. All Star Baseball.dsk 1 Quote Link to comment Share on other sites More sharing options...
pixelpedant Posted September 19, 2021 Share Posted September 19, 2021 But is this the game? Is it an All Star Baseball II which is distinct from All Star Baseball? Quote Link to comment Share on other sites More sharing options...
Dutchman2000 Posted September 19, 2021 Author Share Posted September 19, 2021 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. 1 Quote Link to comment Share on other sites More sharing options...
+save2600 Posted September 19, 2021 Share Posted September 19, 2021 Never heard of All Star Baseball for the TI... I'm intrigued! Is it an arcade-style baseball game... -edit- NM. Believe post #7 probably answers that. Quote Link to comment Share on other sites More sharing options...
ti99iuc Posted September 19, 2021 Share Posted September 19, 2021 (edited) Absolutely yes, I can confirm that All Star Baseball II cassette tape contains just the game named All Star Basball (not mentioned the II), same happens for Sam Defence II. Edited September 19, 2021 by ti99iuc Quote Link to comment Share on other sites More sharing options...
sparkdrummer Posted September 19, 2021 Share Posted September 19, 2021 I believe the difference was that II could be played using console basic or XB, where the first one was console basic only. 3 1 Quote Link to comment Share on other sites More sharing options...
Dutchman2000 Posted September 19, 2021 Author Share Posted September 19, 2021 18 minutes ago, ti99iuc said: Absolutely yes, I can confirm that All Star Baseball II cassette tape contains just the game named All Star Basball (not mentioned the II), same happens for Sam Defence II. Is this cassette image dumped? Quote Link to comment Share on other sites More sharing options...
ti99iuc Posted September 19, 2021 Share Posted September 19, 2021 I have the original, I can dump it if missing, no prob. 1 Quote Link to comment Share on other sites More sharing options...
Dutchman2000 Posted September 19, 2021 Author Share Posted September 19, 2021 1 hour ago, ti99iuc said: I have the original, I can dump it if missing, no prob. Please do. I would greatly appreciate it. 2 Quote Link to comment Share on other sites More sharing options...
+Torrax Posted September 20, 2021 Share Posted September 20, 2021 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 2 Quote Link to comment Share on other sites More sharing options...
+Torrax Posted September 20, 2021 Share Posted September 20, 2021 (edited) And here it is on disk. ALLSTARBAS.dsk Edited September 20, 2021 by Torrax 2 Quote Link to comment Share on other sites More sharing options...
oddemann Posted September 20, 2021 Share Posted September 20, 2021 (edited) 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 September 20, 2021 by oddemann Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted September 21, 2021 Share Posted September 21, 2021 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. Quote Link to comment Share on other sites More sharing options...
oddemann Posted September 21, 2021 Share Posted September 21, 2021 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 ? Quote Link to comment Share on other sites More sharing options...
+Torrax Posted September 21, 2021 Share Posted September 21, 2021 (edited) 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 September 21, 2021 by Torrax 1 Quote Link to comment Share on other sites More sharing options...
+eebuckeye Posted September 21, 2021 Share Posted September 21, 2021 I just used Extended Basic and it worked as-is. 2 Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted September 21, 2021 Share Posted September 21, 2021 48 minutes ago, oddemann said: Pasted in 4 to 585 Then did "CALL FILES(0)" Run... Memory full in 112 You have to NEW after the CALL FILES(0). Then paste in the program. Quote Link to comment Share on other sites More sharing options...
+Torrax Posted September 21, 2021 Share Posted September 21, 2021 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? 2 Quote Link to comment Share on other sites More sharing options...
+OLD CS1 Posted September 21, 2021 Share Posted September 21, 2021 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. 1 Quote Link to comment Share on other sites More sharing options...
Toucan Posted September 22, 2021 Share Posted September 22, 2021 (edited) 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 September 22, 2021 by Toucan Quote Link to comment Share on other sites More sharing options...
Toucan Posted September 22, 2021 Share Posted September 22, 2021 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 2 Quote Link to comment Share on other sites More sharing options...
jrhodes Posted September 22, 2021 Share Posted September 22, 2021 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. Quote Link to comment Share on other sites More sharing options...
ti99iuc Posted September 22, 2021 Share Posted September 22, 2021 (edited) @Toucan I researched into Charles in 2016 and found the daughter, but it has been the sadly news Edited September 22, 2021 by ti99iuc 2 Quote Link to comment Share on other sites More sharing options...
ti99iuc Posted October 4, 2021 Share Posted October 4, 2021 (edited) 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 https://www.ti99iuc.it/web/index.php?pageid=database_cerca&archivioid=836#.YVr0bZpByUk Documentation 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. 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 October 4, 2021 by ti99iuc 3 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.