Code 103

Code 103 returns the current PEN and AREA PEN assignments. The return array should be a one dimensional INTEGER array with two elements. The first element is assigned the current PEN assignment. The second element is assigned the current AREA PEN assignment. The following program demonstrates this capability:

10 INTEGER P(1)

20 GESCAPE CRT,103;P(*)

30 PRINT "The current PEN is";P(0)

40 PRINT "The current AREA PEN is";P(1)

50 END