ForeColor Changes Colors for LINE, CIRCLE, and PSET (33039)

SUMMARY

In Microsoft QuickBASIC for Macintosh, the only numbers that can be specified in the color parameter for LINE, CIRCLE, and PSET are 30 and 33. By default, 30 represents white and 33 represents black.

(Actually, any even number defaults to white and any odd number to black.) If no number is specified, the color defaults to black.

However, the ForeColor Toolbox routine can be used to change what colors are associated with numbers 30 and 33. The following example fills in rectangles with the various available colors:

   FOR i = 0 TO 7
   ForeColor (i-1)*64 + 1
   LINE (i*10,10)-(i*10+8,300),,bf
   NEXT i