Yesterdays News

[Airshack]

On 7/1/2016 at 10:44 AM, sparkdrummer said:

If my present state of production keeps up who knows

Too much of a good thing ain’t good. 

[sparkdrummer]

September 2019 calendar

Sep19.pdf

[sparkdrummer]

YN_04_09.pdf CAT_04_09.pdf YN_04_091.dsk YN_04_092.dsk YN_04_093.dsk

[Omega-TI]

In yesterday's News on page 7 there is a partial program listed from the July 1993 Micropendium.  Does anyone here that program?  If so, could you please upload it?

Grazie,  Gracias, Vielen Dank, 감사, 謝謝, Спасибо,.

[sparkdrummer]

100 ! MILEAGE
110 ! IN TI EXTENDED BASIC
120 ! BY R.W. AUGUST
130 CALL CLEAR :: N=0
140 DIM D$(100),D(100),G(100),M(100)
150 DISPLAY AT(2,5)ERASE ALL:"<< M I L E A G E >>"
160 DISPLAY AT(6,2):"COMAND LIST":" ------------"
170 DISPLAY AT(9,2):"1) ENTER DATA FROM KEYBOARD": :TAB(2);"2) DISPLAY MILEAGE DATA": :TAB(2);"3) PRINT MILEAGE DATA"
180 DISPLAY AT(15,2):"4) READ DATA FROM DISK": :TAB(2);"5) WRITE DATA TO DISK": :TAB(2);"6) END PROGRAM"
190 DISPLAY AT(22,5):"YOUR CHOICE [1 - 6]"
200 CALL KEY(0,K,S) :: IF S=0 THEN 200 :: IF K<49 OR K>54 THEN 200
210 CALL CLEAR :: ON K-48 GOSUB 1000,2000,3000,4000,5000,6000
220 GOTO 150
1000 ! ENTER FROM KEYBOARD
1010 DISPLAY AT(2,3):"<< DATA ENTRY SECTION >>"
1020 N=N+1 :: DISPLAY AT(5,1):"ENTER END FOR MAIN MENU"
1030 DISPLAY AT(8,1):"DATA:": : :"ODOMETER READING:": : :"NO. GALLONS BOUGHT:"
1040 ACCEPT AT(9,1)SIZE(8):D$(N) :: IF D$(N)="END" OR D$(N)="end" THEN N=N-1 :: RETURN
1050 ACCEPT AT(12,1)SIZE(7):D(N) :: ACCEPT AT(15,1)SIZE(4):G(N)
1060 DISPLAY AT(12,1):" " :: DISPLAY AT(15,1):" " :: GOTO 1020
2000 !DISPLAY DATA TO SCREEN
2010 DISPLAY AT(2,2):"<< DISPLAY DATA SECTION >>": :"DATE";TAB(10);"ODOMETER";TAB(19);"GALS";TAB(25);"MPG"
2020 DISPLAY AT(5,1):"-------- -------- ---- -----" :: M(1)=0
2030 FOR J=2 TO N :: IF G(J)>0 THEN M(J)=(D(J)-D(J-1))/G(J)ELSE M(J)=0
2040 IF M(J)<0 THEN M(J)=0
2050 NEXT J
2060 K=-16 :: L=0
2070 K=K+17 :: L=L+17 :: IF K>N THEN L=N
2080 FOR J=K TO L :: DISPLAY AT(5+J,1):D$(J) :: DISPLAY AT(5+J,11):USING "#####.#":D(J)
2090 DISPLAY AT(5+J,19):USING "##.#":G(J) :: DISPLAY AT(5+J,24):USING "##.##":M(J) :: NEXT J
2100 IF L<N THEN 2120
2110 DISPLAY AT(24,1):"PRESS ANY KEY FOR MAIN MENU" :: GOSUB 2130 :: RETURN
2120 DISPLAY AT(24,1):"PRESS ANY KEY TO CONTINUE" :: GOSUB 2130 :: GOTO 2070
2130 CALL KEY(0,K,S) :: IF S=0 THEN 2130 :: RETURN
3000 ! SEND DATA TO PRINTER
3010 DISPLAY AT(2,3):"<< PRINT DATA SECTION >>" :: M(1)=0
3020 FOR J=2 TO N :: IF G(J)>0 THEN M(J)=(D(J)-D(J-1))/G(J)ELSE M(J)=0
3030 IF M(J)<0 THEN M(J)=0
3040 NEXT J
3050 DISPLAY AT(12,8):"PRINTING DATA" :: OPEN #2:"PIO",OUTPUT
3060 PRINT #2:"DATE";TAB(12);"ODOMETER";TAB(23);"GALLONS";TAB(33);"MPG"
3070 PRINT #2:"-------- --  ------ ------- -----"
3080 FOR J=1 TO N
3090 PRINT #2:D$(J);TAB(13);
3100 PRINT #2,USING "#####.#":D(J);
3110 PRINT #2:TAB(24);
3120 PRINT #2,USING "##.#":G(J)
3130 PRINT #2:TAB(32);
3140 PRINT #2,USING "##.##":M(J)
3150 NEXT J
3160 DISPLAY AT(16,9):"DATA PRINTED" :: FOR I=1 TO 200 :: NEXT I
3170 CLOSE #2 :: RETURN
4000 ! LOAD DATA FROM DISK
4010 DISPLAY AT(2,3):"<< READ DATA SECTION >>" :: N=0
4020 DISPLAY AT(12,4):"READING DATA FROM DISK"
4030 OPEN #1:"DSK1.MDATA",INPUT :: INPUT #1:N
4040 FOR I=1 TO N :: INPUT #1:D$(I),D(I),G(I) :: NEXT I
4050 CLOSE #1 :: DISPLAY AT(16,9):"DATA LOADED" :: FOR I=1 TO 200 :: NEXT I
4060 RETURN
5000 ! WRITE DATA TO DISK
5010 DISPLAY AT(2,3):"<< SAVE DATA SECTION >>"
5020 DISPLAY AT(12,9):"SAVING DATA"
5030 OPEN #1:"DSK1.MDATA",OUTPUT :: PRINT #1:N
5040 FOR I=1 TO N :: PRINT #1:D$(I):D(I):G(I) :: NEXT I
5050 CLOSE #1 :: DISPLAY AT(16,10):"DATA SAVED" :: FOR I=1 TO 200 :: NEXT I
5060 RETURN
6000 ! END PROGRAM
6010 DISPLAY AT(12,3):"HAVE YOU SAVED YOUR DATA": :TAB(10):"Yes or No"
6020 CALL KEY(0,K,S) :: IF S=0 THEN 6020 :: IF K=78 OR K=110 THEN 150
6030 IF K<>89 AND K<>121 THEN 6020 ELSE CALL CLEAR :: END
 

