JPG Graphic To Text Artwork Maker

[SierraKen]

I've wanted to make something like this for awhile. It loads any JPG picture and converts it to some text symbols and letters. It also uses spaces in certain area where the color is light or a shade of gray, black, or white. This program cannot use camera pictures or anything detailed like that, because it shrinks the picture down in memory (don't worry it doesn't change the original file) so the text file will be small enough to see it good on a computer screen. So, it's for simple graphics like stuff you make with Windows Paint or another paint program. But it does use 32 bit pictures in case you were wondering. I don't know if anybody else has made something like this on this forum before, but it's just something to play with mostly. Unless of course you have some other reason you need a program to convert graphics to text. It doesn't make the usual "ASCII Art" that people design themselves for forums, email, etc. unless you want a pretty large sized text graphic like this makes. Since it does shrink it down in memory, you will find some narrow lines that it won't display, but it works best, I think, with filled in colors.  Tonight I learned all about the _RED32, _GREEN32, and _BLUE32 to get what was needed from the POINT command. :) Check it out. :) Just make sure and make a graphic first before you run this and put it in the same directory as the program. The output file will be the same name as your graphic file was, except with a .txt instead of a .jpg ending.

Lastly: You can laugh at the outcomes of this program, because it's very rough and scattered, it was just made for fun and I don't really know how to make it cleaner looking unless I spend a lot more time on it adding more lines of converting colors to text.


(Note: I have a better one below on this page, without the bottom or side lines it makes on the text file.)

Code: QB64: [Select]

1. _TITLE "JPG Picture To Text File Artwork Maker"
2. start:
3. DIM red&(16000)
4. DIM green&(16000)
5. DIM blue&(16000)
6. DIM l$(16000)
7. t = 0
8. SCREEN 0
9. CLS
10. PRINT "                    JPG Picture To Text File Artwork Maker"
11. PRINT: PRINT
12. PRINT "                                 By Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "         This program loads 1 JPG picture file that's in the"
15. PRINT "         same directory as this program and creates a text"
16. PRINT "         file (.txt) of the same name as your JPG picture and"
17. PRINT "         as a text file instead that can load in Notepad."
18. PRINT "         This program only works with non-detailed graphics,"
19. PRINT "         so a camera picture will not come out."
20. PRINT "         For example, you can draw something with Microsoft"
21. PRINT "         Paint and save it as a JPG and load it in this"
22. PRINT "         to make a text graphic. Because this program has to"
23. PRINT "         shrink the graphic down (without saving it or"
24. PRINT "         overwriting any part of the original JPG file),"
25. PRINT "         the detail of the text file will be very minimal."
26. PRINT "         Which means it will look funny and non-detailed,"
27. PRINT "         but I like it and I hope you have some fun with it too."
28. PRINT: PRINT
29. INPUT "         Press Enter to begin.", st$
30. CLS
31.  
32. 'This section loads your picture from your computer.
33.  
34. loading:
35. PRINT "                               Loading"
36. PRINT
37. PRINT "                     Do not add .jpg at the end."
38. PRINT "                     The jpg picture must be in the same"
39. PRINT "                     directory as this program is."
40. PRINT "                     Type the name of your picture file"
41. PRINT "                     here and press the Enter key."
42. PRINT "                     Example: MyPic"
43. PRINT "                     Q and Enter key ends program here."
44. PRINT
45. INPUT "->"; nm2$
46. IF nm2$ = "Quit" OR nm2$ = "quit" OR nm2$ = "QUIT" OR nm2$ = "Q" OR nm2$ = "q" THEN END
47. nm$ = nm2$ + ".jpg"
48. theFileExists = _FILEEXISTS(nm$)
49. IF theFileExists = 0 THEN
50.     PRINT "File Does Not Exist."
51.     PRINT "Would you like to try again (Y/N)"
52.     PRINT "Esc ends program."
53.     _LIMIT 10
54.     llloop2:
55.     ag$ = INKEY$
56.     IF ag$ = "" THEN GOTO llloop2:
57.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
58.     IF ag$ = CHR$(27) THEN END
59.     GOTO start:
60. END IF
61. CLS
62.  
63. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
64.  
65. SCREEN _NEWIMAGE(128, 120, 32)
66. i& = _LOADIMAGE(nm$, 32)
67. _PUTIMAGE (0, 0)-(128, 120), i&
68.  
69. FOR y = 0 TO 120
70.     FOR x = 0 TO 128
71.         t = t + 1
72.         c& = POINT(x, y)
73.         red&(t) = _RED32(c&)
74.         green&(t) = _GREEN32(c&)
75.         blue&(t) = _BLUE32(c&)
76.     NEXT x
77. NEXT y
78. _DELAY 1
79. CLS
80. SCREEN _NEWIMAGE(640, 480, 32)
81. nm3$ = nm2$ + ".txt"
82. OPEN nm3$ FOR OUTPUT AS #1
83.  
84. 'This section tries to match your pixel colors to certain text or spaces.
85.  
86. FOR tt = 1 TO t
87.     FOR grays& = 0 TO 255
88.         IF red&(tt) = grays& AND blue&(tt) = grays& AND green&(tt) = grays& THEN l$(tt) = "O": GOTO nex:
89.     NEXT grays&
90.     FOR reds& = 0 TO 255
91.         IF red&(tt) = reds& AND blue&(tt) < 24 AND green&(tt) < 24 THEN l$(tt) = "#": GOTO nex:
92.     NEXT reds&
93.     FOR greens& = 0 TO 255
94.         IF green&(tt) = greens& AND blue&(tt) < 24 AND red&(tt) < 24 THEN l$(tt) = "@": GOTO nex:
95.     NEXT greens&
96.     FOR blues& = 0 TO 255
97.         IF blue&(tt) = blues& AND red&(tt) < 24 AND green&(tt) < 24 THEN l$(tt) = "*": GOTO nex:
98.     NEXT blues&
99.     FOR reds& = 24 TO 255
100.         IF red&(tt) = reds& AND blue&(tt) > 23 AND green&(tt) < 24 THEN l$(tt) = "$": GOTO nex:
101.     NEXT reds&
102.     FOR greens& = 0 TO 255
103.         IF green&(tt) = greens& AND blue&(tt) > 23 AND red&(tt) < 24 THEN l$(tt) = "%": GOTO nex:
104.     NEXT greens&
105.     FOR blues& = 0 TO 255
106.         IF blue&(tt) = blues& AND red&(tt) > 23 AND green&(tt) < 24 THEN l$(tt) = "^": GOTO nex:
107.     NEXT blues&
108.     FOR reds& = 24 TO 255
109.         IF red&(tt) = reds& AND blue&(tt) < 24 AND green&(tt) > 23 THEN l$(tt) = "&": GOTO nex:
110.     NEXT reds&
111.     FOR greens& = 0 TO 255
112.         IF green&(tt) = greens& AND blue&(tt) < 24 AND red&(tt) > 23 THEN l$(tt) = "(": GOTO nex:
113.     NEXT greens&
114.     FOR blues& = 0 TO 255
115.         IF blue&(tt) = blues& AND red&(tt) < 24 AND green&(tt) > 23 THEN l$(tt) = ")": GOTO nex:
116.     NEXT blues&
117.     FOR reds& = 0 TO 255
118.         IF red&(tt) = reds& AND blue&(tt) < 48 AND green&(tt) < 24 THEN l$(tt) = "A": GOTO nex:
119.     NEXT reds&
120.     FOR greens& = 0 TO 255
121.         IF green&(tt) = greens& AND blue&(tt) < 48 AND red&(tt) < 24 THEN l$(tt) = "B": GOTO nex:
122.     NEXT greens&
123.     FOR blues& = 0 TO 255
124.         IF blue&(tt) = blues& AND red&(tt) < 48 AND green&(tt) < 24 THEN l$(tt) = "C": GOTO nex:
125.     NEXT blues&
126.     FOR reds& = 24 TO 255
127.         IF red&(tt) = reds& AND blue&(tt) > 47 AND green&(tt) < 48 THEN l$(tt) = "D": GOTO nex:
128.     NEXT reds&
129.     FOR greens& = 0 TO 255
130.         IF green&(tt) = greens& AND blue&(tt) > 47 AND red&(tt) < 48 THEN l$(tt) = "E": GOTO nex:
131.     NEXT greens&
132.     FOR blues& = 0 TO 255
133.         IF blue&(tt) = blues& AND red&(tt) > 47 AND green&(tt) < 48 THEN l$(tt) = "F": GOTO nex:
134.     NEXT blues&
135.     FOR reds& = 24 TO 255
136.         IF red&(tt) = reds& AND blue&(tt) < 48 AND green&(tt) > 47 THEN l$(tt) = "G": GOTO nex:
137.     NEXT reds&
138.     FOR greens& = 0 TO 255
139.         IF green&(tt) = greens& AND blue&(tt) < 48 AND red&(tt) > 47 THEN l$(tt) = "H": GOTO nex:
140.     NEXT greens&
141.     FOR blues& = 0 TO 255
142.         IF blue&(tt) = blues& AND red&(tt) < 48 AND green&(tt) > 47 THEN l$(tt) = "I": GOTO nex:
143.     NEXT blues&
144.     FOR reds& = 24 TO 255
145.         IF red&(tt) = reds& AND blue&(tt) < 96 AND green&(tt) > 95 THEN l$(tt) = "J": GOTO nex:
146.     NEXT reds&
147.     FOR greens& = 0 TO 255
148.         IF green&(tt) = greens& AND blue&(tt) < 96 AND red&(tt) > 95 THEN l$(tt) = "K": GOTO nex:
149.     NEXT greens&
150.     FOR blues& = 0 TO 255
151.         IF blue&(tt) = blues& AND red&(tt) < 96 AND green&(tt) > 95 THEN l$(tt) = "L": GOTO nex:
152.     NEXT blues&
153.     FOR reds& = 24 TO 255
154.         IF red&(tt) = reds& AND blue&(tt) > 95 AND green&(tt) < 96 THEN l$(tt) = "M": GOTO nex:
155.     NEXT reds&
156.     FOR greens& = 0 TO 255
157.         IF green&(tt) = greens& AND blue&(tt) > 95 AND red&(tt) < 96 THEN l$(tt) = "N": GOTO nex:
158.     NEXT greens&
159.     FOR blues& = 0 TO 255
160.         IF blue&(tt) = blues& AND red&(tt) > 95 AND green&(tt) < 96 THEN l$(tt) = "T": GOTO nex:
161.     NEXT blues&
162.     FOR reds& = 24 TO 255
163.         IF red&(tt) = reds& AND blue&(tt) > 95 AND green&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
164.     NEXT reds&
165.     FOR greens& = 0 TO 255
166.         IF green&(tt) = greens& AND blue&(tt) > 95 AND red&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
167.     NEXT greens&
168.     FOR blues& = 0 TO 255
169.         IF blue&(tt) = blues& AND red&(tt) > 95 AND green&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
170.     NEXT blues&
171.  
172.     'Now it puts the text or spaces onto your text file and then ends program.
173.  
174.     nex:
175.     PRINT #1, l$(tt);
176.     IF tt / 129 = INT(tt / 129) THEN PRINT #1, " "
177.  
178. NEXT tt
179. CLOSE #1
180. PRINT: PRINT
181. PRINT nm3$; " has been saved to your computer."
182. END
183.  
184.  

