PROG : 16509
D-FILE: 16704
VARS : 17497
E-LINE: 17498
STKBOT: 17498
STKEND: 17498
9999 means line number
PRINT means treat as KEYWORD P
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