2025-02-17_RC23
00 { 1972-Byte Prgm }
01▸LBL "Mo42"
02 PGMSLV "mox"
03 114ᴇ-8
04 STO 11
05 9.8
06 STO 07
07 2300
08 STO "R1"
09 4ᴇ3
10 STO "R2"
11 CF 02
12 CF 06
13 CF 08
14 CF 09
15 CF 10
16 CF 22
17 CF 81
18 SF 25
19 0
20 RCL "R"
21 CLV "R"
22 STO "R"
23 SF 25
24 RCL "•"
25 CLV "•"
26 STO "•"
27 SF 25
28 0
29 RCL "V"
30 CLV "V"
31 STO "V"
32 SF 25
33 0
34 RCL "S"
35 CLV "S"
36 STO "S"
37 SF 25
38 0
39 RCL "Q"
40 CLV "Q"
41 STO "Q"
42 SF 25
43 0
44 RCL "D"
45 CLV "D"
46 STO "D"
47 SF 25
48 0
49 RCL "K"
50 CLV "K"
51 STO "K"
52 CF 25
53 0
54 STO 13
55 8
56 FS? 36
57 STO+ 13
58 4
59 FS? 37
60 STO+ 13
61 2
62 FS? 38
63 STO+ 13
64 1
65 FS? 39
66 STO+ 13
67 CLST
68▸LBL A
69 CF 07
70 CF 22
71 "K"
72 ASTO 01
73 FS? 83
74 "K/D"
75 KEY 1 GTO a
76 FS? 06
77 GTO 01
78 "D"
79 ASTO 02
80 KEY 2 GTO b
81 GTO 02
82▸LBL 01
83 "-"
84 KEY 2 XEQ 66
85▸LBL 02
86 FS? 10
87 GTO 01
88 "Q"
89 ASTO 03
90 KEY 3 GTO c
91 GTO 02
92▸LBL 01
93 "-"
94 KEY 3 XEQ 66
95▸LBL 02
96 "S"
97 ASTO 04
98 KEY 4 GTO d
99 FS? 10
100 GTO 01
101 "V"
102 ASTO 05
103 KEY 5 GTO e
104 GTO 02
105▸LBL 01
106 "-"
107 KEY 5 XEQ 66
108▸LBL 02
109 FC? 02
110 GTO 06
111 FS? 06
112 GTO 06
113 FS? 10
114 GTO 06
115 "DQV•"
116 GTO 07
117▸LBL 06
118 ">"
119▸LBL 07
120 KEY 6 GTO F
121 KEY 7 GTO 02
122 KEY 8 GTO 02
123 FC? 02
124 GTO 01
125 FS? 06
126 GTO 01
127 FS? 10
128 GTO 01
129 "-"
130 KEY 1 XEQ 66
131 KEY 4 XEQ 66
132▸LBL 01
133 MENU
134▸LBL 40
135 STOP
136 GTO 40
137▸LBL 02
138 XEQ 64
139 STO 15
140▸LBL B
141 "Re"
142 KEY 1 XEQ G
143 "fric"
144 KEY 2 XEQ 06
145 "-"
146 KEY 3 XEQ 66
147 "d"
148 KEY 4 GTO 35
149 "M1"
150 KEY 5 GTO 37
151 "M2"
152 KEY 6 GTO 39
153 KEY 7 GTO 01
154 KEY 8 GTO 01
155 XEQ 33
156▸LBL 42
157 STOP
158 GTO 42
159▸LBL 01
160 XEQ 64
161 RCL 15
162 X≠Y?
163 SF 00
164 GTO A
165▸LBL 06
166 "f="
167 FIX 07
168 ARCL 10
169 AVIEW
170 FIX IND 13
171 RCL 10
172 RTN
173▸LBL a
174 -1
175 X≠Y?
176 GTO 01
177 FC?C 83
178 SF 83
179▸LBL 01
180 R↓
181 "mm"
182 4
183 FC? 83
184 1ᴇ3
185 FS? 83
186 1
187 1
188 SF 07
189 GTO 31
190▸LBL b
191 "mm"
192 1
193 1ᴇ3
194 2
195 GTO 31
196▸LBL c
197 "L/s"
198 2
199 1ᴇ3
200 3
201 SF 01
202 GTO 31
203▸LBL d
204 "%"
205 3
206 100
207 4
208 GTO 31
209▸LBL e
210 "m/s"
211 3
212 1
213 5
214 CF 01
215 GTO 31
216▸LBL F
217 FS? 02
218 GTO 01
219 SF 02
220 GTO A
221▸LBL 01
222 CF 02
223 GTO A
224▸LBL G
225 FS? 06
226 GTO 01
227 FS? 10
228 GTO 01
229 GTO 02
230▸LBL 01
231 SF 00
232 FC?C 22
233 GTO 02
234 STO "R"
235 SF 81
236 CF 82
237▸LBL 02
238 "Re="
239 FIX 00
240 ARCL "R"
241 AVIEW
242 FIX IND 13
243 RCL "R"
244 RTN
245▸LBL 33
246 "Mode: "
247 FS? 08
248 GTO 01
249 FS? 09
250 GTO 02
251 ├"Auto"
252 GTO 03
253▸LBL 01
254 ├"*L"
255 GTO 03
256▸LBL 02
257 ├"*T"
258▸LBL 03
259 ├" -"
260 FS? 10
261 GTO 01
262 FS? 06
263 GTO 02
264 ├"R"
265 GTO 03
266▸LBL 01
267 ├"QV"
268 GTO 03
269▸LBL 02
270 ├"D"
271▸LBL 03
272 AVIEW
273 RTN
274▸LBL 35
275 CF 06
276 CF 08
277 CF 09
278 CF 10
279 XEQ 33
280 GTO B
281▸LBL 37
282 FS?C 08
283 GTO 01
284 FS?C 09
285 GTO 03
286 SF 08
287 GTO 03
288▸LBL 01
289 SF 09
290▸LBL 03
291 XEQ 33
292 GTO B
293▸LBL 39
294 CF 02
295 FS?C 10
296 GTO 01
297 FS?C 06
298 GTO 02
299 SF 06
300 GTO 03
301▸LBL 01
302 GTO 03
303▸LBL 02
304 SF 10
305▸LBL 03
306 XEQ 33
307 GTO B
308▸LBL 31
309 ASTO 14
310 STO 00
311 X<>Y
312 STO 09
313 X<> ST Z
314 STO 12
315 FS?C 22
316 GTO 20
317 CF 05
318 RCL "K"
319 STO 08
320 FS? 07
321 GTO 01
322 SF 04
323 GTO 02
324▸LBL 01
325 CF 04
326▸LBL 02
327 1
328 RCL 00
329 X=Y?
330 GTO 28
331 4
332 X=Y?
333 GTO 28
334 RCL 00
335 3
336 X≠Y?
337 GTO 01
338 FC? 02
339 GTO 32
340 XEQ 60
341 GTO 88
342▸LBL 01
343 RCL 00
344 5
345 X≠Y?
346 GTO 02
347 FC? 02
348 GTO 32
349 RCL "Q"
350 RCL "D"
351 XEQ H
352 ÷
353 STO "V"
354 GTO 88
355▸LBL 02
356 FC? 02
357 GTO 30
358 RCL "Q"
359 RCL "V"
360 ÷
361 4
362 ×
363 PI
364 ÷
365 SQRT
366 STO "D"
367 GTO 88
368▸LBL 20
369 SF 00
370 CF 82
371 R↓
372 RCL ST Z
373 RCL 09
374 ÷
375 RCL IND 00
376 X<>Y
377 ABS
378 STO IND ST Y
379 GTO 90
380▸LBL 28
381 FC? 07
382 GTO 01
383 FS? 82
384 GTO 02
385 FS? 08
386 GTO 02
387 GTO 01
388▸LBL 02
389 RCL "K"
390 STO 06
391 CF 85
392 FS?C 00
393 SF 85
394 GTO 90
395▸LBL 01
396 RCL "Q"
397 XEQ 60
398 X<>Y
399 STO "Q"
400 -
401 ABS
402 1ᴇ-9
403 X<Y?
404 GTO 22
405 FC? 06
406 GTO 23
407 FC? 81
408 GTO 23
409 1
410 RCL 00
411 X=Y?
412 GTO 22
413 4
414 X≠Y?
415 GTO 23
416▸LBL 22
417 FS? 10
418 GTO 23
419 "f(Q)"
420 KEY 3 GTO 03
421 "f(V)"
422 KEY 5 GTO 05
423 "-"
424 KEY 1 XEQ 66
425 KEY 2 XEQ 66
426 KEY 4 XEQ 66
427 KEY 6 XEQ 66
428 MENU
429 "Q or V?"
430 AVIEW
431▸LBL 44
432 STOP
433 GTO 44
434▸LBL 03
435 SF 01
436 GTO 23
437▸LBL 05
438 CF 01
439▸LBL 23
440 FC? 07
441 GTO 32
442 FC? 01
443 GTO 02
444 RCL "Q"
445 RCL "D"
446 XEQ H
447 XEQ 68
448 ÷
449 STO "V"
450▸LBL 02
451 RCL "V"
452 RCL "D"
453 ×
454 RCL 11
455 ÷
456 RCL "R1"
457 X<Y?
458 GTO 32
459 SF 82
460 GTO 86
461▸LBL 30
462 FS?C 00
463 GTO 22
464 SF 01
465▸LBL 32
466 XEQ 69
467▸LBL 34
468 1ᴇ5
469 STO 18
470 R↓
471 RCL 00
472 RCL IND ST X
473 STO 06
474 RCL 17
475 STO IND ST Y
476 RCL 16
477 SOLVE IND 06
478 RCL "D"
479 X=0?
480 GTO 83
481 XEQ 50
482 RCL ST Z
483 FS? 04
484 GTO 01
485 FS? 09
486 GTO 82
487 FS? 05
488 GTO 80
489 STO 17
490 RCL "R2"
491 0.4
492 -
493 RCL "R"
494 X>Y?
495 GTO 82
496 2
497 RCL 00
498 X≠Y?
499 GTO 03
500 FC? 01
501 GTO 04
502▸LBL 03
503 XEQ 69
504▸LBL 04
505 SF 05
506 GTO 34
507▸LBL 01
508 STO 16
509 FS? 08
510 GTO 86
511 FS? 09
512 GTO 01
513 RCL "R1"
514 0.4
515 +
516 RCL "R"
517 X>Y?
518 GTO 01
519 SF 82
520 GTO 86
521▸LBL 01
522 CF 04
523 XEQ 69
524 GTO 34
525▸LBL 50
526 FS? 10
527 GTO 01
528 FS? 06
529 GTO 03
530 FS? 01
531 GTO 04
532 XEQ 60
533 GTO 05
534▸LBL 04
535 XEQ 62
536▸LBL 05
537 RCL "V"
538 RCL "D"
539 ×
540 RCL 11
541 ÷
542 STO "R"
543 GTO 02
544▸LBL 01
545 RCL "R"
546 RCL 11
547 ×
548 RCL "D"
549 ÷
550 STO "V"
551 XEQ 60
552 GTO 02
553▸LBL 03
554 RCL "R"
555 RCL 11
556 ×
557 FS? 01
558 GTO 04
559 RCL "V"
560 ÷
561 STO "D"
562 XEQ 60
563 GTO 02
564▸LBL 04
565 PI
566 ×
567 4
568 RCL "Q"
569 ×
570 X<>Y
571 ÷
572 STO "D"
573 XEQ 62
574▸LBL 02
575 RTN
576▸LBL 60
577 RCL "D"
578 XEQ H
579 RCL "V"
580 ×
581 STO "Q"
582 RTN
583▸LBL 62
584 RCL "D"
585 XEQ H
586 XEQ 68
587 RCL "Q"
588 X<>Y
589 ÷
590 STO "V"
591 RTN
592▸LBL 64
593 CLX
594 FC? 08
595 GTO 01
596 1
597 +
598▸LBL 01
599 FC? 09
600 RTN
601 2
602 +
603 RTN
604▸LBL 66
605 RTN
606▸LBL 68
607 X>0?
608 RTN
609 R↓
610 1ᴇ-11
611 RTN
612▸LBL 69
613 1ᴇ-10
614 STO 16
615 50
616 STO 17
617 RTN
618▸LBL 80
619 RCL "R1"
620 RCL "R"
621 X<Y?
622 GTO 83
623 RCL "R2"
624 X<Y?
625 GTO 83
626▸LBL 82
627 RCL "K"
628 -1ᴇ-10
629 X>Y?
630 GTO 85
631 +/-
632 X<>Y
633 X≤Y?
634 GTO 02
635 0.101
636 FS? 83
637 GTO 03
638 RCL "D"
639 ×
640▸LBL 03
641 X>Y?
642 GTO 86
643 GTO 85
644▸LBL 02
645 0
646 STO "K"
647 GTO 86
648▸LBL 83
649 "NoSoL"
650 GTO 01
651▸LBL 85
652 "NoK"
653 RCL 08
654 STO "K"
655▸LBL 01
656 AVIEW
657 CF 00
658 CF 81
659 GTO A
660▸LBL 86
661 2
662 RCL "S"
663 ×
664 RCL "D"
665 ×
666 RCL 07
667 ×
668 RCL "V"
669 XEQ 68
670 X↑2
671 ÷
672 STO 10
673 RCL "K"
674 FS? 83
675 GTO 01
676 RCL "D"
677 XEQ 68
678 ÷
679▸LBL 01
680 STO 15
681 RCL IND 00
682 RCL IND ST X
683▸LBL 88
684 CF 00
685 CF 81
686▸LBL 90
687 RCL 09
688 ×
689 CLA
690 ARCL IND 00
691 FC? 83
692 GTO 01
693 FC? 07
694 GTO 01
695 "r"
696▸LBL 01
697 ├"="
698 FC? 03
699 FIX IND 12
700 ARCL ST X
701 FIX IND 13
702 FC? 83
703 GTO 01
704 FC? 07
705 GTO 01
706 GTO 02
707▸LBL 01
708 ARCL 14
709▸LBL 02
710 STO 06
711 FS? 00
712 GTO 94
713 FS?C 02
714 GTO 94
715 FC? 08
716 GTO 05
717 ├" *L"
718 GTO 94
719▸LBL 05
720 FC? 09
721 GTO 06
722 ├" *T"
723 GTO 94
724▸LBL 06
725 ├" "
726 RCL "R1"
727 RCL "R"
728 X≤Y?
729 GTO 01
730 RCL "R2"
731 X>Y?
732 GTO 02
733 X<>Y
734 200
735 RCL 10
736 SQRT
737 ÷
738 RCL 15
739 XEQ 68
740 ÷
741 X>Y?
742 GTO 03
743 ├"Co"
744 GTO 04
745▸LBL 01
746 ├" La"
747 GTO 04
748▸LBL 02
749 ├" Cr"
750 GTO 04
751▸LBL 03
752 ├" Tr"
753▸LBL 04
754 8ᴇ-3
755 RCL 10
756 X<Y?
757 ├"↓"
758 1ᴇ8
759 RCL "R"
760 X>Y?
761 ├"→"
762 5ᴇ-2
763 RCL 15
764 X≤Y?
765 GTO 01
766 ├"↑"
767▸LBL 01
768 600
769 RCL "R"
770 X<Y?
771 ├"←"
772▸LBL 94
773 FS? 09
774 GTO 01
775 FC? 07
776 GTO 01
777 FS? 08
778 GTO 03
779 FC? 82
780 GTO 01
781▸LBL 03
782 ├" -zz"
783 CF 00
784 FS? 85
785 SF 00
786▸LBL 01
787 CLST
788 RCL 06
789 AVIEW
790 GTO A
791▸LBL H
792 X↑2
793 PI
794 ×
795 4
796 ÷
797 RTN
798▸LBL "mox"
799 DSE 18
800 GTO 01
801 "Rst"
802 AVIEW
803 GTO A
804▸LBL 01
805 XEQ 50
806 RCL "K"
807 FS? 83
808 GTO 01
809 RCL "D"
810 ÷
811▸LBL 01
812 0.101
813 X>Y?
814 X<>Y
815 STO 15
816 2
817 RCL "S"
818 ×
819 RCL "D"
820 ×
821 RCL 07
822 ×
823 STO ST Y
824 RCL "V"
825 X↑2
826 ÷
827 FS? 04
828 GTO 02
829 FS? 05
830 GTO 03
831 2.51
832 RCL 11
833 ×
834 RCL "D"
835 ÷
836 RCL ST Z
837 SQRT
838 STO ST Z
839 ÷
840 RCL 15
841 3.7
842 ÷
843 +
844 LOG
845 ×
846 2
847 ×
848 FS? 01
849 GTO 04
850 RCL "V"
851 GTO 05
852▸LBL 04
853 RCL "D"
854 XEQ H
855 ×
856 RCL "Q"
857▸LBL 05
858 +
859 RTN
860▸LBL 02
861 64
862 RCL "R"
863 ÷
864 -
865 RTN
866▸LBL 03
867 -202
868 RCL 15
869 ×
870 58.1
871 +
872 RCL 15
873 ×
874 6.844
875 -
876 RCL 15
877 ×
878 0.961
879 +
880 RCL 15
881 ×
882 0.0121
883 +
884 RCL "R2"
885 RCL "R1"
886 -
887 ÷
888 RCL "R"
889 RCL "R1"
890 -
891 ×
892 0.02783
893 +
894 -
895 END