Any Browser Campaign

Henkerspiel („Hangman“) für den HP-41CX
English version

Dies ist meine Version des „Henkerspiels“, bei der ein Spieler ein zu ratendes Wort vorgibt und der andere dieses herausfinden muß. Aufgrund der beschränkten Anzeigemöglichkeiten des HP-41CX kann natürlich kein Männchem gehenkt werden. Dafür habe ich mir etwas anderes einfallen lassen . . . ;-) --- Vielleicht sollte ich an dieser Stelle bemerken, daß ich Zivildienst geleistet habe, damit hier niemand auf falsche Gedanken kommt ! ;-)

Spielablauf :

Nach Starten des Programms muß der erste Spieler auf die Eingabeaufforderung hin ein Wort von höchstens 9 Buchstaben Länge eingeben und R/S drücken. Es erscheinen nun so viele Unterstreichungszeichen in der Anzeige, wie das zu ratende Wort Buchstaben hat.

Jetzt gibt der zweite Spieler einen Buchstaben ein und drückt R/S. Ist der eingegebene Buchstabe im Wort enthalten, so erscheint er in der Anzeige an den Stellen, wo er auch im Wort auftaucht. War der Buchstabe falsch, so erscheinen nacheinander bei jedem Fehlversuch die „Teile“ der Männchen in der Anzeige. Beim 10. Fehlversuche erfolgt die „Exekution“. Danach wird das zu ratende Wort angezeigt. Hat der zweite Spieler dagegen das Wort erraten, so werden noch die Anzahl der Fehlversuche angezeigt.

Programmlisting :