[Airshack]

Thanks Sparky! I enjoyed reading this on my flight from Nashville to Philly today.

 

[twoodland]

Thank you sparkdrummer.  Excellent as always!

[sparkdrummer]

Tried to upload October 2019 calendar - numerous upload fails? 

[sparkdrummer]

October 2019 calendar

Oct19.pdf

[sparkdrummer]

YN_04_10.pdf

[sparkdrummer]

November 2019 calendar

NOV19.pdf

[Omega-TI]

... MAN THAT REALLY SUX!  There is no storage device on that TI!  I can imagine typing in a long program from a magazine, spending hours debugging it only to have it all go.... poof!

 

[Airshack]

On 10/1/2019 at 3:57 AM, sparkdrummer said:

YN_04_10.pdf 635.31 kB · 24 downloads

Ralph - Thank you for giving us this superb issue with lots of history on the TI-99/4. My favorite issue so far! Keep it up Sparkster. 

 

Ever wondered about the origins and demise of the TI-99/4? Download this issue.

[Airshack]

It would be cool to listen to an audio panel version of this newsletter. Maybe a round table type deal where TI AtariAgers get together to talk about these past stories and then branch off into the current TI scene. Wondering aloud if anyone here would be interested in trying to create such a program? 

 

Not trying to hijack the thread but Yesterday’s News seems the perfect conversation starter for some sort of TI podcast. 

 

Also noting we’re probably the last active retro community without a dedicated podcast.

 

 

[Omega-TI]

VAST could do a roundtable online.  There are multiple programs that allow people to see and speak online.  A frame grabber program << like this one >> could record the entire session (video too) for inclusion into a podcast or a YouTube video.

[sparkdrummer]

YN_04_11.pdf 4AFLYER.pdf BHXP1.pdf DOW 4 GAZELLE.pdf Winging It.pdf YN_04_11.DSK

[Opry99er]

Downloading tonight.   

 

Thanks for continuing to do this newsletter, brother.  We are all very lucky to have this content.   

[sparkdrummer]

No problem Owen. 
as I’ve said before, the pleasure is all mine. If readers like it great, if not, hey, didn’t cost nuthin. 

[wolhess]

I like this...?

 

 

Thank you for putting together the information and the various flight simulators for our small TI home computer.

 

 

[+Schmitzi]

Hi Ralph,

some months ago that I had the time to view your great work. But now finally downloaded all the missing ones.... ?

(you can see that from my Likes, that´s my indicator what I have and what I miss)

Many many things to read now, thanks for that massive work !

Ralf (me) ?

 

[sparkdrummer]

December 2019 calendar

 

DEC19.pdf

[+jedimatt42]

On 11/16/2019 at 2:58 AM, sparkdrummer said:

December 2019 calendar

 

DEC19.pdf 33.42 kB · 8 downloads

 

That is hilarious!!!

 

-M@ 

[sparkdrummer]

I thought so too. That is an actual ad of a product that was offered for sale. 

[+Ksarul]

I think I even remember seeing the ad at least once, BITD. 

[Omega-TI]

I'm holding on to my painsticks.  I strongly suspect that within the next couple of years, people will be tearing theirs apart to use the cord for a new two button joystick design that 'may' have a couple of extra options as well. ?