00 { 143-Byte Prgm }
01 LBL "RES-C"
02 X≤0?
03 GTO 11
04 CLA
05 ENTER
06 ENTER
07 LOG
08 IP
09 1
10 -
11 STO ST Z
12 10↑X
13 ÷
14 10
15 ÷
16 IP
17 XEQ IND ST X
18 ⊢" "
19 R↓
20 LASTX
21 FP
22 10
23 ×
24 XEQ IND ST X
25 ⊢" "
26 XEQ IND ST Y
27 R↑
28 GTO 10
29 LBL 00
30 ⊢"BLACK"
31 RTN
32 LBL 01
33 ⊢"BROWN"
34 RTN
35 LBL 02
36 ⊢"RED"
37 RTN
38 LBL 03
39 ⊢"ORANGE"
40 RTN
41 LBL 04
42 ⊢"YELLOW"
43 RTN
44 LBL 05
45 ⊢"GREEN"
46 RTN
47 LBL 06
48 ⊢"BLUE"
49 RTN
50 LBL 07
51 ⊢"VIOLET"
52 RTN
53 LBL 08
54 ⊢"GREY"
55 RTN
56 LBL 09
57 ⊢"WHITE"
58 RTN
59 LBL 10
60 AVIEW
61 LBL 11
62 END