Sinphaltimus

Cool, thanks. I wasn't aware padding was necessary. Took me a bit to figure out what was going on. Also, another thing that maybe importing as map might do better. The character sets. Seems I can only import an image that is exactly one character set wide (8 characters) . Perhaps th map image allows for wider graphics to be imported. Not sure. i'll check that out now. I've searched around and don't see any comprehensive documentation for Magellan, like a complete user guide. Is there one? I understand if not, but I did search around which is why I posted here about the padding thing I noticed.

I maybe doing something wrong but I can't figure out how to change it. The usable character set for basic starts at 32. but when import a ng file, Magellan seems to start at 0. So the top of my images get cut off. I end up having to padd my png files by 32 pixels on top i order to force the rest of my wanted image to start at Char Code 32 instead of 0. Is there a way to force Magellan to start at 32?

^^^^^^^^^^^ THIS! THIS! THIS! Thank you for mentioning this blackbox! The back and forth with my typos and lack of sleep lately sent me back to your original reply. After reading the documentation on the DUMP disk... I copied DUMP disk to my DSK2 (3.5" floppy), Loaded Mini-Memory from my final grom 99 (I do have the actual cart but would rather save the wear and tear on the cart port), loaded the attached code from USB gotek (DSK1) and achieve SUCCESS! Thank you blackbox! To spite never getting the slower code to work right for various reasons, using the DUMP program was super fast! JRBD13013a.txt

I'm just not having any luck with this at all. I'm posting from my cell phone right now because that's where I have the pictures. I'll edit from my desk top shortly the revised code. The printer test sends to have gone well. But my graphic keeps throwing errors ate each edit. See attached photos. If is the test result. The other is a new error. EDIT: Code added. JRBD13013.txt

Continuing this conversation here so as to return this thread to its original intent:

Black Box - Still a no go. I was very tired last night so I'm going to attach the code so far. What ended up happening is the printer made some noises (adjusting the feeder back and forth) in short bursts with long delays without actually printing anything until I got an error. The error was about line 1650 - I think it said "Can't do that line 1650" I will go back and review the conversation we had above to make sure I don't have anymore issues with the way I copied your code but that will have to wait until later tonight after work. I also need to understand Call Link and how to use the DUMP program currently on its own DSK. It does come with documentation but I haven't read it in detail. JRBD13013.txt- The program so far. a4BoBPEBv3.dsk - The DSK containing said program. archive034.dsk - the DUMP program I think was mentioned earlier. I have not yet tried this method. a4BoB99PEBV3.DSK archive034.dsk

I unintentionally hijacked another thread (https://atariage.com/forums/topic/225460-printers-on-the-classic-ti-994a/) and thought I'd start a topic of its own to continue. I'll continue as the first comment. Here is a history of the thread so far: Sinphaltimus River Patroller 2,936 posts Distracted at the Keyboard Location:Poconos, PA Report post #17 Posted Sunday at 12:10 PM From 2015 to 2021. Just got a PHP2500 connected. Can print text from TI-Writer. I've been reading around and haven't found a way yet so I thought I'd ask others who own printers. Is there a way to print TI-BASIC graphics displayed on the screen? I have an image converted to BASIC via Magellan. I'd like to be able to print that image. Can it be done? Quote Edit ~Sinphaltimus Exmortus blackbox Dragonstomper 552 posts Location:England Report post #18 Posted Sunday at 05:16 PM (edited) FIRST- The BASIC way- requires TI Basic with Mini Memory OR Extended Basic, plus a suitable printer (eg that uses the Epson printer code ESC K ) NOTE: Using square brackets (that is a [ and ])in a variable name is legal! Insert this code into your program as required- the screen will be printed when you get to this code. You could put it into a GOSUB. The routine reads the screen and prints it- rather slowly. 100 OPEN #1:"PIO.CRLF" 110 REM OR EQUIVALENT RS232 FILE NAME 120 PRINT #1:CHR$(27);"A";CH R$(8) 130 FOR [A=1 TO 32 140 PRINT #1:CHR$(27);"K";CH R$(192);CHR$(0) 150 FOR [B=24 TO 1 STEP -1 160 CALL GCHAR([B,[A,[CHAR) 170 IF [CHAR<33 THEN 300 180 CALL CHARPAT([CHAR,DEF$) 190 IF DEF$="000000000000000 0" THEN 300 200 FOR [SEG=16 TO 2 STEP -2 210 [HEX=ASC(SEG$(DEF$,[SEG,1)) 220 GOSUB 430 230 [PRINTDEF=[HEX 240 [HEX=ASC(SEG$(DEF$,[SEG-1,1)) 250 GOSUB 430 260 [PRINTDEF=[PRINTDEF+[HEX*16 270 PRINT #1:CHR$([PRINTDEF); 280 NEXT [SEG 290 GOTO 340 300 FOR []=1 TO 7 310 PRINT #1:CHR$(0); 320 NEXT [] 330 PRINT #1:CHR$(0) 340 NEXT [B 350 PRINT #1:CHR$(13);CHR$(10) 360 NEXT [A 370 PRINT #1:CHR$(27);"@" 380 PRINT #1:CHR$(7) 390 CLOSE #1 400 REM NOW GO WHERE YOU WISH 410 REM USING RETURN OR GO TO AS APPROPRIATE 420 STOP 430 [HEX=[HEX-48+([HEX>64)*7 440 RETURN 450 END To permit the routine to be added to any program, the square bracket has been used in front of each variable: [. The [ is accepted as a valid character in variable names. ESC K {CHR$(27);"K"} is used in the Epson printer, and some others, to select: 'Normal density 8 pin bit image mode' OR The assembly code way- faster- If you are running a TI Basic program, in order to print the screen you must first leave the TI Basic program and run an assembly language program that will output to a printer with Epson graphics coding. You need to have a "Load Interrupt Switch" fitted, 32k ram and printer plus printer interface. Plus a suitable assembly language program. The switch will cause the computer to jump to an assembly routine while your program is running and not interfere with the display you wish to print. eg Danny Michael's DUMP OR- if the program will run in Extended Basic, a machine code utility plus 32k ram, printer and interface. The utility needs to use a "hot key" that will not interfere with your Basic program, that will jump to the assembly routine to print the screen image OR the utility may permit you to insert a CALL LINK in an appropriate part of the program to print the screen... eg use the disk based utility THE MISSING LINK and in your program at an opportune place insert CALL LINK("DUMP") Yes it can be done (and has been done). Several options but you first need the printer interface and Epson code printer; then you need 32k ram and an assembly program or routine. To load the assembly routine you will probably need to have a disk system too. [Does RXB support screen dumps?? ] There is also a utility that takes a screen image and transfers it to a code you can insert into your TI Writer documents so that TI Writer can print a screen dump with text around it....(can't recall what it was called...) Edited Sunday at 05:20 PM by blackbox ti writer added 1 RickyDean reacted to this Quote Sinphaltimus River Patroller 2,936 posts Distracted at the Keyboard Location:Poconos, PA Report post #19 Posted Sunday at 07:35 PM I will have to dig into this. I have everything besides the program. Not sure if my printer is correct. It's the PHP2500. I will also give that, basic code you provided, a shot this week for sure. EDIT: I believe I found the program "Dump". I think it's archive034.dsk in the collection I recently uploaded. Extensive instructions too. 1 RickyDean reacted to this Quote Edit ~Sinphaltimus Exmortus Sinphaltimus River Patroller 2,936 posts Distracted at the Keyboard Location:Poconos, PA Report post #20 Posted Sunday at 09:52 PM Yep, I think I'm going to have to figure out the LINK to DUMP option. The basic way doesn't work for me. I bet it's an incompatible printer. I will attach a photo of the result after i finish posting this. @computer, photo on phone. Here's the entire program with the graphic I'm try to print. The code you sent is lines 1300 - 1660 100 CALL COLOR(5,2,1) 110 CALL COLOR(6,2,1) 120 CALL COLOR(7,2,1) 130 CALL COLOR(8,2,1) 140 CALL COLOR(9,2,1) 150 CALL COLOR(10,2,1) 160 CALL COLOR(11,2,1) 170 CALL COLOR(12,2,1) 500 CALL CHAR(64,"00000103070F0F0F") 510 CALL CHAR(65,"7FFFF1FBFEFFFFFF") 520 CALL CHAR(66,"FECE2A33B5DDFFFF") 530 CALL CHAR(67,"FF351D1FBFBFBFFF") 540 CALL CHAR(68,"80C040E0F0F8FC3E") 550 CALL CHAR(72,"1F1F1F1F1F1F1F1F") 560 CALL CHAR(73,"FFFFF18080808080") 570 CALL CHAR(74,"FFFFFF0800000000") 580 CALL CHAR(75,"FCF0C00000000000") 590 CALL CHAR(76,"131B0F0F0D0F0F2F") 600 CALL CHAR(80,"1F1F1F1F1F3F2F27") 610 CALL CHAR(81,"80808080BFFFC3DF") 620 CALL CHAR(82,"000000000080C0E0") 630 CALL CHAR(83,"000000001F3F60FF") 640 CALL CHAR(84,"2D6F7F2DADEF7735") 650 CALL CHAR(88,"371F1F1F1F151515") 660 CALL CHAR(89,"FF6F3C011F000080") 670 CALL CHAR(90,"F1F1F0B030302020") 680 CALL CHAR(91,"FF6D3D180C000000") 690 CALL CHAR(92,"D797971707050505") 700 CALL CHAR(96,"150D070303030301") 710 CALL CHAR(97,"8080C1C6EDF9FBE7") 720 CALL CHAR(98,"21A100A0FBFEF8FF") 730 CALL CHAR(99,"003078CD0F071FFC") 740 CALL CHAR(100,"0614BCF8F8F8F8F8") 750 CALL CHAR(104,"0100000000000000") 760 CALL CHAR(105,"E7F3F35151292B17") 770 CALL CHAR(106,"04C0FFF0FFE03F3F") 780 CALL CHAR(107,"183020000001C183") 790 CALL CHAR(108,"707060E0E0C0C080") 800 CALL CHAR(112,"0C225BB387F3FB79") 810 CALL CHAR(113,"0E1E3FFBF1E1C0C0") 820 CALL CHAR(114,"60E0C0C0C0FE3F00") 830 CALL CHAR(115,"0307061C3870E000") 840 CALL CHAR(116,"8000000000000000") 850 CALL CHAR(120,"793F1E0000000000") 860 CALL CHAR(121,"8000000000000000") 900 PRINT "BCD JKL RST " 910 PRINT "Z[\ bcd jkl " 920 PRINT "rst " 930 PRINT 940 PRINT 950 PRINT 960 PRINT 970 PRINT 980 PRINT 990 PRINT 1000 PRINT 1010 PRINT 1020 PRINT 1030 PRINT 1040 PRINT 1050 PRINT 1060 PRINT 1070 PRINT 1080 PRINT 1190 DATA 1,1,64,1,2,65,2,1,72,2,2,73,3,1,80,3,2,81,4,1,88,4,2,89 1200 DATA 5,1,96,5,2,97,6,1,104,6,2,105,7,1,112,7,2,113,8,1,120,8,2,121 1230 RESTORE 1190 1240 FOR FILL=1 TO 16 1250 READ Y,X,CP 1260 CALL VCHAR(Y,X,CP) 1270 NEXT FILL 1280 CALL KEY(0,K,S) 1290 IF S=0 THEN 1280 1300 OPEN #1:"PIO" 1310 REM OR EQUIVALENT RS232 FILE NAME 1320 PRINT #1:CHR$(27);"A";CHR$(8) 1330 FOR A=1 TO 32 1340 PRINT #1:CHR$(27);"K";CHR$(192);CHR$(0) 1350 FOR B=24 TO 1 STEP-1 1360 CALL GCHAR(B,A,[CHAR) 1370 IF CHAR<33 THEN 1500 1380 CALL CHARPAT(CHAR,DEF$) 1390 IF DEF$="0000000000000000" THEN 1500 1400 FOR SEG=16 TO 2 STEP-2 1410 HEX=ASC(SEG$(DEF$,SEG,1)) 1420 GOSUB 1640 1430 PRINTDEF=HEX 1440 HEX=ASC(SEG$(DEF$,SEG-1,1)) 1450 GOSUB 1640 1460 PRINTDEF=PRINTDEF+[HEX*16 1470 PRINT #1:CHR$(PRINTDEF); 1480 NEXT SEG 1490 GOTO 1540 1500 FOR J=1 TO 7 1510 PRINT #1:CHR$(0); 1520 NEXT J 1530 PRINT #1:CHR$(0) 1540 NEXT B 1550 PRINT #1:CHR$(13);CHR$(10) 1560 NEXT A 1570 PRINT #1:CHR$(27);"@" 1580 PRINT #1:CHR$(7) 1590 CLOSE #1 1600 REM NOW GO WHERE YOU WISH 1610 REM USING RETURN OR GO TO AS APPROPRIATE 1620 RETURN 1630 STOP 1640 HEX=HEX-48+(HEX>64)*7 1650 RETURN 1660 END 2000 END 1 RickyDean reacted to this Quote Edit ~Sinphaltimus Exmortus Ksarul Quadrunner 6,848 posts Report post #21 Posted Sunday at 10:57 PM Note the original TI printer is a rebadged EPSON MX80 with a serial card in it (the MX80 had either a serial or a parallel card in it, and the cards were available separately as well to allow switching one to the other), so it should work with any program that uses EPSON controls. 1 RickyDean reacted to this Quote Enter my mind at your own risk. . . blackbox Dragonstomper 552 posts Location:England Report post #22 Posted Monday at 06:41 AM (edited) Your line 1300 is in error- you have used "PIO", whereas my original code used "PIO.CR.LF" (I actually omitted the stop between CR and LF, sorry... my eyesight is not what is used to be..). The printer interface manual actually says you only need "PIO.CR" and that .CR will turn off the carriage return and line feed but the manuals for many TI graphiucs programs refer to PIO.CR.LF.- The Printers Apprentice says to use either PIO.CR.LF or PIO.CR.... Confusingly the .CR is referred to in the manual as CRLF OFF. By default the interface has CRLF ON. You MUST use PIO.CR.LF (or PIO.CR) for all TI graphics programs, otherwise there will be a line feed after each character. In your coding line 1550 takes care of the line feeds at the appropriate time. That should get things going.... Edited Monday at 06:56 AM by blackbox reduce to PIO.CR 1 RickyDean reacted to this Quote Sinphaltimus River Patroller 2,936 posts Distracted at the Keyboard Location:Poconos, PA Report post #23 Posted Monday at 04:22 PM HAHAAA! Thanks. i will try this as soon as I can. I suppose the original post with pio.crlf is what threw me off. i hadn't even thought about the stop. so when I got the error, I removed it entirely and it started printing. I will fix and try again, probably later tonight if not, then tomorrow. Quote Edit ~Sinphaltimus Exmortus

All my pics don't work (broken links) - So my modded PEB is here with Achievement Unlocked! Added RS232 (first one I ever owned for the TI) and a working printer! (also first one I ever owned for the TI)

HAHAAA! Thanks. i will try this as soon as I can. I suppose the original post with pio.crlf is what threw me off. i hadn't even thought about the stop. so when I got the error, I removed it entirely and it started printing. I will fix and try again, probably later tonight if not, then tomorrow.

Yep, I think I'm going to have to figure out the LINK to DUMP option. The basic way doesn't work for me. I bet it's an incompatible printer. I will attach a photo of the result after i finish posting this. @computer, photo on phone. Here's the entire program with the graphic I'm try to print. The code you sent is lines 1300 - 1660 100 CALL COLOR(5,2,1) 110 CALL COLOR(6,2,1) 120 CALL COLOR(7,2,1) 130 CALL COLOR(8,2,1) 140 CALL COLOR(9,2,1) 150 CALL COLOR(10,2,1) 160 CALL COLOR(11,2,1) 170 CALL COLOR(12,2,1) 500 CALL CHAR(64,"00000103070F0F0F") 510 CALL CHAR(65,"7FFFF1FBFEFFFFFF") 520 CALL CHAR(66,"FECE2A33B5DDFFFF") 530 CALL CHAR(67,"FF351D1FBFBFBFFF") 540 CALL CHAR(68,"80C040E0F0F8FC3E") 550 CALL CHAR(72,"1F1F1F1F1F1F1F1F") 560 CALL CHAR(73,"FFFFF18080808080") 570 CALL CHAR(74,"FFFFFF0800000000") 580 CALL CHAR(75,"FCF0C00000000000") 590 CALL CHAR(76,"131B0F0F0D0F0F2F") 600 CALL CHAR(80,"1F1F1F1F1F3F2F27") 610 CALL CHAR(81,"80808080BFFFC3DF") 620 CALL CHAR(82,"000000000080C0E0") 630 CALL CHAR(83,"000000001F3F60FF") 640 CALL CHAR(84,"2D6F7F2DADEF7735") 650 CALL CHAR(88,"371F1F1F1F151515") 660 CALL CHAR(89,"FF6F3C011F000080") 670 CALL CHAR(90,"F1F1F0B030302020") 680 CALL CHAR(91,"FF6D3D180C000000") 690 CALL CHAR(92,"D797971707050505") 700 CALL CHAR(96,"150D070303030301") 710 CALL CHAR(97,"8080C1C6EDF9FBE7") 720 CALL CHAR(98,"21A100A0FBFEF8FF") 730 CALL CHAR(99,"003078CD0F071FFC") 740 CALL CHAR(100,"0614BCF8F8F8F8F8") 750 CALL CHAR(104,"0100000000000000") 760 CALL CHAR(105,"E7F3F35151292B17") 770 CALL CHAR(106,"04C0FFF0FFE03F3F") 780 CALL CHAR(107,"183020000001C183") 790 CALL CHAR(108,"707060E0E0C0C080") 800 CALL CHAR(112,"0C225BB387F3FB79") 810 CALL CHAR(113,"0E1E3FFBF1E1C0C0") 820 CALL CHAR(114,"60E0C0C0C0FE3F00") 830 CALL CHAR(115,"0307061C3870E000") 840 CALL CHAR(116,"8000000000000000") 850 CALL CHAR(120,"793F1E0000000000") 860 CALL CHAR(121,"8000000000000000") 900 PRINT "BCD JKL RST " 910 PRINT "Z[\ bcd jkl " 920 PRINT "rst " 930 PRINT 940 PRINT 950 PRINT 960 PRINT 970 PRINT 980 PRINT 990 PRINT 1000 PRINT 1010 PRINT 1020 PRINT 1030 PRINT 1040 PRINT 1050 PRINT 1060 PRINT 1070 PRINT 1080 PRINT 1190 DATA 1,1,64,1,2,65,2,1,72,2,2,73,3,1,80,3,2,81,4,1,88,4,2,89 1200 DATA 5,1,96,5,2,97,6,1,104,6,2,105,7,1,112,7,2,113,8,1,120,8,2,121 1230 RESTORE 1190 1240 FOR FILL=1 TO 16 1250 READ Y,X,CP 1260 CALL VCHAR(Y,X,CP) 1270 NEXT FILL 1280 CALL KEY(0,K,S) 1290 IF S=0 THEN 1280 1300 OPEN #1:"PIO" 1310 REM OR EQUIVALENT RS232 FILE NAME 1320 PRINT #1:CHR$(27);"A";CHR$(8) 1330 FOR A=1 TO 32 1340 PRINT #1:CHR$(27);"K";CHR$(192);CHR$(0) 1350 FOR B=24 TO 1 STEP-1 1360 CALL GCHAR(B,A,[CHAR) 1370 IF CHAR<33 THEN 1500 1380 CALL CHARPAT(CHAR,DEF$) 1390 IF DEF$="0000000000000000" THEN 1500 1400 FOR SEG=16 TO 2 STEP-2 1410 HEX=ASC(SEG$(DEF$,SEG,1)) 1420 GOSUB 1640 1430 PRINTDEF=HEX 1440 HEX=ASC(SEG$(DEF$,SEG-1,1)) 1450 GOSUB 1640 1460 PRINTDEF=PRINTDEF+[HEX*16 1470 PRINT #1:CHR$(PRINTDEF); 1480 NEXT SEG 1490 GOTO 1540 1500 FOR J=1 TO 7 1510 PRINT #1:CHR$(0); 1520 NEXT J 1530 PRINT #1:CHR$(0) 1540 NEXT B 1550 PRINT #1:CHR$(13);CHR$(10) 1560 NEXT A 1570 PRINT #1:CHR$(27);"@" 1580 PRINT #1:CHR$(7) 1590 CLOSE #1 1600 REM NOW GO WHERE YOU WISH 1610 REM USING RETURN OR GO TO AS APPROPRIATE 1620 RETURN 1630 STOP 1640 HEX=HEX-48+(HEX>64)*7 1650 RETURN 1660 END 2000 END

I will have to dig into this. I have everything besides the program. Not sure if my printer is correct. It's the PHP2500. I will also give that, basic code you provided, a shot this week for sure. EDIT: I believe I found the program "Dump". I think it's archive034.dsk in the collection I recently uploaded. Extensive instructions too.

I was using the old Iron a lot recently. I was getting nervous about the temp sensors inside the clam shell of the controller, 32k memory, and the fire house interface reaching Temps of 101 f. Note, each sensor is mounted within 1/8" of one of the voltage regulators in each. While I had it open to install the rs232 card I decided to add a fan in the middle of the peb blowing out of the back. Far left is the firehouse then the RS232. Far right is the disk controller then the 32k memory. Fan is in the middle. Saved me 17 degrees. These are the Temps topping out.

Has to be. Thanks again.

From 2015 to 2021. Just got a PHP2500 connected. Can print text from TI-Writer. I've been reading around and haven't found a way yet so I thought I'd ask others who own printers. Is there a way to print TI-BASIC graphics displayed on the screen? I have an image converted to BASIC via Magellan. I'd like to be able to print that image. Can it be done?

Thanks. Could it have been a different screen or mode I'm thinking about by mistake?

Why can't I figure out how to draw on the map screen? Just installed the latest version "over" the previous one (upgraded). Mouse buttons do nothing. I know its me. I've looked for instructions or tutorial on-line. Feeling like a dunce. EDIT: I still haven't figured it out but I did get my image imported in such a way that I can hand place the character sets. I recall being able to "paint" on the map screen at the pixel level and not the full CHAR set. Am I wrong?

This makes me happy. Please make postings here about some of the cool stuff you're playing with. Screen shots work too. ?

I don't know how many of the development members visit the other channel but i though ya'll might find some interest in this collection I uploaded. it was part of a TI Hardware Salvage. The inventory once belonged to the TI99ers user group of York, PA. Seems it was abandoned decades ago in a closet. Found during renovations. A friend of mine was tasked with "Proper Disposal" and called me immediately. As far as the hardware and original disks, they are almos prestine and everything is in perfect working order. Even the console's origianl Keyboard. Anyway, there is a collection of 144 disk images. Some are repeats (discovered afterwards) and some are blanks but not many. There is TI Forth Stuff in there, early version of programs in development, interesting (to me anyway) index program for the tape player, other cataloging and content listing programs, utilities, etc.... Every disk has it's contents cataloged to pdf. Each page of the pdf denotes which archive number you are reading. It's here in the first post if you're interested.

You have the entire collection at your disposal now.

This is my daily keyboard. Also connected to the KVM. It is shared with all the system logo stickers on it.

This is my heavily modified system. no TI keyboard. KB to USB adapter to KVM. F18a to HDMI. SAMS and TiPi Cartridge port extension cable. FinalGrom99. on a shelf between other computer components not related to my TI.

This is my "non-TiPi" system.

Just added an RS232 card and printer today.

Yes. I'm going to ping the community for long term preservation efforts of these disks. I can keep them in a bin in my dry and moderately temp controlled basement.

DOH! I have been out of the loop for long enough to forget a lot of things. Thank you for the wake up call.