A modified version of my Mandelbrot Set that includes a Chunky graphics on top, and the normal graphics on the bottom.
PROG : 16509
D-FILE: 18202
VARS : 18995
E-LINE: 18996
STKBOT: 19001
STKEND: 19001
9999 means line number
PRINT means treat as KEYWORD P
1 REM /M*MBS SPLIT**SLR/2022*
30208 LN
F?LN EúJ5 M.RND60RNDU.RNDE0RND:
?) RNDLN V????YZ5 LN ??M2RND63
RNDU.RNDE0RND:Z) LN D?:?) ?LN .
?M5RND66RNDY?5 SAVE M8RND69RNDö
RNDVAL õ:JLN 2?U5RND?GOSUB ?6RND
U8RNDE9RNDLN V?PRINT U2RND?LET
GOSUB ?3RNDLN D?MERND6FRNDJ5 MB
RND6CRNDAT :/VAL LN **?UBRND?
GOSUB ?CRNDY?5 ?LN .?PRINT U2RND
?LET GOSUB ?3RNDLN D?MHRND6IRNDJ
5 MKRND6LRNDMNRND6ORNDö?VAL UK
RNDELRND?GOSUB ?LRNDLN D?PRINT
FAST UNRNDEORND?GOSUB ?ORNDLN D?
???LPRINT LET LN .????UERNDEFRND
LN V?FAST PRINT UNRND?GOSUB ?O
RNDUKRNDELRNDLN D?:RND) LN D???
?UHRNDEIRNDLN V?MNRND6ORNDLET
LPRINT MKRND6LRND?GOSUB ?LRNDLN
D?PRINT FAST UNRNDEORND?GOSUB ?O
RNDLN D????LPRINT LET LN V?:
INKEY$) LN õ?AT AND CPIASN CPI
Y?ACS JSSôYñ/òYòMNPI/!õTAB ?
INKEY$JMNPIAT VAL ??SúACS CõY/)?
LN OPIAT VAL $C!õY*±?LN 7?UBRNDE
CRND:Z) LN V?MBRND6CRNDAT $TAB
?INKEY$VAL U8RNDE9RND:Z) LN .?M
8RND69RNDAT VAL õ:JLN /?AT õTAB
:INKEY$5;;LN SLOW ?U.RNDE0RND:?)
(LN V?M.RND60RND:?) ?LN õ? AND
LEN RNDLN NEXT ??WRND VAL LN UPI
AT TAN ?ACS ?""CHR$ 4LIST ?ACS ?
""CHR$ KLIST E£RND7?ACS JRC÷)5 ;
X4UNPLOT - ?;úYCóF(IF UNPI???
ABS IF PIY£4²?ò?Yó4ACS 6ACS 6²?A
ñ$?ù³COPY ú!ºCOPY ó¹ JMNPI/õYñM
NPI?ACS ?""CHR$ RNDLIST ?ACS ?""
CHR$ KLIST - ?ACS Z?Kò-ñ?ACS Z?K
ô?ACS INT ?STR$ E£RND7?RC÷)5 ;X4
UNPLOT ) ?;SGN UNPIBASN 1??RC(X
C,XC8INPUT ÷?TAN SIN ?TAN ACS ·?
TAN INT ?TAN ACS ??TAN NOT ?TAN
ACS *?TAN ?RC(XC,XC8INPUT ÷?TAN
·?TAN ACS SIN ?TAN ??TAN ACS
INT ?TAN *?TAN ACS NOT ?TAN OR
LN ??Kò OR TAN INT COPY 6
LLIST ?LN **?ELLIST ?F?P4PAUSE
TAN E£RND7J:/ö4?7(UNPLOT 7$4
PLOT TAN ?NEW ?WIF D??PRINT LN .
?AT INPUT COS INPUT COS ?ACS S
NEW ?LEN :(KòJTAN ?PLOT ?·TAN ?P
Z""?NEW ?W?PAUSE 9??N""?STAN ?
NEW ?4ó?FOR TAN WIF RUN ??NEW ?
ASN PRINT ?WIF RND??DIF )?LN
LLIST ?C.SQR VAL LN "?ACS 4
GOSUB ?SGN ?SQR NEW ?RETURN W
ACS 1SQR 7TAN ?NEW ?RETURN ACS 0
ACS 1SQR G""8""WTAN PLOT ?5
TAN LN LLIST ?CNSQR VAL LN "?)?Y
/?GOSUB ?SGN ?SQR ?PKLCOS ?·
PRINT ?XC>ACS 5ACS (GOSUB ?ABS J
?ACS 5ñ GOSUB ?¸·?LET ?3TAN ?
GOSUB ?4óNEW TAN ñ KCHR$
INPUT ?J+?3=??/ASN DACS ñ*)COS
KöGOSUB ?ACS ùINKEY$FOR R3
RETURN >**?TAN ?P4IF LCRUN W·4
NEXT ?N?4òSCOS FTAN ñ RACS ,
ACS .ACS /ACS ;X4PRINT TAN ??
INPUT ???V?INPUT ?V???NEW C?
NEW ?C?WIF ¹??NEW ??COS WIF RND?
?NEW ?±CHR$ ZKòJTAN RETURN ?S÷?
PLOT ?5 TAN CNEW ?CPRINT ??
FAST STR$ LN 3?JACS 8FOR AT
GOSUB ?EXP AT ùEXP 3AT ?COS Z
ACS 0ACS 1WW·CABS 3XTAN ?NEW ?
COS WIF >?JTAN ?P?""?NEW ?4ôX??
TAN WIF 0??TAN ?FOR TAN ?- ??·SN
·SQ·ST·SW·SZ·SPI·S?·S??NEW
RETURN ·S?·S?·S?·S?·S?·S?·S?ACS
.**??TAN D?KòùºD?KòùºD?KòùºD?Kòù
ºD?KòùºD?KòùºD?Kòùº??NEW RETURN
D?KóùEXP D?KóùEXP D?KóùEXP D?
KóùEXP D?KóùEXP D?KóùEXP D?Kó
ùEXP D?SúACS .?SQR ùSQR 0""=
TAN =ACS .?SQR ùSQR 0TAN ?FOR YZ
5 ?D·?*??NEW ?ASN REM ?WIF CLS
??NEW ?4ôX??TAN WIF PRINT ?ACS T
?NEW ?LEN Z)KòJTAN RETURN ?S÷?
PLOT ?5 TAN R: GOSUB ?K£XCOS ;D
ACS )£GOSUB ?Kñ$VAL PRINT LN L?
SGN AT ºPAUSE G?X??CNEW ?CTAN J<
?Y ,?3X??LN STR$ ?ACS )VAL LN
STR$ ?ACS )D?;¸LPRINT ??ñ ?
GOSUB ?TAN LN **?LN <=?LN THEN
?ACS )D?COS ;¸**GOSUB ?/TAN ?
NEW ?CUWIF PRINT ?JTAN ?NCOS ?
FOR TAN ?P?""?NEW ?C9WIF D??TAN
2 RAND USR VAL "16514"