Jump to content
gpaJeb

wanted CSI*FINDEX

Recommended Posts

I wrote this program in 82 or 83. It was reviewed in Several UG newsletters. All my TI/PEB were stolen and I'm back to a cassette. so if any one  has a copy could you shoot me a copy? or a copy of the review with the program listing.

  • Like 1

Share this post


Link to post
Share on other sites

Hi, don´t know if this is the latest version...

(I removed the realname and the address, hope this is wanted)

 

 

50 REM  CS1*FINDEX
60 REM  TI BASIC
65 REM  FAIRWARE. If you like this program please send a donation to .... at the address below.
80 REM  16....
100 REM  PA.... 
110 REM  ....
112 REM  Originally written 1983, revised 1985
115 REM  Minor modifications by Charles Good, DEC 88.
117 REM  Remove line 190, andall REM lines including 1765 to fit into MINIMEMORY
120 CALL CLEAR
130 _$="____________"
140 C$="CATALOG"
150 LC$="LOCATION SEARCH"
160 DEF LF=LEN(F$)
170 T=1000
180 DIM PG$(19)
190 DISPLAY TAB(6);"CASSETTE FINDEX": :TAB(6);"Joseph E Bartle": : : : : : : : : :
200 GOSUB 1900
210 CALL CLEAR
220 PRINT LC$&" Y/N"
230 INPUT AN$
240 IF AN$="Y" THEN 1500
250 DISPLAY
260 PRINT "DOES TAPE HAVE ";C$
270 INPUT AN$
280 IF AN$<>"Y" THEN 470
290 GOSUB 1320
300 GOSUB 740
310 CALL CLEAR
320 RESTORE 1930
330 MI=18
340 GOSUB 1840
350 CALL KEY(0,OP,S)
360 IF(OP<49)+(OP>53)THEN 350 ELSE 390
370 IF S=0 THEN 350
380 T=1000
390 ON OP-48 GOTO 400,470,620,680,710
400 CALL CLEAR
410 DISPLAY TAB(8);LC$: : : : : : : : : :
420 GOSUB 1900
430 GOSUB 830
440 GOSUB 1790
450 IF C=0 THEN 310
460 GOSUB 1520
470 CALL CLEAR
480 DISPLAY TAB(8);"NEW "&C$: : : : : : : : :
490 FOR @=1 TO 20
500 F$=F$&_$
510 NEXT @
520 FF$=F$
530 GOSUB 740
540 GOSUB 1900
550 OP=50
560 GOSUB 1360
570 GOSUB 830
580 GOSUB 1090
590 GOSUB 800
600 GOSUB 1260
610 GOTO 310
620 CALL CLEAR
630 DISPLAY TAB(8);"CHANGE "&C$: : : : : : : : : :
640 GOSUB 1900
650 GOSUB 830
660 GOSUB 1090
670 GOSUB 1360
680 GOSUB 800
690 GOSUB 1260
700 GOTO 310
710 CALL CLEAR
720 DISPLAY "@1983,@1984,@1985"
730 STOP
740 CALL CLEAR
750 FOR I=0 TO 19
760 PG$(I)=SEG$(F$,I*12+1,12)
770 IF(SEG$(PG$(I),1,1)=" ")+(SEG$(PG$(I),1,1)="")THEN 790
780 NEXT I
790 RETURN
800 INPUT "PRINTOUT? 1=Y/0=N":IO
810 IF IO=0 THEN 830
820 OPEN #IO:"PIO"
830 CALL CLEAR
840 PRINT #IO:TAB(9);C$:TAB(4);"NUM ";TAB(12);"PROGRAMS"
850 FOR I=0 TO 19
860 IF I>09 THEN 920
870 IF I>08 THEN 900
880 PRINT #IO:TAB(5);I+1;"~ ";PG$(I)
890 GOTO 930
900 PRINT #IO:TAB(4);I+1;"~ ";PG$(I):TAB(12);"REMARKS!"
910 GOTO 930
920 PRINT #IO:TAB(4);I+1;"R ";PG$(I)
930 NEXT I
950 IF IO=0 THEN 980
960 CLOSE #IO
970 IO=0
980 RETURN
990 CALL CLEAR
1000 DISPLAY:" TO END CATALOG PRESS ENTER.": :" PROGRAM NAME ~LIMIT 12 CHR~"
1010 DISPLAY:"OLD NAME/REM#";I+1;PG$(I): :
1020 INPUT "               ************                ":N$
1030 IF LEN(N$)>12 THEN 1040 ELSE 1070
1040 CALL CLEAR
1050 DISPLAY "REDO !"
1060 GOTO 1020
1070 FS$=N$&SEG$(_$,1,12-LEN(N$))
1080 RETURN
1090 INPUT "CHANGE? Y/N ":CH$
1100 IF CH$<>"Y" THEN 1250
1105 OP=51
1110 DISPLAY
1120 INPUT "NUMBER OF REMARK            0 FOR NONE ":I
1130 IF(I>10)*(I<21)THEN 1190 ELSE 1150
1140 DISPLAY
1150 INPUT "NUMBER OF PROGRAM           0 TO QUIT ":I
1160 IF I=0 THEN 1250
1180 IF I>20 THEN 1250
1190 I=I-1
1200 GOSUB 990
1210 PG$(I)=FS$
1220 DISPLAY
1230 INPUT "MORE Y/N ":CH$
1240 IF CH$="Y" THEN 1120
1245 GOSUB 1360
1250 RETURN
1260 INPUT "SAVE Y/N ":AN$
1270 IF AN$<>"Y" THEN 310
1280 OPEN #4:"CS1",INTERNAL,OUTPUT,FIXED 192
1290 PRINT #4:G$
1292 PRINT #4:H$
1300 CLOSE #4
1310 RETURN
1320 OPEN #3:"CS1",INTERNAL,INPUT,FIXED 192
1330 INPUT #3:G$
1332 INPUT #3:H$
1334 F$=G$&H$
1340 CLOSE #3
1350 RETURN
1360 F$=""
1370 FOR I=0 TO 19
1380 IF OP<>50 THEN 1420
1390 GOSUB 990
1400 PG$(I)=FS$
1410 IF SEG$(PG$(I),2,1)="_" THEN 1480
1420 F$=F$&PG$(I)
1430 IF(L$="N")+(OP=50)+(OP=51)THEN 1460
1440 I=I+1
1450 IF I>19 THEN 660
1460 IF(L$="Y")+(OP=52)THEN 1480
1470 NEXT I
1480 F$=F$&SEG$(FF$,LF+1,240-LF)
1482 G$=SEG$(F$,1,180)
1484 H$=SEG$(F$,181,180)
1490 RETURN
1500 INPUT "LOCATION 1-10 ":M
1510 M=M-1
1520 CALL CLEAR
1530 FOR CC=2 TO 7
1540 CALL COLOR(CC,1,1)
1550 NEXT CC
1560 CALL SCREEN(2)
1570 RESTORE 1980
1580 MI=20
1590 GOSUB 1840
1600 CALL SCREEN(15)
1610 CALL KEY(0,KE,ST)
1615 IF ST=0 THEN 1610
1620 CALL HCHAR(18,1,31,192)
1624 CALL SCREEN(13)
1630 OPEN #2:"CS1",DISPLAY,OUTPUT,FIXED 192
1650 FOR I=0 TO M
1660 IF I<>M THEN 1680
1670 CALL SCREEN(11)
1680 PRINT #2:I
1690 NEXT I
1700 CALL SCREEN(9)
1710 CLOSE #2
1720 CALL CLEAR
1730 FOR CC=2 TO 7
1740 CALL COLOR(CC,2,1)
1750 NEXT CC
1760 DISPLAY "PGM. LOCATED": : :PG$(I-1): : :"DO NOT REWIND !": : :"ENTER OLD OR SAVE CS1": : :"CON TO CONTINUE": : : :
1765 REM  Change 1770 to RUN "CS1" for extended basic autoload
1770 BREAK
1780 GOTO 310
1790 INPUT "NUM 1-10 OR "0" TO EXIT ":C
1810 IF(C<0)+(C>13)THEN 1800
1820 M=C-1
1830 RETURN
1840 CALL CLEAR
1850 FOR R=1 TO MI
1860 READ A$
1870 DISPLAY TAB(3);A$
1880 NEXT R
1890 RETURN
1900 CALL SOUND(T,111,30)
1910 CALL SOUND(1,111,30)
1920 RETURN
1930 DATA ************************,*                      *,*     OPTION  LIST     *,*                      *
1940 DATA ************************,*                      *,*     1. SEARCH        *,*     2. NEW           *
1950 DATA *     3. CHANGE        *,*     4. PRINT         *,*     5. DONE          *
1960 DATA *                      *,*                      *,"*  ENTER 1,2,3,4 OR 5  *",*                      *
1970 DATA ************************,,
1980 DATA,first beep rewind tape,!then push enter!,,,second beep push fast fwd,!then enter!,,
1990 DATA third beep push stop,!then enter!,,,,,,,,,press any key to continue.

 