[RhoSigma]

FYI - Here is discussion on another one, follow the given link to get the code.
https://qb64forum.alephc.xyz/index.php?topic=978.msg101819#msg101819

It handles the picture using _MEM commands instead of POINT.

[SierraKen]

Thanks RhoSigma, I'll check it out.

[SierraKen]

I'm not sure what to get on that thread Rho. It's probably kinda buried with all of the things you have there. I think for now at least, I will try to clean mine up a little bit.

In this update I just changed it so it doesn't have the bottom or side lines.

(Note, look down toward the bottom of the page for a much better one.)

Code: QB64: [Select]

1. _TITLE "JPG Picture To Text File Artwork Maker"
2. start:
3. DIM red&(16000)
4. DIM green&(16000)
5. DIM blue&(16000)
6. DIM l$(16000)
7. t = 0
8. SCREEN 0
9. CLS
10. PRINT "                    JPG Picture To Text File Artwork Maker"
11. PRINT: PRINT
12. PRINT "                                 By Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "         This program loads 1 JPG picture file that's in the"
15. PRINT "         same directory as this program and creates a text"
16. PRINT "         file (.txt) of the same name as your JPG picture and"
17. PRINT "         as a text file instead that can load in Notepad."
18. PRINT "         This program only works with non-detailed graphics,"
19. PRINT "         so a camera picture will not come out."
20. PRINT "         For example, you can draw something with Microsoft"
21. PRINT "         Paint and save it as a JPG and load it in this"
22. PRINT "         to make a text graphic. Because this program has to"
23. PRINT "         shrink the graphic down (without saving it or"
24. PRINT "         overwriting any part of the original JPG file),"
25. PRINT "         the detail of the text file will be very minimal."
26. PRINT "         Which means it will look funny and non-detailed,"
27. PRINT "         but I like it and I hope you have some fun with it too."
28. PRINT: PRINT
29. INPUT "         Press Enter to begin.", st$
30. CLS
31.  
32. 'This section loads your picture from your computer.
33.  
34. loading:
35. PRINT "                               Loading"
36. PRINT
37. PRINT "                     Do not add .jpg at the end."
38. PRINT "                     The jpg picture must be in the same"
39. PRINT "                     directory as this program is."
40. PRINT "                     Type the name of your picture file"
41. PRINT "                     here and press the Enter key."
42. PRINT "                     Example: MyPic"
43. PRINT "                     Q and Enter key ends program here."
44. PRINT
45. INPUT "->"; nm2$
46. IF nm2$ = "Quit" OR nm2$ = "quit" OR nm2$ = "QUIT" OR nm2$ = "Q" OR nm2$ = "q" THEN END
47. nm$ = nm2$ + ".jpg"
48. theFileExists = _FILEEXISTS(nm$)
49. IF theFileExists = 0 THEN
50.     PRINT "File Does Not Exist."
51.     PRINT "Would you like to try again (Y/N)"
52.     PRINT "Esc ends program."
53.     _LIMIT 10
54.     llloop2:
55.     ag$ = INKEY$
56.     IF ag$ = "" THEN GOTO llloop2:
57.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
58.     IF ag$ = CHR$(27) THEN END
59.     GOTO start:
60. END IF
61. CLS
62.  
63. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
64.  
65. SCREEN _NEWIMAGE(128, 120, 32)
66. i& = _LOADIMAGE(nm$, 32)
67. _PUTIMAGE (0, 0)-(128, 120), i&
68.  
69. FOR y = 1 TO 120
70.     FOR x = 1 TO 128
71.         t = t + 1
72.         c& = POINT(x, y)
73.         red&(t) = _RED32(c&)
74.         green&(t) = _GREEN32(c&)
75.         blue&(t) = _BLUE32(c&)
76.     NEXT x
77. NEXT y
78. _DELAY 1
79. CLS
80. SCREEN _NEWIMAGE(640, 480, 32)
81. nm3$ = nm2$ + ".txt"
82. OPEN nm3$ FOR OUTPUT AS #1
83.  
84. 'This section tries to match your pixel colors to certain text or spaces.
85.  
86. FOR tt = 1 TO t
87.     FOR grays& = 0 TO 255
88.         IF red&(tt) = grays& AND blue&(tt) = grays& AND green&(tt) = grays& THEN l$(tt) = "O": GOTO nex:
89.     NEXT grays&
90.     FOR reds& = 0 TO 255
91.         IF red&(tt) = reds& AND blue&(tt) < 24 AND green&(tt) < 24 THEN l$(tt) = "#": GOTO nex:
92.     NEXT reds&
93.     FOR greens& = 0 TO 255
94.         IF green&(tt) = greens& AND blue&(tt) < 24 AND red&(tt) < 24 THEN l$(tt) = "@": GOTO nex:
95.     NEXT greens&
96.     FOR blues& = 0 TO 255
97.         IF blue&(tt) = blues& AND red&(tt) < 24 AND green&(tt) < 24 THEN l$(tt) = "*": GOTO nex:
98.     NEXT blues&
99.     FOR reds& = 24 TO 255
100.         IF red&(tt) = reds& AND blue&(tt) > 23 AND green&(tt) < 24 THEN l$(tt) = "$": GOTO nex:
101.     NEXT reds&
102.     FOR greens& = 0 TO 255
103.         IF green&(tt) = greens& AND blue&(tt) > 23 AND red&(tt) < 24 THEN l$(tt) = "%": GOTO nex:
104.     NEXT greens&
105.     FOR blues& = 0 TO 255
106.         IF blue&(tt) = blues& AND red&(tt) > 23 AND green&(tt) < 24 THEN l$(tt) = "^": GOTO nex:
107.     NEXT blues&
108.     FOR reds& = 24 TO 255
109.         IF red&(tt) = reds& AND blue&(tt) < 24 AND green&(tt) > 23 THEN l$(tt) = "&": GOTO nex:
110.     NEXT reds&
111.     FOR greens& = 0 TO 255
112.         IF green&(tt) = greens& AND blue&(tt) < 24 AND red&(tt) > 23 THEN l$(tt) = "(": GOTO nex:
113.     NEXT greens&
114.     FOR blues& = 0 TO 255
115.         IF blue&(tt) = blues& AND red&(tt) < 24 AND green&(tt) > 23 THEN l$(tt) = ")": GOTO nex:
116.     NEXT blues&
117.     FOR reds& = 0 TO 255
118.         IF red&(tt) = reds& AND blue&(tt) < 48 AND green&(tt) < 24 THEN l$(tt) = "A": GOTO nex:
119.     NEXT reds&
120.     FOR greens& = 0 TO 255
121.         IF green&(tt) = greens& AND blue&(tt) < 48 AND red&(tt) < 24 THEN l$(tt) = "B": GOTO nex:
122.     NEXT greens&
123.     FOR blues& = 0 TO 255
124.         IF blue&(tt) = blues& AND red&(tt) < 48 AND green&(tt) < 24 THEN l$(tt) = "C": GOTO nex:
125.     NEXT blues&
126.     FOR reds& = 24 TO 255
127.         IF red&(tt) = reds& AND blue&(tt) > 47 AND green&(tt) < 48 THEN l$(tt) = "D": GOTO nex:
128.     NEXT reds&
129.     FOR greens& = 0 TO 255
130.         IF green&(tt) = greens& AND blue&(tt) > 47 AND red&(tt) < 48 THEN l$(tt) = "E": GOTO nex:
131.     NEXT greens&
132.     FOR blues& = 0 TO 255
133.         IF blue&(tt) = blues& AND red&(tt) > 47 AND green&(tt) < 48 THEN l$(tt) = "F": GOTO nex:
134.     NEXT blues&
135.     FOR reds& = 24 TO 255
136.         IF red&(tt) = reds& AND blue&(tt) < 48 AND green&(tt) > 47 THEN l$(tt) = "G": GOTO nex:
137.     NEXT reds&
138.     FOR greens& = 0 TO 255
139.         IF green&(tt) = greens& AND blue&(tt) < 48 AND red&(tt) > 47 THEN l$(tt) = "H": GOTO nex:
140.     NEXT greens&
141.     FOR blues& = 0 TO 255
142.         IF blue&(tt) = blues& AND red&(tt) < 48 AND green&(tt) > 47 THEN l$(tt) = "I": GOTO nex:
143.     NEXT blues&
144.     FOR reds& = 24 TO 255
145.         IF red&(tt) = reds& AND blue&(tt) < 96 AND green&(tt) > 95 THEN l$(tt) = "J": GOTO nex:
146.     NEXT reds&
147.     FOR greens& = 0 TO 255
148.         IF green&(tt) = greens& AND blue&(tt) < 96 AND red&(tt) > 95 THEN l$(tt) = "K": GOTO nex:
149.     NEXT greens&
150.     FOR blues& = 0 TO 255
151.         IF blue&(tt) = blues& AND red&(tt) < 96 AND green&(tt) > 95 THEN l$(tt) = "L": GOTO nex:
152.     NEXT blues&
153.     FOR reds& = 24 TO 255
154.         IF red&(tt) = reds& AND blue&(tt) > 95 AND green&(tt) < 96 THEN l$(tt) = "M": GOTO nex:
155.     NEXT reds&
156.     FOR greens& = 0 TO 255
157.         IF green&(tt) = greens& AND blue&(tt) > 95 AND red&(tt) < 96 THEN l$(tt) = "N": GOTO nex:
158.     NEXT greens&
159.     FOR blues& = 0 TO 255
160.         IF blue&(tt) = blues& AND red&(tt) > 95 AND green&(tt) < 96 THEN l$(tt) = "T": GOTO nex:
161.     NEXT blues&
162.     FOR reds& = 24 TO 255
163.         IF red&(tt) = reds& AND blue&(tt) > 95 AND green&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
164.     NEXT reds&
165.     FOR greens& = 0 TO 255
166.         IF green&(tt) = greens& AND blue&(tt) > 95 AND red&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
167.     NEXT greens&
168.     FOR blues& = 0 TO 255
169.         IF blue&(tt) = blues& AND red&(tt) > 95 AND green&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
170.     NEXT blues&
171.  
172.     'Now it puts the text or spaces onto your text file and then ends program.
173.  
174.     nex:
175.     IF tt / 128 = INT(tt / 128) OR lines > 118 THEN PRINT #1, " ": lines = lines + 1: GOTO nex2:
176.     PRINT #1, l$(tt);
177.     nex2:
178. NEXT tt
179. nex3:
180. CLOSE #1
181. PRINT: PRINT
182. PRINT nm3$; " has been saved to your computer."
183. END
184.  

