10 ADDR=0 : L=0 : INP = 0
20 DFAULT = 31744
30 PRINT "Start Address "; : GOSUB 1000 : ADDR = INP
40 PRINT "Using "; ADDR
50 DFAULT = 1
60 PRINT "Length "; : GOSUB 1000 : L = INP
70 PRINT "Using "; L
80 DFAULT = 500
90 PRINT "Start Line "; : GOSUB 1000 : LN = INP
95 PRINT "Using "; LN : PRINT
100 PRINT MID$(STR$(LN),2)+" DATA "+MID$(STR$(ADDR),2)+"," + MID$(STR$(L),2)
110 LN=LN+10
120 X=ADDR 
130 STRING$=""
140 FOR I=0 TO 15
150   IF X = ADDR+L THEN GOTO 200
160   IF I > 0 THEN STRING$ = STRING$ + ","
170   STRING$ = STRING$ + MID$(STR$(PEEK(X)),2)
180   X=X+1
190 NEXT I
200 STRING$ = MID$(STR$(LN),2) + " DATA " + STRING$
210 PRINT STRING$
220 LN = LN+10
230 IF X < ADDR+L THEN GOTO 130
240 END

1000 IP$="":INP=0
1010 GET IN$:IF IN$ <> CHR$(13) THEN 1040
1020 REM IF IP$="" THEN PRINT "Pardon?": GOTO 1010
1030 INP=VAL(IP$) : IF INP = 0 THEN INP = DFAULT
1035 RETURN
1040 IF IN$=CHR$(127) AND IP$ <> "" THEN IP$=LEFT$(IP$,LEN(IP$)-1):GOTO 1010
1050 IP$=IP$+IN$:GOTO 1010