The Museum of HP Calculators The Museum of HP Calculators
This program is by Dirk Zabel and is used here by permission.
This program is supplied without representation or warranty of any kind. Dirk Zabel and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
Card Holder 1, Card 19 Program Card Title: Hunt the Wumpus! 1/2 Key [A]: init Key [B]: look Key [C]: Key [D]: Key [E]: seed Key [a]: Key [b]: Key [c]: Key [d]: Key [e]: F0 = 0 F1 = 0 F2 = 0 F3 = 0 FIX 2, angular mode: degrees
001 31 25 09 LBL 9 002 34 07 RCL 7 003 35 52 X ⇔ Y 004 32 51 x = y? 005 35 51 02 SF 2 006 34 08 RCL 8 007 35 52 X ⇔ Y 008 32 51 x = y? 009 35 51 02 SF 2 010 34 09 RCL 9 011 35 52 X ⇔ Y 012 32 51 x = y? 013 35 51 02 SF 2 014 35 22 RTN 015 32 25 11 LBL a 016 02 2 017 00 0 018 22 31 15 GTO e 019 32 25 12 LBL b 020 03 3 021 32 25 15 LBL e 022 34 15 RCL E 023 09 9 024 09 9 025 07 7 026 71 × 027 32 83 FRAC 028 33 15 STO E 029 71 × 030 01 1 031 61 + 032 31 83 INT 033 35 22 RTN 034 31 25 00 LBL 0 035 01 1 036 09 9 037 61 + 038 02 2 039 81 ÷ 040 35 33 STO I 041 32 83 FRAC 042 31 61 x ≠ 0? 043 22 03 GTO 3 044 34 24 RCL (i) 045 31 83 INT 046 35 22 RTN 047 31 25 03 LBL 3 048 34 24 RCL (i) 049 32 83 FRAC 050 43 EEX 051 02 2 052 71 × 053 35 22 RTN 054 31 25 01 LBL 1 055 01 1 056 61 + 057 02 2 058 00 0 059 35 52 X ⇔ Y 060 32 71 x ≤ y? 061 35 22 RTN 062 01 1 063 06 6 064 35 22 RTN 065 31 25 02 LBL 2 066 01 1 067 51 - 068 31 61 x ≠ 0? 069 35 22 RTN 070 05 5 071 35 22 RTN 072 31 25 15 LBL E 073 33 15 STO E 074 31 25 11 LBL A 075 34 15 RCL E 076 31 71 x < 0? 077 42 CHS 078 32 83 FRAC 079 31 51 x = 0? 080 35 22 RTN 081 33 15 STO E 082 08 8 083 83 . 084 01 1 085 33 00 STO 0 086 01 1 087 02 2 088 83 . 089 01 1 090 04 4 091 33 01 STO 1 092 01 1 093 83 . 094 01 1 095 05 5 096 33 02 STO 2 097 01 1 098 07 7 099 83 . 100 00 0 101 01 1 102 33 03 STO 3 103 01 1 104 08 8 105 83 . 106 00 0 107 02 2 108 33 04 STO 4 109 01 1 110 09 9 111 83 . 112 00 0 113 03 3 114 33 05 STO 5 115 02 2 116 00 0 117 83 . 118 00 0 119 04 4 120 33 06 STO 6 121 06 6 122 83 . 123 02 2 124 33 07 STO 7 125 07 7 126 83 . 127 00 0 128 09 9 129 33 08 STO 8 130 01 1 131 01 1 132 83 . 133 01 1 134 03 3 135 33 09 STO 9 136 31 42 P ⇔ S 137 06 6 138 35 33 STO I 139 31 25 04 LBL 4 140 32 22 11 GSB a 141 34 01 RCL 1 142 32 51 x = y? 143 22 04 GTO 4 144 35 53 ROLL V 145 34 02 RCL 2 146 32 51 x = y? 147 22 04 GTO 4 148 35 53 ROLL V 149 34 03 RCL 3 150 32 51 x = y? 151 22 04 GTO 4 152 35 53 ROLL V 153 34 04 RCL 4 154 32 51 x = y? 155 22 04 GTO 4 156 35 53 ROLL V 157 34 05 RCL 5 158 32 51 x = y? 159 22 04 GTO 4 160 35 53 ROLL V 161 34 06 RCL 6 162 32 51 x = y? 163 22 04 GTO 4 164 35 53 ROLL V 165 33 24 STO (i) 166 31 33 DSZ 167 22 04 GTO 4 168 31 25 05 LBL 5 169 34 01 RCL 1 170 31 22 00 GSB 0 171 33 07 STO 7 172 34 01 RCL 1 173 31 22 01 GSB 1 174 33 08 STO 8 175 34 01 RCL 1 176 31 22 02 GSB 2 177 33 09 STO 9 178 31 25 12 LBL B 179 23 00 DSP 0 180 35 61 02 CF 2 181 34 02 RCL 2 182 31 22 09 GSB 9 183 02 2 184 35 71 02 F? 2 185 35 72 PAUSE 186 34 03 RCL 3 187 31 22 09 GSB 9 188 34 04 RCL 4 189 31 22 09 GSB 9 190 03 3 191 35 71 02 F? 2 192 35 72 PAUSE 193 34 05 RCL 5 194 31 22 09 GSB 9 195 34 06 RCL 6 196 31 22 09 GSB 9 197 05 5 198 35 71 02 F? 2 199 35 72 PAUSE 200 34 07 RCL 7 201 43 EEX 202 06 6 203 81 ÷ 204 34 08 RCL 8 205 43 EEX 206 04 4 207 81 ÷ 208 61 + 209 34 09 RCL 9 210 43 EEX 211 02 2 212 81 ÷ 213 61 + 214 34 01 RCL 1 215 61 + 216 23 06 DSP 6 217 35 22 RTN 218 84 R/S
Card Holder 1, Card 20 Program Card Title: Hunt the Wumpus! 2/2 Key [A]: Key [B]: look Key [C]: move Key [D]: shoot Key [E]: Key [a]: Key [b]: Key [c]: Key [d]: Key [e]: F0 = 0 F1 = 0 F2 = 0 F3 = 1 FIX 6, angular mode: degrees
001 31 25 09 LBL 9 002 34 07 RCL 7 003 35 52 X ⇔ Y 004 32 51 x = y? 005 35 51 02 SF 2 006 34 08 RCL 8 007 35 52 X ⇔ Y 008 32 51 x = y? 009 35 51 02 SF 2 010 34 09 RCL 9 011 35 52 X ⇔ Y 012 32 51 x = y? 013 35 51 02 SF 2 014 35 22 RTN 015 32 25 11 LBL a 016 02 2 017 00 0 018 22 31 15 GTO e 019 32 25 12 LBL b 020 03 3 021 32 25 15 LBL e 022 34 15 RCL E 023 09 9 024 09 9 025 07 7 026 71 × 027 32 83 FRAC 028 33 15 STO E 029 71 × 030 01 1 031 61 + 032 31 83 INT 033 35 22 RTN 034 31 25 00 LBL 0 035 01 1 036 09 9 037 61 + 038 02 2 039 81 ÷ 040 35 33 STO I 041 32 83 FRAC 042 31 61 x ≠ 0? 043 22 03 GTO 3 044 34 24 RCL (i) 045 31 83 INT 046 35 22 RTN 047 31 25 03 LBL 3 048 34 24 RCL (i) 049 32 83 FRAC 050 43 EEX 051 02 2 052 71 × 053 35 22 RTN 054 31 25 01 LBL 1 055 01 1 056 61 + 057 02 2 058 00 0 059 35 52 X ⇔ Y 060 32 71 x ≤ y? 061 35 22 RTN 062 01 1 063 06 6 064 35 22 RTN 065 31 25 02 LBL 2 066 01 1 067 51 - 068 31 61 x ≠ 0? 069 35 22 RTN 070 05 5 071 35 22 RTN 072 31 25 05 LBL 5 073 34 01 RCL 1 074 31 22 00 GSB 0 075 33 07 STO 7 076 34 01 RCL 1 077 31 22 01 GSB 1 078 33 08 STO 8 079 34 01 RCL 1 080 31 22 02 GSB 2 081 33 09 STO 9 082 31 25 12 LBL B 083 23 00 DSP 0 084 35 61 02 CF 2 085 34 02 RCL 2 086 31 22 09 GSB 9 087 02 2 088 35 71 02 F? 2 089 35 72 PAUSE 090 34 03 RCL 3 091 31 22 09 GSB 9 092 34 04 RCL 4 093 31 22 09 GSB 9 094 03 3 095 35 71 02 F? 2 096 35 72 PAUSE 097 34 05 RCL 5 098 31 22 09 GSB 9 099 34 06 RCL 6 100 31 22 09 GSB 9 101 05 5 102 35 71 02 F? 2 103 35 72 PAUSE 104 34 07 RCL 7 105 43 EEX 106 06 6 107 81 ÷ 108 34 08 RCL 8 109 43 EEX 110 04 4 111 81 ÷ 112 61 + 113 34 09 RCL 9 114 43 EEX 115 02 2 116 81 ÷ 117 61 + 118 34 01 RCL 1 119 61 + 120 23 06 DSP 6 121 35 22 RTN 122 31 25 13 LBL C 123 35 61 02 CF 2 124 31 22 09 GSB 9 125 35 71 02 F? 2 126 33 01 STO 1 127 23 00 DSP 0 128 02 2 129 35 61 02 CF 2 130 31 22 08 GSB 8 131 35 71 02 F? 2 132 22 07 GTO 7 133 05 5 134 31 22 08 GSB 8 135 35 71 02 F? 2 136 22 07 GTO 7 137 06 6 138 31 22 08 GSB 8 139 05 5 140 35 71 02 F? 2 141 22 07 GTO 7 142 03 3 143 31 22 08 GSB 8 144 35 71 02 F? 2 145 22 06 GTO 6 146 04 4 147 31 22 08 GSB 8 148 35 71 02 F? 2 149 22 06 GTO 6 150 22 05 GTO 5 151 31 25 07 LBL 7 152 42 CHS 153 35 22 RTN 154 31 25 08 LBL 8 155 35 33 STO I 156 34 24 RCL (i) 157 34 01 RCL 1 158 32 51 x = y? 159 35 51 02 SF 2 160 35 34 RCL I 161 35 22 RTN 162 31 25 06 LBL 6 163 03 3 164 42 CHS 165 35 72 PAUSE 166 32 25 11 LBL a 167 22 05 GTO 5 168 31 25 14 LBL D 169 34 01 RCL 1 170 33 11 STO A 171 44 CLX 172 33 00 STO 0 173 31 25 04 LBL 4 174 01 1 175 33 61 00 STO + 0 176 34 00 RCL 0 177 06 6 178 35 52 X ⇔ Y 179 32 61 x ≠ y? 180 22 04 GTO 4 181 34 11 RCL A 182 33 01 STO 1 183 22 05 GTO 5 184 31 25 04 LBL 4 185 35 61 03 CF 3 186 23 01 DSP 1 187 35 72 PAUSE 188 35 71 03 F? 3 189 22 04 GTO 4 190 34 11 RCL A 191 33 01 STO 1 192 22 05 GTO 5 193 31 25 04 LBL 4 194 35 61 02 CF 2 195 31 22 09 GSB 9 196 35 71 02 F? 2 197 22 04 GTO 4 198 32 22 12 GSB b 199 04 4 200 61 + 201 35 33 STO I 202 34 24 RCL (i) 203 31 25 04 LBL 4 204 33 01 STO 1 205 34 02 RCL 2 206 32 61 x ≠ y? 207 22 04 GTO 4 208 09 9 209 84 R/S 210 31 25 04 LBL 4 211 34 01 RCL 1 212 31 22 00 GSB 0 213 33 07 STO 7 214 34 01 RCL 1 215 31 22 01 GSB 1 216 33 08 STO 8 217 34 01 RCL 1 218 31 22 02 GSB 2 219 33 09 STO 9 220 22 04 GTO 4 221 84 R/S
Go back to the software library
Go back to the main exhibit hall