[RhoSigma]

I'm not sure what to get on that thread Rho. It's probably kinda buried with all of the things you have there.

Easy way :)
Follow the link in my signature, from that post download the QB64Library.7z, extract it into your QB64 folder.
Now look into folder QB64Library\IMG-Support\example, there is a file called AsciiArtDemo.bas...

[TempodiBasic]

Hi SierraKen

 Must we we must open the .txt file with a text editor to see the result ?

[euklides]

I think you must use a fixed size police to see the result. (courier, mslinedraw...)

Good program of course, and usefull to see how you do this.

But for this job, I use a little programme named "img2ascii.exe" (needs no installation under Win) who gives good results...

[Petr]

Very nice work, SierraKen.

[SierraKen]

Woah Rho! That's incredible! It's a bit past my experience in programming though, I would have to study each line carefully if I want to make something as good as that. And many of those commands are ones I don't know of, so it would take awhile. And you have already made it, so I really don't have a will to copy it. But Great Job!
I think I will try to make mine a little better if I can.

TempodiBasic, I guess I can make a view screen, or open it with a SHELL command, will see what I can do, thanks!

Euklides, if I understand you right, do you mean the vertical is too much in the output? Yeah I noticed that too, will look into that to see what I can do, if anything.

Thanks Petr! Like the rest of my programs, this is just something to play around with.

