PROG : 16509
D-FILE: 16927
VARS : 17720
E-LINE: 17721
STKBOT: 17721
STKEND: 17721
9999 means line number
PRINT means treat as KEYWORD P
10 REM **MONO LISA**SLR/2026**
20 LET A$="<+6:$=4$)<C)B)0$*(0
$*).:(*.:$$:$$::).$*),:->,?+<;??
$)<;?($?=;(>+;)(-;3;3,>=).?+);:;
>+?,<<(,)+(;(:?)$"
30 POKE 16418,0
40 FOR I=1 TO LEN A$
45 LET S=CODE A$(I)-12-(128
AND A$(I)>"Z")
50 REM FOR J=1 TO CODE A$(I)-1
2-(140 AND A$(I)>"Z")
51 FOR J=1 TO S
60 PRINT " "(1+(1 AND A$(I)>"
Z"));
70 NEXT J
80 NEXT I
90 PRINT AT 23,6;"MONO LISA";
100 PAUSE 500
110 CLS
120 RUN
200 SAVE "MONOLISA"
210 RUN