001 LBL "SPIEL1"
002  "HENKERSPIEL"
003  AVIEW
004  CF 05
005  CF 06
006  CLA
007  ,02
008  CLRGX
009  " "         (Leerzeichen)
010  ASTO 17
011  "_"  (5F)
012  ASTO 07
013  ASTO 08
014  ASTO 09
015  ASTO 10
016  ASTO 11
017  ASTO 12
018  ASTO 13
019  ASTO 14
020  ASTO 15
021  AON
022  CF23
023 LBL 03
024  TONE 5
025  "  WORT ?"
026  PROMPT
027  FC?C 23
028  GTO 03
029  9
030  ALENG
031  STO 02
032  X>Y?
033  GTO 02
034  6
035  X<Y?
036  GTO 00
037  ASTO 00
038  GTO 01
039 LBL 02
040  "WORT ZU LANG"
041  AVIEW
042  PSE
043  GTO 03
044 LBL 00
045  ASTO 00
046  ASHF
047  ASTO 01
048  SF05
049 LBL 01
050  CLA
051  7
052  STO 03
053 LBL 06
054  ARCL IND 03
055  ISG 03
056  ""          (Leeranweisung)
057  RCL 02
058  7
059  +
060  RCL 03
061  X<Y?
062  GTO 06
063  FC?C 06
064  GTO 08
065  TONE 1
066  GTO 09
067 LBL 08
068  TONE 9
069 LBL 09
070  ARCL 17
071  AVIEW
072  STOP
073  ASTO 04
074  RCL d
075  AVIEW
076  STO d
077  CLA
078  ARCL 00
079  FS? 05
080  ARCL 01
081  ,
082  STO 05
083  STO 06
084 LBL 04
085  RCL 04
086  POSA
087  X<0?
088  GTO 05
089  STO 05
090   E
091  +
092  ST+ 06
093  RCL 02
094  RCL 06
095  X>Y?
096  GTO 01
097  RCL 06
098  6
099  +
100  RCL 04
101  STO IND Y
102  ISG 20
103  ""
104  RCL 02
105  RCL 20
106  X=Y?
107  GTO 14
108  RCL 05
109   E
110  +
111  AROT
112  GTO 04
113 LBL 05
114  SF 06
115  "     "        (60 06 04 01)
116  3
117  RCL 16
118  X>Y?
119  GTO 10
120  XEQ 11
121  GTO 12
122 LBL 10
123  6
124 RCL 16
125  X>Y?
126  GTO 16
127  3
128  XEQ 11
129  CLA
130  ARCL 17
131  " " (7F 20)
132  ASTO 17
133  "   "         (60 04 01)
134  RCL 16
135  4
136  -
137  AROT
138  ATOX
139  CLA
140  ARCL 17
141  XTOA
142  ASTO 17
143  GTO 12
144 LBL 16
145  3
146  XEQ 11
147  "  "  (3C 1D)
148  RCL 16
149  7
150  -
151  AROT
152  ATOX
153  CLA
154  ARCL 17
155  XTOA
156  " "  (7F 01)
157  ASTO 17
158 LBL 12
159  ISG 16
160  ""
161   E1
162  RCL 16
163  X=Y?
164  GTO 13
165  GTO 01
166 LBL 11
167  AROT
168  ATOX
169  CLA
170  XTOA
171  ASTO 17
172  RTN
173  LBL 13
174  "  VERSAGER"
175  AVIEW
176  TONE 9
177  TONE 7
178  TONE 6
179  TONE 3
180  PSE
181  " EXEKUTION"
182  AVIEW
183  PSE
184  "       "  (20 20 20 20 20 20 20 20 20 01 1D 01)
185  XEQ 00
186  "       "  (20 20 20 20 20 20 20 20 01 20 1D 01)
187  XEQ 00
188  "       "  (20 20 20 20 20 20 20 01 20 20 1D 01) 
189  XEQ 00
190  "       "  (20 20 20 20 20 20 01 20 20 20 1D 01)
191  XEQ 00
192  "       "  (20 20 20 20 20 01 20 20 20 20 1D 01)
193  XEQ 00
194  "       "  (20 20 20 20 01 20 20 20 20 2D 3C 01)
195  XEQ 00
196  "       "  (20 20 20 20 01 20 20 20 2D 20 3C 01)
197  XEQ 00
198  "       "  (20 20 20 01 20 20 20 2D 20 20 3C 01)
199  XEQ 00
200  "       "  (20 20 20 01 20 20 2D 20 20 20 3C 01)
201  XEQ 00
202  "       "  (20 20 01 20 20 2D 20 20 20 20 3C 01)
203  XEQ 00
204  "       "  (20 20 01 20 2D 20 20 20 20 20 3C 01)
205  XEQ 00
206  "       "  (20 20 01 2D 20 20 20 20 20 20 3C 01)
207  XEQ 00
208  "AAARRRGGH..."
209  AVIEW
210  TONE 10
211  "       "  (20 7F 0D 20 20 20 20 20 20 20 3C 01)
212  AVIEW
213  PSE
214  PSE
215  "  GESUCHTES "
216  "WORT:"
217  AVIEW
218  PSE
219  CLA
220  " "         (Leerzeichen)
221  ARCL 00
222  FS? 05
223  ARCL 01
224  AVIEW
225  GTO 07
226 LBL 00
227  AVIEW
228  9             (PSE dauert zu lange, deshalb)
229  LN          (hier Berechnung des Logarithmus von 9)
230  RTN
231 LBL 14
232  CLA
233  ARCL 00
234  FS? 05
235  ARCL 01
236  BEEP
237  AVIEW
238  PSE
239  PSE
240  " GRATULIERE"
241  AVIEW
242  TONE 3
243  TONE 4
244  TONE 5
245  TONE 8
246  TONE 7
247  TONE 8
248  TONE 9
249  CLA
250  FIX 0
251  CF 29
252   E
253  RCL 16
254  ARCL X
255  " FALSCHE"
256  X=Y?
257  "R"
258  AVIEW
259 LBL 07
260  AOFF
261  CLA
262  ,02
263  CLRGX
264  CLST
265  X<>F
266  CLX
267  FIX 4
268  SF 29
269  END


Zurück zu Ausgewählte (Spiel-)Programme für den HP-41CX

Zurück zu Naturwissenschaften und mathematische Spielereien

Zurück zur Startseite

Kai Schröder, 30.5.2001