Añade los caracteres áéíóúüñ como UDG (gráficos de usuario) al ZX-Spectrum. Usado en salto_del_caballo.

A diferencia de otras soluciones más elegantes, este se limita a añadirlos en los caracteres gráficos correspondientes a ABCDEFG.

Para cargar en su propio programa, deje libres las líneas 8000-8999 y haga merge. (se podría hacer un programa más corto si se eliminaran todos los REM y se unieran las líneas de 8 en 8, pero me gusta que esté más o menos documentado).

udgtildes.bas

8000 DATA 8: REM 00001000
8001 DATA 16: REM 00010000
8002 DATA 60: REM 00111100
8003 DATA 66: REM 01000010
8004 DATA 66: REM 01000010
8005 DATA 126: REM 01111110
8006 DATA 66: REM 01000010
8007 DATA 0: REM 00000000
8010 DATA 8: REM 00001000
8011 DATA 16: REM 00010000
8012 DATA 126: REM 01111110
8013 DATA 64: REM 01000000
8014 DATA 124: REM 01111100
8015 DATA 64: REM 01000000
8016 DATA 126: REM 01111110
8017 DATA 0: REM 00000000
8020 DATA 4: REM 00000100
8021 DATA 8: REM 00001000
8022 DATA 62: REM 00111110
8023 DATA 8: REM 00001000
8024 DATA 8: REM 00001000
8025 DATA 8: REM 00001000
8026 DATA 62: REM 00111110
8027 DATA 0: REM 00000000
8030 DATA 8: REM 00001000
8031 DATA 16: REM 00010000
8032 DATA 60: REM 00111100
8033 DATA 66: REM 01000010
8034 DATA 66: REM 01000010
8035 DATA 66: REM 01000010
8036 DATA 60: REM 00111100
8037 DATA 0: REM 00000000
8040 DATA 8: REM 00001000
8041 DATA 16: REM 00010000
8042 DATA 66: REM 01000010
8043 DATA 66: REM 01000010
8044 DATA 66: REM 01000010
8045 DATA 66: REM 01000010
8046 DATA 60: REM 00111100
8047 DATA 0: REM 00000000
8050 DATA 102: REM 01100110
8051 DATA 0: REM 00000000
8052 DATA 66: REM 01000010
8053 DATA 66: REM 01000010
8054 DATA 66: REM 01000010
8055 DATA 66: REM 01000010
8056 DATA 60: REM 00111100
8057 DATA 0: REM 00000000
8060 DATA 50: REM 00110010
8061 DATA 76: REM 01001100
8062 DATA 0: REM 00000000
8063 DATA 98: REM 01100010
8064 DATA 82: REM 01010010
8065 DATA 74: REM 01001010
8066 DATA 70: REM 01000110
8067 DATA 0: REM 00000000
8070 DATA 8: REM 00001000
8071 DATA 16: REM 00010000
8072 DATA 56: REM 00111000
8073 DATA 4: REM 00000100
8074 DATA 60: REM 00111100
8075 DATA 68: REM 01000100
8076 DATA 60: REM 00111100
8077 DATA 0: REM 00000000
8080 DATA 8: REM 00001000
8081 DATA 16: REM 00010000
8082 DATA 56: REM 00111000
8083 DATA 68: REM 01000100
8084 DATA 120: REM 01111000
8085 DATA 64: REM 01000000
8086 DATA 60: REM 00111100
8087 DATA 0: REM 00000000
8090 DATA 8: REM 00001000
8091 DATA 16: REM 00010000
8092 DATA 0: REM 00000000
8093 DATA 48: REM 00110000
8094 DATA 16: REM 00010000
8095 DATA 16: REM 00010000
8096 DATA 56: REM 00111000
8097 DATA 0: REM 00000000
8100 DATA 8: REM 00001000
8101 DATA 16: REM 00010000
8102 DATA 56: REM 00111000
8103 DATA 68: REM 01000100
8104 DATA 68: REM 01000100
8105 DATA 68: REM 01000100
8106 DATA 56: REM 00111000
8107 DATA 0: REM 00000000
8110 DATA 8: REM 00001000
8111 DATA 16: REM 00010000
8112 DATA 68: REM 01000100
8113 DATA 68: REM 01000100
8114 DATA 68: REM 01000100
8115 DATA 68: REM 01000100
8116 DATA 56: REM 00111000
8117 DATA 0: REM 00000000
8120 DATA 68: REM 01000100
8121 DATA 0: REM 00000000
8122 DATA 68: REM 01000100
8123 DATA 68: REM 01000100
8124 DATA 68: REM 01000100
8125 DATA 68: REM 01000100
8126 DATA 56: REM 00111000
8127 DATA 0: REM 00000000
8130 DATA 52: REM 00110100
8131 DATA 72: REM 01001000
8132 DATA 0: REM 00000000
8133 DATA 120: REM 01111000
8134 DATA 68: REM 01000100
8135 DATA 68: REM 01000100
8136 DATA 68: REM 01000100
8137 DATA 0: REM 00000000
8500 RESTORE 8000
8505 CLS : PRINT AT 1,1;"GENERANDO UDGs..."
8510 FOR F=0 TO (8*7*2)-1
8520 READ BYTE: POKE USR "A"+F,BYTE
8530 NEXT f
8540 RETURN