ZX81 Listing for monolisa.p

**MONO LISA**SLR/2026** (monolisa.p)

A short screen animation of a Mono Lisa. I rewrote the C64 version by Bobby Brightly, hand encoding the RLE graphics.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16927
VARS  : 17720
E-LINE: 17721
STKBOT: 17721
STKEND: 17721

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

  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