Any Browser Campaign

Der HP-41CX „rät“ eine Zahl
English version

Spielablauf :

Nach Programmstart muß der Spieler zunächst die obere Intervallgrenze eingeben und R/S drücken. Die untere Grenze ist 1, die obere die größte darstellbare Integerzahl (dann dauert es natürlich für Spieler und HP-41CX etwas länger . . . ;-) ).

Auf die Frage „MOGELST DU ?“ muß der Spieler mit „N“ antworten, wenn er ehrlich ist und sich bei den Antworten NICHT vertut - anderenfalls findet der HP-41CX die zu ratende Zahl natürlich nicht ! ;-) Der HP-41CX zeigt dann eine Zahl an und der Spieler drückt die Taste „G“, wenn die zu ratende Zahl größer ist, oder „K“, wenn sie kleiner ist. Hat der HP-41CX die Zahl gefunden, muß „R“ gedrückt werden.

Hat der Spieler oben mit „J“ geantwortet, so muß er noch die Zahl eintippen, die der HP-41CX herausfinden soll. Dann übernimmt der HP-41CX das „Raten“und das Bewerten. Zum Schluß werden die Zahl der Versuche und die vom HP-41CX benötigte Zeit ausgegeben.

Programmlisting :

In den Zeilen 4 bis 12 werden drei Tastenzuweisungen vorgenommen, wobei eventuell vorhandene alte Zuweisungen gelöscht werden !

001 LBL "SPIEL4b"     (4b deshalb, weil bei Spiel4a der Spieler die Zahl raten muß)
002  " ZAHL RATEN"
003  AVIEW
004  "KL"
005  32
006  PASN
007  "GR"
008  22
009  PASN
010  "RI"
011  52
012  PASN
013  4 E-3
014  CLRGX
015  CF 29
016  CF 05
017  FIX 1
018  CLST
019  SETSW
020  "OBERE INTER"
021  "VALLGRENZE ?"
022  PROMPT
023  STO 00
024  CLA
025  74
026  AON
027  "MOGELST DU ?
028  PROMPT
029  AOFF
030  ATOX
031  CLA
032  X=Y?
033  GTO 05
034  "ZAHL ?"
035  PROMPT
036  SF 27
037 LBL 07
038  XEQ 02
039 LBL 01
040  FIX 0
041  FS? 05
042  GTO 06
043  CLA
044  STOPSW
045  VIEW 01
046  STOP
047 LBL 02
048  RUNSW
049  RCL 00
050  2
051  /
052  INT
053  STO 01
054  STO 02
055  XEQ 03
056  RTN
057 LBL "KL"
058  RUNSW
059  3
060  RCL 02
061  X=Y?
062  GTO 11
063  RCL 02
064  RND
065  2
066  /
067  INT
068  RND
069  STO 02
070   E
071  RCL 02
072  X<=Y?
073  XEQ 04
074 LBL 12
075  RCL 02
076  ST- 01
077  XEQ 03
078  GTO 01
079 LBL "GR"
080  RUNSW
081  RCL 02
082  2
083  /
084  FIX 0
085  RND
086  STO 02
087  2
088  RCL 02
089  X=Y?
090  XEQ 04
091  RCL 02
092  ST+ 01
093  XEQ 03
094  GTO 01
095 LBL 03
096  ISG 03
097  ""          (Leeranweisung)
098  RTN
099 LBL 04
100   E
101  STO 02
102  RTN
103 LBL 11
104  2
105  STO 02
106  GTO 12
107 LBL "RI"
108  "VERSUCHE: "
109  ARCL 03
110  AVIEW
111  PSE
112  FIX 6
113  SF 29
114  "BENOETIGTE"
115  AVIEW
116  PSE
117  "ZEIT IN STD:"
118  AVIEW
119  PSE
120  RCLSW
121  VIEW X
122  CF 05
123  FIX 4
124  CLKEYS
125  GTO 13
126 LBL 05
127  SF 05
128  "ZU RATENDE"
129  " ZAHL:"
130  PROMPT
131  RUNSW
132  STO 04
133  "START SPIEL4b"
134  AVIEW
135  PSE
136  GTO 07
137 LBL 06
138  VIEW 01
139  PSE
140  RCL 01
141  RCL 04
142  X=Y?
143  GTO 08
144  X>Y?
145  GTO 09
146  GTO 10
147 LBL 08
148  STOPSW
149  TONE 8
150  "RICHTIG"
151  AVIEW
152  GTO "RI"
153 LBL 09
154  "GROESSER"
155  AVIEW
156  PSE
157  GTO "GR"
158 LBL 10
159  "KLEINER"
160  AVIEW
161  PSE
162  GTO "KL"
163 LBL 13
164  CF 27
165  4 E-3
166  CLRGX
167  CLST
168  CLA
169  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