Edited by Schmitzi

Share this post


Link to post
Share on other sites

Menu "Utilities" -> "Search"; I chose "FINDEX" as search text, looking for file names, search path is my complete DSK/HD collection, include subdirectories, and then ... let it search. Took a few seconds.

 

(I am sometimes surprised that some functions turn out to be more useful than originally planned. ;) )

  • Like 1
  • Thanks 1

Share this post


Link to post
Share on other sites

Thank you all for helping me. I am slowly trying to rebuild my system, again thanks!

I attached a picture of my system about 1987.

myti3.jpg

  • Like 8

Share this post


Link to post
Share on other sites
1 hour ago, gpaJeb said:

Thank you all for helping me. I am slowly trying to rebuild my system, again thanks!

I attached a picture of my system about 1987.

myti3.jpg

Still have the GK?

Share this post


Link to post
Share on other sites

I wish !  It was also stolen. I got a MX01 for a PEB a friend is lending me.

Got the programs  in DSK  for the PC,I don't know how to get them back

into TI 5 1/4 Disks.

Share this post


Link to post
Share on other sites

Hey mizapf, thanks for the DSK file!!!  It is the same disk I released to my user group back in 85.

I was president of the group, boy I miss them. myti1.thumb.jpg.6d7dc20d939c253fb9852b40aeb1c7f0.jpg

  • Like 8

