Category : Pascal Source Code
Archive   : COLORSET.ZIP
Filename : COLORSET.TP4
COPYRIGHTNAMEQ¤ F (c) 1990 Jeffrey S. Kline SCREENSTARTSÿ @ 4F
COLORNAMESSÿ @ @
F
F TF n@ à ~@ ^@ BLINKTEXTQ¤ F Blinking
WINDOWXPOSSÿ â @ F
WINDOWYPOSSÿ ä @ F Ð
DISPLAYLETTERSÿ æ @ @
F TF @ STR2R?@
F TF /@ FSTR4Rk@
F TF [@ ATTRRECRß@ ¸Ì¦ XPOSS $F YPOSS $F COLORSS $F CONUMS ?@ SELECTS @ @
ÿ F ß@ @ CHOSENFGS @ F CHOSENBGS @ F CHOSENCOLORSS @ 4F CHS @ TF EMPTYBOXT $F X1$F Y1$F X2$F Y2F FF B$F BOXTYPE FILLEDBOXT $F X1$F Y1$F X2$F Y2F FF B$F BOXTYPEWRITECRTT $F X$F Y$F CATTRTF CHÌ WRITELINECRTT
$F X$F Y$F CATTR¤ F ST ATTRU $F $F F$F BY REPLICATEU ¤ F $F NTF CHARACTER
SELECT_COLORSU DF 4F CHCOLORWORD X * <