[SierraKen]

I decided to change it by using semi-random text characters, just adding the red, blue, and green (dividing each by 3 first to get 255 total) and then making THAT number the CHR$ number. I had to check the chart to remove the first 32 non-characters and 1 more so they would show up. I also changed the size of the output to pretty much the same width now as the original picture. It will show the original picture twice as wide in the tiny picture at first, but that only happens because text is twice as high as width, which I had forgotten, so the output is the normal size on the text file. I also added a SHELL command at the end to view the picture with Notepad (or whatever you use for .txt files) automatically without having to hunt for it. I'm guessing Windows computers are the only ones that can use the SHELL command? I really don't know. Anyway, using CHR$ makes the picture show up a lot when there's a lot of white or filled in areas. But on the other hand, I'm sure it will make a mess out of graphics with many different details. Check it out and tell me what you think. Thanks.

(Note: I made an even better one below on this page, than this one.)

Code: QB64: [Select]

1. _TITLE "JPG Picture To Text File Artwork Maker"
2. start:
3. DIM red&(31000)
4. DIM green&(31000)
5. DIM blue&(31000)
6. DIM l$(31000)
7. t = 0
8. SCREEN 0
9. CLS
10. PRINT "                    JPG Picture To Text File Artwork Maker"
11. PRINT: PRINT
12. PRINT "                                 By Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "         This program loads 1 JPG picture file that's in the"
15. PRINT "         same directory as this program and creates a text"
16. PRINT "         file (.txt) of the same name as your JPG picture and"
17. PRINT "         as a text file instead that can load in Notepad."
18. PRINT "         This program only works with non-detailed graphics,"
19. PRINT "         so a camera picture will not come out."
20. PRINT "         For example, you can draw something with Microsoft"
21. PRINT "         Paint and save it as a JPG and load it in this"
22. PRINT "         to make a text graphic. Because this program has to"
23. PRINT "         shrink the graphic down (without saving it or"
24. PRINT "         overwriting any part of the original JPG file),"
25. PRINT "         the detail of the text file will be very minimal."
26. PRINT "         Which means it will look funny and non-detailed,"
27. PRINT "         but I like it and I hope you have some fun with it too."
28. PRINT: PRINT
29. INPUT "         Press Enter to begin.", st$
30. CLS
31.  
32. 'This section loads your picture from your computer.
33.  
34. loading:
35. PRINT "                               Loading"
36. PRINT
37. PRINT "                     Do not add .jpg at the end."
38. PRINT "                     The jpg picture must be in the same"
39. PRINT "                     directory as this program is."
40. PRINT "                     Type the name of your picture file"
41. PRINT "                     here and press the Enter key."
42. PRINT "                     Example: MyPic"
43. PRINT "                     Q and Enter key ends program here."
44. PRINT
45. INPUT "->"; nm2$
46. IF nm2$ = "Quit" OR nm2$ = "quit" OR nm2$ = "QUIT" OR nm2$ = "Q" OR nm2$ = "q" THEN END
47. nm$ = nm2$ + ".jpg"
48. theFileExists = _FILEEXISTS(nm$)
49. IF theFileExists = 0 THEN
50.     PRINT "File Does Not Exist."
51.     PRINT "Would you like to try again (Y/N)"
52.     PRINT "Esc ends program."
53.     _LIMIT 10
54.     llloop2:
55.     ag$ = INKEY$
56.     IF ag$ = "" THEN GOTO llloop2:
57.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
58.     IF ag$ = CHR$(27) THEN END
59.     GOTO start:
60. END IF
61. CLS
62.  
63. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
64.  
65. SCREEN _NEWIMAGE(256, 120, 32)
66. i& = _LOADIMAGE(nm$, 32)
67. _PUTIMAGE (0, 0)-(256, 120), i&
68.  
69. FOR y = 1 TO 120
70.     FOR x = 1 TO 256
71.         t = t + 1
72.         c& = POINT(x, y)
73.         red&(t) = _RED32(c&)
74.         green&(t) = _GREEN32(c&)
75.         blue&(t) = _BLUE32(c&)
76.     NEXT x
77. NEXT y
78. _DELAY 1
79. CLS
80. SCREEN _NEWIMAGE(640, 480, 32)
81. nm3$ = nm2$ + ".txt"
82. OPEN nm3$ FOR OUTPUT AS #1
83.  
84. 'This section tries to match your pixel colors to certain text or spaces.
85.  
86. FOR tt = 1 TO t
87.  
88.     'Now it puts the text or spaces onto your text file and then ends program.
89.     IF red&(tt) = 255 AND green&(tt) = 255 AND blue&(tt) = 255 THEN l$(tt) = " ": GOTO nex:
90.     rr = INT(red&(tt) / 3)
91.     gg = INT(green&(tt) / 3)
92.     bb = INT(blue&(tt) / 3)
93.     colors = (rr + gg + bb)
94.     IF colors < 33 THEN colors = 33
95.     IF colors = 127 THEN colors = 128
96.     IF colors = 255 THEN colors = 254
97.     l$(tt) = CHR$(colors)
98.     nex:
99.     IF tt / 256 = INT(tt / 256) THEN PRINT #1, " ": GOTO nex2:
100.     PRINT #1, l$(tt);
101.     nex2:
102. NEXT tt
103. nex3:
104. CLOSE #1
105. PRINT: PRINT
106. PRINT nm3$; " has been saved to your computer."
107. PRINT: PRINT
108. INPUT "Press Enter to see your new text on your .txt viewing program.", aa$
109. SHELL nm3$
110. CLS
111. END
112.  
113.  

