1 BORDER 1: LET o=23624: LET i=o+69: POKE o,66: POKE i,68: CLS : 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: LET 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: BORDER 0: POKE o,71: POKE i,71: OVER 1: FOR n=0 TO 10: PRINT INVERSE 1; INK 7; PAPER VAL a$(n*2+18);AT 11+n,0;b$; BRIGHT 0; PAPER VAL 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$+CHR$ 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: NEXT f: READ a$: FOR n=1 TO 16: PLOT 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,"57B034C237C700E0E2E7",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.