1 BORDER 1: LET o=23624: LET 
i=o+69: POKE o,66: POKE i,68: CL
S : PRINT #1;AT 1,0; FLASH 1;CHR
$ 137: FOR n=0 TO 7: POKE USR "a
"+n,36: NEXT n: READ a$,b$: FOR 
n=1 TO 16: FOR f=1 TO 2: LET b$=
b$+CHR$ 16+CHR$ VAL (STR$ CODE a
$(n))(f)+" ": NEXT f: NEXT n: LE
T a=127: LET b=87.5: LET c=5.1: 
LET d=3.5: LET g=255: FOR x=0 TO
 -25 STEP -.196: FOR y=-25 TO 0 
STEP .196: LET e=a+x*c: LET f=b+
y*SIN SQR (x*x+y*y)*d: PLOT e,f:
 PLOT g-e,f: NEXT y: NEXT x: BOR
DER 0: POKE o,71: POKE i,71: OVE
R 1: FOR n=0 TO 10: PRINT INVERS
E 1; INK 7; PAPER VAL a$(n*2+18)
;AT 11+n,0;b$; BRIGHT 0; PAPER V
AL a$(n*2+17);AT 10-n,0;b$: NEXT
 n: INK 8: PAPER 8: FOR f=1 TO 7
: OVER f<3: LET a$="": LET a$=a$
+CHR$ (16+(f>2)) AND f>1: FOR n=
1 TO (f>1): READ a: LET a$=a$+CH
R$ a: NEXT n: LET a$=a$+CHR$ (32
+(f>2)*112): READ b$: FOR n=1 TO
 LEN b$/2: LET b=CODE b$(n*2-1)-
48: LET c=CODE b$(n*2)-48: PRINT
 BRIGHT (f>1)*8; INVERSE f>4;AT 
b,c;a$;AT b,31-c;a$: NEXT n: NEX
T f: READ a$: FOR n=1 TO 16: PLO
T OVER 1; PAPER 4+(n=1 OR n=16);
70+CODE a$(n*2-1),48-CODE a$(n*2
): NEXT n: DATA ".88ACCLMMCLL8AA
@0102110211021213122333","",";2;
3;7;;;?<3<7<;<?>4>8E0",6,"57B034
C237C700E0E2E7",6,"17D402",7,"D=
",7,"0:E=",6,"07E410",3,"00","0?
2>3>5=6=6>8<8=9=;=;>==>=@>A>C?":
 REM   "2D SINEyes.tap" v1.0 by 
dpla on 2021-10-20.