63 lines
615 B
Plaintext
63 lines
615 B
Plaintext
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 |