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
Kai Schröder, 30.5.2001