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") |
