'This is a QUINE in MMBasic: that is, a self-replicating program
' Originally written by Ariel Scolnicov
' Adapted for MMBasic by William M Leue 5/15/2021
for i = 1 to 2
restore
for j = 1 to 21
read a$
b$ = ""
for k = 1 to len(a$)
if i = 1 and asc(mid$(a$, k, 1)) = 35 then
b$ = b$ + chr$(34)
else
b$ = b$ + mid$(a$, k, 1)
end if
next k
if i = 1 then
print b$
else
print "data ";chr$(34);b$;chr$(34)
end if
next j, i
data "'This is a QUINE in MMBasic: that is, a self-replicating program"
data "' Originally written by Ariel Scolnicov"
data "' Adapted for MMBasic by William M Leue 5/15/2021"
data "for i = 1 to 2"
data "restore"
data "for j = 1 to 21"
data "read a$"
data "b$ = ##"
data "for k = 1 to len(a$)"
data "if asc(mid$(a$, k, 1)) = 35 then"
data "b$ = b$ + chr$(34)"
data "else"
data "b$ = b$ + mid$(a$, k, 1)"
data "end if"
data "next k"
data "if i = 1 then"
data "print b$"
data "else"
data "print #data #;chr$(34);b$;chr$(34)
data "end if"
data "next j, i"