Ejemplo de uso de colores en Business Basic

Ejemplo de uso de color utilizando Business Basic (BBx).

El siguiente ejemplo fue desarrollado por Rogers Arismendi. Porlamar - Venezuela.

0010 REM
0020 BEGIN
0030 STRING "C:\COLOR.RPV",0,ERR=0040; GOTO 0060
0040 ERASE "C:\COLOR.RPV"
0050 GOTO 0030
0060 OPEN (1)"c:\COLOR.RPV"
0070 PRINT (1)"Report_title=Ejemplo de Colores"+CHR(13)
0080 PRINT (1)"sapacing=250"+CHR(13)
0090 PRINT (1)"$col0=400"+CHR(13)
0100 PRINT (1)"[HEADER]"+CHR(13)
0110 PRINT (1)"{f=arial;b=y;s=10}"+CHR(13)
0120 PRINT (1)"{$col0} Ejemplo de Colores {\n;\n}"+CHR(13)
0130 PRINT (1)"[DATA]"+CHR(13)
0140 FOR COL=0 TO 15
0150 LET COL$=STR(COL)
0160 PRINT (1)"{$col0;c="+COL$+"} Esta Linea se Muestra en el Color "+COL$+"{\n}"+CHR(13)
0170 NEXT COL
0180 CLOSE (1)
0190 LET A=SCALL("C:\ARCHIV~1\RPV\RPV C:\COLOR.RPV")

Es importante que observe que "SCALL" ejecutará rpv.exe en la ruta donde se especifica. En el caso de que en su ordenador dicha ruta no exista, deberá cambiarla por la ruta apropiada.

Los resultados de este programa serán los siguientes.