_TITLE "JPG Graphics To Text File Artwork Maker" start:
t = 0
PRINT " JPG Graphics To Text File Artwork Maker" PRINT " This program loads 1 JPG graphics file that's in the" PRINT " same directory as this program and creates a text" PRINT " file (.txt) of the same name as your JPG file and" PRINT " as a text file instead that can load in Notepad." PRINT " This program only works with non-detailed graphics," PRINT " so a camera picture will not come out." PRINT " For example, you can draw something with Microsoft" PRINT " Paint and save it as a JPG and load it in this" PRINT " to make a text graphic. Because this program has to" PRINT " shrink the graphic down (without saving it or" PRINT " overwriting any part of the original JPG file)," PRINT " the detail of the text file will be very minimal." PRINT " Which means it will look funny and non-detailed," PRINT " but I like it and I hope you have some fun with it too." INPUT " Press Enter to begin.", st$
'This section loads your picture from your computer.
loading:
PRINT " Do not add .jpg at the end." PRINT " The jpg picture must be in the same" PRINT " directory as this program is." PRINT " Type the name of your picture file" PRINT " here and press the Enter key." PRINT " Only use a graphic no larger than" PRINT " 800 x 600 pixels." PRINT " Q and Enter key ends program here." nm$ = nm2$ + ".jpg"
PRINT "File Does Not Exist." PRINT "Would you like to try again (Y/N)" PRINT "Esc ends program." llloop2:
'This section reads your picture file and puts the red, green, and blue numbers into memory.
a = a + 1
text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
shade = red&(ttt) + green&(ttt) + blue&(ttt)
l$
(ttt
) = MID$(text$
, shade
, 1) nex1:
LOCATE 49, 1:
INPUT "Do you want to make a .txt file of this (Y/N)"; cc$
more:
'This section has to do with making the text file.
t = t + 1
nm3$ = nm2$ + ".txt"
shade = red&(tt) + green&(tt) + blue&(tt)
l$
(tt
) = MID$(text$
, shade
, 1) nex2:
PRINT nm3$;
" has been saved to your computer." INPUT "Press Enter to see your new text on your .txt viewing program such as Notepad.", aa$