Note: RDown is Roll Down.

01	LBL "SAVE"
02	ASTO "_P"
03	"X_"
04	ARCL "_P"
05	ASTO "_I"
06	STO IND "_I"
07	"L_"
08	ARCL "_P"
09	ASTO "_I"
10	FS? 92
11	X<> ST L
12	STO IND "_I"
13	FS? 92
14	X<> ST L
15	RDown
16	"Y_"
17	ARCL "_P"
18	ASTO "_I"
19	STO IND "_I"
20	RDown
21	"Z_"
22	ARCL "_P"
23	ASTO "_I"
24	STO IND "_I"
25	RDown
26	"T_"
27	ARCL "_P"
28	ASTO "_I"
29	STO IND "_I"
30	RDown
31	FC? 91
32	GTO 90
33	SF 30
34	RCL "REGS"
35	"R_"
36	ARCL "_P"
37	ASTO "_I"
38	STO IND "_I"
39	"X_"
40	ARCL "_P"
41	ASTO "_I"
42	SF 30
43	RCL IND "_I"
44	LBL 90
45	CLA
46	ARCL "_P"
47	CLV "_I"
48	CLV "_P"
49	RTN
50	LBL "RESTORE"
51	ASTO "_P"
52	FC? 91
53	GTO A
54	STO "_T"
55	"R_"
56	ARCL "_P"
57	ASTO "_I"
58	SF 30
59	RCL IND "_I"
60	STO "REGS"
61	CLV IND "_I"
62	SF 30
63	RCL "_T"
64	CLV "_T"
65	LBL A
66	X<> "_O"
67	STO "_C"
68	SF 30
69	5
70	RCL- "_C"
71	X<> "_O"
72	ISG "_C"
73	STOP
74	DSE "_C"
75	GTO 00
76	GTO 01
77	LBL 00
78	RDown
79	DSE "_C"
80	GTO 00
81	LBL 01
82	DSE "_O"
83	GTO 02
84	GTO 04
85	LBL 02
86	SF 30
87	1
88	STO "_S"
89	LBL 03
90	SF 30
91	RCL "_A"
92	X=0?
93	"X_"
94	RCL- "_S"
95	X=0?
96	"Y_"
97	RCL- "_S"
98	X=0?
99	"Z_"
100	RCL- "_S"
101	X>=0?
102	"T_"
103	ARCL "_P"
104	ASTO "_I"
105	SF 30
106	RCL IND "_I"
107	RDown
108	ISG "_A"
109	STOP
110	DSE "_O"
111	GTO 03
112	LBL 04
113	"L_"
114	ARCL "_P"
115	ASTO "_I"
116	X<> IND "_I"
117	STO ST L
118	X<> IND "_I"
119	CLV IND "_I"
120	CLV "_S"
121	CLV "_O"
122	CLV "_C"
123	CLV "_A"
124	"X_"
125	ARCL "_P"
126	ASTO "_I"
127	CLV IND "_I"
128	"Y_"
129	ARCL "_P"
130	ASTO "_I"
131	CLV IND "_I"
132	"Z_"
133	ARCL "_P"
134	ASTO "_I"
135	CLV IND "_I"
136	"T_"
137	ARCL "_P"
138	ASTO "_I"
139	CLV IND "_I"
140	CLA
141	ARCL "_P"
142	CLV "_I"
143	CLV "_P"
144	CF 91
145	CF 92
146	RTN
147	END