Jump to content

sparkdrummer

Members
  • Content Count

    1,350
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by sparkdrummer

  1. This dsk has quite a few phreakin' programs and text files SMRT_UTILS.DSK
  2. Tried to upload October 2019 calendar - numerous upload fails?
  3. Do any of these help? SUPERSEDIT.DSK SUPERSPACE.DSK SUPERSPAII.DSK
  4. I’m pretty certain there isn’t any info for the Databiotics cart but there may be info for TI-Artist in the manual. I’ll take a look and see.
  5. I see there has been a few downloads of my cheesy artwork. Has anyone tried putting together a conversion program? I’d still like to knock out a single page flyer using this clunky cartridge. Just askin’
  6. Here is CASSETTE TAPE LABELER put out by Asgard back in the day. Makes a decent J-card for cassettes. SSSD.dsk CASS_POWER.pdf
  7. 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
  8. I think the product he put out was FAR superior to any Ti module producers, including TI. He is a step above.
  9. YN_04_09.pdf CAT_04_09.pdf YN_04_091.dsk YN_04_092.dsk YN_04_093.dsk
  10. I bought this rack at a Goodwill many moons ago. I believe it was originally for cd's. Pretty handy and holds quite a few carts.
  11. Omega That wouldn’t do me any good. I need a conversion program that would take instance files and convert them to the screwy DTP format. Funny thing is the guy that wrote TI Artist also wrote DTP.
  12. Is there anyone on the forum that might be able to cobble together a conversion program to convert TI Artist Instance files to the Desktop Publisher format and DTP files to Artist Instances? I've owned this cart for a long time and never really used it much because there was no way to pull art from other formats. I thought it would be neat to maybe do a weekly one or two page newsletter using DTP. Attached is a dsk with some cheesy artwork I've done with DTP. DTP.dsk
  13. September 2019 calendar Sep19.pdf
  14. Hey, that page finally got some notice. Sweet!
  15. He wrote BOA ALLEY - console basic game that appeared in 99'er. Probably one of my all time favorite CB games.
  16. Here is a disk by STARSOFT - Tarik Isani Autoload from XB - docs are on disk. NIBBLER V1.2 DISK EDITOR V1.0 (EXPLORER) DISASSEMBLER V1.0 MICROKEY V1.1 UNPROTECTOR V1.0 Also on this disk: EXPLORER - E/A OPT 5 NIBBLER_EA - V2.0 - E/A OPT 5 TE-PLUS_EA - E/A OPT 5 TIWLOADER - E/A OPT 5 starsoft.dsk
  17. Here is the game Bomb Squad I'm still looking for PSYBORG by TImagination. SSSD.dsk
  18. That little girl rocks! Definitely has a Bonham foot! Classic rock is the best!
  19. YN_04_06.pdf CAT_04_06.pdf YN_04_06.DSK Please note, there is a "broken" version of Advanced Diagnostics on this DOM. Some things work, some things don't.
×
×
  • Create New...