10 MEMORY 23999
20 CALL &6B78
30 MODE 0
40 DEFINT a-z
50 |SETLIMITS,0,80,0,200:|3d,0
60 disponibles1$="0123456789ABCDEFGHIJ
61 disponibles2$="KLMNOPQRSTUVWXYZ:! ,."
70 cad$=" CARACTERES DISPONIBLES:"
80 |PRINTAT,0,0,0,@cad$
90 |PRINTAT,0,8,0,@disponibles1$
91 |PRINTAT,0,16,0,@disponibles2$
100 cad$="PUEDES CREAR TU PROPIO SET DE CARACTERES"
110 |PRINTAT,0,24,0,@cad$
120 c$=" HOLA AMIGOS "
130 d$="             "
140 x=10
150 y=100
160 incx=1
170 incy=0
180 PLOT 0,156:DRAW 640,156
190 |PRINTAT,0,y,x,@c$
200 |PRINTAT,0,y,x,@d$
210 CALL &BD19
220 incy=incy+1:IF incy=6 THEN incy=-5
230 y=y+incy
240 x=x+incx:IF x>50 OR x<0 THEN incx=-incx
250 GOTO 190