[SierraKen]

And like usual... I MADE IT BETTER!!! LOL I studied RhoSigma's ASCIIART program, and found 2 little things that I could use in my program. First, I changed it so it doesn't use colors, it uses shades, which made it really simple to just add _RED32, _GREEN32, and _BLUE32 together and the highest number is the brightest shade. I still use the POINT command, so that part is the same. But then I found a web page of a list of the lightest to darkest ASCII characters, so I ended up using 68 characters, from lightest to darkest on 1 string. Which made it incredibly simple to just use MID$, like RhoSigma did on his, to pick out which character is needed from the string. And it comes out pretty good with simple graphics. It still doesn't work with camera pictures, so it's not as good as Rho's, but I like mine a lot. What mine does do, which Rho didn't add, is make the .txt file and lets you see it in Notepad, or whatever .txt program you use that the SHELL command can find. You still don't see the outcome in the program itself, that got too hard because my outcome texts are very large. So at least with Notepad, etc. you can use the slide bars to see it all.  Tell me what you think all. I been working on this off and on all day and I think I got it wrapped.

(And below this one, on this forum page, I have one that includes seeing the output on the program itself before you make a text file of it, so scroll down.)

Code: QB64: [Select]

1. _TITLE "JPG Graphics To Text File Artwork Maker"
2. start:
3. DIM red&(31000)
4. DIM green&(31000)
5. DIM blue&(31000)
6. DIM l$(31000)
7. t = 0
8. SCREEN 0
9. CLS
10. PRINT "                    JPG Graphics To Text File Artwork Maker"
11. PRINT: PRINT
12. PRINT "                                 By Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "         This program loads 1 JPG graphic file that's in the"
15. PRINT "         same directory as this program and creates a text"
16. PRINT "         file (.txt) of the same name as your JPG file and"
17. PRINT "         as a text file instead that can load in Notepad."
18. PRINT "         This program only works with non-detailed graphics,"
19. PRINT "         so a camera picture will not come out."
20. PRINT "         For example, you can draw something with Microsoft"
21. PRINT "         Paint and save it as a JPG and load it in this"
22. PRINT "         to make a text graphic. Because this program has to"
23. PRINT "         shrink the graphic down (without saving it or"
24. PRINT "         overwriting any part of the original JPG file),"
25. PRINT "         the detail of the text file will be very minimal."
26. PRINT "         Which means it will look funny and non-detailed,"
27. PRINT "         but I like it and I hope you have some fun with it too."
28. PRINT: PRINT
29. INPUT "         Press Enter to begin.", st$
30. CLS
31.  
32. 'This section loads your picture from your computer.
33.  
34. loading:
35. PRINT "                               Loading"
36. PRINT
37. PRINT "                     Do not add .jpg at the end."
38. PRINT "                     The jpg picture must be in the same"
39. PRINT "                     directory as this program is."
40. PRINT "                     Type the name of your picture file"
41. PRINT "                     here and press the Enter key."
42. PRINT "                     Example: MyPic"
43. PRINT "                     Q and Enter key ends program here."
44. PRINT
45. INPUT "->"; nm2$
46. IF nm2$ = "Q" OR nm2$ = "q" THEN END
47. nm$ = nm2$ + ".jpg"
48. theFileExists = _FILEEXISTS(nm$)
49. IF theFileExists = 0 THEN
50.     PRINT "File Does Not Exist."
51.     PRINT "Would you like to try again (Y/N)"
52.     PRINT "Esc ends program."
53.     _LIMIT 10
54.     llloop2:
55.     ag$ = INKEY$
56.     IF ag$ = "" THEN GOTO llloop2:
57.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
58.     IF ag$ = CHR$(27) THEN END
59.     GOTO start:
60. END IF
61. CLS
62.  
63. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
64.  
65. SCREEN _NEWIMAGE(256, 120, 32)
66. i& = _LOADIMAGE(nm$, 32)
67. _PUTIMAGE (0, 0)-(256, 120), i&
68.  
69. FOR y = 1 TO 120
70.     FOR x = 1 TO 256
71.         t = t + 1
72.         c& = POINT(x, y)
73.         red&(t) = _RED32(c&)
74.         green&(t) = _GREEN32(c&)
75.         blue&(t) = _BLUE32(c&)
76.     NEXT x
77. NEXT y
78. _DELAY 1
79. CLS
80. SCREEN _NEWIMAGE(640, 480, 32)
81. nm3$ = nm2$ + ".txt"
82. OPEN nm3$ FOR OUTPUT AS #1
83.  
84. 'This section matches your pixel shades to certain text or spaces.
85.  
86. text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
87.  
88. FOR tt = 1 TO t
89.     shade = red&(tt) + green&(tt) + blue&(tt)
90.     shade = INT(shade / 11)
91.     l$(tt) = MID$(text$, shade, 1)
92.     IF tt / 256 = INT(tt / 256) THEN PRINT #1, " ": GOTO nex2:
93.     PRINT #1, l$(tt);
94.     nex2:
95. NEXT tt
96. CLOSE #1
97. PRINT: PRINT
98. PRINT nm3$; " has been saved to your computer."
99. PRINT: PRINT
100. INPUT "Press Enter to see your new text on your .txt viewing program such as Notepad.", aa$
101. SHELL nm3$
102. CLS
103. END
104.  

