RosettaCodeData/Task/Quine/Prog8/quine.prog8
2024-07-13 15:19:22 -07:00

9 lines
497 B
Text

%import textio
main {
sub start() { str[] s = [
"%import textio","main {","sub start() { str[] s = [","]","ubyte i","for i in 0 to 2 { txt.print(s[i]) txt.nl() }","for i in 0 to 8 { txt.chrout(34) txt.print(s[i]) txt.chrout(34) if i<8 txt.chrout(44) }","for i in 3 to 8 { txt.print(s[i]) txt.nl() } }","}"]
ubyte i
for i in 0 to 2 { txt.print(s[i]) txt.nl() }
for i in 0 to 8 { txt.chrout(34) txt.print(s[i]) txt.chrout(34) if i<8 txt.chrout(44) }
for i in 3 to 8 { txt.print(s[i]) txt.nl() } }
}