Creado con el emulador/IDE Basinc. Publicado previamente (junto con un vídeo de demostración) en Mi canal de Fediverse.tv Muestra una O negra sobre la que están escritos los nombres de algunas obras y autores “frikis”. En el centro dice “O de orgullo”.

orgullo.bas

10 REM texto circular
20 LET cx=16: LET cy=10: LET r1=1010: LET r2=55
30 DATA "Star Wars","Pokemon","Dungeons & Dragons","Miyazaki","Pac-man","Battlestar Galactica","Conan"
40 DATA "Runequest","Moebius","Asimov","El senor de los anillos","Mazinger Z","La historia interminable"
50 DATA "Art Spiegelman","La novia de Frankenstein","El mundo del rio","ZX-Spectrum"
60 DATA "Creepy","Los mitos de Cthulhu","Harry Potter","Legend of Zelda"
70 DATA "El pozo y el pendulo","Dune","Akira"
100 LET P$=""
110 FOR y=1 TO 20: LET b=ABS (y-cy): LET b=bb
120 FOR x=1 TO 32
130 LET a=ABS (x-cx): LET a=a*a
140 IF (a+b)<=r1 THEN IF (a+b)>r2 THEN GO SUB 1000
150 NEXT x: NEXT y
200 PRINT AT cy-1,cx-1;"de";AT cy+1,cx-3;"ORGULLO!"
999 GO TO 9999
1000 IF P$="" THEN READ P$: LET P$=P$+" "
1010 PRINT AT y,X; INVERSE 1;P$(1);
1020 LET P$=P$(2 TO )
1030 RETURN
5000 FOR F=1 TO 21: PRINT AT 1,f;fMOD10;: NEXT F
9999 REM FIN