[SierraKen]

Well, because someone asked, and I thought it was a cool idea, I added the feature to see the output inside the program before it makes the .txt file. So now, after you type in the name of the picture, you see the text version on the screen in the program. Then it asks if you want to make a .txt file of it. If you don't say yes (or anything that starts with y), then it will end.
Also, I figured out that the largest graphic you can use with this is 800 x 600. Any larger and it messes up.

(Another one after this makes it easier to see on Notepad without using the horizontal bar... so keep scrolling please.)

Code: QB64: [Select]

1. _TITLE "JPG Graphics To Text File Artwork Maker"
2. start:
3. DIM red&(31000)
4. DIM green&(31000)
5. DIM blue&(31000)
6. DIM l$(31000)
7. t = 0
8. SCREEN 0
9. CLS
10. PRINT "                    JPG Graphics To Text File Artwork Maker"
11. PRINT: PRINT
12. PRINT "                                 By Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "         This program loads 1 JPG graphics file that's in the"
15. PRINT "         same directory as this program and creates a text"
16. PRINT "         file (.txt) of the same name as your JPG file and"
17. PRINT "         as a text file instead that can load in Notepad."
18. PRINT "         This program only works with non-detailed graphics,"
19. PRINT "         so a camera picture will not come out."
20. PRINT "         For example, you can draw something with Microsoft"
21. PRINT "         Paint and save it as a JPG and load it in this"
22. PRINT "         to make a text graphic. Because this program has to"
23. PRINT "         shrink the graphic down (without saving it or"
24. PRINT "         overwriting any part of the original JPG file),"
25. PRINT "         the detail of the text file will be very minimal."
26. PRINT "         Which means it will look funny and non-detailed,"
27. PRINT "         but I like it and I hope you have some fun with it too."
28. PRINT: PRINT
29. INPUT "         Press Enter to begin.", st$
30. CLS
31.  
32. 'This section loads your picture from your computer.
33.  
34. loading:
35. PRINT "                               Loading"
36. PRINT
37. PRINT "                     Do not add .jpg at the end."
38. PRINT "                     The jpg picture must be in the same"
39. PRINT "                     directory as this program is."
40. PRINT "                     Type the name of your picture file"
41. PRINT "                     here and press the Enter key."
42. PRINT "                     Only use a graphic no larger than"
43. PRINT "                     800 x 600 pixels."
44. PRINT
45. PRINT "                     Example: MyPic"
46. PRINT "                     Q and Enter key ends program here."
47. PRINT
48. INPUT "->"; nm2$
49. IF nm2$ = "Q" OR nm2$ = "q" THEN END
50. nm$ = nm2$ + ".jpg"
51. theFileExists = _FILEEXISTS(nm$)
52. IF theFileExists = 0 THEN
53.     PRINT "File Does Not Exist."
54.     PRINT "Would you like to try again (Y/N)"
55.     PRINT "Esc ends program."
56.     _LIMIT 10
57.     llloop2:
58.     ag$ = INKEY$
59.     IF ag$ = "" THEN GOTO llloop2:
60.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
61.     IF ag$ = CHR$(27) THEN END
62.     GOTO start:
63. END IF
64. CLS
65.  
66. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
67.  
68. SCREEN _NEWIMAGE(64, 40, 32)
69. i& = _LOADIMAGE(nm$, 32)
70. _PUTIMAGE (0, 0)-(64, 40), i&
71. FOR y = 1 TO 40
72.     FOR x = 1 TO 64
73.         a = a + 1
74.         c& = POINT(x, y)
75.         red&(a) = _RED32(c&)
76.         green&(a) = _GREEN32(c&)
77.         blue&(a) = _BLUE32(c&)
78.     NEXT x
79. NEXT y
80. _DELAY .5
81. CLS
82. SCREEN _NEWIMAGE(1000, 800, 32)
83. text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
84.  
85. FOR ttt = 1 TO a
86.     shade = red&(ttt) + green&(ttt) + blue&(ttt)
87.     shade = INT(shade / 11)
88.     l$(ttt) = MID$(text$, shade, 1)
89.     IF ttt / 64 = INT(ttt / 64) THEN PRINT: GOTO nex1:
90.     PRINT l$(ttt);
91.     nex1:
92. NEXT ttt
93. LOCATE 49, 1: INPUT "Do you want to make a .txt file of this (Y/N)"; cc$
94. IF LEFT$(cc$, 1) = "y" OR LEFT$(cc$, 1) = "Y" THEN GOTO more:
95. END
96. more:
97.  
98. 'This section has to do with making the text file.
99.  
100. CLS
101. SCREEN _NEWIMAGE(256, 120, 32)
102. i& = _LOADIMAGE(nm$, 32)
103. _PUTIMAGE (0, 0)-(256, 120), i&
104. FOR y = 1 TO 120
105.     FOR x = 1 TO 256
106.         t = t + 1
107.         c& = POINT(x, y)
108.         red&(t) = _RED32(c&)
109.         green&(t) = _GREEN32(c&)
110.         blue&(t) = _BLUE32(c&)
111.     NEXT x
112. NEXT y
113. _DELAY .5
114. CLS
115. SCREEN _NEWIMAGE(640, 480, 32)
116.  
117. nm3$ = nm2$ + ".txt"
118. OPEN nm3$ FOR OUTPUT AS #1
119.  
120. FOR tt = 1 TO t
121.     shade = red&(tt) + green&(tt) + blue&(tt)
122.     shade = INT(shade / 11)
123.     l$(tt) = MID$(text$, shade, 1)
124.     IF tt / 256 = INT(tt / 256) THEN PRINT #1, " ": GOTO nex2:
125.     PRINT #1, l$(tt);
126.     nex2:
127. NEXT tt
128. CLOSE #1
129. PRINT: PRINT
130. PRINT nm3$; " has been saved to your computer."
131. PRINT: PRINT
132. INPUT "Press Enter to see your new text on your .txt viewing program such as Notepad.", aa$
133. SHELL nm3$
134. CLS
135. END
136.  
137.  

