The Museum of HP Calculators


Hunt The Wumpus for the HP-67

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.

Overview

Listing

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

Program Listing:

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

Program Listing:

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