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~1RPVRPV C:COLOR.RPV") |