** MAKER.BAS * Created for CodeWorks magazine; Copyright 1985 Tandy 600 version Copyright 1986 by David Dunn Thomas, Timonium, MD[:: : I,L,N,Y: A,F,P,Z: A(),Z(d):A" DATA ": X ,:"Automatically generates data statements." (,7)(,<),,BF  ,:"This program will generate DATA statements without the need of entering"G "line numbers, the word DATA, or the commas between elements." " The program generates an ASCII file of these data statementsa which can be merged with any other BASIC program. Limits are set in lines 4 and 30."l " Start your line numbers high enough to insure they will not crash into existing numbers when you merge programs later."  Z: X: ,  "What starting line number do you want";L  "With a line increment of";IC  "How many elements per line";LLC  "What is your sentinel character (to close DATA statements)";S$ "Use < "S$" > to end input - it will also be recorded as the last DATA element."  I   ,:" " "  , :"Enter data item #"I"> ";: A(I). $ A(I)S$ (4 &B (NI:Yr * X (NLL):Z(L)A: QY YLL , QYLL B$"" : B$(,) . A(Q)S$ Z(X)ZA(Q): 8 0ZZA(Q)B$ 2 Q 4LLIC:Z(X)Z:YYLL 6 X 8 X: , : I X:Z(I)4 <  Z: X: ,: > @ Z: X: ,:"You may save the file to RAM or abort and rerun the program." B:"Choose ave or un? "; DP$(): P"R" P"r"  : P"S" P"s" H F D,H  ,:"What name will you use for this file?"\J "I'll append TXT for the file type. ";F}LFF".TXT": F OUTPUT AS 1N I XP #, Z(I)RT V ,:"DONE! Now load your Basic program and merge ";F: Z:DX: ,!:"The CodeWorks": ,:"D A T A M A K E R": (,!)(,"),,BF:Z ,<: :"Press any key ";()" "();: :P$():