[SierraKen]

Sorry for so many postings. This time I made it so it's easier to see on Notepad without scrolling the horizontal bar. I tried to print it like that but it's still too wide of text for that, just so you know. But you might be able to change the Font in Notepad to much smaller to print and it might fit all on 1 page, I haven't tried it yet. This one also uses a lot less memory than the others.

(Note: Yep, yet another better one after this one on this forum page, keep scrolling.)

Code: QB64: [Select]

1. _TITLE "JPG Graphics To Text File Artwork Maker"
2. start:
3. DIM red&(8000)
4. DIM green&(8000)
5. DIM blue&(8000)
6. DIM l$(8000)
7. t = 0
8. SCREEN 0
9. CLS
10. PRINT "                    JPG Graphics To Text File Artwork Maker"
11. PRINT: PRINT
12. PRINT "                                 By Ken G."
13. PRINT: PRINT: PRINT
14. PRINT "         This program loads 1 JPG graphics file that's in the"
15. PRINT "         same directory as this program and creates a text"
16. PRINT "         file (.txt) of the same name as your JPG file and"
17. PRINT "         as a text file instead that can load in Notepad."
18. PRINT "         This program only works with non-detailed graphics,"
19. PRINT "         so a camera picture will not come out."
20. PRINT "         For example, you can draw something with Microsoft"
21. PRINT "         Paint and save it as a JPG and load it in this"
22. PRINT "         to make a text graphic. Because this program has to"
23. PRINT "         shrink the graphic down (without saving it or"
24. PRINT "         overwriting any part of the original JPG file),"
25. PRINT "         the detail of the text file will be very minimal."
26. PRINT "         Which means it will look funny and non-detailed,"
27. PRINT "         but I like it and I hope you have some fun with it too."
28. PRINT: PRINT
29. INPUT "         Press Enter to begin.", st$
30. CLS
31.  
32. 'This section loads your picture from your computer.
33.  
34. loading:
35. PRINT "                               Loading"
36. PRINT
37. PRINT "                     Do not add .jpg at the end."
38. PRINT "                     The jpg picture must be in the same"
39. PRINT "                     directory as this program is."
40. PRINT "                     Type the name of your picture file"
41. PRINT "                     here and press the Enter key."
42. PRINT "                     Only use a graphic no larger than"
43. PRINT "                     800 x 600 pixels."
44. PRINT
45. PRINT "                     Example: MyPic"
46. PRINT "                     Q and Enter key ends program here."
47. PRINT
48. INPUT "->"; nm2$
49. IF nm2$ = "Q" OR nm2$ = "q" THEN END
50. nm$ = nm2$ + ".jpg"
51. theFileExists = _FILEEXISTS(nm$)
52. IF theFileExists = 0 THEN
53.     PRINT "File Does Not Exist."
54.     PRINT "Would you like to try again (Y/N)"
55.     PRINT "Esc ends program."
56.     _LIMIT 10
57.     llloop2:
58.     ag$ = INKEY$
59.     IF ag$ = "" THEN GOTO llloop2:
60.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
61.     IF ag$ = CHR$(27) THEN END
62.     GOTO start:
63. END IF
64. CLS
65.  
66. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
67.  
68. SCREEN _NEWIMAGE(64, 40, 32)
69. i& = _LOADIMAGE(nm$, 32)
70. _PUTIMAGE (0, 0)-(64, 40), i&
71. FOR y = 1 TO 40
72.     FOR x = 1 TO 64
73.         a = a + 1
74.         c& = POINT(x, y)
75.         red&(a) = _RED32(c&)
76.         green&(a) = _GREEN32(c&)
77.         blue&(a) = _BLUE32(c&)
78.     NEXT x
79. NEXT y
80. _DELAY .5
81. CLS
82. SCREEN _NEWIMAGE(1000, 800, 32)
83. text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
84.  
85. FOR ttt = 1 TO a
86.     shade = red&(ttt) + green&(ttt) + blue&(ttt)
87.     shade = INT(shade / 11)
88.     l$(ttt) = MID$(text$, shade, 1)
89.     IF ttt / 64 = INT(ttt / 64) THEN PRINT: GOTO nex1:
90.     PRINT l$(ttt);
91.     nex1:
92. NEXT ttt
93. LOCATE 49, 1: INPUT "Do you want to make a .txt file of this (Y/N)"; cc$
94. IF LEFT$(cc$, 1) = "y" OR LEFT$(cc$, 1) = "Y" THEN GOTO more:
95. END
96. more:
97.  
98. 'This section has to do with making the text file.
99.  
100. CLS
101. SCREEN _NEWIMAGE(128, 60, 32)
102. i& = _LOADIMAGE(nm$, 32)
103. _PUTIMAGE (0, 0)-(128, 60), i&
104. FOR y = 1 TO 60
105.     FOR x = 1 TO 128
106.         t = t + 1
107.         c& = POINT(x, y)
108.         red&(t) = _RED32(c&)
109.         green&(t) = _GREEN32(c&)
110.         blue&(t) = _BLUE32(c&)
111.     NEXT x
112. NEXT y
113. _DELAY .5
114. CLS
115. SCREEN _NEWIMAGE(640, 480, 32)
116.  
117. nm3$ = nm2$ + ".txt"
118. OPEN nm3$ FOR OUTPUT AS #1
119.  
120. FOR tt = 1 TO t
121.     shade = red&(tt) + green&(tt) + blue&(tt)
122.     shade = INT(shade / 11)
123.     l$(tt) = MID$(text$, shade, 1)
124.     IF tt / 128 = INT(tt / 128) THEN PRINT #1, " ": GOTO nex2:
125.     PRINT #1, l$(tt);
126.     nex2:
127. NEXT tt
128. CLOSE #1
129. PRINT: PRINT
130. PRINT nm3$; " has been saved to your computer."
131. PRINT: PRINT
132. INPUT "Press Enter to see your new text on your .txt viewing program such as Notepad.", aa$
133. SHELL nm3$
134. CLS
135. END
136.  

