26 lines
391 B
Plaintext
26 lines
391 B
Plaintext
READ d$
|
|
DO
|
|
READ x$
|
|
PRINT x$
|
|
LOOP UNTIL LEN(x$) < 1
|
|
RESTORE
|
|
DO
|
|
READ x$
|
|
PRINT d$; CHR$(34); x$; CHR$(34)
|
|
LOOP UNTIL LEN(x$) < 1
|
|
END
|
|
|
|
DATA "DATA "
|
|
DATA "READ d$"
|
|
DATA "DO"
|
|
DATA " READ x$"
|
|
DATA " PRINT x$"
|
|
DATA "LOOP UNTIL LEN(x$) < 1"
|
|
DATA "RESTORE"
|
|
DATA "DO"
|
|
DATA " READ x$"
|
|
DATA " PRINT d$; CHR$(34); x$; CHR$(34)"
|
|
DATA "LOOP UNTIL LEN(x$) < 1"
|
|
DATA "END"
|
|
DATA ""
|