Почти вечный календарь

000: STO 0                  // [          0.]

002: INT STO 1              // [          0.]

005: RCL 0                  // [          0.]

007: FRAC × 2 10x = STO 0   // [          0.]

014: INT STO 2              // [          0.]

017: RCL 0                  // [          0.]

019: FRAC × 4 10x = STO 3   // [          0.]

026: 2 STO 0                // [          2.] M

029: RCL 2                  // [          0.] M

031: (X≤M)6                 // >>>> 038 : 032

032: − 3 = STO 2            // [         −3.] M

037: (GOTO)8                // >>>> 046

038: + 9 = STO 2            // [          6.] M

043: RCL 3                  // [          0.] M

045: (GOTO)1                // >>>> 047

046: (GOTO)5                // >>>> 052

047: − 1 = STO 3            // [         −1.] M

052: 0 STO 0                // [          0.]

055: RCL 1                  // [          0.]

057: M+                     // [          0.]

058: RCL 2                  // [          6.]

060: × 2.6 + .4 = INT M+    // [         16.] M

070: RCL 3                  // [         −1.] M

072: × 5 ÷ 4 = INT M+ 1 M+  // [          1.] M

081: RCL 0                  // [         16.] M

083: ÷ 7 =                  // [ 2.285714286] M

086: INT × 7 −              // [         14.] M

090: RCL 0                  // [         16.] M

092: X<>Y =                 // [          2.] M

094: (X>0)2                 // >>>> 097 : 095

095: 7 M+                   // [          7.] M

097: HLT                    // [          7.] M HLT

098: (GOTO)+/−0             // >>>> 000