Share this post


Link to post
Share on other sites

where are you located?  lots of people moving hardware around in the world maybe someone close has some things you need?  

 

you can build a similar setup with a finalgrom99, 32k, tipi and a console these days..  I have all those at arcadeshopper.com 

 

Greg

Share this post


Link to post
Share on other sites

Yep it's stick on clock. Kids gave it to me for Christmas.

 

---------------------------------------------------------

 

Greg, yes like to know more. I've been to store and all I

seen was exb 2.7 (which I want too) but Tipi sounds very

appealing. Tell me more. I still live at Parish, NY. Been here

since 1972

Share this post


Link to post
Share on other sites
3 hours ago, gpaJeb said:

Yep it's stick on clock. Kids gave it to me for Christmas.

 

---------------------------------------------------------

 

Greg, yes like to know more. I've been to store and all I

seen was exb 2.7 (which I want too) but Tipi sounds very

appealing. Tell me more. I still live at Parish, NY. Been here

since 1972

 

ahh k well maybe someone nearby will be getting rid of some hardware soon ;)

 

I wrote up a big thing on TIPI here:  https://www.arcadeshopper.com/wp/?p=297

 

Let me know if you have any questions :) 

Greg

Share this post


Link to post
Share on other sites

I will want the TIPI PEB card. will start reading about it more.

I would go to side car but with the gramfinal being 75 32k 50

exb 2.7 50  Money is scarce so got to get a little at a time.

I think the TIPI card might be the way to go. Just have got

to make sure my MX01 Rave memory card works. It is fully

loaded. 512 k. Need price to decide how to proceed.

Share this post


Link to post
Share on other sites
14 hours ago, gpaJeb said:

I will want the TIPI PEB card. will start reading about it more.

I would go to side car but with the gramfinal being 75 32k 50

exb 2.7 50  Money is scarce so got to get a little at a time.

I think the TIPI card might be the way to go. Just have got

to make sure my MX01 Rave memory card works. It is fully

loaded. 512 k. Need price to decide how to proceed.

they are 95ea.. plus shipping I just sold out of stock so will have some more around the first of the year likely

 

Greg

Share this post


Link to post
Share on other sites

Greg,  Does the TIPI peb card come ready to use?

I have not done any Kit building in years,

eyes are not that good.

 

I have been thinking maybe the 32 side car and TIPI

would be nice  except no printer port. or does the TIPI

provide that?

Share this post


Link to post
Share on other sites
8 hours ago, gpaJeb said:

Greg,  Does the TIPI peb card come ready to use?

I have not done any Kit building in years,

eyes are not that good.

 

I have been thinking maybe the 32 side car and TIPI

would be nice  except no printer port. or does the TIPI

provide that?

yessir! They are sold ready to go. It is surface mount tech so I leave that to people with better eyes and more patience... you just need a raspberry pi to use with it.. and a SD card to use for the PI's hard disk. I sell all the bits if you need them.. 

 

TIPI uses a raspberry pi that supports many printers.. even networked ones..  however there's no easy way to print from the TI (yet) though it's pretty easy to telnet to the pi from the TI and print a text file.. https://www.systutorials.com/241214/how-to-print-a-plain-text-file-to-printers-from-a-terminal-in-linux/

 

Greg

Share this post


Link to post
Share on other sites

In theory:

 

Printer ports and serial output devices are treated like any other file-like-device by linux, meaning you can write directly into one, and it goes out the port.  This means that if you set up named pipes to handle the transactions, and have some kind of DSR on the TI side to route the messages over that named pipe, you could print anything on anything.

 

In practice:

 

To my knowledge, while the framework exists in the TIPI and the PI, nobody has made such a DSR.

 

 

Similar story for routing midi messages over TCP for the Pi to render.  (The Pi could handle any number of external midi devices, which could be addressed logically from the TI.)

Edited by wierd_w

Share this post


Link to post
Share on other sites

Greg,

I've got a lot to do!

1. check Peb power supply.

2. clean box.

3. find a spindle belt for my  Qume Trak 542 floppy drive.

4. install RAVE MX01 memory card.

          need software on TI FD

could you transfer it from Pc .DSK to TI floppy for me?

5. Look around house for my Cor Comp RS-232 card.

6. Then get ready to buy TIPI card if I get box working!

 

Mean while learn about TIPI and how it works. Right now I'm

a user not doer, so a lot seems confusing. 

 

 

Share this post


Link to post
Share on other sites

Greg, I see that you have a cassette titled  "CSI*FINDEX UTLITIES"

Is that my CSI*FINDEX program?  If so, I'm honored. I'm going to get

it if it is! Hope you sell a lot of them. My UG liked when I wrote it in

1983/85. I still live at the address listed in the software.

 

Share this post


Link to post
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.

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...

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...