Jump to content
Have You Played Atari Today?
2600|5200|7800|Lynx|Jaguar|Forums|Store
Warnings about File Attachments - Please Read!
IGNORED

Ti-users groups newsletters and manuals

Dan Iacovelli

By Dan Iacovelli
in TI-99/4A Computers

 Share

Recommended Posts

Dan Iacovelli Quadrunner

Dan Iacovelli

Posted
Posted

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
 

  • Like 3
Link to comment
Share on other sites
Schmitzi Quadrunner

+Schmitzi

Posted
Posted

oh yes nice , I found the   All Star Championship Baseball  on  CUG071   :)

 

Spoiler

grafik.thumb.png.317fc5b83ee7762189b3cae1a809f01f.png

 

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

 

 

 

 

 

 

  • Like 2
Link to comment
Share on other sites
Dan Iacovelli Quadrunner

Dan Iacovelli

Posted
  • Author
Posted
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

grafik.thumb.png.317fc5b83ee7762189b3cae1a809f01f.png

 

 

 

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)

  • Like 2
Link to comment
Share on other sites
pixelpedant Stargunner

pixelpedant

Posted
Posted

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

 

 

Link to comment
Share on other sites
ti99iuc River Patroller

ti99iuc

Posted
Posted (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. ?

Iacovelliprgs.thumb.png.5fa4243c8b6ad3c69c01d8b2e63590f0.png

 

SUPER DISK TRANSFER  and XBASIC SPEEDER/PROTECTOR

 

Edited by ti99iuc
  • Like 2
Link to comment
Share on other sites
Dan Iacovelli Quadrunner

Dan Iacovelli

Posted
  • Author
Posted
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. ?

Iacovelliprgs.thumb.png.5fa4243c8b6ad3c69c01d8b2e63590f0.png

 

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.

  • Like 2
Link to comment
Share on other sites
Dan Iacovelli Quadrunner

Dan Iacovelli

Posted
  • Author
Posted

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

  • Like 4
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...
×
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
AtariAge
Forums
Store
General
Follow AtariAge

Copyright ©1998-2023 AtariAge

×
×
  • Create New...