Superhirn - aber hier sucht der HP-41CX die vom Spieler vorgegebene Kombination ! Der Code muß aus vier (es wären natürlich programmtechnisch ohne Probleme auch mehr Stellen möglich, aber das dauert dann wirklich zu lange !) Buchstaben von A bis F (einschließlich) bestehen. Jeder Buchstabe darf im Code nur genau einmal enthalten sein. Auch das mehrmalige Vorkommen eines Buchstaben ist kein prinzipiell größeres Problem, aber die Zahl der Kombinationsmöglichkeiten steigt rapide an und dann macht es einfach keinen Spass mehr, auf den nächsten Vorschlag des HP-41CX zu warten ! Deshalb ist die vorliegende Programmversion nicht dafür vorgesehen.
Die Rechenzeit beträgt bei normaler Geschwindigkeit (ohne TURBO-Umbau) bis zu 20min, im Turbogang bis zu ungefähr 10min, bis der HP-41CX die nächste mögliche Kombination berechnet hat. Während des Programmlaufs wird deshalb zwischendurch immer Flag 49, das Batteriespannungs-Flag, überprüft. Sinkt die Batteriespannung zu tief, so wird der Programmlauf beendet und der Rechner schaltet sich aus. Beim Wiedereinschalten erscheint BATTERIE in der Anzeige, um auf die zu niedrige Batteriespannung hinzuweisen. Der Programmlauf kann dann nicht mehr fortgesetzt werden.
Spielablauf :
Nach Programmstart muß zunächst auf die Eingabeaufforderung hin ein Keim für den Zufallszahlen-Generator eingegeben werden, woraufhin der HP-41CX einen ersten Code erstellt. Dieser wird nach einem akustischen Signal angezeigt. Nach Drücken der R/S-Taste erscheint S,W : in der Anzeige. Nun müssen die Anzahl der schwarzen und weißen Stifte eingegeben werden : zuerst die schwarzen, dann das Dezimalkomma und danach die Anzahl der weißen Stifte. Nun muß nochmals die R/S-Taste gedrückt werden, um die Berechnung der nächsten Kombination zu bewirken, usw. Hat der HP-41CX den Code herausgefunden, so zeigt er noch die Zahl der von ihm benötigten Versuche an.
Programmlisting :
001 LBL "SPIEL5b" 002 "SUPERHIRN 2" 003 AVIEW 004 PSE 005 ,034 006 CLRGX 007 CLX 008 X<>F 009 E 010 " ZZG-KEIM :" 011 PROMPT 012 STO 00 013 ,003 014 STO 01 015 CLA 016 LBL 00 017 RCL 00 018 R-D 019 FRC 020 STO 00 021 E5 022 * 023 6 024 MOD 025 FS? IND X 026 GTO 00 027 SF IND X 028 65 029 + 030 XTOA 031 ISG 01 032 GTO 00 033 11 034 STO 04 035 ASTO IND X 036 ,005 037 STO 00 038 STO 01 039 STO 02 040 STO 03 041 XEQ 22 042 GTO 16 043 LBL 15 044 XEQ 22 045 CLX 046 X<>F 047 RCL 00 048 SF IND X 049 RCL 01 050 FS? IND X 051 GTO 17 052 SF IND X 053 RCL 02 054 FS? IND X 055 GTO 17 056 SF IND X 057 RCL 03 058 FS? IND X 059 GTO 17 060 LBL 05 061 RCL 08 062 31 063 - 064 RCL IND X 065 65 066 + 067 STO IND 08 068 ISG 08 069 GTO 05 070 RCL 04 071 11 072 - 073 E3 074 / 075 STO 05 076 LBL 18 077 FS? 49 078 GTO 23 079 RCL 05 080 21 081 + 082 RCL IND X 083 STO 06 084 CLA 085 RCL 05 086 11 087 + 088 ARCL IND X 089 XEQ 22 090 LBL 01 091 RCL IND 08 092 POSA 093 RCL 08 094 31 095 - 096 INT 097 XY? ungleich 098 GTO 02 099 ISG 07 100 "" (Leeranweisung) 101 LBL 02 102 ISG 08 103 GTO 01 104 RCL 06 105 INT 106 RCL 07 107 XY? ungleich 108 GTO 17 109 XEQ 22 110 LBL 03 111 RCL IND 08 112 POSA 113 X<0? 114 GTO 02 115 RCL 08 116 31 117 - 118 INT 119 X=Y? 120 GTO 02 121 ISG 07 122 "" (Leeranweisung) 123 LBL 02 124 ISG 08 125 GTO 03 126 RCL 06 127 FRC 128 E1 129 * 130 RCL 07 131 XY? ungleich 132 GTO 17 133 ISG 05 134 GTO 18 135 ISG 04 136 "" (Leeranweisung) 137 XEQ 22 138 CLA 139 LBL 04 140 RCL IND 08 141 XTOA 142 ISG 08 143 GTO 04 144 ASTO IND 04 145 GTO 16 146 LBL 17 147 ISG 00 148 GTO 15 149 FS? 49 150 GTO 23 151 ,005 152 STO 00 153 ISG 01 154 GTO 15 155 ,005 156 STO 00 157 STO 01 158 ISG 02 159 GTO 15 160 ,005 161 STO 00 162 STO 01 163 STO 02 164 ISG 03 165 GTO 15 166 LBL 16 167 CLA 168 ARCL IND 04 169 32 170 XTOA 171 XTOA 172 XTOA 173 XTOA 174 4 175 AROT 176 BEEP 177 AVIEW 178 STOP 179 LBL 06 180 TONE 8 181 CF 22 182 " S,W :" 183 PROMPT 184 FC? 22 185 GTO 06 186 STO 06 187 FRC 188 E1 189 * 190 RCL 06 191 + 192 INT 193 2 194 X>Y? 195 GTO 07 196 4 197 RCL Z 198 X>Y? 199 GTO 07 200 RCL 06 201 4 202 X=Y? 203 GTO 19 204 RCL 04 205 E1 206 + 207 RCL Z 208 STO IND Y 209 GTO 15 210 LBL 07 211 TONE 5 212 " FALSCHE " 213 "EINGABE" 214 AVIEW 215 PSE 216 GTO 06 217 LBL 22 218 31,034 219 STO 08 220 CLX 221 STO 07 222 RTN 223 LBL 23 224 SF 11 225 OFF 226 " BATTERIE" 227 AVIEW 228 STOP 229 LBL 19 230 E 231 RCL 04 232 E1 233 - 234 CLA 235 FIX 0 236 CF 29 237 ARCL X 238 " VERSUCH" 239 X>Y? 240 "E" 241 AVIEW 242 CLA 243 FIX 4 244 SF 29 245 ,034 246 CLRGX 247 CLX 248 X<>F 249 CLST 250 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