Написать программу, которая покажет свой исходный код

' @[]
DEFLNG A-Z
CLS
PRINT "Try find the code in memory... Please wait..."
  DO
   '  Ищем стартовую аббревиатуру
   IF PEEK(pt) = 64 AND PEEK(pt + 1) = 91 AND PEEK(pt + 2) = 93 THEN
     PRINT "Code text found!"
       Sts = s: Stpt = pt
   END IF
   '  Ищем конечную аббревиатуру
   IF PEEK(pt) = 64 AND PEEK(pt + 1) = 123 AND PEEK(pt + 2) = 125 THEN
     PRINT "Code text end found!"
       Ens = s: Enpt = pt
     EXIT DO
   END IF
 
   pt = pt + 1
   IF pt > 65530 THEN
     s = s + 4095
     DEF SEG = s
     pt = 0
   END IF
  LOOP UNTIL s = 65520
StAdr = Sts * 16 + Stpt
EnAdr = Ens * 16 + Enpt
Dlin = EnAdr - StAdr
PRINT "Start Adress: "; StAdr
PRINT "End Adress  : "; EnAdr
PRINT "Length      : "; Dlin
  IF Dlin > 0 THEN
    PRINT
    DEF SEG = StAdr \ 16
    StAdr = StAdr - (StAdr \ 16) * 16
    FOR i = 0 TO Dlin - 1
       PRINT CHR$(PEEK(StAdr + i));
    NEXT
  END IF
DEF SEG
' @{}

CLS
DIM s(8) AS STRING, r AS STRING
r = CHR$(34)
s(1) = "CLS"
s(2) = "DIM s(8) AS STRING, r AS STRING"
s(3) = "r = CHR$(34)"
s(4) = "FOR i = 1 TO 3: ? s(i): NEXT"
s(5) = "FOR i = 1 TO 8: ? s(7) + LTRIM$(STR$(i)) + s(8) + r + s(i) + r: NEXT"
s(6) = "FOR i = 4 TO 6: ? s(i): NEXT"
s(7) = "s("
s(8) = ") = "
FOR i = 1 TO 3: ? s(i): NEXT
FOR i = 1 TO 8: ? s(7) + LTRIM$(STR$(i)) + s(8) + r + s(i) + r: NEXT
FOR i = 4 TO 6: ? s(i): NEXT