TI Treasure? - Lost & Found? - Amazing Discovery?

[Omega-TI]

In going through my Dad's old stuff today, I came across a cassette tape that could have only been made by me. I vaguely remember taking copies of programs to him on cassette, because I still did not have a P-Box like him, but the fact that I never got the tape back leads me to believe this was around 1985 when I got my own P-Box.

 

Anyway, it's a neat coincidence since I've been playing with my program recorder the past couple of weeks, so I'm already setup to see whats on it. I'm almost afraid to look, because back around 1985 my programming was kinda sloppy.

 

It's kinda neat that he kept this cassette all these decades.

 

[Omega-TI]

Okay, apparently it's lame little program written by me that was meant to be saved as DSK1.LOAD

From the looks and simplicity of it, it was just a simple menu loader for his financial and banking related programs.

 

Either this was before our knowledge of BOOT! or he needed something really small to fit on a SSSD diskette with his other programs.

 

Here's this listing, please don't laugh too hard...

 

 

 

1 CALL CLEAR :: ON BREAK NEXT

2 CALL SCREEN(2):: FOR CL=1 TO 14 :: CALL COLOR(CL,8,1):: NEXT CL

3 CALL CLEAR :: CALL CHAR(95,"0000FF"):: CALL CHAR(94,"000000000000FF"):: CALL CHAR(92,"00FFFF")

4 CALL HCHAR(1,1,95,32):: DISPLAY AT(2,2):"Disk Operations" :: DISPLAY AT(3,2):"System"

5 CALL HCHAR(4,1,94,32)

6 DISPLAY AT(5,2):"Disk Title......BUSINESS I"

7 CALL HCHAR(6,1,95,32)

8 DISPLAY AT(8,2):"1. Amortization Schedule"

9 DISPLAY AT(10,2):"2. Depreciation Schedule"

10 DISPLAY AT(12,2):"3. Mortgage Analysis"

11 DISPLAY AT(14,2):"4. Personal Banking System"

12 DISPLAY AT(16,2):"5. Individual/Article File"

13 CALL HCHAR(18,1,92,32)

14 DISPLAY AT(20,2):"Select Option" :: DISPLAY AT(21,2):"_____________"

15 CALL KEY(A,B,C):: IF C=A THEN 15

16 IF B=49 THEN 23

17 IF B=50 THEN 26

18 IF B=51 THEN 29

19 IF B=52 THEN 34

20 IF B=53 THEN 36

21 IF B<49 THEN 22 :: IF B>53 THEN 22

22 DISPLAY AT(20,2):"Invalid Option" :: FOR D=1 TO 360 :: NEXT D :: DISPLAY AT(20,2):"Select Option " :: GOTO 15

23 CALL CLEAR :: DISPLAY AT(15,2):"Loading" :: DISPLAY AT(12,2):"Amortization Schedule"

24 RUN "DSK1.ONE"

25 GOTO 25

26 CALL CLEAR :: DISPLAY AT(12,2):"Depreciation Schedule" :: DISPLAY AT(15,2):"Loading"

27 RUN "DSK1.TWO"

28 GOTO 28

29 CALL CLEAR :: DISPLAY AT(12,2):"Mortgage Analysis" :: DISPLAY AT(15,2):"Loading"

30 RUN "DSK1.THREE"

31 GOTO 31

32 CALL CLEAR :: DISPLAY AT(12,2):"Personal Banking System" :: DISPLAY AT(15,2):"Loading"

33 RUN "DSK1.FOUR"

34 CALL CLEAR :: DISPLAY AT(2,2):"Access Coding" :: DISPLAY AT(3,16):"_______" :: ACCEPT AT(2,16)SIZE(7):PW$

35 IF PW$<>"password" THEN 1

36 CALL CLEAR :: DISPLAY AT(12,2):"Individual/Article File" :: DISPLAY AT(15,2):"Loading"

37 RUN "DSK1.FIVE"

38 GOTO 38

 

 

 

[Opry99er]

Shame you don't have the other programs that accompany the loader.

[Omega-TI]

Shame you don't have the other programs that accompany the loader.

 

No kidding! So many USEFUL things were lost when we Dad and I both got out of the TI.

 

I've often thought that a thread for USEFUL old Extended BASIC programs like those would be cool. Sadly I don't have the time right now to find programs or maintain such a thread.