0 'ASCII.BA - Copyright 1987               by David Dunn Thomas
1 'Public Domain Software                  GEnie's Laptops RoundTable
2 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
3 CLS:M$=CHR$(147)+" ":W$=CHR$(148)+" ":PRINTCHR$(27)"p"M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$CHR$(27)"q";:PRINT:PRINTTAB(4)"The Wondrous ASCII Data Creator":PRINT:PRINTTAB(3)"Copyright 1987 - David Dunn Thomas"
4 PRINT:PRINTCHR$(27)"p"M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$M$W$CHR$(27)"q";:FORI=1TO2000:NEXT
5 FORI=1TO5:READQ$(I):NEXT
6 CLS:FORI=1TO5:PRINT@40*I+1,Q$(I):NEXT
7 PRINT@303,"Press any key ->";
8 A$=INKEY$:IFA$=""THEN8
9 CLS:MAXFILES=2:PRINT@45,"Name of .DO file to process ":PRINT@85,"";:INPUTF$
10 OPENF$FORINPUTAS1:OPEN"ASC"FOROUTPUTAS2:FORI=1TO319:A$=INPUT$(1,1):A=ASC(A$):C$=RIGHT$(STR$(A),LEN(STR$(A))-1)+",":PRINT#2,C$;
11 PRINT@162,"Printing ASC values of data to ASC.DO":IFA<32THEN12ELSEPRINT@258,A$" ="A
12 SOUNDA*50,1:IFEOF(1)THEN14
13 NEXT
14 CLOSE:MAXFILES=1:MENU
15 DATA Convert text or graphics file into,a file containing ASCII number,equivalents for use as DATA statements.,File must be a .DO file - disk is ok!,"One screen of 319 characters limit."