Dan Iacovelli Posted April 11, 2021 Share Posted April 11, 2021 most of you know I'm mostly an Atari type guy, but I was also in to Ti-99/4a along with my brother Nick Iacovelli Jr. Back in September 2019 nick has passed away, he was involved more with Ti then I was. we did go chicago users groups when it was at trition and some other locations as well as helped run the ti-faires when it was at triton,and we did go to some of them at evanston library. We also ran the BBS for while and even did Ti-west BBS for while with rick brenseed(I know i prob spelled his last name wrong). I did program few games on the ti extended basic that was in the Ti users group library. Well anyways, while going through some stuff of his we (my sister and me) came across a bunch of newsletters from Ti-users groups and some manuals. if anybody is interested in these send me a pm, and I'll send you pictures of what I got. sis wants to shred and toss them 3 Quote Link to comment Share on other sites More sharing options...
jrhodes Posted April 11, 2021 Share Posted April 11, 2021 (edited) Edited April 11, 2021 by jrhodes pm sent 1 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted April 11, 2021 Share Posted April 11, 2021 oh yes nice , I found the All Star Championship Baseball on CUG071 Spoiler Spoiler 1 CALL CLEAR :: INPUT "DO YOU HAVE SPEECH? (Y/N) ":B$ :: IF B$="N" OR B$="n" THEN 2 ELSE CALL SAY("WELL+COME TO ALL START BASE B+ALL") 2 CALL CLEAR :: INPUT "TEAMS(TEAM1,TEAM2) ":C$,D$ 10 CALL CLEAR :: PRINT "ALL STAR CHAMPIONSHIP BASEBALL":"BY DAN IACOVELLI" 20 PRINT "THIS IS A GAME BASEBALL":"TEAM 2 IS UP FIRST":" THE KEYS FOR BATTING FOR PLAYER 2 ARE":"6-BUNT 7-HIT TO LEFT":"8-HIT TO RIGHT" 30 PRINT "9-HOME RUN" :: INPUT "PRESS ENTER FOR MORE RULES":A$ 40 CALL CLEAR :: PRINT "USE /-UP TO FIRST":".-UP TO SECOND":";-DOWN TO HOME":"0-DOWN TO THIRD" :: PRINT "USE CTRL Y-STRIGHT PITCH" 50 PRINT "CTRL H-CURVE RIGHT":"CTRL L-FAST" :: INPUT "PRESS ENTER FOR OUTFIELD CONTROL":A$ :: CALL CLEAR :: PRINT "K-FIRSTBASE I-SECOND,J-THIRD" 60 PRINT :"M-CATCHER,P-SHORT,N-PITCHER":",-CENTER,O-RIGHT U-LEFT":" USE JOYST 2 FOR CONTROL OF FIELD":"CTRL I-THROW TO SECOND":" K-THROW TO FIRST" 70 PRINT "CTRL J-THROW TO THIRD":"PRESS FIRE BUTTON TO THROW BALL BACK TO PITCHER" :: INPUT "AND CTRL M-THROW BALL TO CATHCER;PRESS ENTER FOR TEAM 1 RULES":A$ 71 CALL CLEAR :: PRINT "TEAM 1 IS UP LAST":"THE KEYS FOR BATTING ARE":"1-BUNT 2-HIT TO LEFT":"3-HIT TO RIGHT":"4-HOME RUN" 72 INPUT "PRESS ENTER FOR MORE RULES":A$ :: CALL CLEAR :: PRINT "USE B-UP TO FIRST":"V-UP TO SECOND":"G-DOWN TO THRID":"5-DOWN TO HOME" 73 PRINT "USE CTRL Q-STRIGHT PITCH":"CTRL A-CURVE RIGHT":"CTRL F-FAST" :: INPUT "PRESS ENTER FOR OUTFIELD CONTROL":A$ :: CALL CLEAR 74 PRINT "D-FIRST E-SECOND S-THIRD":"C-CENTER X-CATCHER Z-PITCHER":"R-RIGHT T-SHORTSTOP W-LEFT" :: PRINT "USE JOYST1 TO CONTROL OUTFIELD" 75 PRINT "USE FIRE TO THROW BALL BACK TO THE PITCHER":"USE CTRL ARROW KEYS TO THROW BALL TO BASE" 76 INPUT "PRESS ENTER TO START THE GAME":A$ :: IF B$="N" OR B$="n" THEN 80 ELSE CALL SAY("PLAY B+ALL") 80 CALL SCREEN(4):: CALL CLEAR 90 CALL COLOR(9,11,2) 100 DIM A(9,9) 110 CALL CHAR(102,"1038549438442211",103,"44E850E0A0A0A0A0",120,"103854B838282828",121,"000000183D7E3C24",129,"081C2A491C142241") 120 CALL SPRITE(#10,136,16,106,119):: CALL SPRITE(#11,136,16,106,119) 130 CALL SPRITE(#18,137,4,240,119) 150 CALL CHAR(130,"925438442211",131,"1038549228444444",33,"181818181818181818",42,"183C7EFFFF7E3C18",43,"FFFFFFF7E7FFFFFF") 160 CALL CHAR(44,"FFFFFFFFFFFFFFFFF",104,"0000000000183C7E",96,"00000000183C7E99",105,"FFFFFFFFE7C38100",106,"00010307070301") 170 T=1 :: T2=20 :: IN=1 180 CALL CHAR(97,"0102060F0F060201",107,"FEFCF8F0F0F8FCFE",108,"7F3F1F0F0F1F3F7F",98,"804060F0F0604080",118,"80C0E0F0F0E0C080") 190 CALL CHAR(99,"995A3C3C18",100,"0102040810204080",101,"8040201008040201",109,"000103070F1F3F7F",110,"0080C0E0F0F8FCFE") 200 CALL CHAR(111,"FEFCF8F0E0C080",112,"7F3F1F0F070301",113,"FFFFFFFFFFFFFFFF",114,"00000000003C7EFF",115,"0103070707070301") 210 CALL CHAR(116,"80C0E0E0E0E0C080",136,"0000001818",137,"FFFFFFFFFFFFFFFFF") 220 Y=0 :: FOR X=7 TO 14 230 CALL HCHAR(X,14-Y,109):: CALL HCHAR(X,15-Y,100):: CALL HCHAR(X,16-Y,111):: CALL HCHAR(X,16+Y,112):: CALL HCHAR(X,17+Y,101) 240 CALL HCHAR(X,18+Y,110):: Y=Y+1 :: NEXT X 250 CALL HCHAR(5,16,104):: CALL HCHAR(6,15,109):: CALL HCHAR(6,16,96):: CALL HCHAR(6,17,110):: CALL HCHAR(7,16,105):: CALL HCHAR(14,7,106) 260 CALL HCHAR(14,8,97):: CALL HCHAR(14,9,107):: CALL HCHAR(14,23,108):: CALL HCHAR(14,24,98):: CALL HCHAR(14,25,118):: Y=7 :: FOR X=15 TO 21 270 CALL HCHAR(X,15-Y,112):: CALL HCHAR(X,16-Y,101):: CALL HCHAR(X,17-Y,110):: CALL HCHAR(X,15+Y,109):: CALL HCHAR(X,16+Y,100) 280 CALL HCHAR(X,17+Y,111):: Y=Y-1 :: NEXT X :: CALL HCHAR(13,16,114):: CALL HCHAR(14,15,115):: CALL HCHAR(14,17,116):: CALL VCHAR(15,16,113,7) 290 CALL HCHAR(22,15,112):: CALL HCHAR(22,16,99):: CALL HCHAR(22,17,111) 300 CALL HCHAR(23,16,121):: CALL HCHAR(21,16,103):: CALL HCHAR(3,29,120):: CALL HCHAR(3,3,120):: CALL HCHAR(3,16,120):: CALL HCHAR(14,25,120) 310 CALL HCHAR(6,18,120):: CALL HCHAR(14,16,131):: CALL HCHAR(14,7,120):: CALL HCHAR(8,12,120) 320 CALL SPRITE(#13,102,5,173,126):: CALL SPRITE(#14,102,9,174,126) 330 CALL KEY(1,K,S):: CALL KEY(2,K2,S) 340 RANDOMIZE 350 CALL KEY(4,K1,S) 351 IF K1=24 THEN CALL COLOR(#1,7) 352 IF K1=13 THEN CALL COLOR(#20,16) 370 IF K1=19 THEN CALL LOCATE(#10,106,50):: CALL MOTION(#10,0,-1) 371 IF K1=10 THEN CALL LOCATE(#11,106,50):: CALL MOTION(#11,0,-1) 380 IF K1=5 THEN CALL LOCATE(#10,33,130):: CALL MOTION(#10,-1,0) 381 IF K1=9 THEN CALL LOCATE(#11,32,130):: CALL MOTION(#11,-1,0) 390 IF K=0 THEN CALL SPRITE(#1,121,9,185,130):: T=1 400 IF K1=6 THEN CALL MOTION(#10,7,0) 410 IF K1=12 THEN CALL MOTION(#11,7,0) 420 IF K1=4 THEN CALL LOCATE(#10,106,200):: CALL MOTION(#10,0,-1) 421 IF K1=11 THEN CALL LOCATE(#11,106,200):: CALL MOTION(#11,0,-1) 430 IF K1=1 THEN CALL MOTION(#10,5,1) 440 IF K1=8 THEN CALL MOTION(#11,5,1) 450 IF K2=8 THEN CALL SOUND(100,340,10,-8,17):: CALL MOTION(#10,-4,6):: STR,BA1=0 451 IF K=8 THEN CALL SOUND(100,340,17,-8,16):: CALL MOTION(#11,-4,6):: STR2,BA2=0 460 IF K1=17 THEN CALL MOTION(#10,4,0) 470 IF K1=25 THEN CALL MOTION(#11,4,0) 480 IF K2=19 THEN CALL SOUND(10,280,1):: DISPLAY AT(24,5):"BUNT" :: CALL MOTION(#10,0,0):: CALL LOCATE(#10,144,119):: STR,BA1=0 481 IF K=19 THEN CALL SOUND(10,280,1):: DISPLAY AT(24,5):"BUNT" :: CALL MOTION(#11,0,0):: CALL LOCATE(#11,144,119):: STR2,BA2=0 490 IF K2=18 THEN CALL LOCATE(#11,106,119) 500 IF K2=7 THEN CALL SOUND(100,340,12,-8,12):: CALL MOTION(#10,-4,-6):: BA1,STR=0 501 IF K=7 THEN CALL SOUND(100,340,12,-8,12):: CALL MOTION(#11,-4,-6):: BA2,STR2=0 510 CALL COINC(#11,174,123,21,S2):: IF S2 THEN CALL MOTION(#11,0,0):: STR2=STR2+1 :: IF STR2=3 THEN DISPLAY AT(24,9):"STRUCK OUT" 520 IF S2 THEN CALL LOCATE(#11,106,119):: IF STR2=3 THEN OU2=OU2+1 :: STR2=0 :: BA2=0 530 IF OU2=3 THEN CALL DELSPRITE(#20,#21,#22,#23,#24,#25,#26,#27,#28,#15,#16,#17):: OU2=0 :: DISPLAY AT(25,1):D$;"IS UP" :: IN=IN+1 539 CALL COINC(#18,#10,50,BA):: IF BA THEN CALL MOTION(#10,0,0):: CALL LOCATE(#10,116,109):: CALL SOUND(1000,560,10) 540 CALL COINC(#11,#18,21,BA3):: IF BA3 THEN BA2=BA2+1 :: IF BA2=4 THEN BA2=0 :: DISPLAY AT(24,9):" WALK":STR2=0 541 CALL COINC(#2,#10,29,X):: IF X THEN OU=OU+1 :: CALL LOCATE(#10,106,119):: CALL MOTION(#10,0,0):: STR=0 :: BA1=0 :: CALL COLOR(#2,9) 542 CALL COINC(#24,#11,29,XX):: IF XX THEN OU2=OU2+1 :: CALL LOCATE(#11,106,119):: CALL MOTION(#11,0,0):: STR2=0 :: BA2=0 543 IF XX THEN CALL COLOR(#24,16) 544 CALL COINC(#18,#11,40,XX1):: IF XX1 THEN CALL MOTION(#11,0,0):: CALL LOCATE(#11,106,109):: CALL SOUND(1000,561,10) 550 IF BA3 THEN CALL MOTION(#11,0,0):: CALL LOCATE(#11,106,119) 560 IF K2=9 THEN CALL SOUND(1000,340,9):: DISPLAY AT(24,5):"HOMERUN" :: CALL MOTION(#10,-5,0):: BA1,STR=0 561 IF K=9 THEN CALL SOUND(1000,340,9,-8,9):: DISPLAY AT(24,5):"HOMERUN" :: CALL MOTION(#11,-5,0):: BA2,STR2=0 570 CALL COINC(#10,179,126,20,S1):: IF S1 THEN STR=STR+1 :: CALL MOTION(#10,0,0):: IF STR=3 THEN DISPLAY AT(24,9):"STRUCK OUT" 580 IF STR=3 THEN STR=0 :: BA1=0 :: OU=OU+1 590 IF S1 THEN CALL LOCATE(#10,106,119) 600 DISPLAY AT(24,4):"STRIKE";STR;STR2 610 IF BA THEN BA1=BA1+1 :: IF BA1=4 THEN BA1=0 :: STR=0 :: DISPLAY AT(24,9):"WALK" 620 IF BA THEN CALL MOTION(#10,0,0):: CALL LOCATE(#10,106,119) 630 DISPLAY AT(25,1):"OUTS";OU;OU2 :: IF OU=3 THEN DISPLAY AT(25,1):C$;"IS UP" :: OU=0 :: CALL DELSPRITE(#1,#2,#3,#4,#5,#6,#7,#8,#9,#15) 631 IF OU=3 THEN CALL DELSPRITE(#16,#17) 640 CALL COINC(#13,#T,10,OUT):: IF OUT THEN OU=1+OU :: DISPLAY AT(24,3):" TAGGED OUT" :: CALL LOCATE(#13,174,126) 650 CALL COINC(#14,#T2,10,OUT2):: IF OUT2 THEN OU2=1+OU2 :: DISPLAY AT(24,3):" TAGGED OUT" :: CALL LOCATE(#14,174,126) 660 DISPLAY AT(24,20):"INNING";IN 670 DISPLAY AT(23,4):"BALLS";BA1;BA2 680 CALL COINC(#13,154,119,13,SCR):: IF SCR THEN SCRO=SCRO+1 690 CALL COINC(#14,154,119,14,SCR2):: IF SCR2 THEN SCRO2=SCRO2+1 700 IF SCRO=SCRO2 AND IN=10 THEN DISPLAY AT(24,20):"EXTRA INNING" 710 IF SCRO>SCRO2 AND IN=9 THEN DISPLAY AT(23,1):D$;" WINS" :: GOTO 1160 :: IF SCRO2>SCRO AND IN=9 THEN DISPLAY AT(23,1):C$;" WINS" 720 IF SCRO>SCRO2 AND IN>9 THEN DISPLAY AT(23,1):D$;"WON AFTER";IN;"INNINGS" :: GOTO 1140 730 IF SCO2>SCRO AND IN>9 THEN DISPLAY AT(23,1):C$"WON AFTER";IN;"INNINGS" :: GOTO 1160 740 IF SCRO2>SCRO AND IN=9 THEN GOTO 1140 750 DISPLAY AT(26,1):"SCORE";SCRO;SCRO2 760 CALL COINC(#10,#T,11,X):: IF X THEN CALL MOTION(#10,0,0):: CALL COLOR(#T,7):: ERR=INT(10*RND+1):: IF ERR=1 THEN ER=1+ER 761 CALL COINC(#11,#T2,11,XXX):: IF XXX THEN CALL MOTION(#11,0,0):: CALL COLOR(#T2,16):: ERR2=INT(10*RND+1):: IF ERR2=1 THEN ER2=ER2+1 770 IF K=18 THEN CALL LOCATE(#10,106,119) 780 CALL COINC(#10,106,5,10,X):: IF X THEN CALL MOTION(#10,0,2) 790 CALL COINC(#10,175,125,10,X):: IF X THEN CALL MOTION(#10,0,0) 800 IF K2=0 THEN CALL SPRITE(#20,121,5,185,130):: T2=20 810 IF K2=3 THEN CALL SPRITE(#21,120,5,106,199):: T2=21 820 IF K2=5 THEN CALL SPRITE(#22,120,5,32,130):: T2=22 830 IF K2=2 THEN CALL SPRITE(#23,120,5,106,40):: T2=23 840 IF K2=14 THEN CALL SPRITE(#24,120,5,1,119):: T2=24 850 IF K2=6 THEN CALL SPRITE(#25,120,5,1,228):: T2=25 860 IF K2=4 THEN CALL SPRITE(#26,120,5,27,30):: T2=26 870 IF K2=11 THEN CALL SPRITE(#27,120,5,60,85):: T2=27 880 IF K2=15 THEN CALL SPRITE(#28,120,5,106,119):: T2=28 890 IF K=14 THEN CALL SPRITE(#2,120,9,1,119):: T=2 900 IF K=6 THEN CALL SPRITE(#3,120,9,1,228):: T=3 910 IF K=3 THEN CALL SPRITE(#4,120,9,106,200):: T=4 920 IF K=15 THEN CALL SPRITE(#5,131,9,106,119):: T=5 930 IF K=2 THEN CALL SPRITE(#6,120,9,106,40):: T=6 940 IF K=4 THEN CALL SPRITE(#7,120,9,28,30):: T=7 950 IF K=5 THEN CALL SPRITE(#8,120,9,32,130):: T=8 960 IF K=11 THEN CALL SPRITE(#9,120,9,60,85):: T=9 970 CALL JOYST(1,X,Y):: CALL MOTION(#T,-Y,X):: CALL JOYST(2,X1,Y1):: CALL MOTION(#T2,-Y1,X1) 980 IF K2=16 THEN CALL MOTION(#13,-4,4):: CALL COLOR(#13,16)ELSE CALL COLOR(#13,5) 990 IF K=16 THEN CALL MOTION(#14,-4,4):: CALL COLOR(#14,16)ELSE CALL COLOR(#14,9) 1000 IF K<>16 THEN CALL MOTION(#14,0,0):: IF K2<>16 THEN CALL MOTION(#13,0,0) 1010 IF K2=17 THEN CALL MOTION(#13,4,-4):: CALL COLOR(#13,16)ELSE CALL COLOR(#13,5) 1020 IF K=17 THEN CALL MOTION(#14,4,-4):: CALL COLOR(#14,16)ELSE CALL COLOR(#14,9) 1030 IF K2=13 THEN CALL MOTION(#13,-4,-4):: CALL COLOR(#13,16)ELSE CALL COLOR(#13,5) 1040 IF K=13 THEN CALL MOTION(#14,-4,-4):: CALL COLOR(#14,16)ELSE CALL COLOR(#14,9) 1050 IF K2=10 THEN CALL MOTION(#13,4,4):: CALL COLOR(#13,16)ELSE CALL COLOR(#13,5) 1060 IF K=10 THEN CALL MOTION(#14,4,4):: CALL COLOR(#14,16)ELSE CALL COLOR(#14,9) 1070 CALL COINC(#13,106,199,24,H):: IF H THEN CALL SPRITE(#15,102,5,106,180):: CALL LOCATE(#13,105,180) 1080 CALL COINC(#14,106,199,25,H2):: IF H2 THEN CALL SPRITE(#15,102,9,106,180):: CALL LOCATE(#14,106,180) 1090 CALL COINC(#14,32,119,25,HH2):: IF HH2 THEN CALL LOCATE(#14,40,119):: CALL SPRITE(#16,102,9,41,119) 1100 CALL COINC(#14,106,50,28,HHH2):: IF HHH2 THEN CALL SPRITE(#17,102,9,106,58):: CALL LOCATE(#14,106,58) 1110 CALL COINC(#13,32,119,30,HH):: IF HH THEN CALL SPRITE(#16,102,5,40,119):: CALL LOCATE(#13,41,119) 1120 CALL COINC(#13,106,50,34,HHH):: IF HHH THEN CALL SPRITE(#19,102,5,106,58):: CALL LOCATE(#13,106,59) 1130 GOTO 330 1140 CALL CLEAR :: DISPLAY AT(12,16):C$;SCRO2;D$;SCRO :: DISPLAY AT(14,16):"INNING";IN :: INPUT "PRESS ENTER FOR ERRORS":A$ 1150 PRINT "ERRORS":C$;ER,D$;ER2 :: END 1160 CALL CLEAR :: DISPLAY AT(12,16):D$;SCRO,C$;SCRO2 :: DISPLAY AT(14,16):"ININNG";IN 1170 INPUT "PRESS ENTER FOR ERRORS":A$ :: PRINT "ERRORS":D$;ER2,C$;ER :: END 2 Quote Link to comment Share on other sites More sharing options...
Dan Iacovelli Posted April 11, 2021 Author Share Posted April 11, 2021 15 minutes ago, Schmitzi said: oh yes nice , I found the All Star Championship Baseball on CUG071 Reveal hidden contents 1 CALL CLEAR :: INPUT "DO YOU HAVE SPEECH? (Y/N) ":B$ :: IF B$="N" OR B$="n" THEN 2 ELSE CALL SAY("WELL+COME TO ALL START BASE B+ALL") 2 CALL CLEAR :: INPUT "TEAMS(TEAM1,TEAM2) ":C$,D$ 10 CALL CLEAR :: PRINT "ALL STAR CHAMPIONSHIP BASEBALL":"BY DAN IACOVELLI" 20 PRINT "THIS IS A GAME BASEBALL":"TEAM 2 IS UP FIRST":" THE KEYS FOR BATTING FOR PLAYER 2 ARE":"6-BUNT 7-HIT TO LEFT":"8-HIT TO RIGHT" 30 PRINT "9-HOME RUN" :: INPUT "PRESS ENTER FOR MORE RULES":A$ 40 CALL CLEAR :: PRINT "USE /-UP TO FIRST":".-UP TO SECOND":";-DOWN TO HOME":"0-DOWN TO THIRD" :: PRINT "USE CTRL Y-STRIGHT PITCH" 50 PRINT "CTRL H-CURVE RIGHT":"CTRL L-FAST" :: INPUT "PRESS ENTER FOR OUTFIELD CONTROL":A$ :: CALL CLEAR :: PRINT "K-FIRSTBASE I-SECOND,J-THIRD" 60 PRINT :"M-CATCHER,P-SHORT,N-PITCHER":",-CENTER,O-RIGHT U-LEFT":" USE JOYST 2 FOR CONTROL OF FIELD":"CTRL I-THROW TO SECOND":" K-THROW TO FIRST" 70 PRINT "CTRL J-THROW TO THIRD":"PRESS FIRE BUTTON TO THROW BALL BACK TO PITCHER" :: INPUT "AND CTRL M-THROW BALL TO CATHCER;PRESS ENTER FOR TEAM 1 RULES":A$ 71 CALL CLEAR :: PRINT "TEAM 1 IS UP LAST":"THE KEYS FOR BATTING ARE":"1-BUNT 2-HIT TO LEFT":"3-HIT TO RIGHT":"4-HOME RUN" 72 INPUT "PRESS ENTER FOR MORE RULES":A$ :: CALL CLEAR :: PRINT "USE B-UP TO FIRST":"V-UP TO SECOND":"G-DOWN TO THRID":"5-DOWN TO HOME" 73 PRINT "USE CTRL Q-STRIGHT PITCH":"CTRL A-CURVE RIGHT":"CTRL F-FAST" :: INPUT "PRESS ENTER FOR OUTFIELD CONTROL":A$ :: CALL CLEAR 74 PRINT "D-FIRST E-SECOND S-THIRD":"C-CENTER X-CATCHER Z-PITCHER":"R-RIGHT T-SHORTSTOP W-LEFT" :: PRINT "USE JOYST1 TO CONTROL OUTFIELD" 75 PRINT "USE FIRE TO THROW BALL BACK TO THE PITCHER":"USE CTRL ARROW KEYS TO THROW BALL TO BASE" 76 INPUT "PRESS ENTER TO START THE GAME":A$ :: IF B$="N" OR B$="n" THEN 80 ELSE CALL SAY("PLAY B+ALL") 80 CALL SCREEN(4):: CALL CLEAR 90 CALL COLOR(9,11,2) 100 DIM A(9,9) 110 CALL CHAR(102,"1038549438442211",103,"44E850E0A0A0A0A0",120,"103854B838282828",121,"000000183D7E3C24",129,"081C2A491C142241") 120 CALL SPRITE(#10,136,16,106,119):: CALL SPRITE(#11,136,16,106,119) 130 CALL SPRITE(#18,137,4,240,119) 150 CALL CHAR(130,"925438442211",131,"1038549228444444",33,"181818181818181818",42,"183C7EFFFF7E3C18",43,"FFFFFFF7E7FFFFFF") 160 CALL CHAR(44,"FFFFFFFFFFFFFFFFF",104,"0000000000183C7E",96,"00000000183C7E99",105,"FFFFFFFFE7C38100",106,"00010307070301") 170 T=1 :: T2=20 :: IN=1 180 CALL CHAR(97,"0102060F0F060201",107,"FEFCF8F0F0F8FCFE",108,"7F3F1F0F0F1F3F7F",98,"804060F0F0604080",118,"80C0E0F0F0E0C080") 190 CALL CHAR(99,"995A3C3C18",100,"0102040810204080",101,"8040201008040201",109,"000103070F1F3F7F",110,"0080C0E0F0F8FCFE") 200 CALL CHAR(111,"FEFCF8F0E0C080",112,"7F3F1F0F070301",113,"FFFFFFFFFFFFFFFF",114,"00000000003C7EFF",115,"0103070707070301") 210 CALL CHAR(116,"80C0E0E0E0E0C080",136,"0000001818",137,"FFFFFFFFFFFFFFFFF") 220 Y=0 :: FOR X=7 TO 14 230 CALL HCHAR(X,14-Y,109):: CALL HCHAR(X,15-Y,100):: CALL HCHAR(X,16-Y,111):: CALL HCHAR(X,16+Y,112):: CALL HCHAR(X,17+Y,101) 240 CALL HCHAR(X,18+Y,110):: Y=Y+1 :: NEXT X 250 CALL HCHAR(5,16,104):: CALL HCHAR(6,15,109):: CALL HCHAR(6,16,96):: CALL HCHAR(6,17,110):: CALL HCHAR(7,16,105):: CALL HCHAR(14,7,106) 260 CALL HCHAR(14,8,97):: CALL HCHAR(14,9,107):: CALL HCHAR(14,23,108):: CALL HCHAR(14,24,98):: CALL HCHAR(14,25,118):: Y=7 :: FOR X=15 TO 21 270 CALL HCHAR(X,15-Y,112):: CALL HCHAR(X,16-Y,101):: CALL HCHAR(X,17-Y,110):: CALL HCHAR(X,15+Y,109):: CALL HCHAR(X,16+Y,100) 280 CALL HCHAR(X,17+Y,111):: Y=Y-1 :: NEXT X :: CALL HCHAR(13,16,114):: CALL HCHAR(14,15,115):: CALL HCHAR(14,17,116):: CALL VCHAR(15,16,113,7) 290 CALL HCHAR(22,15,112):: CALL HCHAR(22,16,99):: CALL HCHAR(22,17,111) 300 CALL HCHAR(23,16,121):: CALL HCHAR(21,16,103):: CALL HCHAR(3,29,120):: CALL HCHAR(3,3,120):: CALL HCHAR(3,16,120):: CALL HCHAR(14,25,120) 310 CALL HCHAR(6,18,120):: CALL HCHAR(14,16,131):: CALL HCHAR(14,7,120):: CALL HCHAR(8,12,120) 320 CALL SPRITE(#13,102,5,173,126):: CALL SPRITE(#14,102,9,174,126) 330 CALL KEY(1,K,S):: CALL KEY(2,K2,S) 340 RANDOMIZE 350 CALL KEY(4,K1,S) 351 IF K1=24 THEN CALL COLOR(#1,7) 352 IF K1=13 THEN CALL COLOR(#20,16) 370 IF K1=19 THEN CALL LOCATE(#10,106,50):: CALL MOTION(#10,0,-1) 371 IF K1=10 THEN CALL LOCATE(#11,106,50):: CALL MOTION(#11,0,-1) 380 IF K1=5 THEN CALL LOCATE(#10,33,130):: CALL MOTION(#10,-1,0) 381 IF K1=9 THEN CALL LOCATE(#11,32,130):: CALL MOTION(#11,-1,0) 390 IF K=0 THEN CALL SPRITE(#1,121,9,185,130):: T=1 400 IF K1=6 THEN CALL MOTION(#10,7,0) 410 IF K1=12 THEN CALL MOTION(#11,7,0) 420 IF K1=4 THEN CALL LOCATE(#10,106,200):: CALL MOTION(#10,0,-1) 421 IF K1=11 THEN CALL LOCATE(#11,106,200):: CALL MOTION(#11,0,-1) 430 IF K1=1 THEN CALL MOTION(#10,5,1) 440 IF K1=8 THEN CALL MOTION(#11,5,1) 450 IF K2=8 THEN CALL SOUND(100,340,10,-8,17):: CALL MOTION(#10,-4,6):: STR,BA1=0 451 IF K=8 THEN CALL SOUND(100,340,17,-8,16):: CALL MOTION(#11,-4,6):: STR2,BA2=0 460 IF K1=17 THEN CALL MOTION(#10,4,0) 470 IF K1=25 THEN CALL MOTION(#11,4,0) 480 IF K2=19 THEN CALL SOUND(10,280,1):: DISPLAY AT(24,5):"BUNT" :: CALL MOTION(#10,0,0):: CALL LOCATE(#10,144,119):: STR,BA1=0 481 IF K=19 THEN CALL SOUND(10,280,1):: DISPLAY AT(24,5):"BUNT" :: CALL MOTION(#11,0,0):: CALL LOCATE(#11,144,119):: STR2,BA2=0 490 IF K2=18 THEN CALL LOCATE(#11,106,119) 500 IF K2=7 THEN CALL SOUND(100,340,12,-8,12):: CALL MOTION(#10,-4,-6):: BA1,STR=0 501 IF K=7 THEN CALL SOUND(100,340,12,-8,12):: CALL MOTION(#11,-4,-6):: BA2,STR2=0 510 CALL COINC(#11,174,123,21,S2):: IF S2 THEN CALL MOTION(#11,0,0):: STR2=STR2+1 :: IF STR2=3 THEN DISPLAY AT(24,9):"STRUCK OUT" 520 IF S2 THEN CALL LOCATE(#11,106,119):: IF STR2=3 THEN OU2=OU2+1 :: STR2=0 :: BA2=0 530 IF OU2=3 THEN CALL DELSPRITE(#20,#21,#22,#23,#24,#25,#26,#27,#28,#15,#16,#17):: OU2=0 :: DISPLAY AT(25,1):D$;"IS UP" :: IN=IN+1 539 CALL COINC(#18,#10,50,BA):: IF BA THEN CALL MOTION(#10,0,0):: CALL LOCATE(#10,116,109):: CALL SOUND(1000,560,10) 540 CALL COINC(#11,#18,21,BA3):: IF BA3 THEN BA2=BA2+1 :: IF BA2=4 THEN BA2=0 :: DISPLAY AT(24,9):" WALK":STR2=0 541 CALL COINC(#2,#10,29,X):: IF X THEN OU=OU+1 :: CALL LOCATE(#10,106,119):: CALL MOTION(#10,0,0):: STR=0 :: BA1=0 :: CALL COLOR(#2,9) 542 CALL COINC(#24,#11,29,XX):: IF XX THEN OU2=OU2+1 :: CALL LOCATE(#11,106,119):: CALL MOTION(#11,0,0):: STR2=0 :: BA2=0 543 IF XX THEN CALL COLOR(#24,16) 544 CALL COINC(#18,#11,40,XX1):: IF XX1 THEN CALL MOTION(#11,0,0):: CALL LOCATE(#11,106,109):: CALL SOUND(1000,561,10) 550 IF BA3 THEN CALL MOTION(#11,0,0):: CALL LOCATE(#11,106,119) 560 IF K2=9 THEN CALL SOUND(1000,340,9):: DISPLAY AT(24,5):"HOMERUN" :: CALL MOTION(#10,-5,0):: BA1,STR=0 561 IF K=9 THEN CALL SOUND(1000,340,9,-8,9):: DISPLAY AT(24,5):"HOMERUN" :: CALL MOTION(#11,-5,0):: BA2,STR2=0 570 CALL COINC(#10,179,126,20,S1):: IF S1 THEN STR=STR+1 :: CALL MOTION(#10,0,0):: IF STR=3 THEN DISPLAY AT(24,9):"STRUCK OUT" 580 IF STR=3 THEN STR=0 :: BA1=0 :: OU=OU+1 590 IF S1 THEN CALL LOCATE(#10,106,119) 600 DISPLAY AT(24,4):"STRIKE";STR;STR2 610 IF BA THEN BA1=BA1+1 :: IF BA1=4 THEN BA1=0 :: STR=0 :: DISPLAY AT(24,9):"WALK" 620 IF BA THEN CALL MOTION(#10,0,0):: CALL LOCATE(#10,106,119) 630 DISPLAY AT(25,1):"OUTS";OU;OU2 :: IF OU=3 THEN DISPLAY AT(25,1):C$;"IS UP" :: OU=0 :: CALL DELSPRITE(#1,#2,#3,#4,#5,#6,#7,#8,#9,#15) 631 IF OU=3 THEN CALL DELSPRITE(#16,#17) 640 CALL COINC(#13,#T,10,OUT):: IF OUT THEN OU=1+OU :: DISPLAY AT(24,3):" TAGGED OUT" :: CALL LOCATE(#13,174,126) 650 CALL COINC(#14,#T2,10,OUT2):: IF OUT2 THEN OU2=1+OU2 :: DISPLAY AT(24,3):" TAGGED OUT" :: CALL LOCATE(#14,174,126) 660 DISPLAY AT(24,20):"INNING";IN 670 DISPLAY AT(23,4):"BALLS";BA1;BA2 680 CALL COINC(#13,154,119,13,SCR):: IF SCR THEN SCRO=SCRO+1 690 CALL COINC(#14,154,119,14,SCR2):: IF SCR2 THEN SCRO2=SCRO2+1 700 IF SCRO=SCRO2 AND IN=10 THEN DISPLAY AT(24,20):"EXTRA INNING" 710 IF SCRO>SCRO2 AND IN=9 THEN DISPLAY AT(23,1):D$;" WINS" :: GOTO 1160 :: IF SCRO2>SCRO AND IN=9 THEN DISPLAY AT(23,1):C$;" WINS" 720 IF SCRO>SCRO2 AND IN>9 THEN DISPLAY AT(23,1):D$;"WON AFTER";IN;"INNINGS" :: GOTO 1140 730 IF SCO2>SCRO AND IN>9 THEN DISPLAY AT(23,1):C$"WON AFTER";IN;"INNINGS" :: GOTO 1160 740 IF SCRO2>SCRO AND IN=9 THEN GOTO 1140 750 DISPLAY AT(26,1):"SCORE";SCRO;SCRO2 760 CALL COINC(#10,#T,11,X):: IF X THEN CALL MOTION(#10,0,0):: CALL COLOR(#T,7):: ERR=INT(10*RND+1):: IF ERR=1 THEN ER=1+ER 761 CALL COINC(#11,#T2,11,XXX):: IF XXX THEN CALL MOTION(#11,0,0):: CALL COLOR(#T2,16):: ERR2=INT(10*RND+1):: IF ERR2=1 THEN ER2=ER2+1 770 IF K=18 THEN CALL LOCATE(#10,106,119) 780 CALL COINC(#10,106,5,10,X):: IF X THEN CALL MOTION(#10,0,2) 790 CALL COINC(#10,175,125,10,X):: IF X THEN CALL MOTION(#10,0,0) 800 IF K2=0 THEN CALL SPRITE(#20,121,5,185,130):: T2=20 810 IF K2=3 THEN CALL SPRITE(#21,120,5,106,199):: T2=21 820 IF K2=5 THEN CALL SPRITE(#22,120,5,32,130):: T2=22 830 IF K2=2 THEN CALL SPRITE(#23,120,5,106,40):: T2=23 840 IF K2=14 THEN CALL SPRITE(#24,120,5,1,119):: T2=24 850 IF K2=6 THEN CALL SPRITE(#25,120,5,1,228):: T2=25 860 IF K2=4 THEN CALL SPRITE(#26,120,5,27,30):: T2=26 870 IF K2=11 THEN CALL SPRITE(#27,120,5,60,85):: T2=27 880 IF K2=15 THEN CALL SPRITE(#28,120,5,106,119):: T2=28 890 IF K=14 THEN CALL SPRITE(#2,120,9,1,119):: T=2 900 IF K=6 THEN CALL SPRITE(#3,120,9,1,228):: T=3 910 IF K=3 THEN CALL SPRITE(#4,120,9,106,200):: T=4 920 IF K=15 THEN CALL SPRITE(#5,131,9,106,119):: T=5 930 IF K=2 THEN CALL SPRITE(#6,120,9,106,40):: T=6 940 IF K=4 THEN CALL SPRITE(#7,120,9,28,30):: T=7 950 IF K=5 THEN CALL SPRITE(#8,120,9,32,130):: T=8 960 IF K=11 THEN CALL SPRITE(#9,120,9,60,85):: T=9 970 CALL JOYST(1,X,Y):: CALL MOTION(#T,-Y,X):: CALL JOYST(2,X1,Y1):: CALL MOTION(#T2,-Y1,X1) 980 IF K2=16 THEN CALL MOTION(#13,-4,4):: CALL COLOR(#13,16)ELSE CALL COLOR(#13,5) 990 IF K=16 THEN CALL MOTION(#14,-4,4):: CALL COLOR(#14,16)ELSE CALL COLOR(#14,9) 1000 IF K<>16 THEN CALL MOTION(#14,0,0):: IF K2<>16 THEN CALL MOTION(#13,0,0) 1010 IF K2=17 THEN CALL MOTION(#13,4,-4):: CALL COLOR(#13,16)ELSE CALL COLOR(#13,5) 1020 IF K=17 THEN CALL MOTION(#14,4,-4):: CALL COLOR(#14,16)ELSE CALL COLOR(#14,9) 1030 IF K2=13 THEN CALL MOTION(#13,-4,-4):: CALL COLOR(#13,16)ELSE CALL COLOR(#13,5) 1040 IF K=13 THEN CALL MOTION(#14,-4,-4):: CALL COLOR(#14,16)ELSE CALL COLOR(#14,9) 1050 IF K2=10 THEN CALL MOTION(#13,4,4):: CALL COLOR(#13,16)ELSE CALL COLOR(#13,5) 1060 IF K=10 THEN CALL MOTION(#14,4,4):: CALL COLOR(#14,16)ELSE CALL COLOR(#14,9) 1070 CALL COINC(#13,106,199,24,H):: IF H THEN CALL SPRITE(#15,102,5,106,180):: CALL LOCATE(#13,105,180) 1080 CALL COINC(#14,106,199,25,H2):: IF H2 THEN CALL SPRITE(#15,102,9,106,180):: CALL LOCATE(#14,106,180) 1090 CALL COINC(#14,32,119,25,HH2):: IF HH2 THEN CALL LOCATE(#14,40,119):: CALL SPRITE(#16,102,9,41,119) 1100 CALL COINC(#14,106,50,28,HHH2):: IF HHH2 THEN CALL SPRITE(#17,102,9,106,58):: CALL LOCATE(#14,106,58) 1110 CALL COINC(#13,32,119,30,HH):: IF HH THEN CALL SPRITE(#16,102,5,40,119):: CALL LOCATE(#13,41,119) 1120 CALL COINC(#13,106,50,34,HHH):: IF HHH THEN CALL SPRITE(#19,102,5,106,58):: CALL LOCATE(#13,106,59) 1130 GOTO 330 1140 CALL CLEAR :: DISPLAY AT(12,16):C$;SCRO2;D$;SCRO :: DISPLAY AT(14,16):"INNING";IN :: INPUT "PRESS ENTER FOR ERRORS":A$ 1150 PRINT "ERRORS":C$;ER,D$;ER2 :: END 1160 CALL CLEAR :: DISPLAY AT(12,16):D$;SCRO,C$;SCRO2 :: DISPLAY AT(14,16):"ININNG";IN 1170 INPUT "PRESS ENTER FOR ERRORS":A$ :: PRINT "ERRORS":D$;ER2,C$;ER :: END Reveal hidden contents oh wow that was one of my games I did for ti in ti users group. I also had some games that I didn't put on ti users group like laserman which I ported to the 2600 (it was my take on the tempest but came out more like space invaders tempest combo game) 2 Quote Link to comment Share on other sites More sharing options...
Dan Iacovelli Posted April 11, 2021 Author Share Posted April 11, 2021 ok new plan: I will sort through the ti stuff and take pics of them and post them here and those who wants them let me know. I don't know if I scan what I got I will be willing to scan if possible. I'll take pics tomorrow 1 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted April 11, 2021 Share Posted April 11, 2021 So Hannibal Schmitz says: Spoiler 1 1 Quote Link to comment Share on other sites More sharing options...
pixelpedant Posted April 12, 2021 Share Posted April 12, 2021 Chicago UG newsletters which are already available digitally at some readable quality are as follows, if my list and collection is accurate. So as to what would be sought for digitisation, it is likely issues not among the below: 1985,November 1985,December 1986,January 1986,February 1986,March 1986,April 1986,May 1986,August 1986,September 1986,October 1986,November 1986,December 1987,January 1987,February 1987,March 1987,April 1987,May 1987,August 1987,September 1987,October 1987,November 1987,December 1988,January 1988,February 1988,March 1988,April 1988,May 1988,September 1988,October 1988,November 1988,December 1989,January 1989,February 1989,March 1989,April 1989,May 1989,June 1989,September 1989,October 1989,November 1989,December 1990,January 1990,March 1990,April 1990,May 1990,June 1990,October 1990,November 1990,December 1991,September 1992,April 1992,June 1992,September 1992,October 1992,November 1992,December 1993,January 1993,February 1993,March 1993,April 1993,May 1993,June 1993,September 1995,November 1996,April Quote Link to comment Share on other sites More sharing options...
Dan Iacovelli Posted April 12, 2021 Author Share Posted April 12, 2021 its not all from chicago I'll still post pics for those who might want it 1 Quote Link to comment Share on other sites More sharing options...
ti99iuc Posted April 12, 2021 Share Posted April 12, 2021 (edited) Hello Dan, many thanks for your message, really sad about the news of your brother because I love to preserve all TI99 stuff, it's happened that in some of the floppy disks that I had dumped and archived over the years, two of Nick's programs had found their way in, now they are saved and published in the database of my website, I hope it will please you. ? SUPER DISK TRANSFER and XBASIC SPEEDER/PROTECTOR Edited April 12, 2021 by ti99iuc 2 Quote Link to comment Share on other sites More sharing options...
Dan Iacovelli Posted April 12, 2021 Author Share Posted April 12, 2021 27 minutes ago, ti99iuc said: Hello Dan, many thanks for your message, really sad about the news of your brother because I love to preserve all TI99 stuff, it's happened that in some of the floppy disks that I had dumped and archived over the years, two of Nick's programs had found their way in, now they are saved and published in the database of my website, I hope it will please you. ? SUPER DISK TRANSFER and XBASIC SPEEDER/PROTECTOR I forgot he do some programs for ti besides his games he did an othello type game on ti I believe. he also did some scanning of some stuff and made some sort of catalogs of sort. I really don't recall what he did during the ti days. 2 Quote Link to comment Share on other sites More sharing options...
sparkdrummer Posted April 12, 2021 Share Posted April 12, 2021 Nick put together the Chicago hardware reprints book. It is awesome. 1 Quote Link to comment Share on other sites More sharing options...
Dan Iacovelli Posted April 12, 2021 Author Share Posted April 12, 2021 12 minutes ago, sparkdrummer said: Nick put together the Chicago hardware reprints book. It is awesome. yeah I remember that Quote Link to comment Share on other sites More sharing options...
Dan Iacovelli Posted April 12, 2021 Author Share Posted April 12, 2021 Here is what I found : Some Chicago ti users groups newsletters from the 90(I still have to sort those) newsletters from Canada and other places. but mostly found pages editor/assembler think it was part of the programing book nick was doing for the group. most of the newsletters were from the 90's at least thats what I found 4 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.