Ecrire un quine en Panoramic

DIM a$,result$,i%,caractere$
MEMO 1
FULL_SPACE 1
BAR_HORIZONTAL 1
a$="DIM a$,result$,i%,caractere$#nMEMO 1#nFULL_SPACE 1#nBAR_HORIZONTAL 1#na$=#g#s#g#nFOR i% = 1 TO LEN(a$)#n    caractere$=MID$(a$,i%,1)#n    IF caractere$=CHR$(35)#n       i%=i%+1#n       caractere$= MID$(a$,i%,1)#n       IF caractere$=CHR$(115)#n           result$=result$+CHR$(34)+a$+CHR$(34)#n       END_IF#n       IF caractere$=CHR$(110)#n           result$=result$+CHR$(13)+CHR$(10)#n       END_IF#n    ELSE#n        result$=result$+caractere$#n    END_IF#nNEXT i%#nITEM_ADD 1,result$#nEND#n#n"
FOR i% = 1 TO LEN(a$)
    caractere$=MID$(a$,i%,1)
    IF caractere$=CHR$(35)
       i%=i%+1
       caractere$= MID$(a$,i%,1)
       IF caractere$=CHR$(115)
           result$=result$+CHR$(34)+a$+CHR$(34)
       END_IF
       IF caractere$=CHR$(110)
           result$=result$+CHR$(13)+CHR$(10)
       END_IF
    ELSE
       result$=result$+caractere$
    END_IF
NEXT i%
ITEM_ADD 1,result$
END

caption 0,"Quine"
dim a$,i%
label FIN
data "caption 0",",","34","Quine","34","13"
data "dim a$,i%","13"
data "while not (a$=","34","end","34"," ) ","13","read a$","13"
data "print a$","13","END"
while not (a$="END")
read a$
if a$="13" then print chr$(val(a$)): goto FIN
if a$="34" then print chr$(val(a$));: goto FIN
print a$;
FIN:
end_while