'
'  � JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                       CUTREX BANNERS - HECHO EN RONDA
DIM letra$(0 TO 255, 1 TO 3)

FOR n = 0 TO 255
   letra$(n, 1) = "   "
   letra$(n, 2) = "   "
   letra$(n, 3) = "   "
NEXT

letra$(55, 1) = " � "
letra$(55, 2) = " � "
letra$(55, 3) = "���"
letra$(56, 1) = "�Ŀ"
letra$(56, 2) = "���"
letra$(56, 3) = "���"
letra$(57, 1) = "�Ŀ"
letra$(57, 2) = " Ĵ"
letra$(57, 3) = "���"
letra$(58, 1) = "� �"
letra$(58, 2) = "�Ĵ"
letra$(58, 3) = "  �"
letra$(59, 1) = "���"
letra$(59, 2) = "�Ŀ"
letra$(59, 3) = "���"
letra$(60, 1) = "���"
letra$(60, 2) = "�Ŀ"
letra$(60, 3) = "���"
letra$(61, 1) = "�Ŀ"
letra$(61, 2) = "  �"
letra$(61, 3) = "  �"
letra$(62, 1) = "�Ŀ"
letra$(62, 2) = "�Ĵ"
letra$(62, 3) = "���"
letra$(63, 1) = "�Ŀ"
letra$(63, 2) = "�Ĵ"
letra$(63, 3) = "  �"
letra$(64, 1) = "�Ŀ"
letra$(64, 2) = "� �"
letra$(64, 3) = "���"
letra$(65, 1) = "�Ŀ"
letra$(65, 2) = "� �"
letra$(65, 3) = "�Ĵ"
letra$(66, 1) = "ڿ "
letra$(66, 2) = "���"
letra$(66, 3) = "���"
letra$(67, 1) = "���"
letra$(67, 2) = "�  "
letra$(67, 3) = "���"
letra$(68, 1) = "�Ŀ"
letra$(68, 2) = "� �"
letra$(68, 3) = "���"
letra$(69, 1) = "���"
letra$(69, 2) = "�� "
letra$(69, 3) = "���"
letra$(70, 1) = "���"
letra$(70, 2) = "�� "
letra$(70, 3) = "�  "
letra$(71, 1) = "���"
letra$(71, 2) = "� �"
letra$(71, 3) = "���"
letra$(72, 1) = "� �"
letra$(72, 2) = "�Ĵ"
letra$(72, 3) = "� �"
letra$(73, 1) = "���"
letra$(73, 2) = " � "
letra$(73, 3) = "���"
letra$(74, 1) = "  �"
letra$(74, 2) = "  �"
letra$(74, 3) = "���"
letra$(75, 1) = "���"
letra$(75, 2) = "ô "
letra$(75, 3) = "���"
letra$(76, 1) = "�  "
letra$(76, 2) = "�  "
letra$(76, 3) = "���"
letra$(77, 1) = "�´"
letra$(77, 2) = "���"
letra$(77, 3) = "� �"
letra$(78, 1) = "ڿ�"
letra$(78, 2) = "���"
letra$(78, 3) = "���"
letra$(79, 1) = "�Ŀ"
letra$(79, 2) = "� �"
letra$(79, 3) = "���"
letra$(80, 1) = "�Ŀ"
letra$(80, 2) = "���"
letra$(80, 3) = "�  "
letra$(81, 1) = "�Ŀ"
letra$(81, 2) = "� �"
letra$(81, 3) = "���"
letra$(82, 1) = "�Ŀ"
letra$(82, 2) = "���"
letra$(82, 3) = "�� "
letra$(83, 1) = "���"
letra$(83, 2) = "�Ŀ"
letra$(83, 3) = "���"
letra$(84, 1) = "���"
letra$(84, 2) = " � "
letra$(84, 3) = " � "
letra$(85, 1) = "� �"
letra$(85, 2) = "� �"
letra$(85, 3) = "���"
letra$(86, 1) = "� �"
letra$(86, 2) = "���"
letra$(86, 3) = "�� "
letra$(87, 1) = "� �"
letra$(87, 2) = "���"
letra$(87, 3) = "���"
letra$(88, 1) = " ��"
letra$(88, 2) = "���"
letra$(88, 3) = "�� "
letra$(89, 1) = "� �"
letra$(89, 2) = "���"
letra$(89, 3) = " � "
letra$(90, 1) = "�Ŀ"
letra$(90, 2) = "���"
letra$(90, 3) = "���"
letra$(91, 1) = "���"
letra$(91, 2) = "ڿ�"
letra$(91, 3) = "���"