[SierraKen]

OK, I'm not going for a World Record on postings here.. lol.. but tonight I spruced this puppy up as much as possible. I changed the font size to make the text picture look better in the program and reduced the size of the .txt file so that if people want to, they can change Notepad (or whatever they use for .txt files) to font size 8 or so and be able to print it good with their printer. I tried it and it works great. I hope some of you aren't tired of all these postings yet. Most likely this will be the last version. There's nothing more I need with it. So, here you go. :) Enjoy.

Code: QB64: [Select]

1. _TITLE "JPG Graphics To Text Artwork Maker"
2. start:
3. DIM red&(4000)
4. DIM green&(4000)
5. DIM blue&(4000)
6. DIM l$(4000)
7. t = 0
8. a = 0
9. SCREEN 0
10. CLS
11. PRINT
12. PRINT
13. COLOR 15
14. PRINT "                     JPG Graphics To Text Artwork Maker"
15. PRINT: PRINT
16. PRINT "                                By Ken G."
17. PRINT: PRINT
18. PRINT "     This program loads JPG graphics files that are the same directory"
19. PRINT "     as this program and creates a text file (.txt) of the same name"
20. PRINT "     as your JPG file as a text file instead that can load in Notepad."
21. PRINT "     This program will not change your original JPG file in any way."
22. PRINT "     This program only works with non-detailed graphics, a camera"
23. PRINT "     picture will not come out."
24. PRINT
25. PRINT "     For example, you can draw something with Microsoft Paint and save"
26. PRINT "     it as a JPG and load it in this to make a text graphic. Because"
27. PRINT "     this program has to shrink the graphic down (in memory only) the"
28. PRINT "     detail of the text file will be very minimal."
29. PRINT
30. PRINT "     Which means it will look funny and non-detailed, but I like it"
31. PRINT "     and I hope you have some fun with it too."
32. PRINT: PRINT
33. INPUT "                         Press Enter to begin.", st$
34. CLS
35.  
36. 'This section loads your picture from your computer.
37.  
38. loading:
39. PRINT
40. PRINT
41. PRINT "                               Loading"
42. PRINT
43. PRINT "                     Do not add .jpg at the end."
44. PRINT "                     The jpg picture must be in the same"
45. PRINT "                     directory as this program is."
46. PRINT "                     Type the name of your picture file"
47. PRINT "                     here and press the Enter key."
48. PRINT "                     Only use a graphic no larger than"
49. PRINT "                     800 x 600 pixels."
50. PRINT
51. PRINT "                     Example: MyPic"
52. PRINT "                     Q and Enter key ends program here."
53. PRINT
54. INPUT "->"; nm2$
55. IF nm2$ = "Q" OR nm2$ = "q" THEN PRINT "Goodbye.": END
56. nm$ = nm2$ + ".jpg"
57. theFileExists = _FILEEXISTS(nm$)
58. IF theFileExists = 0 THEN
59.     PRINT "File Does Not Exist."
60.     PRINT "Would you like to try again (Y/N)"
61.     PRINT "Esc ends program."
62.     _LIMIT 10
63.     llloop2:
64.     ag$ = INKEY$
65.     IF ag$ = "" THEN GOTO llloop2:
66.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
67.     IF ag$ = CHR$(27) THEN PRINT "Goodbye.": END
68.     GOTO start:
69. END IF
70. CLS
71.  
72. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
73.  
74. SCREEN _NEWIMAGE(64, 60, 32)
75. i& = _LOADIMAGE(nm$, 32)
76. _PUTIMAGE (0, 0)-(64, 60), i&
77. FOR y = 1 TO 60
78.     FOR x = 1 TO 64
79.         a = a + 1
80.         c& = POINT(x, y)
81.         red&(a) = _RED32(c&)
82.         green&(a) = _GREEN32(c&)
83.         blue&(a) = _BLUE32(c&)
84.     NEXT x
85. NEXT y
86. _DELAY .5
87. CLS
88. SCREEN _NEWIMAGE(1000, 800, 32)
89. text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
90. _FONT 8
91. WIDTH 63, 80
92. FOR ttt = 1 TO a
93.     shade = red&(ttt) + green&(ttt) + blue&(ttt)
94.     shade = INT(shade / 11)
95.     l$(ttt) = MID$(text$, shade, 1)
96.     IF ttt / 64 = INT(ttt / 64) THEN PRINT: GOTO nex1:
97.     PRINT l$(ttt);
98.     nex1:
99. NEXT ttt
100. _FONT 16
101. LOCATE 39, 1: INPUT "Do you want to make a .txt file of this (Y/N)"; cc$
102. IF LEFT$(cc$, 1) = "y" OR LEFT$(cc$, 1) = "Y" THEN GOTO more:
103. PRINT "Goodbye."
104. END
105. more:
106.  
107. 'This section has to do with making the text file.
108.  
109. CLS
110. SCREEN _NEWIMAGE(85, 40, 32)
111. i& = _LOADIMAGE(nm$, 32)
112. _PUTIMAGE (0, 0)-(85, 40), i&
113. FOR y = 1 TO 40
114.     FOR x = 1 TO 85
115.         t = t + 1
116.         c& = POINT(x, y)
117.         red&(t) = _RED32(c&)
118.         green&(t) = _GREEN32(c&)
119.         blue&(t) = _BLUE32(c&)
120.     NEXT x
121. NEXT y
122. _DELAY .5
123. CLS
124. SCREEN _NEWIMAGE(640, 480, 32)
125.  
126. nm3$ = nm2$ + ".txt"
127. OPEN nm3$ FOR OUTPUT AS #1
128.  
129. FOR tt = 1 TO t
130.     shade = red&(tt) + green&(tt) + blue&(tt)
131.     shade = INT(shade / 11)
132.     l$(tt) = MID$(text$, shade, 1)
133.     IF tt / 85 = INT(tt / 85) THEN PRINT #1, " ": GOTO nex2:
134.     PRINT #1, l$(tt);
135.     nex2:
136. NEXT tt
137. CLOSE #1
138. PRINT: PRINT
139. PRINT nm3$; " has been saved to your computer."
140. PRINT: PRINT
141. PRINT "Feel free to change the font size on your .txt viewer (like Notepad)"
142. PRINT "to font size 8 or so to be able to print on your printer."
143. PRINT
144. INPUT "Press Enter to see your new text on your .txt viewer (like Notepad).", aa$
145. SHELL _DONTWAIT nm3$
146. CLS
147. PRINT "Goodbye."
148. END
149.  

[TempodiBasic]

Cool
It works fine!