gpaJeb Posted December 3, 2019 Share Posted December 3, 2019 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. 1 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 3, 2019 Share Posted December 3, 2019 (edited) 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 December 3, 2019 by Schmitzi 1 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 3, 2019 Share Posted December 3, 2019 and a complete .DSK with DOCs and more: CS1 Findex.dsk 1 Quote Link to comment Share on other sites More sharing options...
+mizapf Posted December 3, 2019 Share Posted December 3, 2019 Here it is (found by the Search function of TIMT). bcs015.dsk Quote Link to comment Share on other sites More sharing options...
+mizapf Posted December 3, 2019 Share Posted December 3, 2019 (synchronous postings... ) 1 Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 3, 2019 Share Posted December 3, 2019 Erster ! ? Quote Link to comment Share on other sites More sharing options...
+Schmitzi Posted December 3, 2019 Share Posted December 3, 2019 Wasnda für ´ne Suchdingsbums drin ???? Quote Link to comment Share on other sites More sharing options...
+mizapf Posted December 4, 2019 Share Posted December 4, 2019 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. ) 1 1 Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 4, 2019 Author Share Posted December 4, 2019 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. 8 Quote Link to comment Share on other sites More sharing options...
+FALCOR4 Posted December 4, 2019 Share Posted December 4, 2019 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. Still have the GK? Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 5, 2019 Author Share Posted December 5, 2019 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. Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 5, 2019 Author Share Posted December 5, 2019 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. 8 Quote Link to comment Share on other sites More sharing options...
Omega-TI Posted December 5, 2019 Share Posted December 5, 2019 18 hours ago, gpaJeb said: What that a stick on clock or something else? Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted December 5, 2019 Share Posted December 5, 2019 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 Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 5, 2019 Author Share Posted December 5, 2019 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 Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted December 6, 2019 Share Posted December 6, 2019 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 Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 6, 2019 Author Share Posted December 6, 2019 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. Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted December 6, 2019 Share Posted December 6, 2019 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 Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 6, 2019 Author Share Posted December 6, 2019 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? Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted December 7, 2019 Share Posted December 7, 2019 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 Quote Link to comment Share on other sites More sharing options...
wierd_w Posted December 7, 2019 Share Posted December 7, 2019 (edited) 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 December 7, 2019 by wierd_w Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 7, 2019 Author Share Posted December 7, 2019 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. Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 13, 2019 Author Share Posted December 13, 2019 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. 1 Quote Link to comment Share on other sites More sharing options...
+arcadeshopper Posted December 19, 2019 Share Posted December 19, 2019 I'll have to check when i get home.. the cassettes were made by another member here edit- based on this I'm going to say yes: Quote Link to comment Share on other sites More sharing options...
gpaJeb Posted December 19, 2019 Author Share Posted December 19, 2019 Just to let you know, I ordered it from you. 1 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.