ZX81 Listing for present.p

*PRESENT*SLR/2024* (present.p)

My entry in the Vintage Computing Christmas Challenge
2024 (VC³ 2024). Not very small at 168 bytes of code,
but I did take a more novel approach than most.

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 16704
VARS  : 17497
E-LINE: 17498
STKBOT: 17498
STKEND: 17498

LEGEND

9999 means line number
PRINT means treat as KEYWORD P

PROGRAM LISTING

   1 LET A=LEN STR$ PI
   2 FOR X=SGN PI TO CODE "ú"
STEP A
   3 FOR Y=SGN PI TO CODE "ú"
STEP A
   4 FOR B=SGN PI TO CODE "!"
   5 PRINT AT NOT PI,A;"¶Oö";AT
X+B,Y;":";AT X+B,Y+A;":";AT X,Y;
"+";AT X+A,Y;"+";AT X,Y+B;"-+";
AT X+A,Y+B;"-+"
   6 NEXT B
   7 NEXT Y
   8 NEXT X
   9 STOP
  10 SAVE "PRESENT"
  20 RUN