COLOR 15, 1
CLS
PRINT
PRINT "            ��� � � ��� �Ŀ ���  ��     ڿ  �Ŀ ڿ� ڿ� ��� �Ŀ ���"
PRINT "            �   � �  �  ��� ��  ���     ��� � � ��� ��� ��  ��� �Ŀ"
PRINT "            ��� ���  �  ��  ��� ��      ��� �Ĵ ��� ��� ��� ��  ���"
COLOR 14
PRINT "          �����������������������������������������������������������"
COLOR 9
PRINT "                      Versi�n 0.0.0  ::  Hecho en Ronda"
PRINT
PRINT
PRINT
COLOR 11
INPUT "Escribe el texto: ", texto$

IF texto$ <> "" THEN

   texto$ = UCASE$(texto$)
  
   PRINT
   INPUT "Separaci�n entre letras (0,1,2...): ", separ
  
   PRINT
   INPUT "�Usar l�neas dobles? (S/N): ", doble$
  
   FOR n = 1 TO LEN(texto$)
      SELECT CASE MID$(texto$, n, 1)
         CASE "1": MID$(texto$, n, 1) = CHR$(55)
         CASE "2": MID$(texto$, n, 1) = CHR$(56)
         CASE "3": MID$(texto$, n, 1) = CHR$(57)
         CASE "4": MID$(texto$, n, 1) = CHR$(58)
         CASE "5": MID$(texto$, n, 1) = CHR$(59)
         CASE "6": MID$(texto$, n, 1) = CHR$(60)
         CASE "7": MID$(texto$, n, 1) = CHR$(61)
         CASE "8": MID$(texto$, n, 1) = CHR$(62)
         CASE "9": MID$(texto$, n, 1) = CHR$(63)
         CASE "0": MID$(texto$, n, 1) = CHR$(64)
        
         CASE "�": MID$(texto$, n, 1) = "["
         CASE "�": MID$(texto$, n, 1) = "["

         CASE "�": MID$(texto$, n, 1) = "A"
         CASE "�": MID$(texto$, n, 1) = "A"
         CASE "�": MID$(texto$, n, 1) = "E"
         CASE "�": MID$(texto$, n, 1) = "E"
         CASE "�": MID$(texto$, n, 1) = "I"
         CASE "�": MID$(texto$, n, 1) = "I"
         CASE "�": MID$(texto$, n, 1) = "O"
         CASE "�": MID$(texto$, n, 1) = "O"
         CASE "�": MID$(texto$, n, 1) = "U"
         CASE "�": MID$(texto$, n, 1) = "U"
         CASE "�": MID$(texto$, n, 1) = "U"
         CASE "�": MID$(texto$, n, 1) = "U"

      END SELECT
   NEXT


   PRINT
   PRINT
  
   OPEN "rotulo.txt" FOR APPEND AS #1
  
   FOR v = 1 TO 3
      linea$ = ""
      FOR h = 1 TO LEN(texto$)
         linea$ = linea$ + letra$(ASC(MID$(texto$, h, 1)), v) + SPACE$(separ)
      NEXT

      IF UCASE$(doble$) = "S" THEN
         FOR h = 1 TO LEN(linea$)
            SELECT CASE MID$(linea$, h, 1)
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
               CASE "�": MID$(linea$, h, 1) = "�"
            END SELECT
         NEXT
      END IF

      PRINT LEFT$(linea$, 80)
      PRINT #1, linea$
   NEXT
  
   PRINT #1, ""
   PRINT #1, "JM. :: Hecho en Ronda"
   PRINT #1, ""

   CLOSE
  
   PRINT
   COLOR 10
   PRINT
   PRINT
   PRINT "Resultado almacenado en 'ROTULO.TXT'"
ELSE
   PRINT
   PRINT "[ERROR] ";
   COLOR 12
   PRINT "La prixima vez escribe algooooooooooo!!!!!"
END IF
COLOR 1