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=Sample of colors"+CHR(13)
0080 PRINT (1)"spacing=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} Color samples {
;
}"+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$+"} This has been printed using color # "+COL$+"{
}"+CHR(13)
0170 NEXT COL
0180 CLOSE (1)
0190 LET A=SCALL("C:ARCHIV~1RPVRPV.EXE C:COLOR.RPV")

Report_title=Sample of colors
spacing=250
$col0=400
[header]
{f=arial;b=y;s=10}
{$col0} Color samples {
;
}
[data]
{$col0;c=0} This has been printed using color # 0{
}
{$col0;c=1} This has been printed using color # 1{
}
{$col0;c=2} This has been printed using color # 2{
}
{$col0;c=3} This has been printed using color # 3{
}
{$col0;c=4} This has been printed using color # 4{
}
{$col0;c=5} This has been printed using color # 5{
}
{$col0;c=6} This has been printed using color # 6{
}
{$col0;c=7} This has been printed using color # 7{
}
{$col0;c=8} This has been printed using color # 8{
}
{$col0;c=9} This has been printed using color # 9{
}
{$col0;c=10} This has been printed using color # 10{
}
{$col0;c=11} This has been printed using color # 11{
}
{$col0;c=12} This has been printed using color # 12{
}
{$col0;c=13} This has been printed using color # 13{
}
{$col0;c=14} This has been printed using color # 14{
}