PROG 224 001: 32 25 11 : g LBL a 002: 35 61 02 : h CF 2 003: 31 43 : f CLREG 004: 31 42 : f P<->S 005: 31 43 : f CLREG 006: 31 83 : f INT 007: 01 : 1 008: 32 81 : g x>y 009: 22 02 : GTO 2 010: 44 : CLx 011: 02 : 2 012: 04 : 4 013: 35 52 : h x<->y 014: 32 71 : g x<=y 015: 22 00 : GTO 0 016: 22 07 : GTO 7 017: 31 25 00 : f LBL 0 018: 01 : 1 019: 31 82 : f % 020: 61 : + 021: 35 33 : h STI 022: 00 : 0 023: 41 : ENTER 024: 41 : ENTER 025: 41 : ENTER 026: 35 22 : h RTN 027: 31 25 11 : f LBL A 028: 35 71 02 : h F? 2 029: 31 22 01 : f GSB 1 030: 33 61 24 : STO + (i) 031: 33 61 00 : STO + 0 032: 35 52 : h x<->y 033: 35 53 : h Rv 034: 61 : + 035: 35 82 : h LSTx 036: 35 71 00 : h F? 0 037: 31 84 : f -x- 038: 31 33 : f DSZ 039: 35 22 : h RTN 040: 35 71 00 : h F? 0 041: 35 84 : h SPACE 042: 35 51 02 : h SF 2 043: 35 34 : h RCI 044: 43 : EEX 045: 04 : 4 046: 31 82 : f % 047: 61 : + 048: 35 33 : h STI 049: 44 : CLx 050: 41 : ENTER 051: 35 54 : h R^ 052: 35 71 00 : h F? 0 053: 31 84 : f -x- 054: 35 71 00 : h F? 0 055: 35 84 : h SPACE 056: 35 22 : h RTN 057: 31 25 01 : f LBL 1 058: 00 : 0 059: 41 : ENTER 060: 41 : ENTER 061: 35 54 : h R^ 062: 35 22 : h RTN 063: 31 25 12 : f LBL B 064: 35 71 02 : h F? 2 065: 22 01 : GTO 1 066: 31 34 : f ISZ 067: 51 : - 068: 35 82 : h LSTx 069: 33 51 00 : STO - 0 070: 33 51 24 : STO - (i) 071: 35 71 00 : h F? 0 072: 35 84 : h SPACE 073: 35 22 : h RTN 074: 31 25 01 : f LBL 1 075: 35 54 : h R^ 076: 35 34 : h RCI 077: 32 83 : g FRAC 078: 01 : 1 079: 61 : + 080: 35 33 : h STI 081: 35 53 : h Rv 082: 51 : - 083: 35 82 : h LSTx 084: 33 51 00 : STO - 0 085: 33 51 24 : STO - (i) 086: 35 71 00 : h F? 0 087: 35 84 : h SPACE 088: 35 22 : h RTN 089: 32 25 12 : g LBL b 090: 35 71 00 : h F? 0 091: 22 00 : GTO 0 092: 35 51 00 : h SF 0 093: 44 : CLx 094: 35 84 : h SPACE 095: 01 : 1 096: 35 22 : h RTN 097: 31 25 00 : f LBL 0 098: 35 61 00 : h CF 0 099: 44 : CLx 100: 00 : 0 101: 35 22 : h RTN 102: 31 25 13 : f LBL C 103: 35 61 01 : h CF 1 104: 31 25 06 : f LBL 6 105: 35 84 : h SPACE 106: 35 34 : h RCI 107: 32 83 : g FRAC 108: 43 : EEX 109: 04 : 4 110: 31 82 : f % 111: 35 24 : h x<->I 112: 23 02 : DSP 2 113: 31 25 04 : f LBL 4 114: 34 24 : RCL (i) 115: 35 71 01 : h F? 1 116: 31 22 15 : f GSB E 117: 31 84 : f -x- 118: 35 53 : h Rv 119: 31 33 : f DSZ 120: 22 04 : GTO 4 121: 35 84 : h SPACE 122: 34 00 : RCL 0 123: 35 71 01 : h F? 1 124: 31 22 15 : f GSB E 125: 31 84 : f -x- 126: 35 53 : h Rv 127: 35 33 : h STI 128: 35 54 : h R^ 129: 35 61 01 : h CF 1 130: 35 22 : h RTN 131: 31 25 14 : f LBL D 132: 35 51 01 : h SF 1 133: 22 06 : GTO 6 134: 31 25 15 : f LBL E 135: 34 00 : RCL 0 136: 81 : / 137: 43 : EEX 138: 02 : 2 139: 71 : x 140: 35 22 : h RTN 141: 31 25 02 : f LBL 2 142: 35 53 : h Rv 143: 31 25 07 : f LBL 7 144: 35 72 : h PAUSE 145: 22 07 : GTO 7 146: 84 : R/S 147: 84 : R/S 148: 84 : R/S 149: 84 : R/S 150: 84 : R/S 151: 84 : R/S 152: 84 : R/S 153: 84 : R/S 154: 84 : R/S 155: 84 : R/S 156: 84 : R/S 157: 84 : R/S 158: 84 : R/S 159: 84 : R/S 160: 84 : R/S 161: 84 : R/S 162: 84 : R/S 163: 84 : R/S 164: 84 : R/S 165: 84 : R/S 166: 84 : R/S 167: 84 : R/S 168: 84 : R/S 169: 84 : R/S 170: 84 : R/S 171: 84 : R/S 172: 84 : R/S 173: 84 : R/S 174: 84 : R/S 175: 84 : R/S 176: 84 : R/S 177: 84 : R/S 178: 84 : R/S 179: 84 : R/S 180: 84 : R/S 181: 84 : R/S 182: 84 : R/S 183: 84 : R/S 184: 84 : R/S 185: 84 : R/S 186: 84 : R/S 187: 84 : R/S 188: 84 : R/S 189: 84 : R/S 190: 84 : R/S 191: 84 : R/S 192: 84 : R/S 193: 84 : R/S 194: 84 : R/S 195: 84 : R/S 196: 84 : R/S 197: 84 : R/S 198: 84 : R/S 199: 84 : R/S 200: 84 : R/S 201: 84 : R/S 202: 84 : R/S 203: 84 : R/S 204: 84 : R/S 205: 84 : R/S 206: 84 : R/S 207: 84 : R/S 208: 84 : R/S 209: 84 : R/S 210: 84 : R/S 211: 84 : R/S 212: 84 : R/S 213: 84 : R/S 214: 84 : R/S 215: 84 : R/S 216: 84 : R/S 217: 84 : R/S 218: 84 : R/S 219: 84 : R/S 220: 84 : R/S 221: 84 : R/S 222: 84 : R/S 223: 84 : R/S 224: 84 : R/S DATA 26 01: 0 02: 0 03: 0 04: 0 05: 0 06: 0 07: 0 08: 0 09: 0 10: 0 11: 0 12: 0 13: 0 14: 0 15: 0 16: 0 17: 0 18: 0 19: 0 20: 0 21: 0 22: 0 23: 0 24: 0 25: 0 26: 0 STATE 7 DEG FIX 2 0 0 0 0 HELP 22 f A Number of rows (n = 1 to 24) f B Pause input mode A Input values B Correct error C Row totals & grand total (GT) D % of GT for each row total E Input as % of GT 1. n [f] [A] 2. Key in n values in first column (val1 [A], val2 [A], ..., valn [A]). Column total is displayed. 3. Key in n values in next column. Column total is displayed. 4. Repeat for all columns. 5. [C] gives row1 total, row2 total, ..., row_n total, GT. 6. [D] gives row1 total as a percentage of the GT, row2 ..., row_n ..., GT as a percentage of ... (=100%). On a HP-97, "pause input mode" will print each val and a space before and after the column total. Likewise with [C] and [D]: it prints the values and grand total. val [B] deducts val (and adjusts counters) so a replacement val can be input with [A] x [E] works out what % any x is of the GT. CARD 11 Title: SD-02A Tabulator A: VAL B: DEL C: ⇒TOT D: ⇒%TOT E: x⇒%TOT a: #RWS b: P? c: d: e: END